Extract Polylines - Layer Name, Area, Length and Handled Key (ID)

[tb123CPD]

Could anyone Please help me to create LISP programming or share links (if someone already have) as i wanted to Extract Polylines - Layer Name, Area, Length and Handled Key (ID) in a one time for multiple areas from a drawing. Is their any possibilities ?

[devitg]

How about this way ?

(setq ent (handent handle))
(command "_zoom" "_Object" ent ""  );line added
(redraw ent 3); line added by devitg