[编程申请]：能否编一个直线打断的东西？

tm010111

要求是这样的：
  框选一条直线------选打断点pt（在此点打断）-----能继续选点打断-----再继续选点打断下去……

第一点能打断很容易实现，但是能继续打断不知道怎么办？请大家帮忙下，最好贴下源码，现在好像下载不了了，谢谢了！

可能我没说清楚，也就是要类似(command "break" en pt pt) 这样的命令能一直继续下去，不退出！

pchx

怎么听不懂啊？

gysjy

最初由 tm010111 发布
[B]要求是这样的：
就是要类似(command "break" en pt pt) 这样的命令能一直继续下去，不退出！ [/B]

[PHP](defun c:nn( / en p)
  (command "undo" "g")
  (while (setq en (entsel "\n选择要打断的线:"))
    (setq p (cadr en))   
    (command "break" en p)
  )
  (command "undo" "e")
  (princ)
)[/PHP]

tm010111

这个好像不行的，又不能捕捉到点，就算能扑捉的话，两线相交处是否也会有问题？
能否做到 先选线 再选打断点呢？

gysjy

下面的程序满足先选线，再选打断点。但应注意，在连续选点的过程中，应按一定的方向顺序：
[PHP](defun c:nn( / en enl p)
  (command "undo" "g")
  (setq en (entsel "\n选择要打断的线:"))
  (while (setq p (getpoint "\n选择打断点："))
    (command "break" en "f" p p)
    (setq enl (entlast))
    (command "break" enl p p)
  )
  (command "undo" "e")
  (princ)
)    [/PHP]