多段线沿顶点打断

竹天 · 发表于 2023-10-30 18:26:14

本帖最后由竹天于 2023-10-30 18:25 编辑

天正电气的回路编号与标导线数等命令，在标注有3或3个以上顶点的多段线时不能使用或标注有问题。
没能力优化天正的命令，只能东拼西凑攒了个批量打断多段线的插件，功能如题。
有问题欢迎讨论。

xyp1964 · 发表于 2023-10-31 09:14:44

(defun c:tt ()
"多段线沿顶点打断"
(defun PlPtn (e)(mapcar 'cdr(vl-remove-if '(lambda (x) (/= (car x) 10)) (entget e))))
(setvar "osmode" 0)
(setq i -1)
(if (setq ss (ssget '((0 . "LWPOLYLINE"))))
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq ptn (reverse (PlPtn s1)))
(foreach pt ptn(command "break" (list s1 pt) pt))
)
)
(princ)
)

ynhh · 发表于 2023-10-30 21:38:22

这和分解有什么区别？

竹天 · 发表于 2023-10-31 08:53:43

ynhh 发表于 2023-10-30 21:38
这和分解有什么区别？

分解后是“直线”，这个打断后还是“多段线”，可以保留原多段线的宽度等参数

lzspain · 发表于 2023-10-31 08:56:16

ynhh 发表于 2023-10-30 21:38
这和分解有什么区别？

多段线分解之后是直线，这个打断之后仍是多段线

竹天 · 发表于 2023-10-31 19:14:36

xyp1964 发表于 2023-10-31 09:14

大佬厉害

lxl217114 · 发表于 2023-11-1 09:47:10

谢谢楼主和院长分享代码

ZYX2129 · 发表于 2023-11-1 13:55:37

谢谢楼主和院长分享代码

菜鸟初来乍到 · 发表于 2023-11-2 06:56:14

感谢楼主分享

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

[源码] 多段线沿顶点打断