Пакетная Конвертация из 2004-го в 2000-й

Доброго времени суток, есть 200 чертежей в формате 2004
У меня стоит 2006 акад, я хочу с помошью него конвертить, для этого написал а автолиспе небольшую прожку:
(DEFUN To2000 (numdoc)
  (command "cmddia")
  (command "0")
  (command "filedia")
  (command "0")
       (setq x numdoc)
       (while (> x 0)
            (command "saveas")
            (command "2000")
     (command)
         (setq x (- x 1))
     (to2000 x)
     (command "close")
       )
  (command "cmddia")
  (command "1")
  (command "filedia")
  (command "1")
)
Но дело в том что мешает команда close после нее выполнение лиспкода останавливается.
Что нужно учесть или исправить чтоб конвертить таким способом?
Есть ли какие конверторы стороннего производства такие которые позволяли бы конвертить с использованием акада а не как AcmeCadConverter без него, ато со шрифтами проблема и не все конвертится.