[日积月累]：发图之前简单处理一下。

eachy

2. 
   
3. ;;给甲方图之前简单处理下图纸
   
4. ;;修改所有实体至 0 图层
   
5. ;;不要用源图，一定要用 save as 的图纸!!!
   
6. (defun ea:chglay (/ for-item docment modelspace)
   
7.   (setq        docment           (vla-get-activedocument (vlax-get-acad-object))
   
8.         modelspace (vla-get-modelspace docment)
   
9.   )
   
10.   (vlax-for for-item modelspace
    
11.     (vla-put-layer for-item "0")
    
12.   )
    
13. )
    
14. ;;如果有块处理不了用下面的再处理
    
15. ;;处理图块定义
    
16. (defun ea:chgblklay (/ docment for-item blocks)
    
17.   (setq        docment        (vla-get-activedocument (vlax-get-acad-object))
    
18.         blocks        (vla-get-blocks docment)
    
19.   )
    
20.   (vlax-for for-item blocks
    
21.     (vlax-for obj for-item
    
22.       (vla-put-layer obj "0")
    
23.     )
    
24.   )   
    
25. )
    
26. ;;修理完成后在 purge all

<br /> ;;给甲方图之前简单处理下图纸<br /> ;;修改所有实体至 0 图层<br /> ;;不要用源图，一定要用 save as 的图纸!!!<br /> (defun ea:chglay (/ for-item docment modelspace)<br />   (setq        docment           (vla-get-activedocument (vlax-get-acad-object))<br />         modelspace (vla-get-modelspace docment)<br />   )<br />   (vlax-for for-item modelspace<br />     (vla-put-layer for-item "0")<br />   )<br /> )<br /> ;;如果有块处理不了用下面的再处理<br /> ;;处理图块定义<br /> (defun ea:chgblklay (/ docment for-item blocks)<br />   (setq        docment        (vla-get-activedocument (vlax-get-acad-object))<br />         blocks        (vla-get-blocks docment)<br />   )<br />   (vlax-for for-item blocks<br />     (vlax-for obj for-item<br />       (vla-put-layer obj "0")<br />     )<br />   )   <br /> )<br /> ;;修理完成后在 purge all

aeo

上传图纸可别这么干:)
有的甲方挺呕心的,把所有dim炸开,再把文字炸开.