一个设置UNDO的写法

marting · 发表于 2016-12-14 12:08:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun SetUndo ()
 (and (zerop (getvar "UNDOCTL"))
      (command "_.UNDO" "_ALL"))
 (and (= (logand (getvar "UNDOCTL") 2) 2)
      (command "_.UNDO" "_CONTROL" "_ALL"))
 (and (= (logand (getvar "UNDOCTL") 8) 8)
      (command "_.UNDO" "_END"))
 (command "_.UNDO" "_GROUP"))

错误处理函数

(setq  olderr *error*
      *error* (lambda (msg)
                (while (> (getvar "CMDACTIVE") 0)
                       (command))
                (and (/= msg "quit / exit abort")
                     (princ (strcat "\nError: *** " msg " *** ")))
                (and (= (logand (getvar "UNDOCTL") 8) 8)
                     (command "_.UNDO" "_END" "_.U")))

ray7891 · 发表于 2016-12-14 20:50:42

还在学习中，努力努力

sicky111 · 发表于 2016-12-14 22:30:15

还可以这样写？

qq564837358 · 发表于 2016-12-14 23:37:04

出个例子搞搞？

xvjiex · 发表于 2021-11-18 04:09:00

感谢分享一个设置UNDO的写法

hh_lj007 · 发表于 2021-11-18 12:05:05

感谢分享。

账号		自动登录	找回密码
密码			立即注册

[每日一码] 一个设置UNDO的写法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分