;;;-------------------get10codes-------------------
;;; Author: Herman Mayfarth
;;; Purpose: acquires a list of point by user input
;;; Transforms the points to global coordinates and
;;; converts the point list to an association list 
;;; of the form ((10 x1 y1 z1) . . .(10 xn yn zn))
;;;------------------------------------------------
(defun get10codes ( / p1 p2 ptlist)
  (while (null p1) (setq ptlist (list(setq p1 (getpoint "First Point: ")))))
  (prompt "\nPick Points:")
  (while (setq p2 (getpoint p1))
    (progn
      (grdraw p1 p2 -1)
      (setq ptlist (cons p2 ptlist) p1 p2)
    )
  )
  (redraw)
  (reverse (mapcar '(lambda (x) (cons 10 (trans x 1 0))) ptlist))
);get10codes