[求助]如何批量旋转实体为水平

luyu9635 · 发表于 2008-9-6 19:22:00

如何批量旋转实体为水平,求教

luyu9635 · 发表于 2008-9-7 10:45:00

顶一下

ZZXXQQ · 发表于 2008-9-7 12:34:00

什么实体？

00lg · 发表于 2008-9-8 14:39:00

(defun c:rx(/ bs bn ts nl index bn c bp pt)在WCS中恢复水平
(command "undo" "group")
　　 (setq bs(ssget))
　　 (setq nl(sslength bs))
　　 (setq index 0)
　　 (repeat nl
　　　　　 (setq bn(ssname bs index))
　　　　　 (setq bd(entget bn))
　　　　　 (setq c(assoc 10 bd))
             (setq r0 (cdr (assoc 50 bd)))
             (setq r0 (* (/ 180.0 pi) r0))
             (setq r0 (- 360 r0))
　　　　　 (setq pt (cdr c))
　　　　　 (command "_rotate" bn "" pt r0)
　　　　　 (setq index (+ index 1))
　　　)
　　　(setq bs nil)
(command "undo" "end")
)

luyu9635 · 发表于 2008-9-14 16:17:00

谢谢四楼的程序,未测试,不知对一些多段线和横七竖八的矩形之类有没有效果,

谢谢zzxxqq,我指的实体是"一些多段线和横七竖八的矩形"

xiaoquansb · 发表于 2008-12-21 17:18:00

有50的群码的是什么实体啊

ZZXXQQ · 发表于 2008-12-21 18:12:00

xiaoquansb发表于2008-12-21 17:18:00有50的群码的是什么实体啊

圆弧、尺寸、属性、属性定义、形、块、点、文字。

xiaoquansb · 发表于 2008-12-21 20:10:00

唉，我还以为3维实体添，空欢喜一场

luyu9635 · 发表于 2009-1-18 20:50:00

rx不行呀，因为不是每一种实体都有组码50的呀

yxl88168 · 发表于 2011-4-2 12:47:46

回复 00lg 的帖子

; 错误: 参数类型错误: numberp: nil
我用的是CAD2008，显示这个呀

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