[求助]：lisp程序执行后如何实现一次性UNDO!

sandy_na · 发表于 2009-6-11 14:14:21

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

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

×

程序结构如下:
(defun C:ayBSd()
......
(while (< i n)
......
(test (entlast)))
(setq i (+ i 1))
)
)
(defun test (ent / )
(load "extrim.lsp")
...........
(etrim ent wpt)
)

gysjy · 发表于 2009-6-11 19:23:22

在程序开头加上(command "undo" "g")，程序结尾处加上(command "undo" "end")。

clhclh · 发表于 2009-6-11 19:45:39

学习了

zhang8755 · 发表于 2009-6-11 20:50:48

在程序开头加上(command "undo" "mark")即可

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

[求助] [求助]：lisp程序执行后如何实现一次性UNDO!

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

相关帖子