;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2/10/00
;;;>		   EDITED: 01-09-2007
;;;
(DEFUN C:GETEL ( / prof_elev)
  (if ureal nil (load "ureal" "\nFile UREAL.LSP not loaded! "))
  (if v_fact nil (setq v_fact (ureal 1 "" "Profile vertical scale factor? " (if v_fact v_fact))))
  (IF stait
    nil
    (LOAD "stait" "\nFile STAIT.LSP not found!")
  ) ;_ end of IF
  (if upoint nil (load "upoint" "\nFile UPOINT.LSP not loaded! "))
  (while
    (setq elev_pt (upoint 0 "Vertical Label" (STRCAT "Pick profile point for elevation (<L>abel; <V>ert="(rtos v_fact 2 1)"X): ") nil nil))
    (if (eq(type elev_pt)'LIST)
      (progn
	(setq prof_sta (car elev_pt))
        (setq prof_elev (/(cadr elev_pt)v_fact))
        (princ (strcat "\nStation="(stait prof_sta 2)"; Elevation="(rtos prof_elev 2 3)))
      )
      (cond
        ((eq elev_pt "Vertical")
           (SETQ v_fact (ureal 1 "" "Profile vertical scale factor? " (if v_fact v_fact)))
         )
        ((eq elev_pt "Label")
           (princ "\n")
           (if prof_elev
             (progn
               (princ (strcat "elev_pt Elevation="(rtos prof_elev 2 3)))
               (if c:tnote nil (load"tnote" "\nFile TNOTE.LSP not found! "))
               (if c:tnote (c:tnote))
             )
             (princ "No point picked for elevation! ")
           )
         )
      )
    )
  )
  (princ)
)