(defun c:dre()
(if ss3
(progn
(redrawss ss3 1)(setq ss3 nil)
)
(progn
(setq ss3(ssadd))
(while(setq ss(ssget ":s"))
(setq i 0)
(repeat (sslength ss)
(ssadd (ssname ss i) ss3)
(setq i(1+ i))
)
(redrawss ss3 2)
)
)
)
(princ)
)
(defun Redrawss (ss mode)
(mapcar '(lambda (x) (redraw x mode))
(vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))
)
)
如何变成选择的显示,未选择的全部隐藏呢? 下载来看下功能如何 能隐藏未选择对象那就更好了!
页:
1
[2]