nonsmall 发表于 2008-9-28 12:20:00

[求助]属性文字怎么修改不成功?

<p>(setq mydoc (vla-get-activedocument(vlax-get-acad-object)))</p><p><br/>(setq blks (vla-get-blocks mydoc))</p><p>(setq blk (vla-item blks "TITLE"))</p><p>(setq go t i 0)</p><p>(while go<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq typ(vla-get-objectname(setq obname(vla-item blk i))))<br/>&nbsp;&nbsp;&nbsp;&nbsp; ;(print typ)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (cond<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;((equal "AcDbAttributeDefinition" typ)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;(setq j 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;(setq tag (vla-get-tagstring obname))<br/>&nbsp;&nbsp;&nbsp; ;(print (vlax-dump-object obname t))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;(repeat (vl-list-length sign_list)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (equal tag (nth j sign_list))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;(print (vla-get-textstring obname))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;(print (vlax-dump-object obname t))<br/><font color="#ff0000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;(vla-put-textstring obname "11111");修改成功但是图面上就是没有更新</font><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;(print tag)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;(print (vlax-dump-object obname t));<font color="#ff0000">已经变了</font><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(vla-update obname)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq j (1+ j))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;)<br/>&nbsp;&nbsp;&nbsp;)<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq i (1+ i))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (if (= i (vla-get-count blk))(setq go nil))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq i (1+ i))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (if (= i (vla-get-count blk))(setq go nil))</p><p>)</p><p>(entupd blk)</p>

flowerson 发表于 2022-7-5 12:33:01

同求答案！
页: [1]
查看完整版本: [求助]属性文字怎么修改不成功?