draw a pline

hello
i want to draw a pline with a list of point a try

(defun DRAW:OLYLIGNE (pts) (setvar "cmdecho" 0)
(command "_.PLINE" (car pts) (foreach p (cdr pts) (command p)))
(princ)
)

or this
(defun DRAW-POLYLIGNE (pts) (command "_PLINE") (mapcar 'command pts)
(command ""))

but a have always 1 2 3 on prompt how to make this without

thanks

 

YES now it's ok with entmake

(defun trace:o(liste)
(entmake
(append
(list
'(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 (length liste)))
(mapcar '(lambda (x)(cons 10 x))liste))))