求助转角度问题！

jxlnlsh

那位大哥有转角度程序啊？比方说在一个32.28度能不能不用输入角度数字就可以转到90度啊？
就直接输入-或者输入+就可以了？先谢了！！

jxlnlsh

打个比方一个矩形是32.28度，在不要输入32.28度的数字情况下就可以一下就转成90度

jxlnlsh

好像CAD内部命令里面有是吗？我忘记什么命令了。

ljpnb

这个可以实现啊，不过是不是应该这样操作：
执行命令后，输入“+”或“-”，然后选择直线，还需要定一点基准点？？？？？

jxlnlsh

怎么实现啊？帮帮我啊

jxlnlsh

高手都跑那去了啊？ 怎么不出手啊？

ljpnb

(defun c:test ()
  (setq ort (getvar "ORTHOMODE"))
  (setq os (getvar "osmode"))
  (prompt "\n请选择要转正的物体...")
  (setq ss (ssget))
  (setq pt1 (getpoint "\n请选择一个旋转基准点:"))
  (setvar "ORTHOMODE" 0);;;这句可以省去
  (setq pt2 (getpoint pt1 "\n请选择要转正边的另一点:"))
  (setvar "ORTHOMODE" 1)
  (setvar "osmode" 0)
  (command "rotate" ss "" pt1 "r" pt1 pt2 pause)
  (setvar "ORTHOMODE" ort)
  (setvar "OSMODE" OS)
)

上面程序正常情况下没什么问题，如果操作中途结束，会造成捕捉设置变成0，完整的程序需要加入错误处理！

[ 本帖最后由 ljpnb 于 2008-1-14 20:20 编辑 ]

hxb7609

用align命令改一改就可以了

zpqcq

用得着吗？AutoCAD自己的命令Rotate 就可以实现啦。