(defun c:test (/ ss en) (Defun put-visible (bn visible / bl) ; (If (Assoc 66 (EntGet bn)) (Progn (SetQ bn (EntNext bn) bl (EntGet bn) ) (While (= "ATTRIB" (Cdr (Assoc 0 bl))) (setq bl (subst (cons 70 (if visible 0 1 ) ) (assoc 70 bl) bl ) ) (entmod bl) (entupd bn) (SetQ bl (EntGet (SetQ bn (EntNext bn)))) ) ) ) ) (setq ss (ssget '((66 . 1)))) (setq n 0) (repeat (sslength ss) (setq en (ssname ss n)) (put-visible en t);可见 ;(put-visible en nil)不可见 (setq n (1+ n)) ) ) |