.....................................

ljpnb

15楼此言差矣，如果单单是旋转+复制，确实也可以用array来操作，不过你要知道阵列命令的操作有些步骤可以省掉，有些步骤则要事先设定好，LISP程序的目的就是只输入一些必须的操作，其余的操作则由电脑自己完成，这样做就是为了提高效率。。。。

贱人

.....................................

sdwy19691229

;;;复制+旋转
(defun c:CORT()
  (command "undo" "be")
  (princ "\n请选择要旋转复制的目标:")
  (while (not (setq s1 (ssget))))
  (setq pt1 (getpoint "\n请指定基点 : "))
  (princ "\n请指定目标点 : ")
  (command "copy" s1 "" "@" "@")
  (command "move" s1 ""  pt1 pause)
  (setq pt2 (getvar "lastpoint"))
  (princ "\n请指定旋转角度或 [参照(R)]:")
  (command "rotate" s1 "" pt2 pause)
  (command "undo" "e")
  (princ)
)

在楼上各位程序的基础上改写的。
不知道是不是楼主想要的。
如果不是，就请说！

dandee

I did it as u want. Copy and Rotate .  Enjoy it.


(defun c:cr (/ en ent enw)
(princ " [copy->rotate] Select Object: ")
(setq ent (ssget) en (ssadd) enw (entlast))
(vl-cmdf "copy" ent "" pause pause)
(while (setq enw (entnext enw))(setq en (ssadd enw en)))
(vl-cmdf "rotate" en  "" (getvar "lastpoint") )
)

ljpnb

15楼的程序不错，应该是楼主想要的，向你学习。。。。。

xiaotang

楼主，复制加旋转，一次搞定，不用象各位演示的那样
选中对象，击活夹点，点击右键，你需要的各种命令就全部出来了，完成复制加旋转，容易，如图，还可完成其他的操作

ljpnb

回楼上的，这个夹点的操作你是否真正试过，你所说的只不过是原地旋转+复制，如果选择了移动+复制，那移动复制后的实体还能旋转吗？？？？这并不符合楼主的本意

ss1025

少了关键的(getvar "lastpoint")就不行了。
还是长老的程序写的好。向长老学习。

andyhua5240

各位老大，可以试试WKAI斑竹的编辑易，功能强大，用习惯了，非常的好使。我现在都离不开了！