;Place spot elevation X's and text. (uses GETSTYLE UPOINT USTR)
;
;	Author:
;		Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;
;	http://www.pinehurst.net/~pfrancis
;	e-mail hfrancis@pinehurst.net
;	All rights reserved.
;
(DEFUN C:SPOT (/ ipt str txs tip htx x1 x2 x3 x4 clayr dimsc atxht txht)
(setvar "cmdecho" 0)
(setq clayr (getvar"clayer")
);setq
(if getstyle (getstyle "A")(progn (load "getstyle")(getstyle "A")))
  (while
    (setq ipt (upoint 0 "" "\nEnter point to label " nil nil))
      (progn
        (setq
          dimsc (getvar"dimscale")
          atxht (* dimsc 0.09)
          txht (getvar"textsize")
          tip (polar ipt (/ pi 2) atxht)
          htx (/ atxht 2)
          x1 (polar ipt (* 0.75 pi) htx)
          x2 (polar ipt (* 1.75 pi) htx)
          x3 (polar ipt (* 1.25 pi) htx)
          x4 (polar ipt (* 0.25 pi) htx)
        );setq
        (progn
          (setq str (ustr 1 "\nEnter elevation " nil nil))
          (command)
          (command ".layer" "m" "C-TOPO6SPOT" "c" 6 "" ""
                   ".line" x1 x2 ""
                   ".line" x3 x4 ""
                   ".text" "c" tip atxht 0 str
          );command
        );progn
      );progn
  );while
  (setvar "clayer" clayr)
  (setvar "textsize" txht)
  (getstyle "")
  (setvar "cmdecho" 1)
  (command)
);defun