多重复制总是需要输入M，如何简化？

可以在acad.lsp文件中添加程序实现不必输入M，方法是：  
(defun C:CVV ()
(setvar "cmdecho" 0)
(setq css (ssget)) (command "copy" css "" "m")  
(setq css nil) (setvar "cmdecho" 1)  
(prin1) )
即输入CVV回车，即可实现多重复制。