Mark - sorry it took me a bit to get back, but it works great....now I was geting a little froggish again, and was thinking of adding a datum removal. here is what I did...any comments/ideas?
;; datum removal
(defun datrem ()
(setq datum0 (el)
datum1 (/ el 1000)
datum2 (rtos (datum1) 2 0)
datum3 (* datum2 1000)
datum (datum3)
el (- datum0 datum3)
)
)
;;
;; main function
;;
(defun c:ptt (/ lts p-data)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(prompt "\nSelect AECC Points")
(setq p-data (pt_data));; call pt_data
;; block scale
(setq lts (getvar 'ltscale))
(if p-data
(foreach
item
p-data
(setq el (rtos (caddr item) 2 2)); round off the elev.
(datrem)
(command "_insert" "GTC" (cadr item) lts "" "" datum (last item))
)
)
(setvar "cmdecho" cmd)
(princ (strcat "\n"(itoa (length p-data))" Blocks Inserted"))
(princ)
)
Rug