qcw911 发表于 2011-6-14 08:37:39

本帖最后由 qcw911 于 2011-6-14 08:46 编辑

(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)))
   )
   )

如何变成选择的显示,未选择的全部隐藏呢?

yewuqiang 发表于 2011-6-14 08:52:43

下载来看下功能如何

669423907 发表于 2011-6-14 12:05:25

能隐藏未选择对象那就更好了!
页: 1 [2]
查看完整版本: [原创] 显示和隐藏