将所有图层的线宽改为默认

004 发表于 2014-5-11 20:16:05

;;;将所有图层的线宽改为默认
;;;wkq004@qq.com 2012-10-15
(defun c:tt ()
(setq lay (tblnext "layer" T))
(while lay
(setq lay (cdr (assoc 2 lay)))
(setq el (entget (tblobjname "layer" lay)))
(setq el (subst '(370 . -3) (assoc 370 el) el))
(entmod el)
(setq lay (tblnext "layer"))
)
(command "-layer" "");_不知为何没有调用layer屏幕显示的线宽就不会更新,regen后线宽也不会更新到新的宽度
(princ "\n线宽已改为默认.")
(princ)
)

tigcat 发表于 2021-9-19 13:24:10