Creat list of polyline points

I'm trying to create a list of a polyline's points, Just not sure how to retrieve the other points of the entity

(defun c:test (/ ent plist)
 (while
       (not
           (and
             (setq ent (car (entsel "\nSpecify Polyline: ")))
             (setq ent (entget ent))
             (eq "LWPOLYLINE" (cdr (assoc 0 ent)))
           )
       )
    (prompt "\n**Select text a Polyline!**")
  )
  (setq plist (append plist (cdr (assoc 10 ent))))
 (princ)
)