社区 › AutoLISP/Visual LISP 编程技术 › 隐藏隔离对象代码，感谢Gu_xl超级版主！

tianyi1230 发表于 2013-11-12 19:25:15

等Z版主或者G版主吧

tianyi1230 发表于 2013-11-12 21:46:18

今晚等不到了！

清风明月名字 发表于 2013-11-13 07:24:24

隐藏了，你怎么再显示？这个回头路的插件一定要有啊，没有等于删除了

flyfox1047 发表于 2013-11-13 08:25:46

清风明月名字 发表于 2013-11-13 07:24 static/image/common/back.gif
隐藏了，你怎么再显示？这个回头路的插件一定要有啊，没有等于删除了

XS就是显示

flyfox1047 发表于 2013-11-13 11:48:58

期待高手帮忙啊

Gu_xl 发表于 2013-11-13 12:08:06

;;隐藏选择对象 By Gu_xl
(defun c:yc ()
(if (ssget)
    (progn
      (vlax-for        obj
                  (vla-get-activeselectionset
                      (vla-get-activedocument (vlax-get-acad-object))
                  )
        (vla-put-Visible obj :vlax-false)
      )
    )
)
(princ)
)
;;隔离选择对象 By Gu_xl
(defun c:gl (/ ss ss1)
(if (setq ss (ssget))
    (progn
      (setq ss1 (ssget "x"))
      (command "_select" ss1 "r" ss "")
      (vlax-for        obj
                  (vla-get-activeselectionset
                      (vla-get-activedocument (vlax-get-acad-object))
                  )
        (vla-put-Visible obj :vlax-false)
      )
    )
)
(princ)
)
;;恢复显示 By Gu_xl
(defun c:hfxs (/ ss)
(if (setq ss (ssget "x" '((60 . 1))))
    (vlax-for obj
                  (vla-get-activeselectionset
                  (vla-get-activedocument (vlax-get-acad-object))
                  )
      (vla-put-Visible obj :vlax-true)
    )
)
(princ)
)

flyfox1047 发表于 2013-11-13 12:47:47

Gu_xl 发表于 2013-11-13 12:08 static/image/common/back.gif


很给力!G超版的代码就是强！一针见血！万分感谢！

chendili 发表于 2013-11-13 13:36:42

这个东西太好了，绘图中用的多啊

tianyi1230 发表于 2013-11-13 17:55:24

等的好辛苦啊，要是原帖的颜色那个Y2再修复就好了

flyfox1047 发表于 2013-11-13 17:57:09

tianyi1230 发表于 2013-11-13 17:55 static/image/common/back.gif
等的好辛苦啊，要是原帖的颜色那个Y2再修复就好了

Y2是没有问题的

查看完整版本: 隐藏隔离对象代码，感谢Gu_xl超级版主！