【KAIXIN】 发表于 2011-12-12 15:01:09

框选两线相连并合并成一条直线



上图是为处理前，下图是处理后：



我用过最近距离连接，可是成不了一条直线，注意是直线！

请教朋友：
             这个要怎么要怎么编这个程序呢？欢迎给个思路，谢谢！


http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 【KAIXIN】的微博

weimeng555 发表于 2024-3-23 15:21:37

最近刚好需要这个功能的插件，但是需要的是求批量多根直线求交点，每跟直线两端都能找到交点的功能

Andyhon 发表于 2011-12-12 15:19:50

一个雏形...
(defun c:Test ()
   (setq ss (ssget)   ; 选线(2)
         pts (acet-geom-ss-extents ss nil)
   )
   (apply 'command (cons "Line" pts))
   (command "")
   (command "Erase" ss "")
)

【KAIXIN】 发表于 2011-12-12 15:31:32

Andyhon 发表于 2011-12-12 15:19 static/image/common/back.gif
一个雏形...
(defun c:Test ()
   (setq ss (ssget)   ; 选线(2)


朋友，acet-geom-ss-extents   这个函数的作用是？

Andyhon 发表于 2011-12-12 15:44:45

作用是..
取得 选集 的外框值

【KAIXIN】 发表于 2011-12-12 15:47:59

Andyhon 发表于 2011-12-12 15:44 static/image/common/back.gif
作用是..
取得 选集 的外框值

可以不用自定义函数弄出来吗？

Andyhon 发表于 2011-12-12 16:10:07

acet-geom-ss-extents   只需 Express Toos 支持呀
您的CAD版次?

【KAIXIN】 发表于 2011-12-12 16:11:27

Andyhon 发表于 2011-12-12 16:10 static/image/common/back.gif
acet-geom-ss-extents   只需 Express Toos 支持呀
您的CAD版次?

我没有装ET，是用2006，

可以用普通的函数处理吗？

qjcpj 发表于 2011-12-12 16:27:06

使用系统命令join试试。

【KAIXIN】 发表于 2011-12-12 16:33:58

qjcpj 发表于 2011-12-12 16:27 static/image/common/back.gif
使用系统命令join试试。

单选的？还要选两条
要是这样画可能还快一点

Andyhon 发表于 2011-12-12 16:40:31


您试试 IntelliJoin.Lsp
http://www.google.com/search?q=%22IntelliJoin.Lsp
页: [1] 2
查看完整版本: 框选两线相连并合并成一条直线