2012.10.15BricsCAD V13 released / išleista / выпусчена
(while (setq b (tblnext "BLOCK")) (vl-cmdf "_wblock" (strcat "c:\\folder\\" (setq b (cdr (assoc 2 b))) ".dwg") b))