这是目前我能想到的最好的办法,但有点冒险
- (defun c:VisTog ( / tmp )
- ;; Lee Mac ~ 27.04.10
-
- (if (or (and *ss* (not (setq tmp *ss* *ss* nil)))
- (and (setq tmp (ssget)) (setq *ss* tmp)))
-
- ( (lambda ( i / e )
- (while (setq e (ssname tmp (setq i (1+ i))))
- (Update
- (PutDXF 60
- (- 1 (cond ((cdr (assoc 60 (entget e)))) (0)))
- (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)))
- )
|