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