本帖最后由 MUSIC-DIE 于 2021-8-19 13:25 编辑
底下这部分代码执行后,只要进行复制 ctrl+c 剪切 ctrl+x 操作,就会触发这个保存反应器!
 - (if (not SAVE-COMPLETE2) (setq SAVE-COMPLETE2 (vlr-dwg-reactor nil '((:vlr-saveComplete . SAVE-COMPLETE-NOTIFY1)))))
- (defun SAVE-COMPLETE-NOTIFY1(A B / day ent_vp_max gstxdhk hour ins_ent minute ss ss_vp)
- (print A)
- (print B)
- (alert "保存!!!!!!!!!!!")
- (princ)
- )
|