求一个能画出如下线条的LISP程序...

daidong013

高手出手一定行啊！~~顶顶顶

daidong013

建议[ZZXXQQ] 能改一下可以变成整体的吗,另外那个小箭头建议有填充，还能选线变窗帘！~呵呵！~~
还有这个程序在图面缩小的时候画出来有点问题,在有角度的时候画出来的窗帘箭头上也有问题！··

xyp1964

2. 
   
3. ;;需要e派工具箱的支持：http://e.ys168.com/?xyp1964
   
4. (defun c:tt ()
   
5.   (CMDLA0)
   
6.   (setq s0 (entlast))
   
7.   (command "pline")
   
8.   (while (/= 0 (getvar "cmdactive"))
   
9.     (command pause)
   
10.   )
    
11.   (xyp-Curve2Blx (entlast) 80 60 0)
    
12.   (setq ptn (reverse (xyp-get-Vertexs (entlast) 0))
    
13.         p2  (car ptn)
    
14.         p1  (cadr ptn)
    
15.         rad (angle p1 p2)
    
16.         p3  (polar p2 rad 200)
    
17.         p3a (polar p3 rad -80)
    
18.   )
    
19.   (command "pline" p2 "w" 0 0 p3a "w" 50 0 p3 "")
    
20.   (xyp-PeditJoin (xyp-SSelEntnext s0) 0)
    
21.   (CMDLA1)
    
22. )

<br /> ;;需要e派工具箱的支持：http://e.ys168.com/?xyp1964<br /> (defun c:tt ()<br />   (CMDLA0)<br />   (setq s0 (entlast))<br />   (command "pline")<br />   (while (/= 0 (getvar "cmdactive"))<br />     (command pause)<br />   )<br />   (xyp-Curve2Blx (entlast) 80 60 0)<br />   (setq ptn (reverse (xyp-get-Vertexs (entlast) 0))<br />         p2  (car ptn)<br />         p1  (cadr ptn)<br />         rad (angle p1 p2)<br />         p3  (polar p2 rad 200)<br />         p3a (polar p3 rad -80)<br />   )<br />   (command "pline" p2 "w" 0 0 p3a "w" 50 0 p3 "")<br />   (xyp-PeditJoin (xyp-SSelEntnext s0) 0)<br />   (CMDLA1)<br /> )

daidong013

非常好用！~~感谢xyp1964

raimo

首先感谢两位高手的援手:

xyp1964 版主这个不懂怎么用运行tt ;
错误: no function definition: CMDLA0

ZZXXQQ版主这个在多运行几次的情况下总会出错..不知道啥原因
画出来的线有时候正常,有时候只有一个半弧,有时候没有箭头..

Z版这个,如果最后能成组就更好了

仲文玉

raimo 发表于 2011-6-5 00:14
首先感谢两位高手的援手:

xyp1964 版主这个不懂怎么用运行tt ;

上面写着要学院派工具箱支持

raimo

仲文玉 发表于 2011-6-7 15:48
上面写着要学院派工具箱支持

恩前面没注意到,后来看到了..

cjjh8301

强大，支持！！

myw052

版主很厉害，弱弱问下，做成的曲线是多义线么？

raimo

不是多义线,就是普通的弧线.