[编程交流] 反应堆文件已打开！？

[font=Arial][size=2][font=Arial][size=2][font=Courier New][size=2](defun add-reactors( / )
 (vlr-dwg-reactor nil '(
                         (:vlr-beginClose . beginCloseCallback)
                         (:vlr-beginDwgOpen . beginOpenCallback)
                         (:vlr-endDwgOpen . endOpenCallback)
                         (:vlr-beginSave . beginSaveCallback)
                         (:vlr-saveComplete . saveCompleteCallback)
                       )
 )
)[/size][/font][/size][/font][font=Arial][size=2][font=Courier New][size=2](defun beginCloseCallback(ro args / )
 (princ"\n=====>Aktuelle Zeichnung wird geschlossen")
 (princ "\nTaste drücken\n")
 (read-char)
 (princ)
)[/size][/font][/size][/font]
[font=Arial][size=2][font=Courier New][size=2]
(defun beginOpenCallback(ro args / )
 (princ(strcat "\n=====>Zeichnung " (car args) " soll geöffnet werden"))
 (princ)
)[/size][/font][/size][/font]
[font=Arial][size=2][font=Courier New][size=2](defun endOpenCallback(ro args / )
 (princ(strcat "\n=====>Zeichnung " (car args) " wurde geöffnet"))
 (princ)
)[/size][/font][/size][/font]
[font=Arial][size=2][font=Courier New][size=2](defun beginSaveCallback(ro args / )
 ;(princ(strcat "\n=====>Aktuelle Zeichnung soll als " (car args) " gespeichert werden"))
 (princ(type(car args)))  (terpri)
 (princ)
)[/size][/font][/size][/font]
[font=Arial][size=2][font=Courier New][size=2](defun saveCompleteCallback(ro args / )
 ;(princ(strcat "\n=====>Aktuelle Zeichnung wurde als " (car args) " gespeichert"))
 (princ(type(car args))) (terpri)[/size][/font][/size][/font]
[font=Arial][size=2][font=Courier New][size=2]  (princ "\nTaste drücken\n")
 (read-char)
 (princ)
)[/size][/font][/size][/font]
[font=Arial][size=2][font=Courier New][size=2]; one shot by load
(add-reactors[/size][/font][/size][/font]
[/size][/font]