【转帖】上传一个简单实用的lisp（多重复制）源程序：
 

上传一个简单实用的lisp（多重复制）源程序：
www.dimcax.com
上传一个简单实用的lisp（多重复制）源程序：
上传一个简单实用的lisp（多重复制）源程序：
(defun c:copym(/ a b) ;主函数开始
(setq a(cadr(ssgetfirst)));判断当前图形是否有既被夹取又被选取的,如果有则把这个选择集赋予变量a。
(if(= a nil) ;如果变量a为空时
(progn
(setq b(ssget));创建一选择集,并将选择集名字赋予变量b
(if(= b nil);####if开始
(progn
(princ);静默退出
)
(progn;####progn开始
(command "copy" b "" "m" )
)
)
);调用copy命令,其中b为选择集
(progn
(command "copy" a "" "m" ));调用copy命令,其中a为选择集名字
);if结束
(princ);静默退出
);主函数结束

虽然cad中已有相应的命令可实行多重复制,但楼主编的程序对我仍有很好的学习作用,谢谢!