能不能将移动后的物体复制到移动前的位置？

fire9527

有时候会不小心将复制的快捷键按成移动，这时往往通过撤销，然后重新找基点复制，感觉好麻烦，在误将复制弄成移动后能不能通过程序把移动的图元复制到之前的位置？

Gu_xl

解决方案:

1. ;;命令反应器
   
2. (or *cmdvlr*
   
3.     (setq *cmdvlr* (vlr-command-reactor
   
4.                      nil
   
5.                      '((:vlr-commandWillStart . cmdstart))
   
6.                    )
   
7.     )
   
8. )
   
9. ;;数据库反应器
   
10. (or *acdbvlr*
    
11.     (setq *acdbvlr* (vlr-acdb-reactor
    
12.                       nil
    
13.                       '((:VLR-objectModified . acdbstart))
    
14.                     )
    
15.     )
    
16. )
    
17. ;;命令开始反应器回调函数
    
18. (defun cmdstart        (vlr lst)
    
19.   (if (= "MOVE" (car lst))
    
20.     (setq *MOVE_Start* t ;_ 设置启动MOVE命令标志
    
21.           *MOVE_Obj*   nil ;_ 清空MOVE的对象图元名列表
    
22.     )
    
23.   )
    
24. )
    
25. 
    
26. ;;数据库反应器回调函数
    
27. (defun acdbstart (vlr obj)
    
28.   (if *MOVE_Start*
    
29.     (setq *MOVE_Obj*
    
30.            (append *MOVE_Obj* (mapcar 'entget (cdr obj))) ;_ 移动对象图元名列表
    
31.     )
    
32.   )
    
33. )
    
34. ;;用此命令实现复制移动的图元
    
35. (defun c:bakmove (/ cmdecho)
    
36.   (setq cmdecho (getvar 'cmdecho))
    
37.   (setvar 'cmdecho 0)
    
38.   (if *MOVE_Obj*
    
39.     (progn
    
40.       (command "undo" "")
    
41.       (foreach a *MOVE_Obj*
    
42.         (entmake a)
    
43.       )
    
44.     )
    
45.   )
    
46.   (setq *MOVE_Obj* nil)
    
47.   (setvar 'cmdecho cmdecho)
    
48.   (princ)
    
49. )

;;命令反应器<br /> (or *cmdvlr*<br />     (setq *cmdvlr* (vlr-command-reactor<br />                      nil<br />                      '((:vlr-commandWillStart . cmdstart))<br />                    )<br />     )<br /> )<br /> ;;数据库反应器<br /> (or *acdbvlr*<br />     (setq *acdbvlr* (vlr-acdb-reactor<br />                       nil<br />                       '((:VLR-objectModified . acdbstart))<br />                     )<br />     )<br /> )<br /> ;;命令开始反应器回调函数<br /> (defun cmdstart        (vlr lst)<br />   (if (= "MOVE" (car lst))<br />     (setq *MOVE_Start* t ;_ 设置启动MOVE命令标志<br />           *MOVE_Obj*   nil ;_ 清空MOVE的对象图元名列表<br />     )<br />   )<br /> )<br /> <br /> ;;数据库反应器回调函数<br /> (defun acdbstart (vlr obj)<br />   (if *MOVE_Start*<br />     (setq *MOVE_Obj*<br />            (append *MOVE_Obj* (mapcar 'entget (cdr obj))) ;_ 移动对象图元名列表<br />     )<br />   )<br /> )<br /> ;;用此命令实现复制移动的图元<br /> (defun c:bakmove (/ cmdecho)<br />   (setq cmdecho (getvar 'cmdecho))<br />   (setvar 'cmdecho 0)<br />   (if *MOVE_Obj*<br />     (progn<br />       (command "undo" "")<br />       (foreach a *MOVE_Obj*<br />         (entmake a)<br />       )<br />     )<br />   )<br />   (setq *MOVE_Obj* nil)<br />   (setvar 'cmdecho cmdecho)<br />   (princ)<br /> )

fire9527

自己顶一下

tianquan3

基础操作要加强，CAD默认上一次选择为P，这样不需要再次选择物体，还有建议修改快捷键。

fire9527

tianquan3 发表于 2013-1-27 15:55
基础操作要加强，CAD默认上一次选择为P，这样不需要再次选择物体，还有建议修改快捷键。

用p响应这个我知道，我习惯将移动和复制快捷键放在相邻的位置

Gu_xl

使用反应器，应改可以实现吧！

fire9527

Gu_xl 发表于 2013-1-27 18:21
使用反应器，应改可以实现吧！

问题解决了，效果非常好！谢谢Gu_xl 版主！