(Defun C:Balloon ()
  (Setvar "Cmdecho" 0)
  (Setvar "Osmode" 0)
  (Setq DS (Getvar "Dimscale"))
  (Setq TH (Getvar "Dimtxt"))
  (Initget 1)
  (Setq P1 (Getpoint "\nFrom Point: "))
  (Initget 1)
  (Setq P2 (Getpoint P1 "\nTo Point: "))
  (If
    (<= (Car P2) (Car P1))
      (Setq B (* -2 TH DS))
      (Setq B (* 2 TH DS))
  )
  (Setq P3 (List (+ (Car P2) B) (Cadr P2)))
  (Setq P4 (List (+ (Car P3) (/ B 2)) (Cadr P3)))
  (Command "_dim1" "_lead" P1 P2 P3 ^C ^C)
  (Command "_circle" P4 (/ (Abs B) 2))
  (Initget 1)
  (Setq C (Getstring t "\nLabel: "))
  (Command "_Text" "_M" P4 TH 0 C)
  (Princ)
)
