多重复制可以一行代码就搞定,不过本人吃饱了没事做,搞个不是一行代码的(我用了蛮久还没发现有BUG的). (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);静默退出 );主函数结束
|