• На форуме с 25 февраля 2004г.
  • Сообщений: 7
  • Спасибо: 0

Тема: AutoCAD через скрипт VBS

Прекрасно понимаю, что разделом не тот, но все таки.
Дело в следующем - мне необходимо скриптом VBS
открыть существующий файл и сохранить его
как допустим 2000/DXF. Подчеркиваю скриптом VBS.
(Понимаю, что в гамаке и стоя. Но мне надо именно так
по объективным причинам).
В акадовском VBA следующим образом - object.SaveAs FileName, FileType.
где  FileType - enum тип (целое число).
acR15_DXF соответствует 13.
Но в скрипте это не работает, подозреваю собственную криворукость sad.
Буду благодарен, если кто-нибудь укажет на ошибку.
(считать, что файл F:\1.dwg существует)
On Error Resume Next
Dim objACAD, NewDwg
Set objACAD = WScript.CreateObject("AutoCAD.Application")
objACAD.Visible = TRUE
objACAD.ActiveDocument.Close FALSE
objACAD.Application.Documents.Open ("F:\1.dwg")
objACAD.ActiveDocument.SaveAs "F:\2", 13'сохрание файла, как 2000/DXF
objACAD.ActiveDocument.Close TRUE

  • bender
  • Восстановленный участник
  • На форуме с 5 мая 2003г.
  • Сообщений: 345
  • Спасибо: 0

Re: AutoCAD через скрипт VBS

А так?

objACAD.ActiveDocument.SaveAs "F:\2", acR15_DXF
objACAD.ActiveDocument.Close False

  • На форуме с 25 февраля 2004г.
  • Сообщений: 7
  • Спасибо: 0

Re: AutoCAD через скрипт VBS

> bender
Спасибо.
Но всетаки этот кусок, который вывалил я - рабочий. Взвыл не разобравшись. Стыдно.
Кстати, скрипт готов(завтра запущу на работе).

  • Кирилл
  • Восстановленный участник
  • На форуме с 18 мая 2008г.
  • Сообщений: 1
  • Спасибо: 0

Re: AutoCAD через скрипт VBS

Народ помогите пожалуйста, сами мы не местные...
У меня проблема я написал скрипт который помимо всего прочего запускает cmd и должен выполнить там команды(знаю что для этого существует bat, но мне нужно именно через vbs) в целом скрипт работает нормально, но большинство пользователей просто забывают переключить клаву с русского на английский и в окошке cmd естественно пишутся русские буквы. Вообщем мне нужно добавить команду которая с любого языка переключалась бы на английский... может вы поможете?