记忆复制与连续复制（阵列）的整合，请求大师来帮忙~~~

--@-----

(defun c:xx ( / aa ang copypt dd ent ept num pt spt)
  (IF (NULL *aa*)
    (setq *aa* 100)
  )
  (vl-cmdf ".copy" (ssget) "" "m")
  (command (setq pt (getpoint "\n指定基点:")))
  (setq aa (getpoint pt (strcat "\n值,如果为1就执行阵列<" (rtos *aa* 2 2) ">:")))
  (if (NULL aa)
    (setq aa *aa*)
    (SETQ *aa* (distance pt aa))
  )
  
  (if (= aa 1)
   (progn
   (setq ent (ssget)
spt (getpoint "\n请输入方向起点:")
ept (getpoint "\n请选择方向终点:" spt)
num (getint "\n请输入要复制的个数:")
ang (angle spt ept)
  )
  (setq dd aa)
  (repeat num
    (setq copypt (polar spt ang dd))
    (command "copy" ent "" spt copypt)
   (setq dd (+ dd aa))
  )
  )
  )
(command aa)
  )

eachy

copy + array 有程序了，copy 中插入单向Array有 C# 的dll工具

--@-----

我先把问题阐述清楚：原CAD复制命令增加记忆功能.使命令使用起来已经很方便了。。。现在我又想把阵列的功能也加进去.目的一无需再使用原CAD的ar阵列命令了 省去一个快捷键,目的二让阵列也增加记忆功能,让插件越来越人性化操作，步骤越来越少，画图越快！复制使用的频率很高，而阵列只是偶尔用一下.所以我想阵列功能的增加不影响复制的操作，只是使用阵列的时候才用一下！具体操作过程:输入XX,指定基点或 [阵列复制(A)] 当按A的时候才进入复制阵列环节,按下A，输入复制的数量,输入复制的间距（在这里空格是默认上次复制的距离）然后鼠标甩个方向（不用点两点去确定方向），空格及完成阵列过程. :)

--@-----

这个是eachy大侠写的记忆复制代码   希望哪位有时间把阵列的功能也加上，我在这里先谢谢来:P       (defun c:xx (/ aa pt)
  (IF (NULL *aa*)
    (setq *aa* 100)
  )
  (vl-cmdf ".copy" (ssget) "" "m")
  (command (setq pt (getpoint "\n指定基点:")))
  (setq aa (getpoint pt (strcat "\n值<" (rtos *aa* 2 2) ">:")))
  (if (NULL aa)
    (setq aa *aa*)
    (SETQ *aa* (distance pt aa))
  )
  (command aa)
)  

newer

说一百遍也不如贴个图实在，你做个图，截图贴上来吧。

--@-----

就是上面的代码增加个和下面这个差不多的功能 具体要求就是我那文字叙述很长的那段文字

newer

--@----- 发表于 2013-7-11 21:01
就是上面的代码增加个和下面这个差不多的功能 具体要求就是我那文字叙述很长的那段文字

你能先给我讲讲上面的代码里面，开始让你输入的值100，是做什么用的吗？ 和接下来的拷贝有什么关系？