[分享]：多重拷贝"copy""m" 增加undo功能

aeo

要express tools

经常copy错一个就前功尽弃,改写之

2. 
   
3. ; 多重拷贝增加undo功能
   
4. (defun c:c( / n p1 p2 ss )
   
5. (if(and(setq n 0 p2 t )
   
6.         (setq ss(ssget))
   
7.         (setq p1(getpoint "\nBASE"))
   
8.     )
   
9. (progn(command"undo""group")
   
10.   (while p2
    
11.    (initget "Undo")
    
12.    (setq p2
    
13.      (ACET-SS-DRAG-MOVE ss p1"\n第二点(U-undo)" nil))
    
14.    (cond((= p2 "Undo")
    
15.          (if(> n 0)(progn(command"undo""1")(setq n(1- n)))
    
16.                    (princ"\n没有可Undo的了")
    
17.          )
    
18.        )
    
19.        (p2
    
20.          (setq os(getvar"osmode"))
    
21.          (setvar"osmode"0)
    
22.          (command"copy" ss "" p1 p2)
    
23.          (setvar"osmode"0)
    
24.          (setq n(1+ n) os nil)
    
25.        )
    
26.       (t)
    
27.     )
    
28.    )
    
29.   (command"undo""end")
    
30. )
    
31. )(princ))
    

<br /> ; 多重拷贝增加undo功能<br /> (defun c:c( / n p1 p2 ss )<br /> (if(and(setq n 0 p2 t )<br />         (setq ss(ssget))<br />         (setq p1(getpoint "\nBASE"))<br />     )<br /> (progn(command"undo""group")<br />   (while p2<br />    (initget "Undo")<br />    (setq p2 <br />      (ACET-SS-DRAG-MOVE ss p1"\n第二点(U-undo)" nil))<br />    (cond((= p2 "Undo")<br />          (if(> n 0)(progn(command"undo""1")(setq n(1- n)))<br />                    (princ"\n没有可Undo的了")<br />          )<br />        )<br />        (p2<br />          (setq os(getvar"osmode"))<br />          (setvar"osmode"0)<br />          (command"copy" ss "" p1 p2)<br />          (setvar"osmode"0)<br />          (setq n(1+ n) os nil) <br />        )<br />       (t)<br />     )<br />    )<br />   (command"undo""end")<br /> )<br /> )(princ))<br />

鹰博长空

copy错一个也不会前功尽弃，只要取消，删除错误的那个即可