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

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

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

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

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


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

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

我有很多图纸需要处理，现附一张图纸（AutoCAD2004）上来。图中有很多属性块，其文字高宽比不为1，我很想批量地将其都改成1，既然高度能改，其高宽比也就能改了。


多谢赐教。


另请Myflying先生发给我叫详细的联系方法，我请你到无锡来玩，我的EMAIL: <A href="mailto:xhpei1cn@vip.sina.com" target="_blank" >xhpei1cn@vip.sina.com</A>。

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

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

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

不知怎么搞的，传图点击浏览,再点击上传后,发表按扭即死锁（变暗），我现在将 一张图纸（AutoCAD2004）作为附件，发到<A href="mailto:meflying@mjtd.com" target="_blank" ><FONT color=#000000>meflying@mjtd.com</FONT></A> 信箱中，烦请查收，谢谢！

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

ENT为插入的对象,H为宽高比


(defun ModTxt(ent H / ent blkname ents)<BR>       (while (/= (cdr (assoc 0 ents)) "SEQEND") <BR>                       (if (= (cdr (assoc 0 ents)) "ATTRIB")<BR>                                       (progn<BR>        (setq ents (subst (cons 41 h) (assoc 41 ents) ents))<BR>        (entmod ents)<BR>                                       )<BR>                       )<BR>                       (setq ent (entnext ent))<BR>                       (setq ents (entget ent))<BR>       )<BR>       (command "_.regen")<BR>)

xhpei1 发表于 2004-9-20 18:04:00

Myflying先生：


I 服了you!


非常感谢，有空到无锡来玩。
页: [1]
查看完整版本: [再问]请高手meflying再赐教：“块”编程问题