问什么我的程序在操作的过程中要按ESC才能实时显示旋转效果呢

yangist

;;;带复制的旋转
(defun c:rr()
  (prompt "选择要旋转的目标:")
  (setq en (ssget))
  (setq p1 (getpoint "\n输入基点:  "))
  (command "copy" en "" p1 p1)
  (command "rotate" en "" p1 (getreal "\n转动的角度:"))
)
请会的朋友教教我!谢谢~~~

ll_j

我用2012测试你的程序是对的，你所说的问题可能是copy命令的问题，你可以试试在copy前面加一个小数点，变成原始命令，或许能行。