storm-korea 님께서 올려주신 리습인데요. 저한테 필요한 리습이라서 사용할려고 하니 실행이 안되네요. 그리고 참조편집 들어갔을 때처럼 동일 이름 블럭만 남기고 다른 블럭은 뿌옇게도 했으면 좋겠는데 가능할까요 여러 고수님들의 조언 부탁드립니다.^^
첫번째거는 선택블럭만 보이는 것. 두번째거는 다시 다보이게 하는 것
(defun c:v1 ( / ss b bn o i)
(vl-load-com)
(setq ss (ssget “X” ‘((0 . “INSERT”))) b (car (entsel “n보여질 불럭선택:”)))
(if (and ss b (equal (cdr (assoc 0 (entget b))) “INSERT”))
(progn
(setq bn (vlax-get (vlax-ename->vla-object b) ‘name) i 0)
(repeat (sslength ss)
(setq o (vlax-ename->vla-object (ssname ss i)))
(if (not (equal bn (vlax-get o ‘name))) (vlax-put o ‘visible 0))
(setq i (1+ i))
)
)
)
(princ)
)
(defun c:v2 ( / ss o i)
(vl-load-com)
(if (setq i 0 ss (ssget “X” ‘((0 . “INSERT”))))
(repeat (sslength ss)
(setq o (vlax-ename->vla-object (ssname ss i)))
(vlax-put o ‘visible -1)
(setq i (1+ i))
)
)
(princ)
)