[求助]块数据操作

wyj_007

用ai_propchk命令处理块时可以变动块的X，Y，Z向比例，从而控制块的大小，变动旋转角控制块的方向，但只能一个一个的处理，我需要能用一个命令实现上述功能，不知哪位高手能解决此问题。

meflying

ai_propchk是没有这个命令的,这是用户自定义的东西,,,你应该去找这个命令的作者

wyj_007

用DDMODIFY命令一样也可以修改块的X，Y，Z向比例，从而控制块的大小，变动旋转角控制块的方向，但只能一个一个的处理，我需要的是当我选中一批块时，能用一个命令能批量修改这批块的X，Y，Z向比例和块的旋转角，可使这批块有统一的X，Y，Z向比例和旋转角或四个参数的某种组合。不知哪位高手能解决此问题。我用的是R14。在2000中好像有这种功能，但在R14中，据我所知目前还没有。

龙龙仔

;;(tt x y z rotate)
;;(tt 2 3 4 45)
(defun TT (ENT41 ENT42 ENT43 ROT / SS N EN ENT)
(setq SS (ssget '((0 . "insert")))
N 0
ROT (/ (* ROT pi) 180)
)
(repeat (sslength SS)
(setq ENT (ssname SS N))
(setq EN (entget ENT))
(setq EN (subst (cons 41 ENT41) (assoc 41 EN) EN))
(setq EN (subst (cons 42 ENT42) (assoc 42 EN) EN))
(setq EN (subst (cons 43 ENT43) (assoc 43 EN) EN))
(setq EN (subst (cons 50 ROT) (assoc 50 EN) EN))
(entmod EN)
(entupd ENT)
(setq N (1+ N))
)
(princ)
)

wyj_007

谢谢龙龙仔！我先去调试一下，先献花一朵。这个程式主要用于门窗块修改，因为在天正里有时门窗块修改功能经常会莫明其妙地失灵。