三点画矩形

wzg

1. ;三点矩形
   
2. (defun C:3pr (/ PT1 PT2 ANG)
   
3.     (while (and (setq PT1 (getpoint "\n指定第一点:"))
   
4.         (setq PT2 (getpoint PT1 "\n指定第二点t:"))
   
5.         )
   
6.         (progn
   
7.                 (setq ANG (+ (angle PT1 PT2) (* 0.5 pi))
   
8.                           PT3 (polar PT1 ANG 10)
   
9.                     )
   
10.                     (command "_.ucs" "n" "3" PT1 PT2 PT3)
    
11.                     (command "_.rectang" "non" '(0 0 0) PAUSE)
    
12.                     (command "_.ucs" "P")
    
13.                  )
    
14.     )
    
15. )

复制代码

david_gyl

谢谢分享谢谢分享

suihan001

过来学习学习，查漏补缺一下

LinBinFen

谢谢分享谢谢分享

BAISYY

谢谢分享！