[Ольга_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

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

[hwd]

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

У меня при обычном открытии файла (двойной клик мышью по файлу) появилось окошко:



Если нажать первую кнопку - то макросы не будут загружены в память, но в редакторе VBA они присутствуют.
Если нажать последнюю - макросы не будут считаны из dwg-файла и в редакторе VBA будет чисто (никакого кода не будет).

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

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

наверное в настройках безопасности стоит "никогда не запускать макросы"

или наоборот "никогда не спрашивать" и работаете вы в ТЭПе и макрос нормально отрабатывет

[Ольга_DG]

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

В в какой версии AutoCAD открывали файл? Если в 2010,2011 или2012 то проверьте установку vba модуля, т.к. он ставится отдельно


ДЛЯ hwd:
я не хочу чтобы это окно загружалось. Безопастность макросов я уже настраивала через меню Сервис-Макрос-Макросы-Опции

[Дима_]

Семен Семеный - у меня на 2010 и VBA-то не установлен - сейчас скачаю отпишусь.
p.s. Ольга Семен Семеныч - это я не Вам - когда писал Вашего поста еще не видел.

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

а моё предложение? см http://forum.dwg.ru/showpost.php?p=754619&postcount=20

[Ольга_DG]

Сообщение от Сергей Богатов а моё предложение? см http://forum.dwg.ru/showpost.php?p=754619&postcount=20

Это не подходит т.к. в другом файле будет другой код. и еще мне не надо его выполнять, у меня свой запущен и должен выполняться. я же писала: файлов тысячи штук я с них списываю информация в xml-файл.

[hwd]

Ольга_DG, используйте способ, указанный мною выше - проверено, работает.
На примере вашего файла протестировал:

Код:

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

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.EditorInput;

namespace ClassLibrary1 {
    public class Class1 : IExtensionApplication  {
        public void Initialize() {
            Document dwg = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument;
            Database db = dwg.Database;
            Editor ed = dwg.Editor;
            Database sourceDb = new Database(false, true);
            string externDwgName = @"D:\Мусор\10191_085_r2.dwg";
            sourceDb.ReadDwgFile(externDwgName, System.IO.FileShare.Read, true, "");

            ed.WriteMessage(string.Format("Считываем имена текстовых стилей, имеющихся в файле \"{0}\":\n", externDwgName));

            using (Transaction tr = sourceDb.TransactionManager.StartTransaction()) {

                TextStyleTable tsTable = (TextStyleTable) tr.GetObject(sourceDb.TextStyleTableId, OpenMode.ForRead);

                foreach (ObjectId item in tsTable) {
                    TextStyleTableRecord style = (TextStyleTableRecord) tr.GetObject(item, OpenMode.ForRead);
                    ed.WriteMessage(string.Format("{0}\n", style.Name));
                }
            }
        }

        public void Terminate() {
            //throw new NotImplementedException();
        }
    }
}

Результат:



Как видим - проблем не возникает.

п.с.

я не хочу чтобы это окно загружалось. Безопастность макросов я уже настраивала через меню Сервис-Макрос-Макросы-Опции

Это окно открывается, когда я обычным образом открываю файл (в проводнике мышкой двойным кликом). А то, что я показал в коде - извлекает информацию из нужного файла без открытия этих окон. И не важно, будь он хоть весь обвешан макросами VBA - они не запускаются при таком способе...

[Дима_]

Offtop: мда-уж запускает (спрашивает запускать или нет) - удалю-ка я нафиг обратно этот VBA раз сам в нем чайник - нефиг и воду мутить.

[hwd]

Сообщение от Дима_ Offtop: мда-уж запускает (спрашивает запускать или нет) - удалю-ка я нафиг обратно этот VBA раз сам в нем чайник - нефиг и воду мутить.

Имхо, лучше оставить. Можно будет отловить "пряники", которые у тебя при отладке кода не будут проявляться (т.к. нет VBA), но по факту проявятся у юзеров, у которых VBA установлен...

[Ольга_DG]

hwd, можете помочь с кодом на VBA

[hwd]

Сообщение от Ольга_DG hwd, можете помочь с кодом на VBA

На VBA не пишу, но всё равно выкладывайте свой вариант - думаю, что найдутся те, кто пишет и сможет показать, как выполнить то, что я показал на C#. Попрошу Oleg ~J~ глянуть - возможно он поможет.

[Ольга_DG]

спасибо.
привожу свой код на открытие этих файлов

Код:

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

 
On Error GoTo metka1        
Documents.Open mass_dwg(k), True
.
.
.
metka1:

    'If Err <> 0 Then
    Err.Clear
    FileNameErr = mass_dwg(k)
    Open PathFilesXML & "\dwg_err.txt" For Output As #2
    Print #2, FileNameErr
    Close #2
    'End If
              

можно попробовать другой отладчик ошибок
еще в объектной модели AutoCAD есть в Application свойство VBE но про него мало что известно. если что то знаете напишите, пожалуйста.

[VVA]

Посмотри, может это подойдет
DBXremVBA/DBXscanVBA - batch remove VBA macros from DWG files

[hwd]

Сообщение от VVA Посмотри, может это подойдет DBXremVBA/DBXscanVBA - batch remove VBA macros from DWG files

Насколько я понял автора, ей не нужно убивать VBA-код, поскольку он может потом кому-то понадобиться. Её нужно просто программно прочитать информацию из кучи файлов. Поэтому я и рекомендовал найти в VBA метод, аналогичный экземплярному Database.ReadDwgFile(...) - в этом случае наличие макросов не помеха.

[Дима_]

Сообщение от hwd Её нужно просто программно прочитать информацию из кучи файлов.

Как вариант можно попробывать вставлять файл как ссылку (блок) в текущий документ и лазить по нему (надеюсь так он запускатся не будет).

[hwd]

Сообщение от Дима_ Как вариант можно попробывать вставлять файл как ссылку (блок) в текущий документ и лазить по нему (надеюсь так он запускатся не будет).

Offtop: И всё таки как хорошо, что я не пишу в AutoCAD на VBA - лишний раз убеждаюсь...

[Олег (jr.)]

Сообщение от Ольга_DG можно попробовать другой отладчик ошибок

Тут не это нужно скорее всего
Если тебе просто надо считать данные со всей папки более логично использовать ObjectDBX а приведенный код можно просто вставить в цикл прохода по всем файлам
Поищи на форуме насчет ObjectDBX
Можешь попробовать такпой код (лучше на резервной копии небольшого
количества файлов)

Код:

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

Option Explicit

'' Require References to:
'' AutoCAD/ObjectDBX Common 17.0 Type Library (for A2007-2009) AutoCAD/ObjectDBX Common 18.x for A2009+
'' Microsoft Scripting Runtime

Public Function BrowseForFolderF(ByVal msg As String) As String
     Dim oBrowser, folderObj, folderAcpt As Object
     Dim folderStr As String

     Set oBrowser = ThisDrawing.Application.GetInterfaceObject("Shell.Application")
     Set folderAcpt = oBrowser.BrowseForFolder(vbOKOnly, msg, vbDefaultButton3, 0)

     With folderAcpt
          Set folderObj = .Self
          folderStr = folderObj.Path
     End With
     Set folderObj = Nothing
     Set folderAcpt = Nothing
     Set oBrowser = Nothing
     BrowseForFolderF = folderStr

End Function

Public Function CheckFolder(ByVal strPath As String) As Variant
     Dim objFolder     ''As Scripting.Folder
     Dim objFile     ''As Scripting.File
     Dim objSubdirs     ''As Scripting.Folders
     Dim objLoopFolder     ''As Scripting.Folder
     Dim varFs() As Variant
     Dim m_objFSO, n, m_lngFileCount

     Set m_objFSO = CreateObject("Scripting.FileSystemObject")
     Set objFolder = m_objFSO.GetFolder(strPath)
     '
     ' Check files in this directory
     '
     n = -1
     For Each objFile In objFolder.Files
          If UCase$(Right$(objFile.ShortPath, 4)) = ".DWG" Then
               m_lngFileCount = m_lngFileCount + 1
               n = n + 1
               ReDim Preserve varFs(n)
               varFs(n) = objFile.Path
          End If
     Next objFile

     ' Loop through all subdirectories and
     ' do the same thing.
     '
     Set objSubdirs = objFolder.SubFolders
     For Each objLoopFolder In objSubdirs
          CheckFolder objLoopFolder.Path
     Next objLoopFolder

     Set objSubdirs = Nothing
     Set objFolder = Nothing
     CheckFolder = varFs
End Function

Private Sub CreateCSVFile(fso As Variant, strFname As String)
     Dim tf
     If Not fso.FileExists(strFname) Then
          Set tf = fso.CreateTextFile(strFname, True)
          Set tf = Nothing
     End If
End Sub

Private Sub WriteToCSVFile(strFname As String, strData As String)
     Open strFname For Append As #1
     Write #1, strData
     Close #1
End Sub

Sub BatchReadTitleBlock()
     Dim oblkRef As AcadBlockReference
     Dim objFnd As Object
     Dim indx As Integer
     Dim iFiles() As Variant
     Dim m_objFSO
     Dim fold, DwgName, cnt As Integer, nm As String

     fold = BrowseForFolderF("Select Folder to Read Data from")
     Set m_objFSO = CreateObject("Scripting.FileSystemObject")

     iFiles = CheckFolder(fold)

     CreateCSVFile m_objFSO, "C:\Temp\Test.csv"     '// CHANGE TEXT FILE NAME HERE

     Dim oDbx As New AxDbDocument

     Set oDbx = GetInterfaceObject("ObjectDBX.AxDbDocument.17")     '' or 16 for A2005-6

     On Error Resume Next
     For indx = LBound(iFiles) To UBound(iFiles)
          DwgName = iFiles(indx)
          oDbx.Open DwgName

'/*----------------- ВСТАВЬ СВОЙ КОД ВМЕСТО ЭТОГО БЛОКА: -----------------
          For Each objFnd In oDbx.PaperSpace
               If TypeOf objFnd Is AcadBlockReference Then
                    Set oblkRef = objFnd
                    If StrComp(UCase(oblkRef.Name), "TITLEBLOCK", 1) = 0 Then '// CHANGE BLOCK NAME HERE
                         Exit For
                    End If
               End If
          Next objFnd

          With oblkRef
               Dim atts As Variant
               Dim strData As String
               strData = .Name
               atts = .GetAttributes
               For i = 0 To UBound(atts)
                    strData = strData & "," & atts(i).TextString
               Next i
          End With

          WriteToCSVFile "C:\Temp\Test.csv", strData     '// CHANGE TEXT FILE NAME HERE
          
'-------------------------------------------------------------------*/
          Set oDbx = Nothing

     Next indx

End Sub

[VVA]

Сообщение от hwd Насколько я понял автора, ей не нужно убивать VBA-код, поскольку он может потом кому-то понадобиться.

На крайний случай можно собрать информацию на копии dwg файлов с убитым VBA кодом

[hwd]

Сообщение от VVA На крайний случай можно собрать информацию на копии dwg файлов с убитым VBA кодом

Похоже, что для автора это будет самый быстрый вариант...

[gomer]

ручки за такое поотбивал... Афтару... либо во всех файлах меняйте переменную bLoad = True на bLoad = false
либо попробуйте убивать событие чуть раньше... например во время EndOpen