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

[求助]属性文字怎么修改不成功?
www.dimcax.com
[求助]属性文字怎么修改不成功?
(setq mydoc (vla-get-activedocument(vlax-get-acad-object)))
(setq blks (vla-get-blocks mydoc))
(setq blk (vla-item blks "title"))
(setq go t i 0)
(while go
(setq typ(vla-get-objectname(setq obname(vla-item blk i))))
;(print typ)
(cond
((equal "acdbattributedefinition" typ)
(setq j 0)
(setq tag (vla-get-tagstring obname))
;(print (vlax-dump-object obname t))
(repeat (vl-list-length sign_list)
(if (equal tag (nth j sign_list))
(progn
;(print (vla-get-textstring obname))
;(print (vlax-dump-object obname t))
(vla-put-textstring obname "11111");修改成功但是图面上就是没有更新
;(print tag)
;(print (vlax-dump-object obname t));已经变了
(vla-update obname)
)
)
(setq j (1+ j))
)
)
)
(setq i (1+ i))
(if (= i (vla-get-count blk))(setq go nil))
)
(setq i (1+ i))
(if (= i (vla-get-count blk))(setq go nil))
)
(entupd blk)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.