[编程交流] 可见/不可见变量

(setq i 0)
(repeat (sslength ss)
 (setq obj (vlax-ename->vla-object (ssname ss i)))
 (vlax-put-property obj 'Visible :vlax-false)
 (setq i (1+ i))
)

(vl-load-com)
(setq ss (ssget "_C" '(0 0) '(0 0)))
(if ss (command "_.erase" ss ""))
(setq f (open "c:\\LIST.txt" "r"))
(setq txt (read-line f))
(while (/= nil txt)
 (command "-text" "J" "BL" "0,0" 1 0 txt)
    (setq txt (read-line f))
)
(setq in 0)
(repeat (sslength ss)
 (setq obj (vlax-ename->vla-object (ssname ss in)))
 (vlax-put-property obj 'Visible :vlax-false)
 (setq in (1+ in))
)

(defun c:AllVis ( / tmp )
 ;; Lee Mac  ~  27.04.10
 
 (if (setq tmp (ssget "_X"))
   
   ( (lambda ( i / e )
       (while (setq e (ssname tmp (setq i (1+ i))))
         (Update
           (PutDXF 60 0 (entget e))
         )
       )
     )
     -1
   )
 )
 (princ)
)
(defun c:Invis ( / tmp )
 ;; Lee Mac  ~  27.04.10
 (if (setq tmp (ssget "_:L"))
   ( (lambda ( i / e )
       (while (setq e (ssname tmp (setq i (1+ i))))
         (Update
           (PutDXF 60 1 (entget e))
         )
       )
     )
     -1
   )
 )
 (princ)
)
(defun PutDXF ( code value elist )
 (entmod
   (if (assoc code elist)
     (subst (cons code value) (assoc code elist) elist)
     (append elist (list (cons code value)))
   )
 )
)
(defun Update ( elist )
 (entupd (cdr (assoc -1 elist)))
)

Command: allvis
; error: bad argument type: lentityp nil
Coommand