关闭打开多个设定图层程序

小毛草

2. <p>(defun c:sd (/ laylist)</p><p>  ;; 定义需要操作的图层列表</p><p>  (setq laylist '("Defpoints" "PUB_VWPRT" "dote")) ; 添加更多图层名称</p><p>
   
3. </p><p>  ;; 对每个图层执行关闭或打开操作</p><p>  (foreach layname laylist</p><p>    (bb_layon&off layname) ; 调用自定义函数关闭或打开图层</p><p>  )</p><p>
   
4. </p><p>  ;; 提示用户操作完成</p><p>  (princ "\n已关闭/打开以下图层：")</p><p>  (princ laylist)</p><p>  (princ)</p><p>)</p><p>
   
5. </p><p>;; 自定义函数：关闭或打开指定图层</p><p>(defun bb_layon&off (layname / laystate)</p><p>  ;; 获取图层的当前状态</p><p>  (setq laystate (cdr (assoc 70 (tblsearch "layer" layname))))</p><p>
   
6. </p><p>  ;; 根据图层状态执行操作</p><p>  (if (= (logand laystate 1) 1) ; 如果图层是关闭的</p><p>    (command ".layer" "on" layname "") ; 打开图层</p><p>    (command ".layer" "off" layname "") ; 关闭图层</p><p>  )</p><p>)</p>

<p>(defun c:sd (/ laylist)</p><p>  ;; 定义需要操作的图层列表</p><p>  (setq laylist '("Defpoints" "PUB_VWPRT" "dote")) ; 添加更多图层名称</p><p><br /> </p><p>  ;; 对每个图层执行关闭或打开操作</p><p>  (foreach layname laylist</p><p>    (bb_layon&off layname) ; 调用自定义函数关闭或打开图层</p><p>  )</p><p><br /> </p><p>  ;; 提示用户操作完成</p><p>  (princ "\n已关闭/打开以下图层：")</p><p>  (princ laylist)</p><p>  (princ)</p><p>)</p><p><br /> </p><p>;; 自定义函数：关闭或打开指定图层</p><p>(defun bb_layon&off (layname / laystate)</p><p>  ;; 获取图层的当前状态</p><p>  (setq laystate (cdr (assoc 70 (tblsearch "layer" layname))))</p><p><br /> </p><p>  ;; 根据图层状态执行操作</p><p>  (if (= (logand laystate 1) 1) ; 如果图层是关闭的</p><p>    (command ".layer" "on" layname "") ; 打开图层</p><p>    (command ".layer" "off" layname "") ; 关闭图层</p><p>  )</p><p>)</p>

2. (defun c:sd (/ laylist)
   
3. 
   
4.   ;; 定义需要操作的图层列表
   
5. 
   
6.   (setq laylist '("Defpoints" "PUB_VWPRT" "dote")) ; 添加更多图层名称
   
7. 
   
8. 
   
9. 
   
10.   ;; 对每个图层执行关闭或打开操作
    
11. 
    
12.   (foreach layname laylist
    
13. 
    
14.     (bb_layon&off layname) ; 调用自定义函数关闭或打开图层
    
15. 
    
16.   )
    
17. 
    
18. 
    
19. 
    
20.   ;; 提示用户操作完成
    
21. 
    
22.   (princ "\n已关闭/打开以下图层：")
    
23. 
    
24.   (princ laylist)
    
25. 
    
26.   (princ)
    
27. 
    
28. )
    
29. 
    
30. 
    
31. 
    
32. ;; 自定义函数：关闭或打开指定图层
    
33. 
    
34. (defun bb_layon&off (layname / laystate)
    
35. 
    
36.   ;; 获取图层的当前状态
    
37. 
    
38.   (setq laystate (cdr (assoc 70 (tblsearch "layer" layname))))
    
39. 
    
40. 
    
41. 
    
42.   ;; 根据图层状态执行操作
    
43. 
    
44.   (if (= (logand laystate 1) 1) ; 如果图层是关闭的
    
45. 
    
46.     (command ".layer" "on" layname "") ; 打开图层
    
47. 
    
48.     (command ".layer" "off" layname "") ; 关闭图层
    
49. 
    
50.   )
    
51. 
    
52. )

(defun c:sd (/ laylist)<br /> <br />   ;; 定义需要操作的图层列表<br /> <br />   (setq laylist '("Defpoints" "PUB_VWPRT" "dote")) ; 添加更多图层名称<br /> <br /> <br /> <br />   ;; 对每个图层执行关闭或打开操作<br /> <br />   (foreach layname laylist<br /> <br />     (bb_layon&off layname) ; 调用自定义函数关闭或打开图层<br /> <br />   )<br /> <br /> <br /> <br />   ;; 提示用户操作完成<br /> <br />   (princ "\n已关闭/打开以下图层：")<br /> <br />   (princ laylist)<br /> <br />   (princ)<br /> <br /> )<br /> <br /> <br /> <br /> ;; 自定义函数：关闭或打开指定图层<br /> <br /> (defun bb_layon&off (layname / laystate)<br /> <br />   ;; 获取图层的当前状态<br /> <br />   (setq laystate (cdr (assoc 70 (tblsearch "layer" layname))))<br /> <br /> <br /> <br />   ;; 根据图层状态执行操作<br /> <br />   (if (= (logand laystate 1) 1) ; 如果图层是关闭的<br /> <br />     (command ".layer" "on" layname "") ; 打开图层<br /> <br />     (command ".layer" "off" layname "") ; 关闭图层<br /> <br />   )<br /> <br /> )

moranyuyan

谢谢分享

magicheno

感谢大佬分享