谢谢回复,,, 在晓东CAD家园找到这样的代码: (defun c:test () ;;恢复可见图层上的不可见图元 (vl-load-com) (setq ss (ssget "x") n 0) (while (< n (sslength ss)) (setq ent (ssname ss n) obj (vlax-ename->vla-object ent)) (if (vlax-property-available-p obj 'Visible T) (if (= (vla-get-visible obj) :vlax-false) (vla-put-Visible obj :vlax-true ) ) ) (setq n (1+ n)) ) ) |