[再问]请高手meflying再赐教：“块”编程问题

xhpei1

恰好就是属性块，请问如何编程呢？真的不好意思，太麻烦你了

meflying

你想做什么?一块说了吧,最好再附一个图...


还有,一个问题最好在原帖子接下去,不要重新发新帖子,这样让别人看了都摸不着头脑,也不要点我的名,这样可以有更多的人来解决你的问题

xhpei1

我有很多图纸需要处理，现附一张图纸（AutoCAD2004）上来。图中有很多属性块，其文字高宽比不为1，我很想批量地将其都改成1，既然高度能改，其高宽比也就能改了。 多谢赐教。 另请Myflying先生发给我叫详细的联系方法，我请你到无锡来玩，我的EMAIL: xhpei1cn@vip.sina.com。

meflying

传图要点击浏览,再点击上传,传完后再点发表

xhpei1

不知怎么搞的，传图点击浏览,再点击上传后,发表按扭即死锁（变暗），我现在将 一张图纸（AutoCAD2004）作为附件，发到meflying@mjtd.com 信箱中，烦请查收，谢谢！

meflying

ENT为插入的对象,H为宽高比 (defun ModTxt(ent H / ent blkname ents)
(while (/= (cdr (assoc 0 ents)) "SEQEND")
(if (= (cdr (assoc 0 ents)) "ATTRIB")
(progn
(setq ents (subst (cons 41 h) (assoc 41 ents) ents))
(entmod ents)
)
)
(setq ent (entnext ent))
(setq ents (entget ent))
)
(command "_.regen")
)

xhpei1

Myflying先生：


I 服了you!


非常感谢，有空到无锡来玩。