find x values of lwpolyline

(defun LWPOLY_SHOW (EL)
  (while (setq EL (member (assoc 10 EL) EL))
     (print (car (cdr (assoc 10 EL)))); car to print x value
     (setq EL (cdr EL))
 (print)
  )
)
(defun ddd ()
(setq ent (entsel))
(setq dxf (entget (car ent)))
(lwpoly_show dxf)
)