;将尺寸值改为固定数值mini_bzgd
(defun c:mini_bzgd ( / old_cmd x)
  (mini_start nil)
  (setq x (mai_select_first '((0 . "DIMENSION")) "选择需要将尺寸值改为固定数值的标注:" "没有选择到标注."))
  (foreach x (mai_ssget_2_list x)
      (setq x (vlax-ename->vla-object x))
      (and (= (vla-get-TextOverride x) "")
           (/= (vla-get-ObjectName x) "AcDb3PointAngularDimension")
           (vla-put-TextOverride x (rtos (* (vla-get-Measurement x) (vla-get-linearscalefactor x)) 2 0))
      )
  )
  (mai_end)
)
