求助：如何将所有实体线(Line,*Line,Arc,circle)相交点之间的部分在交点处全部打断

dwg001

求助：如何将所有实体线(Line,*Line,Arc,circle)相交点之间的部分在交点处全部打断成以交点为端点的小段。[br]

xyp1964

2. (load "xyp_lib.vlx")   ;版本 V.20051204
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
5. ★1·在acad.lsp中增加(load"xyp_lib")
6. ■2·在每个程序内增加(load"xyp_lib")
7. ■3·在command下，输入(load"xyp_lib")
8. ■4·在菜单.mnl中增加(load"xyp_lib")
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
12. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
13. |;
14. ;;;超级BREAK（要注意单选和多选的区别）
15. (defun c:test ()
16.   (CMDLA0)
17.   (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))
18.   (xyp-Break ss)
19.   (CMDLA1)
20. )

(load "xyp_lib.vlx")   ;版本 V.20051204 ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下) 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★1·在acad.lsp中增加(load"xyp_lib") ■2·在每个程序内增加(load"xyp_lib") ■3·在command下，输入(load"xyp_lib") ■4·在菜单.mnl中增加(load"xyp_lib") ■5·将xyp_lib.vlx文件直接拽到cad屏幕 [COLOR=red] ★通用函数下载地址：[/COLOR] [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url] [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] |; ;;;超级BREAK（要注意单选和多选的区别） (defun c:test ()   (CMDLA0)   (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))   (xyp-Break ss)   (CMDLA1) )

dwg001

非常感谢版主的回复！

    本帖实际上是某一结构软件由CAD向程序建模的一个前处理过程。版主短小精悍的程序(xyp-Break ss)的确管用，但几处没打断能否再劳大驾完善一下。先谢了。

flfcegu168

呵呵  这个我不会  好像没有用  能不能等完善后发个LISP  程式

luchangliang

效果很好。但是如果有椭圆，它会出现

无法仅在一点打断闭合的周期性曲线。

虽然我用两条直线穿过椭圆了，但是无法打断椭圆。

lzq2k

能不能提供lisp源码？