;将尺寸值改为固定数值mini_bzgd
(defun c:mini_bzgd ( / old_cmd x elst )
	(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))
		; )
		(setq elst (entget x))
		(and
			(= (mai_dxf 1 elst) "")
			(/= (mai_dxf 100 (reverse elst)) "AcDb3PointAngularDimension")
			(command "_.dim1" "newtext" (mai_get_textstring x) x "")
		)
	)
	(mai_end)
)
