修改所有文字样式的宽度比例

(vlax-for x
     (vla-get-TextStyles
       (vla-get-activedocument (vlax-get-acad-object))
     )
  (vlax-put x 'width 1.0)
)