[Ольга_DG]

Здравствуйте!
Я написала программу, которой в качестве исходных данных вводится папка, из которой она берет файлы, открывает их по чтению и считывает нужные данные и записывает в 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

Этот код выполняется при открытии файла. КАК избавится от его выполнения?

[Дима_]

Лично я ничего не понял - какие файлы, на чем программа, где там код, что Вы подразумеваете под "открывает их по чтению". Если не нужно запускать макросы по открытию - просто отключите их - но как это связанно со всем вышесказанном - давайте больше конкретики.

[Ольга_DG]

Есть папка я из нее открываю файлы в автоматическом режиме. На некоторых она останавливается. На этих файлах прописан код на открытие.
Пример:
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

Как сделать чтобы он не выполнялся?

[hwd]

Сообщение от Ольга_DG В этих файлах прописан код при открытии AcadDocument_Activate.

Пример такого файла в студию.

[Дима_]

Сообщение от hwd Пример такого файла в студию.

Я ж говорю - что за файлы - может программа с папкой "лиспов" или dll 'ок работает.

[hwd]

Сообщение от Дима_ Я ж говорю - что за файлы - может программа с папкой "лиспов" или dll 'ок работает.

Увидим, если топикстартер выложит... Обозначенное выше событие происходит при активации dwg-чертежей, а не при подгрузке lsp/dll-файлов, поэтому тут нужно по месту смотреть в чём дело.... Кстати, возможно, что у неё на это событие уже подписан некий код, который при открытии определённых файлов что-то в них делает...

п.с. Топикстартер, язык (предполагаю, что VBA) и версию автокада будем по фотографии угадывать?

[Дима_]

Как сделать чтобы он не выполнялся?

Полный ахтунг. У Вас написан макрос и не нужно чтоб он выполнялся - ну так уберите его, если нужно чтобы выполнялся но только на некоторых - поставтье проверку (на "нужность") в начале макроса.
p.s. Посты автора не сразу появляются (в прошлый раз я видел #4 но #3 еще не было) - это глюк или предмодерация?

[hwd]

Сообщение от Дима_ в прошлый раз я видел #4 но #3 еще не было

аналогично. Топикстартер, если добавляете код, то делайте это уже в след. сообщении (а не в первом), чтобы логика диалога соблюдалась. И код оформляйте тэгами, как полагается, а не сваливайте всё подряд.

Как сделать чтобы он не выполнялся?

Я шнурки зашнуровываю, как сделать, чтобы они не зашнуровывались? Ответ прост: не зашнуровывать шнурки!

Полный ахтунг

+1

[Ольга_DG]

дело в том, что в папке 1000 файлов и чтобы найти и удалить код их нужно их все открывать или смотреть висит ли на них какой нить код. Как программно проверить что висит код на открытие?

[Дима_]

Если мы говорим про *.dwg файлы, то уверяю Вас ни в одном из них кода нет - он там форматом не предусмотрен.

[hwd]

Сообщение от Ольга_DG дело в том, что в папке 1000 файлов и чтобы найти и удалить код их нужно их все открывать или смотреть висит ли на них какой нить код. Как программно проверить что висит код на открытие?

А разве при использовании VBA код хранится непосредственно в dwg-файле, а не подгружается из внешнего dvb-файла?
п.с. на сервере dwg.ru наблюдаются какие-то тормоза... предыдущее сообщение Дима_ у меня отобразилось не сразу, а после публикации моего...

[Сергей Богатов]

Дима_ Если мы говорим про *.dwg файлы, то уверяю Вас ни в одном из них кода нет - он там форматом не предусмотрен.

Сообщение от hwd А разве при использовании VBA код хранится непосредственно в dwg-файле, а не подгружается из внешнего dvb-файла?

Есть внешние проекты *.dvb , а есть локальные - они внутри зашиты нажми "Embed" и он станет вшитым

[Ольга_DG]

иногда некоторые программисты вешают код на открытие файла это есть и в Excel и в Word. Тут аналогичная ситуация с файлом dwg. это кажется везде предусмотрено где есть встроенный VBA. могу прислать файлик кому-нить на мыло. если не верите увидите!

[hwd]

В таком случае можно не открывать документ, а сразу считывать его Database и уже из него тянуть нужную информацию.
На мыло ничего высылать не нужно - прикрепляйте его к сообщению.

[Ольга_DG]

приведите пример как это следует сделать?

[Дима_]

Выложите сюда пожалуйста такой .dwg файл при открытии которого будет вплывать окно - "Дима_ чайник - учи VB."
p.s. Вложить можно нажав "скрепку".

[hwd]

Сообщение от Ольга_DG приведите пример как это следует сделать?

Тынц.
По вашему вопросу будет интересен фрагмент кода:

Код:

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

...
Database sourceDb = new Database(false, true);
...
// Read the DWG into a side database
        sourceDb.ReadDwgFile(sourceFileName.StringResult,
                            System.IO.FileShare.Read,
                            true,
                            "");

[Ольга_DG]

выкладвыаю файл

[Дима_]

запустил - открылся как обычный файл (попробуйте сами на другой машине).

[Сергей Богатов]

я так понимаю что файлы не "ваши" и здесь Application.Preferences.Files.TemplateDwgPath\ нет этого файла-проекта AcadMirage.dvb ?
Предлагаю создать проектик AcadMirage.dvb по нужному пути Application.Preferences.Files.TemplateDwgPath в нём создать макрос пустышку "MenuMirage"
Он и будет выполняться давая вашему скрипту(макросу) выполнять свою работу