[讨论]关于多重复制及其撤销的问题

dianbotang

04版的多重复制要输入关键字M，撤销的时候，在同一视口完成的操作算作一步。
06版默认为多重复制，撤销的时候是一下全部撤销。
我想要实现逐步撤销，编了两个小程序，都有不足之处，望高手能够解决，关键是如何实现在键盘输入空格和回车终止程序的问题。

;改进的多重复制，空格或回车可以退出，但是复制过程中不能动态显示复制对象。
(defun C:CC ()
  (setq css (ssget))
  (setq pt0 (getpoint "指定基点"))
  (setq pt t)
  (while pt
    (setq pt (getpoint pt0 "\n指定目标点"))
    (command "copy" css "" pt0 pt)
  )
  (prin1)
)

;改进的多重复制，只能按ESC退出，空格或回车仍然继续复制。
(defun C:CCC ()
  (setq css (ssget))
  (setq pt0 (getpoint "指定基点"))
  (setq pt t)
  (while pt
    (command "copy" css "" pt0 pause)
  )
  (prin1) 
)

mccad

帮你转到LISP版块

xshrimp

无预览.可以一步步undo

2. (defun c:c ( / aa bb copycl)
3. (princ "\n选择要拷贝的物体: ")
4.    (if (setq copycl (ssget ":L"))
5.      (progn
6.       (setq bb (getpoint "\n指定基点:"))
7.       (while 1;(/= (type aa) 'LIST)
8.       (initget 2 "U")
9.       (setq aa (getpoint "\n指定基点或位移或[放弃(U)]:"))
10.       (cond ((= (type aa) 'STR)      
11.             (command "undo" "")
12.              )
13.       ((= (type aa) 'list)
14.          (command "COPY" copycl "" bb  aa)
15.       )
16.       (T (exit))
17.       )
18.       )
19.       
20.      )      
21.    )
22. )

(defun c:c ( / aa bb copycl) (princ "\n选择要拷贝的物体: ")    (if (setq copycl (ssget ":L"))      (progn       (setq bb (getpoint "\n指定基点:"))       (while 1;(/= (type aa) 'LIST)       (initget 2 "U")       (setq aa (getpoint "\n指定基点或位移或[放弃(U)]:"))       (cond ((= (type aa) 'STR)                   (command "undo" "")              )       ((= (type aa) 'list)          (command "COPY" copycl "" bb  aa)       )       (T (exit))       )       )             )          ) )

dianbotang

感谢明总移帖，也谢谢楼上这位热心的大哥。