24 lines
603 B
Common Lisp
24 lines
603 B
Common Lisp
(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)
|
|
)
|
|
|