(defun c:dimtextwith (/ count ent factor flag n ss)
  (vl-load-com)
  (setq ss (ssget '((0 . "DIMENSION"))))
  (if ss
    (progn
      (setq n 0)
      (setq factor (getreal "宽度系数："))
      (if (not (vl-string-search "." (rtos factor)))
(setq factor (strcat (rtos factor) ".0"))
(setq factor (rtos factor))
      )
      (repeat (sslength ss)
(setq ent (vlax-ename->vla-object (ssname ss n)))
(setq flag (vla-get-TextOverride ent))
(cond
   ((= flag "")
     (vla-put-TextOverride ent (strcat "{\\W" factor " <>}"))
   )
   ((wcmatch flag "{*")
     (setq count 1)
     (while (/= (substr flag count 1) " ")
       (setq count (1+ count))
     )
     (vla-put-TextOverride ent (strcat "{\\W" factor (substr flag 7)))
   )
   (t
     (vla-put-TextOverride ent (strcat "{\\W" factor " " flag))
   )
)
(setq n (1+ n))
      )
    )
  )
)
;(c:dimtextwith)
;//////////////////////////////////////////////////////////////////////////
;//功能: 不炸开尺寸来修改尺寸文字的宽度
;//作者: 超越极至
;//日期: 2009年12月3日
;//////////////////////////////////////////////////////////////////////////