关于改变线宽，求高手帮忙优化

ljpnb

2. 
   
3. (defun C:bbxx (/ WIDTH ss)
   
4.   (if (not oldwidth)
   
5.     (setq oldwidth 0.3)
   
6.   )
   
7.   (if (SETQ
   
8.         WIDTH (GETREAL
   
9.                 (strcat "\n请输入粗线宽度<" (rtos oldWIDTH 2 2) ">:")
   
10.               )
    
11.       )
    
12.     (setq oldWIDTH WIDTH)
    
13.     (setq WIDTH oldWIDTH)
    
14.   )
    
15. 
    
16.   (if
    
17.     (progn (prompt "\n请选择改变线宽的线<退出>:")
    
18.            (setq ss (ssget))
    
19.     )
    
20.      (command "_pedit" "M" ss "" "_w" WIDTH "j" "" "")
    
21. 
    
22.   )
    
23.   (princ)
    
24. )
    

<br /> (defun C:bbxx (/ WIDTH ss)<br />   (if (not oldwidth)<br />     (setq oldwidth 0.3)<br />   )<br />   (if (SETQ<br />         WIDTH (GETREAL<br />                 (strcat "\n请输入粗线宽度<" (rtos oldWIDTH 2 2) ">:")<br />               )<br />       )<br />     (setq oldWIDTH WIDTH)<br />     (setq WIDTH oldWIDTH)<br />   )<br /> <br />   (if<br />     (progn (prompt "\n请选择改变线宽的线<退出>:")<br />            (setq ss (ssget))<br />     )<br />      (command "_pedit" "M" ss "" "_w" WIDTH "j" "" "")<br /> <br />   )<br />   (princ)<br /> )<br />

baiyier1112

ljpnb 发表于 2013-4-12 10:19

万分感谢

664571221

牛逼123456789