Combine list in the entmake

[Adesu]

Hi Alls,
I thought this code very simple,but I got problem to solve it,my brain still locked,here that code,look at attach file

[kpblc2000]

Try to replace last (entmake) to this:
(setq ed (entmake
(append (list
'(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(100 . "AcDbPolyline")
(cons 90 (length lst))
) ;_ end of list
lst
) ;_ end of append
) ;_ end of entmake
) ;_ end of setq

[Adesu]

Hi kpblc,
yes like that,as I looking for,many thanks for your help.

Try to replace last (entmake) to this:
(setq ed (entmake
(append (list
'(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(100 . "AcDbPolyline")
(cons 90 (length lst))
) ;_ end of list
lst
) ;_ end of append
) ;_ end of entmake
) ;_ end of setq