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

004

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

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

tigcat

setbylayer

664571221

大神你的这个是还原线宽吗