| Вопрос: VBA и AUTOCAD и вообще | Добавлено: 12.07.04 13:54 |
Автор вопроса:  Mikhael | ICQ: 138809268 |
|
Нужен совет тех, кто пользовался VBA в автокаде.
Задача: открыть все документы из папки и сохранить его в другом формате. Моя процедура даёт ошибку. Dim a As String Dim ACad As AcadDocument a = Dir("d:\ConSp\*.dxf") Do If a = "" Then Exit Do ACad.Open "d:\ConSp\" + a ACad.SaveAs "d:\ConSp\" + a, acR15_dwg ACad.Close a = Dir() Loop Ошибка: Object variable or With block variable not set Что неправильно. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Mikhael ICQ: 138809268 Вопросов: 15 Ответов: 14 |
Профиль | | #1 | Добавлено: 12.07.04 14:03 |
Вопрос снят  ))
Найдено решение: Dim a As String Dim ACad As AutoCAD.AcadDocument a = Dir("d:\ConSp\*.dxf" 
Do If a = "" Then Exit Do 'ACad.Open "d:\ConSp\" + a Set ACad = Documents.Open("d:\ConSp\" + a) ACad.SaveAs "d:\ConSp\" + a, acR15_dwg ACad.Close a = Dir() Loop |
||
Страница: 1 |