[分享]StartUndoMark、EndUndoMark应用。

efan2000 · 发表于 2003-5-25 21:51:00

;;; 如果发生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)
)

撒旦恶魔 · 发表于 2003-5-27 13:05:00

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

[分享]StartUndoMark、EndUndoMark应用。

发表回复

精选推荐