[求助]：想做个旋转的lisp,清帮帮我!

hpisme

我想要个这样的旋转的lisp程序:比如命令是rr,当我输入该命令后,选择想要旋转的对象,然后选择基点!接着后默认子命令是 旋转90!,而点击右键后是旋转-90度,能否实现?清高手指教!多谢

柔柔

很容易实现的，但是有一个问题，点击鼠标左键为旋转90，点击鼠标右键现在－90，那如何让它结束呢？
如果你设置成按任一键结束倒也是可以的。你是这么想的吗？
最好的设置是用鼠标让光标转动，但对象只停在坐标轴上（跨距90度），按左键或右键停下。
^_^，按F8 正交，ACAD本来就能做到。

hpisme

回柔柔 :谢谢柔柔!你的方法我发现是比我想的要好!^_^lisp方面我是菜鸟!以后还请多多指教哦!但是在你说的"但对象只停在坐标轴上（跨距90度），"而我想要实现的是相对于原对象旋转90或者-90,而不是相对于坐标!请问我这样的话按你得方法也能实现吗?

柔柔

这不就是吗？对象的角度跟对象的整体角度是二码事。一条45度的斜线，线的角度是45度，但作为你要处理的对象，它的角度是0度。你转90度，线便成了135度了。

hpisme

谢谢柔柔!请你帮我写一个吧?多谢了~

aeo

2. 
   
3. (defun c:rot(  / ss pt pt1 )
   
4. (if(and(setq ss(ssget))
   
5.           (setq pt(getpoint "\nbase"))
   
6.           (setq pt1(getpoint pt "\n上面为逆时90度,下面顺时90度:"))
   
7.    )
   
8. (if(<(cadr pt1)(cadr pt))
   
9. (command".rotate" ss "" pt "-90")
   
10. (command".rotate" ss "" pt "90")
    
11. ))
    
12. )
    

<br /> (defun c:rot(  / ss pt pt1 )<br /> (if(and(setq ss(ssget))<br />           (setq pt(getpoint "\nbase"))<br />           (setq pt1(getpoint pt "\n上面为逆时90度,下面顺时90度:"))<br />    )<br /> (if(<(cadr pt1)(cadr pt))<br /> (command".rotate" ss "" pt "-90")<br /> (command".rotate" ss "" pt "90")<br /> ))<br /> )<br />

hpisme

十分感谢aeo 班主!我今天试了一下,成功了!^_^
由于工作关系,也没有很多精力去学习lisp程序!能否介绍一下学习lisp经验!推荐一本书?看cad帮助给我感觉就是太笼统了!不适合初学者!