[LISP程序]：发一个自己编的楼层间复制的程序

jackhhu

(setq n (getint "\n 共有图:"))
   (setq nn 1)
   (setq cc '())
   (repeat n
      (setq ztpt1 (getpoint))
      (setq cc (cons (list nn ztpt1) cc))
      (setq nn (1+ nn))
    )
(defun c:c1()
(setq th1 (getint "\n 所在图号:"))
(setq th2 (getstring "\n 复制到图号:"))

(setq mm (strlen th2))
(setq m 1)
(setq ob1 (ssget))
(repeat mm
       (setq n1 (substr th2 m 1))
       (setq m (1+ m))
       (setq copt1 (assoc th1 cc))
       (setq copt2 (cadr copt1))
       (setq copt3 (assoc (atoi n1) cc))
       (setq copt4 (cadr copt3))
       (command "copy" ob1 "" copt2 copt4 "")
)
)

znchssy

看不出来，和普通拷贝有啥区别

dong790518

不错

monkey12

很感谢分享，学习过程中

zhongyang730

能不能附图说明一下，

sky889150

大神，我试用了下你才楼层间复制的插件还是有点不方便[em:9:]，我拿到建筑图 参照他的图纸进来的  然后我在每层的轴线交点做了个矩形框 ，做为定位点绘制的平面内容要复制到其他楼层的时候能不能就是以矩形框的一个顶点作为基点复制的，复制的图元相对于基地的位置是不变的，然后使用框选需要复制到需要的楼层。