[LISP程序]：按距生成多段多义线段.

lihb

我要在CAD中和LISP实现如下功能.
首先画一根线,线长度由用记输入.线角度也是由用户确定.
后按下图要求在原先那条线上生成三根或多根由用户输距离.生成三段线.

aeo

2. 
   
3. (defun c:tt( / p1 p2 ang dis)
   
4. (if(and(setq p1(getpoint"1:"))
   
5.         (setq p2(getpoint p1 "\n2: "))
   
6.         (setq ang(angle p1 p2)      )
   
7.     )
   
8. (progn(command "line" p1 p2 "")
   
9.   (while(setq dis(getdist p2"\ndis: "))
   
10.         (setq p3(polar p2 ang dis))
    
11.        (command "line" p2 p3"")
    
12.        (setq p2 p3)
    
13. )
    
14. ))
    
15. )

<br /> (defun c:tt( / p1 p2 ang dis)<br /> (if(and(setq p1(getpoint"1:"))<br />         (setq p2(getpoint p1 "\n2: "))<br />         (setq ang(angle p1 p2)      )<br />     )<br /> (progn(command "line" p1 p2 "")<br />   (while(setq dis(getdist p2"\ndis: "))<br />         (setq p3(polar p2 ang dis))<br />        (command "line" p2 p3"")<br />        (setq p2 p3)<br /> )<br /> ))<br /> )

自由的鱼

就是偏移功能！http://www.xdcad.net/forum/showthread.php?s=&threadid=164462