kucha007 发表于 2023-6-11 22:30:26

【PLD】多段线减点_v1.8

本帖最后由 kucha007 于 2023-10-24 22:26 编辑

找到了两个程序：
第一个作者是天天问，原帖：http://bbs.mjtd.com/thread-185068-1-1.html
第二个作者是Kent Cooper，原帖：https://forums.autodesk.com/t5/a ... -points/m-p/8520506

我在汉化Kent Cooper程序的基础上，参考了天天问的程序逻辑，对程序进行改写：

尘缘一生 发表于 2023-6-12 05:18:38

奥？？，取得点集，减点重写就是了


[*];;删除多段线中直线段上的多余节点---(一级)-----
[*](defun sl-get-VertexsTrue (ptn / ptn1 p1 p2 p3)
[*](setq ptn1 '())
[*](while (>= (length ptn) 3)
[*]    (setq p1 (nth 0 ptn)
[*]      p2 (nth 1 ptn)
[*]      p3 (nth 2 ptn)
[*]    )
[*]    (if (< (abs (- (angle p1 p2) (angle p2 p3))) 1e-6)
[*]      (setq ptn (vl-remove p2 ptn))
[*]      (setq ptn1 (cons (car ptn) ptn1)
[*]      ptn (cdr ptn)
[*]      )
[*]    )
[*])
[*](append (reverse ptn1) ptn)
[*])


kucha007 发表于 2023-10-24 22:03:01

20231024_v1.8
1-完善了程序逻辑，增加了一些容错的代码
2-改写减点的逻辑，使程序更易懂

kucha007 发表于 2023-6-11 23:30:34

aws 发表于 2023-6-11 23:25
出现缺口，咋回事呢，文字高度300，全部默认设置
作者的源码就是这样的，没有判断闭合。当出现闭合的多段线，首尾连接的线会掉= =

lxl217114 发表于 2023-6-13 12:11:53

kucha007 发表于 2023-6-12 10:17
其实我有，只不过只适用于自己

也是，自己用只要适合自己就行，公开了反馈的多，不同的需求也多。

jackAqwq 发表于 2023-6-11 22:40:09

不愧是你,太棒了

aws 发表于 2023-6-11 23:25:59

出现缺口，咋回事呢，文字高度300，全部默认设置

kucha007 发表于 2023-6-12 07:12:50

尘缘一生 发表于 2023-6-12 05:18
奥？？，取得点集，减点重写就是了




支持弧线段吗？

尘缘一生 发表于 2023-6-12 07:53:09

kucha007 发表于 2023-6-12 07:12
支持弧线段吗？

以角度判断方式，弧线就不行了。。

lxl217114 发表于 2023-6-12 09:19:31

实用工具产出这么多了，感觉可以整个工具箱了

kucha007 发表于 2023-6-12 10:10:02

尘缘一生 发表于 2023-6-12 07:53
以角度判断方式，弧线就不行了。。

了解。我上传的第二个程序可以把弧线拉直，然后按角度的逻辑来

kucha007 发表于 2023-6-12 10:17:55

本帖最后由 kucha007 于 2023-6-13 08:08 编辑

lxl2171142023-6-12 09:19
ùо其实我有，只不过只适用于自己
页: [1] 2 3
查看完整版本: 【PLD】多段线减点_v1.8