cad 多重复制的lisp

cad 多重复制的lisp

如下代码，粘贴到文本，将文本连同后缀改为CO.LSP，编完之后，AP加载此LSP程序，并将此LSP程序拖拽到启动组

(defun c:co(/ ent)(setq ent (ssget)) (command "copy" ent "" "m") (princ) )

(defun C:CVV()
(setvar "cmdecho" 0)
(setq css (ssget)) (command "copy" css "" "m")
(setq css nil) (setvar "cmdecho" 1)
(prin1)
)

怎么我可以用？你发的程序有点问题，我改了下，你试试看？

你所指的多重复制具体是什么？详细一点，最好上传样图或样例。

(defun C:CVV ()
(setvar "cmdecho" 0) ;关闭命令提示，减少不必要的提示，提高程序运行速度
(setq css (ssget));选择需要复制的对象
(command "copy" css "" "m" );调用CAD命令进行重复复制
(setq css nil) ;如果不重新进行复制按空格键即可退出
(setvar "cmdecho" 1) ;打开命令提示，回到程序初始状态
(prin1));防止命令nil回显
(prompt "提示：用命令来运行本程序");命令提示便于对新编程序的输入命令记忆。