打开/关闭特定图层，支持通配符

小毛草

2. ;;;;;;;;;;;;;;;;关闭图层
   
3. 
   
4. (defun c:xf () (bb_layon&off_multiple '("dote*" "DOTE*")) (princ "关闭/打开：轴线图层") (princ))  ;;;关闭轴线图层
   
5. 
   
6. (defun c:xff () (bb_layon&off_multiple '("0-PM-固定家具")) (princ "关闭/打开：0-PM-固定家具") (princ))  ;;;0-PM-固定家具
   
7. 
   
8. (defun c:xdd () (bb_layon&off_multiple '("0-TF*" "0-DM*")) (princ "关闭/打开：天花图层，地面图层") (princ))  ;;;天花图层，地面图层
   
9. 
   
10. (defun c:xxf () (bb_layon&off_multiple '("0-PM-建筑面积计算" "面积全算" "面积半算" "面积扣除")) (princ "关闭/打开：0-PM-建筑面积计算,面积全算,面积半算,面积扣除图层") (princ))  ;;;0-PM-建筑面积计算
    
11. 
    
12. (defun c:sd () (bb_layon&off_multiple '("Defpoints" "PUB_VWPRT" "layer3")) (princ "关闭/打开：Defpoints，PUB_VWPRT图层") (princ))  ;;;0-PM-建筑面积计算
    
13. 
    
14. ;;; 新函数：支持多个图层和通配符
    
15. (defun bb_layon&off_multiple (patterns / doc layers layer layname matched)
    
16.   (vl-load-com)
    
17.   (setvar "cmdecho" 0)
    
18.   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
    
19.   (setq layers (vla-get-layers doc))
    
20.   
    
21.   ;; 遍历所有图层
    
22.   (vlax-for layer layers
    
23.     (setq layname (vla-get-name layer))
    
24.     (setq matched nil)
    
25.    
    
26.     ;; 检查图层是否匹配任一模式
    
27.     (foreach pattern patterns
    
28.       (if (wcmatch layname pattern)
    
29.         (setq matched t)
    
30.       )
    
31.     )
    
32.    
    
33.     ;; 如果匹配，则切换图层状态
    
34.     (if matched
    
35.       (if (= (vla-get-layeron layer) :vlax-true)
    
36.         (command "_.layer" "_off" layname "")
    
37.         (command "_.layer" "_on" layname "")
    
38.       )
    
39.     )
    
40.   )
    
41.   (setvar "cmdecho" 1)
    
42.   (princ)
    
43. )
    
44. 
    
45. ;;; 保留原函数以便向后兼容
    
46. (defun bb_layon&off (pattern)
    
47.   (bb_layon&off_multiple (list pattern))
    
48. )
    

;;;;;;;;;;;;;;;;关闭图层<br /> <br /> (defun c:xf () (bb_layon&off_multiple '("dote*" "DOTE*")) (princ "关闭/打开：轴线图层") (princ))  ;;;关闭轴线图层<br /> <br /> (defun c:xff () (bb_layon&off_multiple '("0-PM-固定家具")) (princ "关闭/打开：0-PM-固定家具") (princ))  ;;;0-PM-固定家具<br /> <br /> (defun c:xdd () (bb_layon&off_multiple '("0-TF*" "0-DM*")) (princ "关闭/打开：天花图层，地面图层") (princ))  ;;;天花图层，地面图层<br /> <br /> (defun c:xxf () (bb_layon&off_multiple '("0-PM-建筑面积计算" "面积全算" "面积半算" "面积扣除")) (princ "关闭/打开：0-PM-建筑面积计算,面积全算,面积半算,面积扣除图层") (princ))  ;;;0-PM-建筑面积计算<br /> <br /> (defun c:sd () (bb_layon&off_multiple '("Defpoints" "PUB_VWPRT" "layer3")) (princ "关闭/打开：Defpoints，PUB_VWPRT图层") (princ))  ;;;0-PM-建筑面积计算<br /> <br /> ;;; 新函数：支持多个图层和通配符<br /> (defun bb_layon&off_multiple (patterns / doc layers layer layname matched)<br />   (vl-load-com)<br />   (setvar "cmdecho" 0)<br />   (setq doc (vla-get-activedocument (vlax-get-acad-object)))<br />   (setq layers (vla-get-layers doc))<br />   <br />   ;; 遍历所有图层<br />   (vlax-for layer layers<br />     (setq layname (vla-get-name layer))<br />     (setq matched nil)<br />     <br />     ;; 检查图层是否匹配任一模式<br />     (foreach pattern patterns<br />       (if (wcmatch layname pattern)<br />         (setq matched t)<br />       )<br />     )<br />     <br />     ;; 如果匹配，则切换图层状态<br />     (if matched<br />       (if (= (vla-get-layeron layer) :vlax-true)<br />         (command "_.layer" "_off" layname "")<br />         (command "_.layer" "_on" layname "")<br />       )<br />     )<br />   )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br /> <br /> ;;; 保留原函数以便向后兼容<br /> (defun bb_layon&off (pattern)<br />   (bb_layon&off_multiple (list pattern))<br /> )<br />

tigcat

谢谢分享，顶楼主。

magicheno

感谢大佬分享

qifeifei

感谢大佬分享

zhoupeng220

感谢大佬分享

不一样地设计

感谢大佬无私奉献

qazxswk

代码写的不错，但系统自带三个命令也不错的
"layiso"  ;孤立图层
"layoff" ;隐藏选择定图层   
"layon" ;显示所有图层

tranque

感谢大佬的分享

pxt2001

把图层写死了，不灵活。可能用图层组过滤器，属性过滤器，图层状态过滤器更好。当然可以用lisp而不是纯CAD来处理。