帮忙做一个lisp

鱼与熊掌

思路如下。：

2. (defun c:tt(/ an dis p1 p2 p3 p4 p5)
   
3.   (setq p1(getpoint)
   
4.     p2(getpoint p1)
   
5.     p3(getpoint (getmidp p1 p2))
   
6.     an(+ pi2(angle p1 p2))
   
7.     dis (cx_pt_line_dis p3 p1 p2)
   
8.     p4(polar p1 an dis)
   
9.     p5(polar p2 an dis)
   
10.   )
    
11.   (cx-pline (list p1 p2  p5 p4 p1  p5) 1)
    
12. )

(defun c:tt(/ an dis p1 p2 p3 p4 p5)<br />   (setq p1(getpoint)<br />     p2(getpoint p1)<br />     p3(getpoint (getmidp p1 p2))<br />     an(+ pi2(angle p1 p2))<br />     dis (cx_pt_line_dis p3 p1 p2)<br />     p4(polar p1 an dis)<br />     p5(polar p2 an dis)<br />   )<br />   (cx-pline (list p1 p2  p5 p4 p1  p5) 1)<br /> )

cable2004

vvvvvvvvvvv

838510233

cable2004 发表于 2015-1-23 19:50
vvvvvvvvvvv

能发给我用一下吗？838510233@qq.com或私我