[求助]：怎么设置线的宽度

animal212

调用_pline命令后怎么设置线的宽度?

c3a139

？？？后面有提示呀

animal212

这问题真不好问。
我是想问怎么实现pline连续取点，我们编lisp程序时是照着CAD命令提示写，CAD命令提示我们取点我们就取点，那程序是不是成这样了：
(command "_pline" (getpoint) "w" "0.6" "0.6" "" (getpoint)  (getpoint)  (getpoint)  (getpoint)  (getpoint)....)?
这样的话点数岂不是被限定死了？

zml84

2. 
   
3. ;;设置多段线宽度
   
4. (setvar "PLINEWID" 3.5)
   
5. (if (setq PT0 (getpoint "\n点取起点:"))
   
6.     (progn
   
7.         ;;开始绘制多段线
   
8.         (command "_.pline" PT0)
   
9.         ;;循环取点
   
10.         (while (setq PT1 (getpoint PT0 "\n点取坐标: "))
    
11.             ;;绘制
    
12.             (command "non" PT1)
    
13.             (setq PT0 PT1)
    
14.         )
    
15.         ;;结束绘制
    
16.         (command "")
    
17.     )
    
18. )
    

<br /> ;;设置多段线宽度<br /> (setvar "PLINEWID" 3.5)<br /> (if (setq PT0 (getpoint "\n点取起点:"))<br />     (progn<br />         ;;开始绘制多段线<br />         (command "_.pline" PT0)<br />         ;;循环取点<br />         (while (setq PT1 (getpoint PT0 "\n点取坐标: "))<br />             ;;绘制<br />             (command "non" PT1)<br />             (setq PT0 PT1)<br />         )<br />         ;;结束绘制<br />         (command "")<br />     )<br /> )<br />

animal212

谢谢zml84，你真是帮了我不少忙啊。