[求助]：有没有办法固定角度旋转

大土匪

比如是15度的倍数旋转，我现在只能是90/45＋90这样的角度旋转。不爽。

2. 
   
3. (defun c:rt90 (/ ent)(setq ent(getvar "orthomode"))(setvar "orthomode" 1)(command "rotate" pause "" pause pause)(setvar "orthomode" ent));旋转90度
   
4. (defun c:rt45 (/ ent)(setq ent(getvar "orthomode"))(setvar "orthomode" 1)(command "rotate" pause "" pause "r" "45" pause)(setvar "orthomode" ent));旋转45度
   

<br /> (defun c:rt90 (/ ent)(setq ent(getvar "orthomode"))(setvar "orthomode" 1)(command "rotate" pause "" pause pause)(setvar "orthomode" ent));旋转90度<br /> (defun c:rt45 (/ ent)(setq ent(getvar "orthomode"))(setvar "orthomode" 1)(command "rotate" pause "" pause "r" "45" pause)(setvar "orthomode" ent));旋转45度<br />

lsjjm

编个程序吧, 说说你的具体要求?

大土匪

其实上面的lisp就是我具体要实现的事情的一个子集，但是第一个只能转90,180,270度，第二个只能转45，135，－135,-45度。
我想编一个程序起码把这两个结合在一起，但是acad又不能订立极坐标系的SNAP,所以没有办法。
变通办法是记录角度在分析，但是这样不能所见即所得。
希望有心人提供好的指导方法。

e2002

你看看我的 lkpt:Command:Rotate 程序,
我是这样写的:

Command: lk-command:rotate
Rotate objects angle is or [eXit/Match/Reference/180/-90/90.0000] <90.0000>:
Rotate objects angle is : 90.0000
Base point :　

Command:  LK-COMMAND:ROTATE
Rotate objects angle is or [eXit/Match/Reference/180/-90/90.0000] <90.0000>:30
Rotate objects angle is : 30.0000
Base point :
Rotate objects angle is or [eXit/Match/Reference/180/-90/90.0000/30.0000]

每次输入特定角度后就会记录在提示行中,可以右键选择....8-)
为什么没有15度倍数的那些呢?因为你可用两点确定,设定PloarSnap为每15度捕捉就是了...8-)

aeo

here: