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

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

用过迷你工具的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

http://www.mjtd.com/?fromuid=7301948过来看看{:1_1:}

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
页: [1]
查看完整版本: 向大佬们申请一个迷你工具中3点生成矩形的lsp