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

xhpei1 · 发表于 2004-9-20 13:00:00

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

meflying · 发表于 2004-9-20 13:29:00

你想做什么?一块说了吧,最好再附一个图...
还有,一个问题最好在原帖子接下去,不要重新发新帖子,这样让别人看了都摸不着头脑,也不要点我的名,这样可以有更多的人来解决你的问题

xhpei1 · 发表于 2004-9-20 13:59:00

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

meflying · 发表于 2004-9-20 14:57:00

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

xhpei1 · 发表于 2004-9-20 16:15:00

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

meflying · 发表于 2004-9-20 16:23:00

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 · 发表于 2004-9-20 18:04:00

Myflying先生：
I 服了you!
非常感谢，有空到无锡来玩。

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

发表回复

精选推荐