怎么在PU清理时保留原有ACAD.DWT模版里已经设定好的图层

lonshinyoo

ACAD.DWT模版已经预设了经常需要的图层及颜色，但作图时有些图层可能并没有任何对象，执行PU命令时没有任何对象的图层就会被清理掉，请问怎么实现在PU清理时保留原有ACAD.DWT模版里已经设定好的图层而不被清理掉。

caoyin

(vlax-ldata-put "data" "layer-01" (tblobjname "layer" "图层名"))

lonshinyoo

回复 caoyin 的帖子

谢谢你，辛苦了！

669423907

回复 caoyin 的帖子

请教 caoyin 版主，怎样把“(vlax-ldata-put "data" "layer-01" (tblobjname "layer" "图层名"))”加到我的程序中或者怎样改呢？
我想保留所有的标注样式(defun c:puu()
(command "zoom""e" "purge" "la" "" "n" ""  "purge" "lt" "" "n" "" "purge" "r" "" "n" "" "purge"
"b" "" "n" "" "purge" "p" "" "n" "" "purge" "st" "" "n" "" "qsave"))
我常用的图层有
谢谢了！

zhynt

防止不被清理的最好方法就是使用它。

mandala

介绍一个实用的办法：
新建一个空的dwg，把这些图层加入后保存。写一个pu.lsp，在pu之后插入这个dwg。

liu22737

回复 mandala 的帖子

自己写pu,把句柄靠前的图层保留

669423907

大师写的有条有里，我却看得云里雾里！

zhynt

2. 
   
3. (defun c:relay        ()
   
4.   (setq oldcmd (getvar "cmdecho"))
   
5.   (setvar "cmdecho" 0)
   
6.   (setq        laylist        '("00图框"     "3虚线"            "33螺线"         "3细线"
   
7.                   "4中心线"    "5标注"            "6点划线"         "7不打印"
   
8.                   "8双点线"    "90文字"            "9标注"
   
9.                  )
   
10.   )
    
11.   (setq        lay_n         (length laylist)
    
12.         m         0
    
13.         lay_list '()
    
14.   )
    
15.   (while (/= m lay_n)
    
16.     (setq lay_name (nth m laylist))
    
17.     (if        (/= (TBLOBJNAME "LAYER" lay_name) nil)
    
18.       (progn
    
19.         (setq lay_c        (cdr (assoc 62 (tblsearch "layer" lay_name)))
    
20.               lay_lt        (cdr (assoc 6 (tblsearch "layer" lay_name)))
    
21.               lay_n_lst        (list lay_name lay_c lay_lt)
    
22.         )
    
23.         (setq lay_list (cons lay_n_lst lay_list))
    
24.       )
    
25.     )
    
26.     (setq m (1+ m))
    
27.   )
    
28.   (command "purge" "a" "" "n")
    
29.   (setq        n (length lay_list)
    
30.         m 0
    
31.   )
    
32.   (while (/= m n)
    
33.     (setq lay_n_lst (nth m lay_list))
    
34.     (if        (= (TBLOBJNAME "LAYER" (nth 0 lay_n_lst)) nil)
    
35.       (command "layer" "m" (nth 0 lay_n_lst)"c"(nth 1 lay_n_lst) "" "l" (nth 2 lay_n_lst) "" "")
    
36.     )
    
37.     (setq m (1+ m))
    
38.   )
    
39.   (setvar "cmdecho" oldcmd)
    
40. )
    

<br /> (defun c:relay        ()<br />   (setq oldcmd (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq        laylist        '("00图框"     "3虚线"            "33螺线"         "3细线"<br />                   "4中心线"    "5标注"            "6点划线"         "7不打印"<br />                   "8双点线"    "90文字"            "9标注"<br />                  )<br />   )<br />   (setq        lay_n         (length laylist)<br />         m         0<br />         lay_list '()<br />   )<br />   (while (/= m lay_n)<br />     (setq lay_name (nth m laylist))<br />     (if        (/= (TBLOBJNAME "LAYER" lay_name) nil)<br />       (progn<br />         (setq lay_c        (cdr (assoc 62 (tblsearch "layer" lay_name)))<br />               lay_lt        (cdr (assoc 6 (tblsearch "layer" lay_name)))<br />               lay_n_lst        (list lay_name lay_c lay_lt)<br />         )<br />         (setq lay_list (cons lay_n_lst lay_list))<br />       )<br />     )<br />     (setq m (1+ m))<br />   )<br />   (command "purge" "a" "" "n")<br />   (setq        n (length lay_list)<br />         m 0<br />   )<br />   (while (/= m n)<br />     (setq lay_n_lst (nth m lay_list))<br />     (if        (= (TBLOBJNAME "LAYER" (nth 0 lay_n_lst)) nil)<br />       (command "layer" "m" (nth 0 lay_n_lst)"c"(nth 1 lay_n_lst) "" "l" (nth 2 lay_n_lst) "" "")<br />     )<br />     (setq m (1+ m))<br />   )<br />   (setvar "cmdecho" oldcmd)<br /> )<br />

669423907

回复 zhynt 的帖子

zhynt大师，你的程序非常好，非常给力！我把我的部分加进去了，非常好用！
只有一丁点不解：会自动切换当前图层。
不过一点也不影响使用！
再次感谢 zhynt大师 对喜欢CAD 的 lsp 菜鸟们的热情帮助！