[分享]StartUndoMark、EndUndoMark应用。

Ea

;;; 如果发生error (例如 ctrl-c)
;;; 激活本命令...
(defun $yb_error (st)
  (if (/= st "函数已取消")
    ;;(princ (strcat "\n错误: " st))
    (princ "\n*取消*")
  )
  (yb:end)
  (princ)
)
;;初始化命令，保存系统变量，标记程序开始
(defun yb:begin (sysvarlst /)           
  (setq $yb_HostAcad (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark $yb_hostacad)      ; 保存系统变量
  (setq $yb_sysvar_mlst (mapcar
                          '(lambda (x)
                             (list x (getvar x))
                           )
                          sysvarlst
                        )
  )
  (setq $yb_olderr *error*
        *error* $yb_error
  )
  (princ)
)
(defun yb:end ()
  (mapcar '(lambda (x)
             (eval (cons 'setvar x)))
          $yb_sysvar_mlst
  )
  (vla-endundomark $yb_hostacad)
  (setq *error* $yb_olderr)
  (setq $yb_sysvar_mlst nil $yb_hostacad nil $yb_olderr nil)
  (princ)
)

efan2000

StartUndoMark和EndUndoMark是成对使用的，就是说在它们之间进行的操作，比如添加了一个或者多个实体、修改实休等，做为一个操作组来对待，可以整体的取消（Undo），避免了一个个的取消。