zhengxq7 发表于 2013-3-28 12:15:26

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

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

Andyhon 发表于 2013-3-28 12:43:44

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

kwok 发表于 2013-3-28 12:45:39

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

【KAIXIN】 发表于 2013-3-28 17:12:26

本帖最后由 【KAIXIN】 于 2013-3-28 17:12 编辑

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

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


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

zhengxq7 发表于 2013-3-29 17:10:57

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

296715530 发表于 2019-12-31 14:14:53

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


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

999999 发表于 2020-8-6 01:12:55

支持支持:lol

magicheno 发表于 2020-8-22 21:44:27

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

自贡黄明儒 发表于 2020-8-23 02:49:01

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

赞同。   
页: [1] 2
查看完整版本: 【求助】正负90度旋转的LSP程序