向大佬们申请一个迷你工具中3点生成矩形的lsp

CHENGONG17

用过迷你工具的3点生成矩形命令，觉得很好用，但是迷你工具的功能跟源泉的重复比较厉害，最后还是决定留源泉。
所以想请大佬能不能把迷你的矩形工具独立出来。
功能在社区里头找过，有类似的，但是用起来没有imini的好用。
使用需求就是输入三个点，第一点第二点确定矩形的起始点、一条边长及角度，第三个点确定第一条边的平行边经过这一点或是延长线经过这一点。
社区内最接近的3点矩形命令是，第一点第二点确定矩形的起始点和角度，第三点确定矩形的长高。我觉得逻辑没有前一个好。
拜托各位了。

xiaotao

http://www.lee-mac.com/3pointrectangle.html

guankuiwu

cad自带画矩形
(defun C:3pj(/ PT1 PT2 PT3 PT4 H ANG ANG2 TEST TMP)
        (while (setq PT1 (getpoint "\n第一点:"))
                (if (setq PT2 (getpoint PT1 " \n 指定方向:"))
                        (progn
                                (setq ANG (angle PT1 PT2)
                                        ANG0 (angle PT1 PT2)
                                        ANG (+ ANG (* 0.5 pi)))
                                (princ " \n 指定矩形所在的方向:")
                                (setq PT3 (getpoint PT2 " \n 指定矩形所在的方向:"))
                                (setq pt01 pt1)
                                (setq PT4 (polar PT3 ANG 100)
                                        PT4 (inters PT1 PT2 PT3 PT4 NIL))        
                                (setq H  (distance PT4 PT3)
                                        ANG2 (angle PT3 PT4))      
                                (command "RECTANG" pt1 "r" "P" pt1 pt2 pt3))         
                ))
)

linzenghuo

过来看看

paulpipi

学习一下，谢谢分享

asen

(defun C:RR( / PT1 PT2)
    (while (AND (setq PT1 (getpoint "\n第一点:")) (setq PT2 (getpoint PT1 "\n第二点:")))
        (command "RECTANG" PT1 "r" "P" PT1 PT2 PAUSE)        
    )
)

jkop

感谢分享三点矩形，可以省不少时间。

http://www.lee-mac.com/3pointrectangle.html