怎样批处理线型？

hululu

我的图上，中心线出现两种线型比例，很难看，怎样把其中的一种比例改为另一种比例？

zxdcad

格式刷不方便吗？

xqyhome

( DEFUN C:ZH (/ SS ENMING ED I LEN KNAME) ;批量置换线型
( PRINC "请选择要置换的直线:")
( SETQ SS (SSGET))
( SETQ KNAME (GETSTRING "新的线型名称="))
( SETQ LEN (SSLENGTH SS))
( SETQ I 0)
( WHILE (< I LEN)
( SETQ ENMING (SSNAME SS I))
( SETQ ED (ENTGET ENMING))
( IF (EQUAL (CONS 0 "LINE") (ASSOC 0 ED))
(PROGN
( SETQ ED
( SUBST (CONS 6 KNAME) (ASSOC 6 ED) ED)
)
( ENTMOD ED)
)
)
( SETQ I (1+ I))
)
)

hululu

谈一下想法：


试了一下上面的程序，有点像格式刷，对我来说不太方便。我作了个基础图，粘贴引用多家资料，中心线出现了不同的线型比例，中心线有几千个，一个一个的挑者刷太麻烦了。


经过查询，粘贴过来的线型在不同的层上，通过图层管理器。只开一层，其他全部关掉，再用刷子刷，几下就好了。再开一层，再刷，实现统一。


与大家共享。