[pm_86]

Здравствуйте. Очень нужна помощь. Есть большое количество файлов, требуется открыть их в AutoCAD 2008 и на выходе получить список файлов которые не открылись. Нет ли у кого-нибудь готового лиспа?

[Do$]

Можно использовать это:
http://forum.dwg.ru/showpost.php?p=989015&postcount=32
Эта программа последовательно открывает файлы и применяет заданный скрипт. Если что-то не смогла открыть за указанное время - выдает сообщение об ошибке и переходит к следующему файлу. Можно задать пустой скрипт, просто будет открывать-закрывать файлы. В конце работы увидите список того, что она не смогла открыть - будет отмечено красным.
P.S. То, что программа не сможет открыть - это не всегда из-за неподходящего формата. Может быть какое-нибудь всплывающее окошко замены шрифта или сообщения о прокси-объектах.

[VVA]

Сообщение от pm_86 и на выходе получить список файлов которые не открылись. Нет ли у кого-нибудь готового лиспа?

Не открыться они могут по 2 (?) причинам:
1. Ошибка в файле и он требует восстановления
2. Не совместимый формат файла
По поводу п.2 два предложения
1. DwgTrueView преобразовать файлы к формату 2008 Автокада
2. Программно прочитать заголовок dwg файла (первые 6 байт) и узнать версию. Перечень версий
Простейший пример

Код:

[Выделить все]

(defun C:TEST ( / fdwg f str v versionlist)
(setq fdwg (getfiled "Select DWg File" "" "dwg" 8))
(setq f (open fdwg "r"))
(setq str "")
(repeat 6 (setq str (strcat str (chr(read-char f)))))
(close f)
(setq versionlist
(list       
'("AC1012" "AutoCAD Release 13")
'("AC1014" "AutoCAD Release 14")
'("AC1015" "AutoCAD 2000, AutoCAD 2000i, AutoCAD 2002")
'("AC1018" "AutoCAD 2004, AutoCAD 2005, AutoCAD 2006")
'("AC1021" "AutoCAD 2007, AutoCAD 2008, AutoCAD 2009")
'("AC1024" "AutoCAD 2010, AutoCAD 2011, AutoCAD 2012")
'("AC1027" "AutoCAD 2013")
)
      )
(if (setq v (assoc str versionlist))
  (alert (strcat fdwg "\n" "dwg file version- " (car v) "\n" (cadr v)))
  (alert (strcat fdwg "\nНеизвестная версия"))
  )
)

[gomer]

а если проаплаить vla-add?

[Кулик Алексей aka kpblc]

Чего сделать??

[gomer]

Сообщение от Кулик Алексей aka kpblc Чего сделать??

vl-catch-all-apply

[Кулик Алексей aka kpblc]

Offtop: Е-мое, надо ж было так обозвать

[Vov.Ka]

проаплаить vla-open через odbx