品茗新秀 发表于 2014-2-21 14:56:28

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

本帖最后由 品茗新秀 于 2014-2-21 14:57 编辑

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

ysq101 发表于 2014-2-21 16:15:27

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

补：新画的画排除在外

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

自贡黄明儒 发表于 2014-2-21 16:40:08

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

bai2000 发表于 2014-2-21 16:57:00

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

xyp1964 发表于 2014-2-21 22:25:33

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

hooboxu 发表于 2014-9-28 01:28:50

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

llsheng_73 发表于 2014-9-30 14:01:11

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

bai2000 发表于 2014-10-1 13:41:08

页: [1]
查看完整版本: 求画一直线，自动打断与之相交的所有线，而该线不打断