999999 发表于 2020-10-15 17:24:19

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

本帖最后由 999999 于 2020-11-9 16:37 编辑

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

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

xj6019 发表于 2020-10-15 17:48:18

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

xj6019 发表于 2020-10-15 17:52:08

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

845245015 发表于 2020-10-15 18:51:09

(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 发表于 2020-10-15 21:41:30

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

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

999999 发表于 2020-10-16 08:34:06

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

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

999999 发表于 2020-10-16 08:58:27

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

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

845245015 发表于 2020-10-16 12:32:02

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

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

999999 发表于 2020-10-16 14:18:32

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

:lol谢谢啦
页: [1]
查看完整版本: 已解决(求助)已存在三条边，如何生真第四条边，并合并成默认直线