lisp批量自身旋转,求大神修改

yjs2020 · 发表于 2021-7-17 06:12:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun C:ZR ()

(setvar "cmdecho" 0) ;指令执行过程不响应

(princ "\n自身旋转")

(setq ss (ssget))

(repeat (setq i (sslength ss))

(setq i (1- i) a (vlax-ename->vla-object (ssname ss i)))

(vla-getboundingbox a 'minpt 'maxpt)

(mapcar 'set '(minpt maxpt) (mapcar 'vlax-safearray->list (list minpt maxpt)))

(setq p (mapcar '(lambda (x y) (/ (+ x y) 2.0)) minpt maxpt))

(command "_.rotate" ss "" p 90.0)

)

(princ)

)
(目前选择一个对象可以,批量就不行)

huangpc27 · 发表于 2021-9-14 13:54:38

command里面SS改为A

账号		自动登录	找回密码
密码			立即注册

[求助] lisp批量自身旋转,求大神修改

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。