对象隔离

且听风吟09

也是很久以前写的插件了，功能跟cad的隔离差不多
BJ命令创建选择集，GL命令设置选择集对象不可见/可见状态
上图

海贼凌源

很好的代码

zhangrunze

感谢分享~
命令合并了一下~

(defun c:GLL (/ ss n en enobj n enobj en)
  (vl-load-com)

  (setq ss (ssget "X"))
  (setq n 0)
  (while (setq en (ssname ss n))
    (setq enobj (vlax-ename->vla-object en))
    (vlax-put-property enobj 'Visible 1)
    (setq n (1+ n))
  )
  (princ "\n选取要操作的对象:")
  (setq QTFY_GLDX_BJ (ssget))


  (setq n 0)
  (while (setq en (ssname QTFY_GLDX_BJ n))
    (setq enobj (vlax-ename->vla-object en))
    (if        (= :vlax-true (vlax-get-property enobj 'Visible))
      (vlax-put-property enobj 'Visible 0)
      (vlax-put-property enobj 'Visible 1)
    )
    (setq n (1+ n))
  )
)

(princ "\n——欢迎使用隔离对象工具！命令：GLL隔离操作——")
(princ)