객체 숨기기 보이기....

on/off 랑은 차이가 있습니다.

단순히 화면에서 보이고 안보이고 차이입니다.

 

;객체 보이기
(defun c:show()
(setq ss (ssget "x"))
(if ss
(progn
(setq i 0)
(repeat (sslength ss)
(setq obj (vlax-ename->vla-object (ssname ss i))
i (1+ i))
(if (equal :vlax-false (vlax-get-property obj 'Visible))
(vlax-put-property obj 'Visible :vlax-true)))))
(princ)
)

;객체 숨기기
(defun c:hidden()
(setq ss(ssget)
i 0)
(repeat (sslength ss)
(setq en (ssname ss i)
i (1+ i))
(vlax-put-property (vlax-ename->vla-object en) 'Visible :vlax-false))
(princ)
)