[求助]旋转参照LSP

feelg

各位前辈：每次用rotate命令时要用到旋转参照需  rotate ,选对象，选基点，在R(参照) ,选基点,在选择第二点;     我想用LSP来实现  LSP命令 ,选对象，选基点,在选择第二点; 就是直接进入旋转参照减少前两步没必要的步骤。麻烦前辈帮一下。谢谢。

masterlong

(defun c:rro()
  (command "rotate" (ssget) "" pause)
  (setq p1 (getvar "lastpoint"))
  (command "r" "non" p1 pause pause)
)

feelg

呵呵。很方便。谢谢。五一节快乐。

yxl88168

没有什么大的不同呀，要是能输入R10，现选图园，给基点就会自动旋转就好了

luhy2008

感谢masterlong分享！