求一个弧线合并程序

theisland · 发表于 2015-9-22 08:47

图中有很多一段一段的弧线，希望能把它们合并成一根，多段弧变成一段弧，而不是多义线，论坛里找了半天没找到，这个能实现吗？图中主要是原点打断的弧线比较多，还有少部分重叠的、中间有断口的弧线，如截图和附件所示，希望有高手相助！

fl202 · 发表于 2015-9-22 08:47

本帖最后由 fl202 于 2015-9-22 14:12 编辑

下载楼主的dwg图纸，经测试合格，楼主下载本程序后再试试吧。

equal 修改如下：
(if (and (equal pt1 pt2 0.0001) (equal r1 r2 0.0001) )

请下载者自行修改。

jltx123456 · 发表于 2015-9-22 09:03

又来了,总是违反版规, 已举报!

4、中国有句古话叫“授人以鱼不如授人以渔”，本版块力求打造成为会员们答疑解惑的技术交流平台，帮助大家提高Lisp编程技巧和水平。若发帖者的目的仅仅是为求编写程序，则请到论坛“编程申请”板块发帖，不得在本版发布悬赏求程序贴，违反者版主有权予以警告，并将帖子转移到编程申请板块。

theisland · 发表于 2015-9-22 09:53

fl202 发表于 2015-9-22 09:35
下载楼主的dwg图纸，经测试合格，楼主下载本程序后再试试吧。

高效实用，非常好！谢谢！

theisland · 发表于 2015-9-22 11:24

jltx123456 发表于 2015-9-22 09:03
又来了,总是违反版规, 已举报!

ok，知道了

theisland · 发表于 2015-9-22 11:36

fl202 发表于 2015-9-22 08:47
下载楼主的dwg图纸，经测试合格，楼主下载本程序后再试试吧。

为了维护明经发帖秩序，~~请大侠移步此处 http://bbs.mjtd.com/thread-169592-1-1.html

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

[提问] 求一个弧线合并程序