Hi
Is this good for what you need ?
(defun c:pline->list (/ ss n pl e_lst lst)
(setq ss (ssget '((0 . "LWPOLYLINE"))))
(if ss
(repeat (setq n (sslength ss))
(setq pl (ssname ss (setq n (1- n)))
e_lst (entget pl)
lst (cons (list (cons 1 (cdr (assoc 5 e_lst)))
(cons 2 (cond
((= (cdr (assoc 62 e_lst)) 0)
"BYBLOCK"
)
((or (null (cdr (assoc 62 e_lst)))
(= (cdr (assoc 62 e_lst)) 256)
)
"BYLAYER"
)
(T (cdr (assoc 62 e_lst)))
)
)
)
lst
)
)
)
)
(mapcar 'print lst)
(princ)
)