如何简单分割多个对象？？

gma

请问各位大虾一个问题：

我想在AutoCAD图象中实现一个功能：比如我有多个对象，需要从中间画一条线，把通过的对象全部一分为二，当然可以通过打断对象的方式一个一个切开。可是如果对象数量特别大的时候，那逐个打断工作量太大了，有没有相对简单的方法或编辑软件能实现该功能？？？急切恳求各位高手赐教。。

可以联系 QQ:393258194

gma

请高手回个话.

Joseflin

_break \ f \ @

gma

我的意思是:一条直线穿过多条直线(曲线),执行某个操作后,使多条直线在这条直线穿过处一分为二.再次感谢!!!等待您的回复!!!

Joseflin

以BREAK方式切断，customize里有以上所述macro之icon。

gma

我在命令行中输入:customize,在出现的"自定义"对话框中,没有可选东西能打开呀.还是不太明白.

      我希望的效果是:一条直线通过几十,几百条多段线,有没有什么命令可以让这条直线把这几十条几百条线"切"开.

小雨点儿

试用这个：

http://www.mjtd.com/mcdown/list.asp?id=517

☆探索者☆

你的意思是：一次将那些几十几百根线全切断，切断后两边全部都留着，是不是？如果是这样的话，我看啊，你还是自己编个程序好了，哈哈哈，编好让大家看看好吗

xyp1964

2. (load "xyp_lib")
3. ;|加载通用函数(可在签名栏直接下载)
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
6. ★1·在acad.lsp中增加(load"xyp_lib")
7. ■2·在每个程序内增加(load"xyp_lib")
8. ■3·在command下，输入(load"xyp_lib")
9. ■4·在菜单.mnl中增加(load"xyp_lib")
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
12. [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
13. |;
15. ;;;一条线把通过的对象全部打断（break）
16. (defun c:test ()
17.   (CMDLA0)
18.   (setq s0 (car (usel1 0 "LINE" "源线")))
19.   (princ "\n选择目标线 : ")
20.   (setq ss (ssget '((0 . "*LINE,ARC")))
21. i  -1
22.   )
23.   (command "select" ss "r" s0 "")
24.   (setq ss (ssget "P"))
25.   (while (setq s1 (ssname ss (setq i (1+ i))))
26.     (princ i)
27.     (if (setq ptlst (xyp-get-Inters s0 s1 0))
28.       (progn
29. (foreach pt ptlst
30.    (setq ss1 (ssget pt))
31.    (command "select" ss1 "r" s0 "")
32.    (setq s1 (ssname (ssget"p") 0))
33.    (command "break" (list s1 pt) "f" pt pt)
34. )
35.       )
36.     )
37.   )
38.   (CMDLA1)
39. )

(load "xyp_lib") ;|加载通用函数(可在签名栏直接下载) 如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序： ★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://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url] |; ;;;一条线把通过的对象全部打断（break） (defun c:test ()   (CMDLA0)   (setq s0 (car (usel1 0 "LINE" "源线")))   (princ "\n选择目标线 : ")   (setq ss (ssget '((0 . "*LINE,ARC"))) i  -1   )   (command "select" ss "r" s0 "")   (setq ss (ssget "P"))   (while (setq s1 (ssname ss (setq i (1+ i))))     (princ i)     (if (setq ptlst (xyp-get-Inters s0 s1 0))       (progn (foreach pt ptlst    (setq ss1 (ssget pt))    (command "select" ss1 "r" s0 "")    (setq s1 (ssname (ssget"p") 0))    (command "break" (list s1 pt) "f" pt pt) )       )     )   )   (CMDLA1) )

gma

下载了长青藤,问题解决了!谢谢!!!论坛真是个好地方,热心的人真多!!!