;;;===================================================
;;;c:bh ±ê×¢°åºñ
;;;===================================================
(defun c:bh (/ old_cmd pt1 a)
  (mai_start nil)
  (mai_get_scale)
  (mai_set_style (caddr maitextname) nil)
  (if (not (setq pt1 (getpoint "\n°åºñ±ê×¢Î»ÖÃ:"))) (exit))
  (if (not bh_text) (setq bh_text "120"))
  (setq a (getstring (strcat "\n°åºñ<" bh_text ">:"))
        bh_text (if (= a "") bh_text a)
  )
  (command "_.ellipse" "_c" pt1 (polar pt1 0 (* mai_scale 6)) (* mai_scale 4))
  (mai_draw_text "mc" pt1 (* mai_scale 3) 0 (strcat "h=" bh_text) (caddr maitextname) nil 0.8)
  (mai_end)
)
