问什么我的程序在操作的过程中要按ESC才能实时显示旋转效果呢
;;;带复制的旋转(defun c:rr()
(prompt "选择要旋转的目标:")
(setq en (ssget))
(setq p1 (getpoint "\n输入基点:"))
(command "copy" en "" p1 p1)
(command "rotate" en "" p1 (getreal "\n转动的角度:"))
)
请会的朋友教教我!谢谢~~~
我用2012测试你的程序是对的，你所说的问题可能是copy命令的问题，你可以试试在copy前面加一个小数点，变成原始命令，或许能行。
页:
[1]