【工具】批量清除多段线宽度，设置所有实体线宽属性到随层

marting

1. (defun c:xdtb_entlw (/ ss)
   
2.   (xdrx-begin)
   
3.   (setq ss (ssget "x" '((0 . "*polyline"))))
   
4.   (xdrx_ui_prgdlgbar "处理多段线" (sslength ss) 0.5 "center")
   
5.   (mapcar '(lambda (x)
   
6.              (xdrx_ui_prgdlgbar T)
   
7.              (xdrx-setpropertyvalue x "constantwidth" 0.0)
   
8.            )
   
9.           (xdrx-pickset->ents ss)
   
10.   )
    
11.   (setq ss (ssget "x" '((0 . "~*polyline"))))
    
12.   (xdrx_ui_prgdlgbar
    
13.     "处理其他实体"
    
14.     (sslength ss)
    
15.     0.5
    
16.     "center"
    
17.   )
    
18.   (mapcar '(lambda (x)
    
19.              (xdrx_ui_prgdlgbar T)
    
20.              (xdrx-setpropertyvalue x "lineweight" -1)
    
21.            )
    
22.           (xdrx-pickset->ents ss)
    
23.   )
    
24.   (xdrx_ui_prgdlgbar)
    
25.   (xdrx-prompt "\n所有实体线宽设置为随层.")
    
26.   (xdrx-end)
    
27.   (princ)
    
28. )
    
29. 
    

(defun c:xdtb_entlw (/ ss)<br />   (xdrx-begin)<br />   (setq ss (ssget "x" '((0 . "*polyline"))))<br />   (xdrx_ui_prgdlgbar "处理多段线" (sslength ss) 0.5 "center")<br />   (mapcar '(lambda (x)<br />              (xdrx_ui_prgdlgbar T)<br />              (xdrx-setpropertyvalue x "constantwidth" 0.0)<br />            )<br />           (xdrx-pickset->ents ss)<br />   )<br />   (setq ss (ssget "x" '((0 . "~*polyline"))))<br />   (xdrx_ui_prgdlgbar<br />     "处理其他实体"<br />     (sslength ss)<br />     0.5<br />     "center"<br />   )<br />   (mapcar '(lambda (x)<br />              (xdrx_ui_prgdlgbar T)<br />              (xdrx-setpropertyvalue x "lineweight" -1)<br />            )<br />           (xdrx-pickset->ents ss)<br />   )<br />   (xdrx_ui_prgdlgbar)<br />   (xdrx-prompt "\n所有实体线宽设置为随层.")<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

yuren008

做个对论坛有益的人。

vlisp2012

Thx for sharing.