且听风吟09 发表于 2016-5-5 15:44:42

对象隔离

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

海贼凌源 发表于 2016-5-5 17:20:32

很好的代码

zhangrunze 发表于 2024-5-6 13:58:02

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

(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)
页: [1]
查看完整版本: 对象隔离