关于旋转的Lisp（龙大哥也帮着看看呀！）

熊哥哥

龙大哥各位大哥帮我编一个能实现下图功能的lisp吧！！！

yedajiang

看下面的命令行提示：

指定基点:
指定旋转角度或 [参照(R)]: r
指定参照角 <0>: 指定第二点:
指定新角度:

AutoCAD已经有这样的功能了，无须再开发了。

熊哥哥

你说的那个方法我知道我就是要把

指定旋转角度或 [参照(R)]: r
指定参照角 <0>: 指定第二点:

这二步省了

无痕

简单的可以这样

2. (defun c:rt0 ()
3.   (setq os (getvar "osmode"))
4.   (setvar "osmode" 512)
5.   (setq ss (ssget)
6. pt (getpoint)
7. pt1 (osnap pt "nea")
8. pt0 (osnap pt "end"))
9.   (command ".rotate" ss "" pt0 "r" pt0 pt1 0.)
10.   (setvar "osmode" os)
11.   (princ)
12. )

(defun c:rt0 ()   (setq os (getvar "osmode"))   (setvar "osmode" 512)   (setq ss (ssget) pt (getpoint) pt1 (osnap pt "nea") pt0 (osnap pt "end"))   (command ".rotate" ss "" pt0 "r" pt0 pt1 0.)   (setvar "osmode" os)   (princ) )

熊哥哥

无痕高手呀！！！小弟先谢了！

 

无痕

zoom太小的时候可能会捕捉错误。先用着吧：）