;;说明:线循环打断于点
(defun c:tt ( / oldosmode en p )
(setq oldosmode (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "OSMODE" 16383)
(setq en (entsel "\n选择需要打断的线<退出>:"))
(if (/= en nil)
(setq p (getpoint "\n指定打断点<退出>: "))
)
(if (/= p nil)
(while (and en p)
(vl-cmdf "break" en "f" p p)
(setq en (entsel "\n选择需要打断的线<退出>:"))
(if (/= en nil)
(setq p (getpoint "\n指定打断点<退出>: "))
)
)
)
(setvar "osmode" oldosmode)
(princ)
)