[求助]如何在ACAD中断交叉线？？？

meflying

再等等，我做得差不多了，
功能是打断所有选中直线中所有相交的点。

meflying

使用方法：
解压后用appload加载。
命令：breakall
选中所有需打断的直线。
注意：仅适用LINE画的直线

hanfengyi

试试看！！！！！！！

hanfengyi

谢谢！！谢谢！！
如果我需要将交叉的横线都断掉一部分，如何做呢？？

meflying

hanfengyi发表于2003-7-25 18:16:00谢谢！！谢谢！！
如果我需要将交叉的横线都断掉一部分，如何做呢？？

什么意思，说清楚些

zpcdiwuxj

你试试下面的程序
;名称：交点断开程序
;编制：浙江省石油化工设计院计算机室
;时间：编制1998年，2000年1月改编入14版
(defun c:jddk()
    (setvar"cmdecho" 0)
    (command"osnap""int")
       (setq point (getpoint"\n输入交点：")
              px (car point) py (cadr point) x (+ 3 px) y (+ 3 py)
              n11 (ssname (ssget (list px y))   0)
              n111 (cdr (assoc 40 (entget n11) ))
              n22 (ssname (ssget (list x py)) 0)
              n222 (cdr (assoc 40 (entget n22)))         
             n n11)
         (if (< n222 n111) (setq n n22)
         )
          ;(command"osnap""none")   
         (IF (equal N22 N11)
              (progn (setq  dx (entsel"选择断线：")
                n (car dx))
         ))
        (command"circle" point 2)
          (setq cir (entlast))
          (command"trim" cir "" (cons n (list point))  "")
          (entdel cir)  
          (redraw n11)
          (redraw n22)
         )

hanfengyi

不好意思，上面的程序如何用？？
我也正是搞石油化工的，需要画一些PID图！！

wangpeng10

哈哈，吴晓也在这个论坛灌水啊

wangpeng10

哈哈，吴晓也在这个论坛灌水啊

liujinxiu1

画个圆或正方形修剪一下看行不行啊