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

CHENGONG17 · 发表于 2023-5-20 19:02:12

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

xiaotao · 发表于 2023-5-20 19:02:13

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

guankuiwu · 发表于 2023-5-20 19:44:38

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 · 发表于 2023-5-20 21:49:05

过来看看

paulpipi · 发表于 2023-5-20 23:15:32

学习一下，谢谢分享

asen · 发表于 2023-5-21 08:06:49

(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 · 发表于 2023-5-25 08:04:06

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

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

账号		自动登录	找回密码
密码			注册

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

最佳答案

本帖子中包含更多资源