(defun el ()
(setq t3 (getpoint "\nEnter Insertion Point..."))
(setq t5 (getreal "\nEnter Spot Height..."))
(setq t2 (list (car t3) (cadr t3) t5))
(princ)
)
(defun c:spot2 (/ t2 t3 t5)
(prompt "\nCommand : Digitize Spot Heights")
(setvar "cmdecho" 0)
(el)
(setq t4 (rtos t5 2 2))
(if (not (tblsearch "layer" "spt-point"))
(command "layer" "m" "point" "c" "m" "" "")
(setvar "clayer" "spt-point"))
(command "point" t2)
(if (not (tblsearch "layer" "spot"))
(command "layer" "m" "spot" "c" "r" "" "")
(setvar "clayer" "spot"))
(command "text" t2 "" "35" T4)
(princ)
)                                                           ; end of program