[原创] 显示和隐藏

qcw911

(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

下载来看下功能如何

669423907

能隐藏未选择对象那就更好了！