已解决(求助)已存在三条边，如何生真第四条边，并合并成默认直线

999999

求助大神，有没有可以解决
1.已知多三条边的矩形，如何框选生成一个完整的四条边矩形并闭合的插件

最近图片看不到，所以只能靠想像了

xj6019

我也只会想不会写，框选线判断是不是多段线，并判断一下如果框选的不是多段线的话，先合并一下，然后，取得多段线最两端的点，画线闭合，然后全部再合并一次，就成了，原谅我只会动嘴

xj6019

或者找个生成最小包围圈的代码，生成新矩形，然后删除之前的线

845245015

(defun c:lj (/ ss)
  (if (and (princ "\n>>>>>选择要连接的线......")
           (setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))
           (setvar "PEDITACCEPT" 1)
           )
    (command "pedit" "m" ss "" "j" "0.0" "c" "")
    )
  
  (princ)
  )

xj6019

845245015 发表于 2020-10-15 18:51
(defun c:lj (/ ss)
  (if (and (princ "\n>>>>>选择要连接的线......")
           (setq ss (ssget '((0 . "LI ...

思路真好，好的想法省太多事了，
学习啦。

999999

845245015 发表于 2020-10-15 18:51
(defun c:lj (/ ss)
  (if (and (princ "\n>>>>>选择要连接的线......")
           (setq ss (ssget '((0 . "LI ...

哈哈，，大神历害了，我都不知道PE还有这样的功能，历害了，   请问大神，实现框选的功能是哪一段代码呢

999999

xj6019 发表于 2020-10-15 17:48
我也只会想不会写，框选线判断是不是多段线，并判断一下如果框选的不是多段线的话，先合并一下，然后，取得 ...

哈哈，，没事呀，，实现功能的前提都是要靠思路的，谢谢您的顶贴及思路哟

845245015

999999 发表于 2020-10-16 08:34
哈哈，，大神历害了，我都不知道PE还有这样的功能，历害了，   请问大神，实现框选的功能是哪一段代码呢: ...

(setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))

999999

845245015 发表于 2020-10-16 12:32
(setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))

谢谢啦