Text style update via vla..

I want to add a vla to the following lisp that will text style update to current text style. Similar to a dimension update command.

(defun c:3_32 (/ ent ss obj)
(if (setq ss (ssget '((0 . "TEXT,MTEXT"))))
(while (setq ent (ssname ss 0))
(setq obj (vlax-ename->vla-object ent))
(vla-put-height obj (* 0.09375 (getvar "dimscale")))
(ssdel ent ss)
)
)
(princ)
)

Thx

 

(defun c:3_32 (/ ent ss obj)
(vl-load-com)
(setq *acad* (vlax-get-acad-object)
*acaddoc* (vla-get-activedocument *acad*)
*mspace* (vla-get-modelspace *acaddoc*)
AcTxtSt (vla-get-activetextstyle *acaddoc*)
Name (vla-get-name AcTxtSt)
)
(if (setq ss (ssget '((0 . "TEXT,MTEXT"))))
(while (setq ent (ssname ss 0))
(setq obj (vlax-ename->vla-object ent))
(vla-put-height obj (* 0.09375 (getvar "dimscale")))
(vla-put-stylename obj Name)
(ssdel ent ss)
)
)
(princ)
)

 

Using the (ssget '((0 . "INSERT"))) can you scale all blocks (x,y,z) to the current dimscale by using (getvar "dimscale")?