使用UNDO命令

Andrew1979 · 发表于 2022-7-5 16:59:35

我编写了一些代码，在LISP运行之前在“UNDO”命令中设置“Mark”。我的程序按预期工作，但如果有人使用该程序绘制一些东西，然后决定键入“u”，然后输入enter，他们需要多次按enter键/空格键才能返回到LISP命令启动之前的状态。

我的问题是，有没有办法让用户只按一次“u”键和“enter”键就可以回到程序启动之前的状态？
我知道他们可以先键入“undo”然后键入“back”，但我希望用户只需键入“u”即可。我认为我的代码应该可以工作，但实际上不行。用户必须多次按enter键才能回到起点。

有什么想法吗？

这是代码当前工作方式的一部分：

copy


[color=red]([color=royalblue]defun[/color][/color] getVariables [color=red]()[/color]
[color=red]([/color][color=royalblue]command[/color] [color=magenta]"undo" "mark"[/color][color=red])[/color]
[color=red]([/color][color=royalblue]command[/color] [color=magenta]"undo" "begin"[/color][color=red]) [/color]
[color=red]([/color][color=royalblue]setq[/color] temperr *error*[color=red])[/color]
[color=red]([/color][color=royalblue]setq[/color] *error* CCerror)  
[color=red]([/color][color=royalblue]setq[/color] CColdlayer    [color=red]([/color][color=royalblue]getvar[/color][color=magenta] "clayer"[/color][color=red]))[/color]
[color=red]([/color][color=royalblue]setq[/color] CColdpickbox   [color=red] ([/color][color=royalblue]getvar[/color][color=magenta] "pickbox"[/color][color=red]))[/color]
[color=red]([/color][color=royalblue]setq[/color] CColdcmdecho    [color=red]([/color][color=royalblue]getvar[/color] [color=magenta]"cmdecho"[/color][color=red]))[/color]
[color=red]([/color][color=royalblue]setq[/color] CColdosmode    [color=red]([/color][color=royalblue]getvar[/color] [color=magenta]"osmode"[/color]))
[color=red]([/color][color=royalblue]setq[/color] CColdorthomode    [color=red]([/color][color=royalblue]getvar[/color] [color=magenta]"orthomode"[/color][color=red]))[/color]
[color=red]([/color][color=royalblue]setvar[/color] [color=magenta]"cmdecho"[/color] [color=seagreen]0[/color][color=red])[/color]
[color=red]([/color][color=royalblue]setvar[/color] [color=magenta]"osmode"[/color] [color=seagreen]1[/color][color=red])[/color]  
[color=red]  )[/color]
[color=red]([/color][color=royalblue]defun[/color] setVariables [color=red]()[/color]
[color=red]([/color][color=royalblue]setvar[/color] [color=magenta]"pickbox"[/color] [color=seagreen]0[/color][color=red]) [/color] 
[color=red]([/color][color=royalblue]setvar[/color][color=magenta] "osmode"[/color] [color=seagreen]0[/color][color=red])[/color]
[color=red]([/color][color=royalblue]setvar[/color] [color=magenta]"blipmode"[/color] [color=seagreen]0[/color][color=red])[/color]
[color=red])[/color]
[color=red]([/color][color=royalblue]defun[/color] Restore [color=red]()[/color]
[color=red]([/color][color=royalblue]setvar[/color] [color=magenta]"clayer"[/color] CColdlayer[color=red])[/color]
[color=red]([/color][color=royalblue]setvar[/color][color=magenta] "pickbox"[/color] CColdpickbox[color=red])[/color]
[color=red]([/color][color=royalblue]setvar [/color][color=magenta]"cmdecho"[/color] CColdcmdecho[color=red])[/color]
[color=red]([/color][color=royalblue]setvar[/color] [color=magenta]"osmode"[/color] CColdosmode[color=red])[/color]
[color=red]([/color][color=royalblue]setvar[/color] [color=magenta]"orthomode"[/color] CColdorthomode[color=red])[/color]
[color=red]([/color][color=royalblue]command[/color][color=magenta] "undo" "end"[/color][color=red])[/color]
[color=red])[/color]

Andrew1979 · 发表于 2022-7-5 17:26:22

我想我已经解决了这个问题。上面的代码工作正常。我所做的是在每个不同绘图函数的末尾调用（还原）函数，而不是将其添加到调用所有其他函数以使程序工作的主函数中。。。。。如果这有道理的话。

不过，我现在遇到的新问题是，“u”命令返回到程序的开头，但命令提示符显示：

copy


Command: U
GROUP (Lisp Expression) (Lisp Expression) (Lisp Expression) (Lisp Expression

如何隐藏即将出现的（Lisp表达式）？？？

David Bethel · 发表于 2022-7-5 17:34:56

虽然有vl\uCal启动撤消组，但这是普通版本：

copy


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

那么您的*错误*应该包含：

copy


(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)
                    (command "_.UNDO" "_END" "_.U"))
               (restore))

Andrew1979 · 发表于 2022-7-5 17:54:53

谢谢你，我明天会调查的。

MJLM · 发表于 2022-7-5 18:04:58

我也有同样的问题
我正在使用分组撤消。在我的defun函数中，我从

以下是我的*错误*函数

一切都很好，只是当我按“u”时，我感到很恼火
（Lisp表达式）多次。我无法从上面的例子中找到解决方案。任何人都可以帮助抑制这种情况吗？

[编程交流] 使用UNDO命令

发表回复

精选推荐