将指定的图层设置为不打印,可以选择多个图层！

小毛草

2. (defun C:BDY (/ ss i ent layname laylist)
   
3.   ;; 提示用户选择对象
   
4.   (prompt "\n请选择要设置为不打印的图层对象：")
   
5.   (setq ss (ssget)) ; 选择对象
   
6. 
   
7.   ;; 如果选择了对象
   
8.   (if ss
   
9.     (progn
   
10.       (setq i 0)
    
11.       (setq laylist '()) ; 初始化图层名称列表
    
12. 
    
13.       ;; 遍历选择集，提取图层名称
    
14.       (repeat (sslength ss)
    
15.         (setq ent (ssname ss i)) ; 获取对象
    
16.         (setq layname (cdr (assoc 8 (entget ent)))) ; 获取对象所在的图层名称
    
17.         (if (not (member layname laylist)) ; 去重
    
18.           (setq laylist (cons layname laylist)) ; 将图层名称加入列表
    
19.         )
    
20.         (setq i (1+ i))
    
21.       )
    
22. 
    
23.       ;; 对每个图层执行不打印操作
    
24.       (foreach layname laylist
    
25.         (command ".layer" "p" "n" layname "") ; 不打印图层
    
26.       )
    
27.       (prompt (strcat "\n已不打印 " (itoa (length laylist)) " 个图层。"))
    
28.     )
    
29.     ;; 如果没有选择对象
    
30.     (prompt "\n未选择任何对象！")
    
31.   )
    
32.   (princ)
    
33. )

(defun C:BDY (/ ss i ent layname laylist)<br />   ;; 提示用户选择对象<br />   (prompt "\n请选择要设置为不打印的图层对象：")<br />   (setq ss (ssget)) ; 选择对象<br /> <br />   ;; 如果选择了对象<br />   (if ss<br />     (progn<br />       (setq i 0)<br />       (setq laylist '()) ; 初始化图层名称列表<br /> <br />       ;; 遍历选择集，提取图层名称<br />       (repeat (sslength ss)<br />         (setq ent (ssname ss i)) ; 获取对象<br />         (setq layname (cdr (assoc 8 (entget ent)))) ; 获取对象所在的图层名称<br />         (if (not (member layname laylist)) ; 去重<br />           (setq laylist (cons layname laylist)) ; 将图层名称加入列表<br />         )<br />         (setq i (1+ i))<br />       )<br /> <br />       ;; 对每个图层执行不打印操作<br />       (foreach layname laylist<br />         (command ".layer" "p" "n" layname "") ; 不打印图层<br />       )<br />       (prompt (strcat "\n已不打印 " (itoa (length laylist)) " 个图层。"))<br />     )<br />     ;; 如果没有选择对象<br />     (prompt "\n未选择任何对象！")<br />   )<br />   (princ)<br /> )

[size=16.002px]将指定的图层设置为不打印,可以选择多个图层！

zmzk

这个有用！多谢分享