meflying 发表于 2003-7-25 11:34:00

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

meflying 发表于 2003-7-25 13:43:00


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

hanfengyi 发表于 2003-7-25 18:12:00

试试看！！！！！！！

hanfengyi 发表于 2003-7-25 18:16:00

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

meflying 发表于 2003-7-25 18:40:00

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



什么意思，说清楚些

zpcdiwuxj 发表于 2003-7-25 19:41:00

你试试下面的程序
;名称：交点断开程序
;编制：浙江省石油化工设计院计算机室
;时间：编制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 (setqdx (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 发表于 2003-7-26 10:57:00

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

wangpeng10 发表于 2006-12-15 17:36:00

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

wangpeng10 发表于 2006-12-15 17:37:00

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

liujinxiu1 发表于 2006-12-24 23:25:00

画个圆或正方形修剪一下看行不行啊
页: 1 [2] 3
查看完整版本: [求助]如何在ACAD中断交叉线？？？