(command "Layer" "s" "0" "")
(setq V (getreal "Mjerilo 1:X: "))
(setq B (/ 0.5 V))
(setq txt "a")
(while (/= txt "")
  (setq txt (getstring "Poz: "))
  (if (/= txt "")
    (progn
      (setq pt1 (getpoint "Po
etak linije: "))
      (setq pt2 (getpoint pt1 "Kraj linije: "))
      (setq l (* (strlen txt) (/ 4 V)))
      (if (or (> (car pt1) (car pt2)))
	(progn
	  (setq pt3 (list (- (car pt2) l) (cadr pt2)))
	  (setq
	    pt4	(list (- (car pt2) (/ l 2)) (+ (cadr pt2) (/ 1.5 V)))
	  )
	  (setq ang (angle pt1 pt2))
	  (setq pt5 (polar pt1 ang 0.5))
	)
	(progn
	  (setq pt3 (list (+ (car pt2) l) (cadr pt2)))
	  (setq
	    pt4	(list (+ (car pt2) (/ l 2)) (+ (cadr pt2) (/ 1.5 V)))
	  )
	  (setq ang (angle pt1 pt2))
	  (setq pt5 (polar pt1 ang 0.5))
	)
      )
    )
  )
  (command "Style" "arial" "Arial" "0" "1" "0" "N" "N")
  (command "PLINE" pt1 "W" B ""	pt5 "w"	0 "" pt2 "w" B "" pt3 "")
  (command "TEXT" "C" pt4 (/ 4 V) 0 txt)
  (command "DONUT" 0 B pt1 "")
  (setvar "PLINEWID" 0)
  (command "Style" "STANDARD" "" "" "" "" "" "" "N")
)					;progn
);if
);while