feelg 发表于 2010-4-30 22:24:00

[求助]旋转参照LSP

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

masterlong 发表于 2010-5-1 00:28:00

<p>(defun c:rro()<br/>&nbsp; (command "rotate" (ssget) "" pause)<br/>&nbsp; (setq p1 (getvar "lastpoint"))<br/>&nbsp; (command "r" "non" p1 pause pause)<br/>)</p>

feelg 发表于 2010-5-1 10:17:00

<p>呵呵。很方便。谢谢。五一节快乐。</p>

yxl88168 发表于 2011-4-2 12:45:33

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

luhy2008 发表于 2019-7-5 16:00:11

感谢masterlong分享！
页: [1]
查看完整版本: [求助]旋转参照LSP