高手请进！

yinheng

我每次要用打断于点的时候总要重复的点工具栏。用那个命令能快速使用这个功能？（回车重复命令是总是重复打断命令而不是打断于点命令。）多谢多谢！

龙龙仔

(defun C:BPT (/ A A1 PT)
(setq PT 1
A1 1
)
(while (not (or (= PT NIL) (= A1 NIL)))
(PROMPT "\n选择打断物件: ")
(setq A1 (entsel))
(if (/= A1 NIL)
(progn
(setq A (cadr A1))
(redraw (car A1) 3)
(setq PT (getpoint "\nBreak point: "))
(if (/= PT NIL)
(command "_.BREAK" A "F" PT "@")
)
)
)
)
(princ)
)

yinheng

问题解决了万分感激。太高兴了！