[必看]：从交点断开线命令

my_autocad

有没有这样的一个程序:将选择的线从交点打断,虽然CAD自带有BR打断线命令,但操作起来还是挺麻烦的

WHGF

我以很久以前用纯Lisp做的一个程序，操作很简单，介只能对LWPolyline线进行处理，送你参考

;;====================================================================
;;        CutLines        剪断指定线
;;                可成组剪断所选的复线
;;        注意!! 自相交的线段不可用此功能
;;====================================================================
(defun  c:CutLines (/ s1 s2 n Os i Pname)
        (setvar "CMDECHO" 0)                        ; 使执行过程没有回应
        (prompt "\n ===== 剪断指定线(13:45 2001-12-27) =====")
        (prompt "\n 注意!! 自相交的线段不可用此功能")

        (prompt "\n 选择剪断指定线 Pick Polyline(s):")                ;        选择需剪断的复线
        (setq s2 (ssget))

        (setq n (sslength s2))                                        ;        选择复线的条数
;;        (princ n)
        (setq Os (getvar "Osmode"))  (Setvar "Osmode" 40)
        (setq s1 (GetPoint "\n 确定剪断点 Pick a Point") )        ;        确定剪断点
        ;        取剪断点坐标---> S1
        (Setvar "Osmode" Os)
        (setq i 0)
        (repeat n

            (setq Pname (ssname s2 i ) i (+ i 1))

            (if (= "LWPOLYLINE" (cdr (assoc 0 (entget Pname))))        ; 取对象名,判断该对象是否是 LWPOLYLINE
                (Command "Break" Pname s1 s1)                        ; 在指定的点处剪断选定的线
            ) ; end if
        ) ; end repeat
        (Setvar "CMDECHO" 1)
) ; CutLines

my_autocad

谢谢收下了,但如果LINE线也能打断就更好了,那种线常用

qjcpj

06已有打断线于点的命令。其实要在其它版本实现在交点处打断线也很简单，只需：
(defun c:bb        (/ os fr pt1 pt2)
        (setq os (getvar "osmode"))
        (setvar "osmode" 512)
        (setq pt1 (getpoint "\n拾取欲切断点所在的线段:"))
        (setvar "osmode" 32)
        (setq pt2 (getpoint "\n:拾取交叉点"))
        (setvar "osmode" 0)
        (command "break" pt1 "f" pt2 pt2)
        (setvar "osmode" os)
)

huanyunzui

Lisp命令还没有怎么接触过,是不是加载到Lisp中就行了呀?

小不点儿

把楼上的程序代码复制到记事本，另存为以lsp为后缀的文件加载即可。

huanyunzui

我已经加载了,往后该怎么调出命令啊

小不点儿

C：后面的就是命令名

my_autocad

能不能只要选中两条或几条线,程序就自动找到交点并从那里断开呀

大雪无痕

这是个好东东，有没可直接下载的啊

albatross

可以，但是比这样子的程序要复杂一点

qjcpj

最初由 my_autocad 发布
[B]能不能只要选中两条或几条线,程序就自动找到交点并从那里断开呀 [/B]

可以呀，不过程序需修改一下...

2005xin

06打断线于点的命令在那里

lhj743

4楼的程序不错！
就是有些缺陷：对封闭的曲线和圆不行！