求画一直线，自动打断与之相交的所有线，而该线不打断

品茗新秀

求画一直线，自动打断与之相交的所有线，而该线不打断

ysq101

新手给点思路     
画一条直线--取出新线两端点-----SSGET栏线两点之间---求出所有对象的所有交点表----循环command 打断于点

补：新画的画排除在外

新手就能帮你到这里啦。。。。楼主加油

自贡黄明儒

http://bbs.mjtd.com/thread-86652-1-1.html  3楼
ent为直线(曲线，圆等)，ss为选择集
(defun ssCircle1 (ss ent)

bai2000

同求此项功能，最好是打断后，另一点能变为虚线

xyp1964

2. ;; 削铁如泥;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url]
   
3. (defun c:tt ()
   
4.   (xyp-CMDLA0)
   
5.   (if (and (setq s0 (car (entsel "\n选择: ")))(xyp-curve-check s0))
   
6.     (progn
   
7.       (setq p1 (xyp-9pt s0 1)p9 (xyp-9pt s0 9)i  -1)
   
8.       (if (setq ss (ssget "c" p1 p9 '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))
   
9.         (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.           (if (and (not (equal s0 s1)) (xyp-get-Inters s0 s1 0))
    
11.             (progn(xyp-BreakWith s0 s1)(xyp-SubUpd (entlast) 62 2)))))))
    
12.   (xyp-CMDLA1)
    
13. )

;; 削铁如泥;; 需要e派工具箱(XCAD)的支持：[url]http://yunpan.cn/QXQKsW9gAPmpF[/url]<br /> (defun c:tt ()<br />   (xyp-CMDLA0)<br />   (if (and (setq s0 (car (entsel "\n选择: ")))(xyp-curve-check s0))<br />     (progn<br />       (setq p1 (xyp-9pt s0 1)p9 (xyp-9pt s0 9)i  -1)<br />       (if (setq ss (ssget "c" p1 p9 '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))))<br />         (while (setq s1 (ssname ss (setq i (1+ i))))<br />           (if (and (not (equal s0 s1)) (xyp-get-Inters s0 s1 0))<br />             (progn(xyp-BreakWith s0 s1)(xyp-SubUpd (entlast) 62 2)))))))<br />   (xyp-CMDLA1)<br /> )

hooboxu

楼上这功能不错^_^。。。

llsheng_73

好象圆、椭圆都不能打断于同一点
(command"break"(car(entsel))(setq p(getpoint))p)当选圆或椭圆的时候会报告"无法仅在一点打断闭合的周期性曲线"

bai2000