2011.11.30 CADsoft Forum launched
(while (setq b (tblnext "BLOCK")) (vl-cmdf "_wblock" (strcat "c:\\folder\\" (setq b (cdr (assoc 2 b))) ".dwg") b))