【PLD】多段线减点_v1.8

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

本帖最后由 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

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

;;删除多段线中直线段上的多余节点---(一级)-----
(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

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

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

aws 发表于 2023-6-11 23:25
出现缺口，咋回事呢，文字高度300，全部默认设置

作者的源码就是这样的，没有判断闭合。当出现闭合的多段线，首尾连接的线会掉= =

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

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

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

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

不愧是你,太棒了

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

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

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

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

支持弧线段吗？

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

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

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

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

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

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

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

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

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

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

lxl217114 2023-6-12 09:19
ùо

其实我有，只不过只适用于自己

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

【PLD】多段线减点_v1.8

本帖子中包含更多资源

本帖子中包含更多资源