vl中是否有类似undo的命令

zxwbq · 发表于 2005-7-8 11:30:00

本帖最后由作者于 2005-7-10 12:56:43 编辑

想编一个程序,其中有一部分要实现以下功能

1. 检查dbmod,若为0,则跳过第2步,执行第3步
2. 若dbmod不为零,则undo至最近一次保存的状态
3. 执行程序

请问第2步应该用什么程序实现.如果可以的话,请给出简单范例.
谢谢小弟编了一个vl反应器
想在反应器回调函数中实现undo功能
但是vl反应器中不能使用(command....) 和 (vl-cmdf....)
所以不能直接使用undo 请高手给点提示
vl中是否有类似undo功能的命令. btw:为什么vl有vla-startundomark 和 vla-endundomark,却没有Undo...

BDYCAD · 发表于 2005-7-8 11:43:00

我認為你的程序不應該向UNDO打主意. 這樣不好

你應該把你的程序的使用條件列清楚, 在什麼情況使用什麼方法.

不要用UNDO來取消程序內部的動作, 我覺的這樣子是不規範的.

zxwbq · 发表于 2005-7-8 12:00:00

第三步只希望对最近一次保存的状态进行操作

请问应该怎样做比较规范?

谢谢

BDYCAD · 发表于 2005-7-8 14:35:00

这样就不用在程序里头用UNDO 了 (IF (= dbmod 0)
(PROGN 把UNDO的内容写在这里)
)
接下运行你第三步的东东

zxwbq · 发表于 2005-7-8 21:43:00

谢谢大哥回答阿不过我的问题是：在if()内部运行undo如何判断已经到达了最近一次保存的状态？我试了一下，运行undo并不能把dbmod变回去，也就是说即使我undo回到了最近一次保存的状态，dbmod仍然不为0

sandy2002 · 发表于 2005-7-9 23:06:00

呵，函数值好象对UNDO不感冒吧

zxwbq · 发表于 2005-7-10 12:50:00

是啊,dbmod对undo不感冒现在的问题是小弟编了一个vl反应器
想在反应器回调函数中实现undo功能
但是vl反应器中不能使用(command....) 和 (vl-cmdf....)
所以不能直接使用undo 请高手给点提示
vl中是否有类似undo功能的命令. btw:为什么vl有vla-startundomark 和 vla-endundomark,却没有Undo...

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