[求助]：如何将图块里的线性变统一

水晶

同学给了一些很不错的图库，可是问题是这些图库的图块的线型不统一，有的线性不随层，而且是粗线，所以打印出来就会有些图块的线很粗，如果炸开一根一根改实在太累，有没有什么办法让这些图块里的线全部变为随层的线，到打印的时候不会出现问题，求求各位大哥哥、大姐姐帮忙！

eachy

工具箱中的dwg.lsp 中的子函数 #chg_color 可以修改块中的子实体的组码，线形的组码是

6
线型名（如果不为 BYLAYER 则存在） 如果为 BYBLOCK 表示某不定线型 （可选）

;;命令：dwgblack
;;将图中所有实体（包括块，嵌套块，尺寸中的无名块）都变白色
;;出图的时候解决有的白线变灰的问题。
;;
;;本程序出自XDsoft,修改的最初目的只是为处理电子版地形图,
;;将所有实体改为同一图层,同一颜色,字体也统一一种(未完成),
;;经过修改更通用些,也适应专门的要求
;;
;;通用组码修改  cnum0  组码   cnum  组码值

2. (defun #chg_color (e cnum0 cnum / tf e blkna)
   
3.   (xdrx_setenttodb e)
   
4.   (setq tf (xdrx_getentdxf 0))
   
5.   (cond
   
6.     ((or
   
7.        (= tf "INSERT")
   
8.        (= tf "DIMENSION")
   
9.      )
   
10.      (setq blkna (xdrx_getentdxf 2))
    
11.      ;(if (not (wcmatch blkna "`*"))        ;排除无名块
    
12.      ;  (progn
    
13.          (setq blkna (tblsearch "block" blkna))
    
14.          (setq e (cdr (assoc -2 blkna)))
    
15.          (while        e
    
16.            (xdrx_setenttodb e)
    
17.            (setq tf (xdrx_getentdxf 0))
    
18.            (if (or
    
19.                  (= tf "INSERT")
    
20.                  (= tf "DIMENSION")
    
21.                )
    
22.              (progn
    
23.                (#chg_color e cnum0 cnum)
    
24.              )
    
25.              (progn
    
26.                (xdrx_setenttodb e)
    
27.                (xdrx_modent cnum0 cnum)
    
28.              )
    
29.            )
    
30.            (setq e (entnext e))
    
31.          )
    
32.       ; )                                ;progn
    
33.      ;)                                        ;if
    
34.     )
    
35.     (t
    
36.      (xdrx_modent cnum0 cnum)
    
37.     )
    
38.   )
    
39. )
    

(defun #chg_color (e cnum0 cnum / tf e blkna)<br />   (xdrx_setenttodb e)<br />   (setq tf (xdrx_getentdxf 0))<br />   (cond<br />     ((or<br />        (= tf "INSERT")<br />        (= tf "DIMENSION")<br />      )<br />      (setq blkna (xdrx_getentdxf 2))<br />      ;(if (not (wcmatch blkna "`*"))        ;排除无名块<br />      ;  (progn<br />          (setq blkna (tblsearch "block" blkna))<br />          (setq e (cdr (assoc -2 blkna)))<br />          (while        e<br />            (xdrx_setenttodb e)<br />            (setq tf (xdrx_getentdxf 0))<br />            (if (or<br />                  (= tf "INSERT")<br />                  (= tf "DIMENSION")<br />                )<br />              (progn<br />                (#chg_color e cnum0 cnum)<br />              )<br />              (progn<br />                (xdrx_setenttodb e)<br />                (xdrx_modent cnum0 cnum)<br />              )<br />            )<br />            (setq e (entnext e))<br />          )<br />       ; )                                ;progn<br />      ;)                                        ;if<br />     )<br />     (t<br />      (xdrx_modent cnum0 cnum)<br />     )<br />   )<br /> )<br />