undo的问题

kizj

2. (defun c:cn(/ sg gp11 gp12 sg1 gp21 gp22 sg2 gp31 gp32)
   
3.   
   
4.   (while (null sg)
   
5.     (setq sg(ssget))
   
6.   )
   
7.   
   
8.   (command "_undo" "be")
   
9. 
   
10.   (initget 1)
    
11.   (setq gp11(getpoint "\n指定第一个源点："))
    
12.   (initget 1)
    
13.   (setq gp12(getpoint "\n指定第一个目标点：" gp11))
    
14.   (command "line" gp11 gp12 "")
    
15.   (setq sg1 (ssget "l"))
    
16.   (command "chprop" sg1 "" "c" 7 "")
    
17.   
    
18.   (initget 1)
    
19.   (setq gp21(getpoint "\n指定第二个源点："))
    
20.   (initget 1)
    
21.   (setq gp22(getpoint "\n指定第二个目标点：" gp21))
    
22.   (command "line" gp21 gp22 "")
    
23.   (setq sg2 (ssget "l"))
    
24.   (command "chprop" sg2 "" "c" 7 "")
    
25.   
    
26.   (if(setq gp31(getpoint "\n指定第三个源点："))
    
27.     (progn
    
28.       (setq gp32(getpoint "\n指定第三个目标点：" gp31))
    
29.       (command "copy" sg "" "0,0" "" "align" sg "" gp11 gp12 gp21 gp22 gp31 gp32 )
    
30.     )
    
31.     (progn
    
32.       (setq gp32 1)
    
33.       (command "copy" sg "" "0,0" "" "align" sg "" gp11 gp12 gp21 gp22 "" "n")
    
34.     )  
    
35.   )
    
36. 
    
37.   (command "_erase" sg1 sg2 "")
    
38.   
    
39.   (command "_undo" "e")
    
40.   (princ)
    
41. )

(defun c:cn(/ sg gp11 gp12 sg1 gp21 gp22 sg2 gp31 gp32)<br />   <br />   (while (null sg)<br />     (setq sg(ssget))<br />   )<br />   <br />   (command "_undo" "be")<br /> <br />   (initget 1)<br />   (setq gp11(getpoint "\n指定第一个源点："))<br />   (initget 1)<br />   (setq gp12(getpoint "\n指定第一个目标点：" gp11))<br />   (command "line" gp11 gp12 "")<br />   (setq sg1 (ssget "l"))<br />   (command "chprop" sg1 "" "c" 7 "")<br />   <br />   (initget 1)<br />   (setq gp21(getpoint "\n指定第二个源点："))<br />   (initget 1)<br />   (setq gp22(getpoint "\n指定第二个目标点：" gp21))<br />   (command "line" gp21 gp22 "")<br />   (setq sg2 (ssget "l"))<br />   (command "chprop" sg2 "" "c" 7 "")<br />   <br />   (if(setq gp31(getpoint "\n指定第三个源点："))<br />     (progn<br />       (setq gp32(getpoint "\n指定第三个目标点：" gp31))<br />       (command "copy" sg "" "0,0" "" "align" sg "" gp11 gp12 gp21 gp22 gp31 gp32 )<br />     )<br />     (progn<br />       (setq gp32 1)<br />       (command "copy" sg "" "0,0" "" "align" sg "" gp11 gp12 gp21 gp22 "" "n")<br />     )  <br />   )<br /> <br />   (command "_erase" sg1 sg2 "")<br />   <br />   (command "_undo" "e")<br />   (princ)<br /> )

命令运行完成后，我用U命令并不能返回到(command "_undo" "be")，这是为什么？