cj52000 发表于 2009-7-21 19:55:00

[求助]批量修改图元为默认线宽？

大家好，我在作图时经常遇到这样一些问题，就是图纸打印后发现同一图层的线条粗细不同，一查才发现有的图元是随层，而有的是0.00mm，这样的话每次都要把标注关掉，然后全选图元把它设置为随层，有些繁琐，想求一个lisp程序，就是点选一个图层的一个图元，然后在该图层上的所有图元的线宽都变成随层，这样就很方便，也不用每次打印出来才发现线宽不对，又重新打印，谢谢各位！

ZZXXQQ 发表于 2009-7-21 20:12:00

<p>(defun c:tt ()<br/>&nbsp;(if (setq s1 (entsel "\n选择图元 :")) (progn<br/>&nbsp; (setq&nbsp;ln (assoc 8 (entget(car s1))))<br/>&nbsp;&nbsp;(setq ss (ssget "X" (list&nbsp;ln)))<br/>&nbsp; (command ".chprop" ss "" "LW" "bylayer" "")<br/>&nbsp;))<br/>&nbsp;(princ)<br/>)&nbsp;</p>

cj52000 发表于 2009-7-26 21:47:00

谢谢版主！！！

caoyao_1987 发表于 2011-8-28 13:44:24

这个简单，谢谢！
页: [1]
查看完整版本: [求助]批量修改图元为默认线宽？