Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Отключить выполнение команд повешенных на AcadDocument_Activate()
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте!
Я написала программу, которой в качестве исходных данных вводится папка, из которой она берет файлы, открывает их по чтению и считывает нужные данные и записывает в xml-файл. Но попадаются файлы, на которых она останавливается. В этих файлах прописан код при открытии AcadDocument_Activate. Что нужно сделать чтобы она не останавливалась?
Может существуют какие системные переменные AutoCADa которые отключат выполнение макроса при отрытии файла? Подскажите пожалуйста! :(
Привожу также пример кода при открытии файла:
Private Sub AcadDocument_Activate()
Dim VBEModel As Object
Dim i As Integer
Dim bLoad As Boolean
Dim FileName As String
bLoad = True
FileName = Application.Preferences.Files.TemplateDwgPath & "\AcadMirage.dvb"
Set VBEModel = VBE
For i = 1 To VBEModel.VBProjects.Count
If StrComp(VBEModel.VBProjects(i).Name, "ACADMirage", vbTextCompare) = 0 Then
bLoad = False
Exit For
End If
Next i
If bLoad Then LoadDVB FileName
Application.RunMacro VBEModel.VBProjects(i).Name + ".Mirage.MenuMirage"
End Sub
Что нужно сделать, чтобы код при открытии файла не выполнялся?
Попробуй через DBX открывать файлы.
Что нужно сделать, чтобы код при открытии файла не выполнялся?
Попробуй пример (на скорую руку)
http://dl.dropbox.com/u/18024145/BatchDemo.zip
Проверь ссылки под твою версию Автокада и
измени в коде то что нужно
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Отключить выполнение команд повешенных на AcadDocument_Activate()
Форум работает на PunBB, при поддержке Informer Technologies, Inc
