更改（获取）字体样式的宽度因子

(defun putstywid(widfac / acad ats doc)
  (setq acad (vlax-get-acad-object))
  (setq doc (vla-get-ActiveDocument acad))
  (setq ats (vla-get-ActiveTextStyle doc))
  (vla-get-TextStyles doc )
  (vla-put-Width ats widfac)
)
(defun getstywid(/ acad ats doc)
  (setq acad (vlax-get-acad-object))
  (setq doc (vla-get-ActiveDocument acad))
  (setq ats (vla-get-ActiveTextStyle doc))
  (vla-get-TextStyles doc )
  (vla-get-Width ats)
)