已知两边的中点和边长，画矩形

Lisphk

1. (defun c:rect3v (/ p1 p2 d1 c1 c2 c3 c4)
   
2.   (initget 1)
   
3.   (setq p1 (getpoint "\n第一个边的中点:   "))
   
4. 
   
5.   (initget 1)
   
6.   (setq p2 (getpoint p1 "\n第二个边的中点:   "))
   
7.   (grdraw p1 p2 2 1)
   
8. 
   
9.   (initget 7)
   
10.   (setq d1 (getdist "\n总长: "))
    
11. 
    
12.   (setq c1 (polar p1 (+ (angle p1 p2) (* pi 0.5)) (* d1 0.5))
    
13.         c2 (polar p1 (+ (angle p1 p2) (* pi -0.5)) (* d1 0.5))
    
14.         c3 (polar p2 (+ (angle p2 p1) (* pi 0.5)) (* d1 0.5))
    
15.         c4 (polar p2 (+ (angle p2 p1) (* pi -0.5)) (* d1 0.5))
    
16.   )
    
17. 
    
18.   (entmake (list (cons 0 "3DFACE")
    
19.                  (cons 10 c1)
    
20.                  (cons 11 c2)
    
21.                  (cons 12 c3)
    
22.                  (cons 13 c4)
    
23.            )
    
24.   )
    
25.   (prin1)
    
26. )
    

(defun c:rect3v (/ p1 p2 d1 c1 c2 c3 c4)<br />   (initget 1)<br />   (setq p1 (getpoint "\n第一个边的中点:   "))<br /> <br />   (initget 1)<br />   (setq p2 (getpoint p1 "\n第二个边的中点:   "))<br />   (grdraw p1 p2 2 1)<br /> <br />   (initget 7)<br />   (setq d1 (getdist "\n总长: "))<br /> <br />   (setq c1 (polar p1 (+ (angle p1 p2) (* pi 0.5)) (* d1 0.5))<br />         c2 (polar p1 (+ (angle p1 p2) (* pi -0.5)) (* d1 0.5))<br />         c3 (polar p2 (+ (angle p2 p1) (* pi 0.5)) (* d1 0.5))<br />         c4 (polar p2 (+ (angle p2 p1) (* pi -0.5)) (* d1 0.5))<br />   )<br /> <br />   (entmake (list (cons 0 "3DFACE")<br />                  (cons 10 c1)<br />                  (cons 11 c2)<br />                  (cons 12 c3)<br />                  (cons 13 c4)<br />            )<br />   )<br />   (prin1)<br /> )<br />