객체 특성으로 선택하기 & 켜 보이기,숨기기 > 기능 제안 및 요청

이론적으로는 가능하나, 작동 시간이 너무 오래 걸려서 만들어도 유효할 것 같지 않습니다.

블럭 숨기기는 지금 구현이 되어 있는데, 아래 글의 맨 끝을 보시면 되세요.
https://izzarder.com/100

(defun c:selectcoloron(/ entdata entcolour colour layer layerlist layercolourlist layernamefilter strlayer strlayerlen filter)
(prompt "\n특정 색상 객체만 보기")
(setq entdata (entget (car (entsel "\n객체를 선택하세요."))))
(if (setq entcolour (cdr (assoc 62 entdata)))
(setq colour entcolour)
(setq colour (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 entdata))))))
)
(setq layer (tblnext "layer" T))
(while layer
(setq layerlist (append layerlist (list layer)))
(setq layer (tblnext "layer"))
)
(while layerlist
(if
(/= colour (cdr (assoc 62 (nth 0 layerlist))))
(setq layerlist (cdr layerlist))
(progn
(setq layercolourlist (append (list (cdr (assoc 2 (nth 0 layerlist)))) layercolourlist))
(setq layerlist (cdr layerlist))
)
)
)
(if (= layercolourlist nil)
(setq filter (list (cons 62 colour) (cons -4 "<not") (cons 0 "insert") (cons -4 "not>")))
(progn
(setq strlayer "")
(while (car layercolourlist)
(setq strlayer (strcat strlayer (car layercolourlist) ","))
(setq layercolourlist (cdr layercolourlist))
)
(setq strlayerlen (strlen strlayer))
(setq layernamefilter (substr strlayer 1 (1- strlayerlen)))
(setq filter (list (cons -4 "<or") (cons -4 "<and") (cons 8 layernamefilter) (cons 62 256) (cons -4 "and>") (cons 62 colour) (cons -4 "or>") (cons -4 "<not") (cons 0 "insert") (cons -4 "not>")))
)
)
         
(sssetfirst nil (ssget "a" filter))
            (command "ISOLATEOBJECTS" "HIDEUNSEL")
(princ)
)






(defun c:colorback()
(command "UNISOLATEOBJECTS")
) ;defun

기존에 가지고 있던 리습을 간단히 짜집기해서 만들어보았는데
이자더님 말씀대로 도면이 조금만 무거워도 작동 시간이 너무 오래 걸려 실제로 사용하기는 어려울 듯 합니다

• 삭제

감사합니다.^^

감사합니다^^

• 삭제