[分享]：基点跟随的多重复制程序

fsxm

monsterkeikoking  你在做什么呢？
这是我上次发的一个回贴里的一段落乍的被你copy了好几次了
是不是想搞点币子用啊？也用不了这样乱发贴的的啊？？

回:雨箭风刀 :
一个是构造新实体选集再拷贝，一个是先原地拷贝，再移动。
后者多了一个命令，所以速度慢一些，选集内容多的时候会有迟钝。
楼上说的，如果出现这样的问题，那两个程序都会出现（我理解是，都用了cad的基本命令）。
不知道，出错是指怎么个出错法？
另给wkai版主提一条改进意见：
当拷贝的第一次不选基点或不指定拷贝点，而是回车退出的话，没有能干净的退出。
===================================================
你不是说了吗？？
“一个是构造新实体选集再拷贝，一个是先原地拷贝，再移动。”
楼主的是copy新生成的实体.原实体没有动
陌生人 的程式是将原实体的一个copy换掉原实体.再移走原实体！
这样一来原实体就移动了啦！
如果一个尺寸一端与原实体有关联这样尺寸一端也会与原实体一起移动的！
尺寸一端移动了不就发生数值变化了吗？自己试试看！
如果尺寸两端都与原实体关联的话用陌生人 的程式你就是不选尺寸也会将尺寸移走的！
而楼主的就不会发生这样的事了！
当然陌生人 的程式在处理无关联的实体是效果还是一样的！

MJJ3468

最初由 陌生人 发布
[B][php]
;; mcp ＝ 带基点连续拷贝－－－－－－陌生人.2004.7
(defun c:mcp ( / ss pt pt2)
  (if (vl-cmdf ".copy" (setq ss (ssget)) "" (setq pt (getpoint "\n复制基点:")) "@")
    (progn
      (while (an... [/B]

刚开始，很兴奋觉得很好用，可惜有两个问题
一是选择物体多了的时候，很慢，有停顿
二是致命的是，经常会多多复制一个，所以弄得图形很多重复的物体，所以不得不用回CAD的复制了。哈哈，长老改进下