如果让块内的不同的图层都独立显示的功能的

magicheno

请教下大侠们，有没有点击一个块，可以使得整个块，块内的不同的图层都全部独立显示的功能的，这个可以实现么

e2002

你试试 layerwalk 看能不能满足你的要求？

magicheno

e2002 发表于 2020-3-13 09:47
你试试 layerwalk 看能不能满足你的要求？

感谢大侠，laywalk是图层漫游的，不过和我想的不一样的，想要的是类似layiso的功能，点到块的话是块内的所有对象图层都独立显示的

magicheno

LLSheng_73大侠整的，分享下
(defun c:tt5(/ doc lay e)
  (and(setq e(ssget":e:s"'((0 . "INSERT"))))
      (setq e(vlax-ename->vla-object(ssname e 0))
            doc(vlax-get-property(vlax-get-acad-object)'activedocument)
            lay(vlax-get-property doc'layers)))
  (vlax-for i lay(vlax-put-property i 'layeron 0))
  (vlax-for i(vlax-invoke-method(vlax-get-property doc'blocks)'item(vlax-get-property e'name))
    (vlax-put-property(vlax-invoke-method lay'item(vlax-get-property i 'layer))'layeron 1))
  (vlax-put-property(vlax-invoke-method lay'item(vlax-get-property e'layer))'layeron 1))

masterlong

楼上程序不适用嵌套块吧

magicheno

masterlong 发表于 2020-7-29 10:55
楼上程序不适用嵌套块吧

是的大侠，不知道嵌套块的,能帮忙加上嵌套块的功能，还有多选的功能么

664571221

这个功能干嘛用

masterlong

http://bbs.mjtd.com/thread-111095-1-1.html

magicheno

masterlong 发表于 2020-7-29 14:59
http://bbs.mjtd.com/thread-111095-1-1.html

原来如此，大侠老早就弄出来了