Hier der Code für ein LISP Skript. Original von
break to break at point command - Autodesk Community , von mir an ein deutsches ACAD angeapsst.
Code:
(defun c:br (/ obj pt1 osmode cmdecho)
(setq obj (car (entsel)))
(setq pt1 (getpoint "\nBruchpunkt wählen: "))
(setq osmode (getvar "osmode"))
(setq cmdecho (getvar "cmdecho"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(command "_break" obj pt1 pt1)
(setvar "osmode" osmode)
(setvar "cmdecho" cmdecho)
(princ)
)