求帮助：自动将一多段线在节点处断开

xuexicad1960 · 发表于 2012-7-21 17:13

;将一多段线在节点处断开
(defun c:brr(/ s p)
  (while (setq s (entsel "\n ** 选择目标.."))
      (command "osnap" "NOD")
      (setq p (getpoint "\n **打断点.."))
      (if p (command "break" s "f" p p))
      (command "osnap" "")
)
(command "osnap" "")
(princ)
)

这是我写的  将一多段线在节点处断开的程序，只是不能一次自动断开所有节点处的线，希望大家帮助完成我的需求。
附上dwg图说明问题，图中线是pline线,小圈是point点，变了点样式后的。

Andyhon · 发表于 2012-7-21 18:02

(defun c:brr(/ s p)
(setq ss (ssget "X" '((0 . "POINT")))
i 0
)
(while (setq ee (ssname ss i))
(setq p (cdr (assoc 10 (entget ee)))
i (1+ i)
)
(entdel ee)
(command "break" p "f" p p)
)
(princ)
)

得依实务需求修订...

xuexicad1960 · 发表于 2012-7-21 18:40

Andyhon 发表于 2012-7-21 18:02
得依实务需求修订...

哈哈高手就是高手，我试过了，完全是我需要的结果，最后把point点也删除了，很好，谢谢了，向你学习！

xyp1964 · 发表于 2012-7-21 18:51

命令：explode

xuexicad1960 · 发表于 2012-7-23 08:47

xyp1964 发表于 2012-7-21 18:51
命令：explode

是我描述的不清楚还是你没好好看， explode这个命令解决不了我这个问题，这里我还是谢谢你的关注。

xuexicad1960 · 发表于 2012-7-23 13:05

xyp1964 发表于 2012-7-21 18:51
命令：explode

我图中的小圈point只能用节点（nod）捕捉，所以我就写成了节点，让你误会了，希望今后还能得到你的帮助。

xyp1964 · 发表于 2012-7-23 20:42

回答得有点武断了……

xuexicad1960 · 发表于 2012-7-24 16:13

xyp1964 发表于 2012-7-23 20:42
回答得有点武断了……

试过你的程序，错误: no function definition: XYP-ETYPE，大侠用到了自己的函数集，在我这里无能为力了，不敢奢望大侠提供函数集，e派工具箱我过去用过，好像和我的什么东西冲突，就放弃了。这里再次谢谢大侠的回答。

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

求帮助：自动将一多段线在节点处断开

本帖子中包含更多资源

点评

本帖子中包含更多资源

点评