I want lisp for Data extraction command.Becuase it will ask 8 step to create the table from attribute block

You're looking for a lisp routine that will create a table populate with data extracted from attributed blocks?

Just am created some information within block as a attribute...all those things am extract from it as a table

Data extraction is already built into AutoCAD.  Use it.