关于图层隔离Layeriso的问题！

wangxf888

Layeriso这个命令使用的比较频繁，但每次使用都是需要先选择图层才能实现隔离操作，我想请教下各位大佬能不能实现指定图层的隔离操作？也就是说假如图中有预设的LayA、LayB、LayC、LayD、LayE这5个图层，能不能一键实现这5个图层的隔离显示，不用每次都要手选这5个图层！
PS: 虽然 layon(指定)+layoff(其他)  还有图层状态管理都能实现这个功能，但个人感觉都不如Layeriso便捷实用！恳请大佬出手相助!!

xyp1964

1. (defun c:tt ()
   
2.   (setq lst '("LayA""LayB""LayC""LayD""LayE"));要隔离的图层表
   
3.   (vlax-for a (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))
   
4.     (if (not (member (vla-get-name a) lst))
   
5.       (vla-put-LayerOn a :vlax-false)
   
6.     )
   
7.   )
   
8.   (princ)
   
9. )

(defun c:tt ()<br />   (setq lst '("LayA""LayB""LayC""LayD""LayE"));要隔离的图层表<br />   (vlax-for a (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))<br />     (if (not (member (vla-get-name a) lst))<br />       (vla-put-LayerOn a :vlax-false)<br />     )<br />   )<br />   (princ)<br /> )

wangxf888

xyp1964 发表于 2024-9-17 11:25

感谢E版  这段时间有些事情要处理，没有时间上网！先测试下!