[求助]：如何将图纸中不随层的CAD图元快速改为随层

leogu

如题，主要是一些属性块中的文字及块中的图元

liubingxia

选中所有的对象，在对象特性工具栏，将所有特性改为随层。

taner

最初由 liubingxia 发布
[B]选中所有的对象，在对象特性工具栏，将所有特性改为随层。 [/B]

2. 
   
3.   [FONT=courier new]
   
4. (defun c:` (/ a)
   
5.   (setq a (ssget))
   
6.   (command "chprop" a "" "c" "bylayer" "")
   
7.   (princ)
   
8. )
   
9. 
   
10. (defun c:cb (/ ss i elist)
    
11.   (setq i -1)
    
12.   (repeat (sslength (setq ss (ssget)))
    
13.     (entmod
    
14.       (subst
    
15.         '(62 . 256)
    
16.         (assoc 62 (setq elist (entget (ssname ss (setq i (1+ i))))))
    
17.         elist
    
18.       )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    
23.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:` (/ a)<br />   (setq a (ssget))<br />   (command "chprop" a "" "c" "bylayer" "")<br />   (princ)<br /> )<br /> <br /> (defun c:cb (/ ss i elist)<br />   (setq i -1)<br />   (repeat (sslength (setq ss (ssget)))<br />     (entmod<br />       (subst<br />         '(62 . 256)<br />         (assoc 62 (setq elist (entget (ssname ss (setq i (1+ i))))))<br />         elist<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />   [/FONT]<br />

leogu

请问楼上的代码如何使用？

whlaa88

有时装特性改为随层,文字还可以,有时图元可能不随打印样式,也就是说自己建立打印样式之后,图元有时打印出来线条有时很重,有时轻.如果有的是定义成块的更容易出现这种问题.