你见过这么复杂的多重复制吗?(源码)

luoguoqianga

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

xotoo

我觉得多重复制，应该以前一个复制的位置为基准点复制下一个图元，依次类推
比如我选择原图元（0物体）复制一个1物体，距离100；那么我再输入300的时候，这个300是从1物体开始计算，而不是从0物体开始计算

masterlong

作为一个范例程序还是不错的

iwx007

这个功能还是蛮有用的

daiguafan

值得学习
谢谢