(defun c:test (/ pt pts dis p1)
  (while (setq pt (getpoint "\nPoint: "))
    (if	(not p1)
      (setq p1 pt)
    )
    (setq pts (cons pt pts))
    (if (>= (length pts) 2)
     (grdraw pt p1 1))
    (setq p1 pt)
  )
  (setq dis 0.)
  (if pts
    (mapcar '(lambda (x y)
	       (setq dis (+ dis (distance x y)))
	     )
	    (reverse (cdr (reverse pts)))
	    (cdr pts)
    )
  )
  ;;(apply 'command (cons ".pline" pts))
  ;;(command)
  (if (not (zerop dis))
    (princ (strcat "\nDistance = " (rtos dis 2 4)))
  )
  (princ)
)