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

nonsmall

(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)

flowerson

同求答案！