(defun c:aa ( / ent obj pts i pt1 ptlst)

  (setq ptlst '())
  (setq ent (car(entsel)))
  (if (member (cdr (assoc 0 (entget ent))) '("LWPOLYLINE" "POLYLINE"))
    (progn
      (setq obj (vlax-ename->vla-object ent))
      (setq pts (vlax-curve-getEndParam obj))
      (setq i 0)
      (while (<= i pts)
        (setq pt1 (vlax-curve-getPointAtParam obj i))
        (setq ptlst (cons pt1 ptlst))
        (setq i (+ i 1))
      );;while
      (setq ptlst (reverse ptlst))
    );;progn
  );;if member

)