[LISP程序]：交点断开程序

fundoll

1、TOOLS菜单下加载xxx.lsp
2、command下输入xxx
3、选择交点

说明：这Lisp程序比break命令简单一些！

zjfcumt

看看我的这个LISP程序，在交点处断开所有线段！不过好象有一点问题，请斑竹给指导一下！
在COMMAND下输入jd。

梦断江南

fundoll ，你的程序需要改进的地方：
1 。希望对 ellipse,spline支持，这个不难，加进过虑里面就好了。
2 。对 pline 打断需要先判断是否封闭。封闭时用第一种打断方法不行，ellipse同理
zjfcumt ，你的程序打断时可以先选定打断的物体， 可以用类似entsel返回的表
如： (command ".break" (实体名 . pt)  pt)

oldstone

请教xd,能否把工具箱的交点断开改一下呢?工具箱的交点断开把连成一体的多段多义线在交点断开后,变成单独的一段段的.能否断开后的各部分仍各自连成一体呢?

逸冰

oldstone的意见希望XD能看下.这个问题让我郁闷很久了.

云飞日月

这个小程序不错

Linux

这个程序能否修改一下

我们的流程图都是横竖线段组成的，当交叉时要求竖断横不断，断点之间有一定的间距。

谢谢。

thght

不错，一直想做一个

zhengchuan1971

可不可以窗选啊？

西爱弟

其实用break来做一个宏定义就行了,不用这么复杂呀

86878897

(defun c:cc ()
   (setq cm (getvar "cmdecho") om (getvar "osmode"))
   (setvar "osmode" 0)
   (command "_undo" "be")
   (setq  dd (getdist (strcat "\n请输入要断开的长度<"
         (rtos (getvar "userr1")) ">:"
        )
      )
   )
   (if dd (setvar "userr1" dd)(setq dd (getvar "userr1")))
   (while (setq ent (car (entsel "\n请选择置上的管线:")))
      (setq dxf (entget ent)
     p1  (cdr (assoc 10 dxf))
     p2  (cdr (assoc 11 dxf))
      )
      (if (setq ssa (ssdel ent (ssget "f" (list p1 p2) '((0 . "LINE")))))
   (progn
             (setq i 0  n (sslength ssa))
      (repeat n
         (setq en2 (ssname ssa i)
        dxf (entget en2)
        p3  (cdr (assoc 10 dxf))
        p4  (cdr (assoc 11 dxf))
        pt  (inters p1 p2 p3 p4)
  )
                (command "_circle" pt (/ dd 2.0))(setq en1 (entlast))
                (command "_trim" (entlast) "" (list en2 pt) "")
                (entdel en1)
                (setq i (1+ i))
      )
   )
      )
   )
   (command "_undo" "e")
   (setvar "osmode" om)(setvar "cmdecho" cm)(princ)
)

此段lisp程序可以使交叉的线在交点处断开，但是仅支持直线，不支持pline线，而且在选择的时候不能框选，只能点选，求高手帮忙修改一下程序~不甚感激！另外如果能够使程序可以实现再选择哪些与已选对象在交点处断开~就更好了啊！

jadekylin

不知道楼主的打断怎么样，看看！

xmok

楼主的确实是个好东西。对于经常要断线的地方，解决啦。谢谢

caoyu2006

不错的东西,看看好不好用

caoyu2006

下不下来呢