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

cj52000

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

ZZXXQQ

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

cj52000

谢谢版主！！！

caoyao_1987

这个简单，谢谢！