讨论setvar的undo编组问题

lostbalance

前几天把编的程序发给同事用，然后他说遇到几次小数精度出现问题，也就是dimzin参数没有正常恢复初始值。
因为程序总数也不算少，具体是哪里出问题还无法辨别出来。但初步看了下涉及到dimzin参数的代码，有修改代码，有恢复代码，error里也有恢复代码，所以考虑是不是和undo、error里的代码顺序有关系。
以下是编了一个测试的代码，比较了下正常运行和esc退出两种方式下，用u命令撤销操作的dimzin值变化（初始设置为8），发现如下：
正常运行后，值为4，u一次后变为1，u两次后变为8；
esc退出后，值为8，u一次后变为1，u两次后变为8；
初始值为8，dimzin命令后改为0，再运行代码，上述两种方式，u两次都值都变为8，而不是0。

那么是否可以总结如下：
1. 在lis中，连续的setvar dimzin，会自动编组，一次u就可以全部恢复？
2. undo编组开始前的连续的setvar dimzin，属于前一个undo编组？
3. undo编组结束后的连续的setvar dimzin，自动归于该undo编组中？
4. 其他系统变量也是这样？

2. (defun c:qq(/ *error*)
   
3.   (defun *error* ( msg ) ;错误恢复
   
4.     (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
   
5.       (princ msg)
   
6.     )
   
7.     (setvar "dimzin" 5)
   
8.     (while (= 8 (logand 8 (getvar 'undoctl)))
   
9.       (vl-cmdf ".undo" "END")
   
10.     )
    
11.     (setvar "dimzin" 6)
    
12.     (setvar "dimzin" 7)
    
13.     (setvar "dimzin" 8)
    
14.     (princ)
    
15.   )
    
16.   (setvar "cmdecho" 0)
    
17.   (setvar "dimzin" 7)
    
18.   (setvar "dimzin" 6)
    
19.   (setvar "dimzin" 1)
    
20.   (vl-cmdf ".undo" "be")
    
21.   (setvar "dimzin" 2)
    
22.   (setq a (getpoint))
    
23.   (setvar "dimzin" 3)
    
24.   (while (= 8 (logand 8 (getvar 'undoctl)))
    
25.     (vl-cmdf ".undo" "END")
    
26.   )
    
27.   (setvar "dimzin" 4)
    
28.   (princ)
    
29. )
    
30. (defun c:qqq()
    
31.   (princ (getvar "dimzin"))
    
32.   (princ)
    
33. )

(defun c:qq(/ *error*)<br />   (defun *error* ( msg ) ;错误恢复<br />     (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")<br />       (princ msg)<br />     )<br />     (setvar "dimzin" 5)<br />     (while (= 8 (logand 8 (getvar 'undoctl)))<br />       (vl-cmdf ".undo" "END")<br />     )<br />     (setvar "dimzin" 6)<br />     (setvar "dimzin" 7)<br />     (setvar "dimzin" 8)<br />     (princ)<br />   )<br />   (setvar "cmdecho" 0)<br />   (setvar "dimzin" 7)<br />   (setvar "dimzin" 6)<br />   (setvar "dimzin" 1)<br />   (vl-cmdf ".undo" "be")<br />   (setvar "dimzin" 2)<br />   (setq a (getpoint))<br />   (setvar "dimzin" 3)<br />   (while (= 8 (logand 8 (getvar 'undoctl)))<br />     (vl-cmdf ".undo" "END")<br />   )<br />   (setvar "dimzin" 4)<br />   (princ)<br /> )<br /> (defun c:qqq()<br />   (princ (getvar "dimzin"))<br />   (princ)<br /> )

1. 
   

复制代码

lostbalance

自己顶一下，求解惑

USER2128

u一次后变为1
    删除(vl-cmdf ".undo" "be")与(vl-cmdf ".undo" "END")之间
u两次后变为8
    因系统初始值为8