【求助】正负90度旋转的LSP程序

zhengxq7

选定一个图元，需要旋转正90度和负90度，都需要命令-选定对象-指定基点-输入旋转角度，因为这样旋转用到很多次，所以觉得很繁琐。
请教高手能不能帮忙设计一个LSP程序，只要命令-选定对象-指定基点就可以了，不用输入正负90.如果不用指定基点更好。

Andyhon

选定对象 (有多复杂!?)
不用输入正负90 (两者!? 原对象留否!?)
不用指定基点 (旋转是少不了基点,那基点从何得出!?)
??????

kwok

2. (defun C:r9()
   
3.      (COMMAND "rotate"
   
4. (setq ss (ssget":S"))
   
5.        ""
   
6.        (mapcar '(lambda (x) (/ x 2)) (apply 'mapcar (cons '+ (acet-ent-geomextents (ssname ss 0)))))
   
7.        "90"));;此处90设正反旋转-90为反

(defun C:r9()<br />      (COMMAND "rotate" <br /> (setq ss (ssget":S"))<br />        ""<br />        (mapcar '(lambda (x) (/ x 2)) (apply 'mapcar (cons '+ (acet-ent-geomextents (ssname ss 0)))))<br />        "90"));;此处90设正反旋转-90为反

【KAIXIN】

对于正负方向，跟当前的系统变量有关

ZZXXQQ

1. (defun c:+90 ()
   
2. (if (setq ss (ssget))
   
3.   (command "_.ROTATE" ss "" PAUSE 90)
   
4. )
   
5. (princ)
   
6. )
   
7. (defun c:-90 ()
   
8. (if (setq ss (ssget))
   
9.   (command "_.ROTATE" ss "" PAUSE -90)
   
10. )
    
11. (princ)
    
12. )
    

(defun c:+90 ()<br /> (if (setq ss (ssget))<br />   (command "_.ROTATE" ss "" PAUSE 90)<br /> )<br /> (princ)<br /> )<br /> (defun c:-90 ()<br /> (if (setq ss (ssget))<br />   (command "_.ROTATE" ss "" PAUSE -90)<br /> )<br /> (princ)<br /> )<br />

zhengxq7

多谢超级版主，已经试用过了，正是我需要的。

296715530

ZZXXQQ 发表于 2013-3-29 07:54

这个能改成不用指定基地吗，按中心旋转

999999

支持支持

magicheno

两位大侠的都很好用，支持支持

自贡黄明儒

296715530 发表于 2019-12-31 14:14
这个能改成不用指定基地吗，按中心旋转

赞同。