Method "Viewports" of object "IAxDbDocument" failed when saving via AxDBlib

[a.ghensi689507]

Hi all,
I'm trying to buld a macro to iterate through many files and change a typo (we are working for a canadian client and some of my colleagues are not so good with english, they wrote "LENGHT" in a table).
I'm using AxDBlib with Autocad2010, and here's the code (something that I have adapded from an excel macro found on this forum):

Sub FixTypo()
    Dim FileSystem As Object
    Dim folderpath As String
    Dim SubFolder
    Dim SubSubFolder
    Dim currentPour As String
    Dim modelfile As String
    Dim AcadDbx As AxDbDocument
    Dim AcadObj As AcadObject
    Dim AcadTxt As AcadText
    
    folderpath = "D:\temp\"
    Set FileSystem = CreateObject("Scripting.FileSystemObject")
    Set AcadDbx = Application.GetInterfaceObject("ObjectDBX.AxDbDocument.18")
    For Each SubFolder In FileSystem.GetFolder(folderpath).SubFolders
        If SubFolder.Name <> "Xref" And SubFolder.Name <> "Xstamps" And SubFolder.Name <> "Publish" And SubFolder.Name <> "@ Superseded" And SubFolder.Name <> "0000_CM" And SubFolder.Name <> "1111_AR" Then
            For Each SubSubFolder In SubFolder.SubFolders
                currentPour = SubSubFolder.Name
                modelfile = SubSubFolder.Path & "\" & "MDL_A-" & currentPour & "-CV-D50-001.dwg"
                If Dir(modelfile) <> "" Then
                    AcadDbx.Open (modelfile)
                    If Err.Number = 0 And AcadDbx.Name <> "" Then
                        For Each AcadObj In AcadDbx.ModelSpace
                            If TypeOf AcadObj Is AcadText Then
                                Set AcadTxt = AcadObj
                                If InStr(AcadTxt.TextString, "LENGHT") <> 0 Then
                                    AcadTxt.TextString = Replace(AcadTxt.TextString, "LENGHT", "LENGTH")
                                    AcadDbx.Save
                                    Exit For
                                End If
                            End If
                        Next AcadObj
                        Set AcadObj = Nothing
                        Set AcadTxt = Nothing
                    End If
                End If
            Next SubSubFolder
        End If
    Next SubFolder
    Set AcadDbx = Nothing
End Sub

(the subfolder and subsubfolder thing is because of our storage system)

When I run it it stops at "AcadDbx.Save" throwing thew error

Method "Viewports" of object "IAxDbDocument" failed when saving via AxDBlib

I can't understand why.
Does anyone have a clue?

[Ed Jobe]

I haven't tested with recent releases, but there used to be a problem with the Save method (I don't remember what the issue was). The solution was to use the SaveAs method and overwrite the same file. You might give that a try.

[RICVBA]

Does it throw that error at the very first iteration of the foreach loop?

Bytheway I recentley could compare the performance of a VBA macro looping through many files both using Dbx and "normal" Autocad application open&close file. Against all my expectations they performed the same, provided I set application "Visible" property to "False".
So shouldn't you succeed in fixing that dbx problem, you might switch to opening Autocad application.

[BlackBox]

Does it throw that error at the very first iteration of the foreach loop?

Bytheway I recentley could compare the performance of a VBA macro looping through many files both using Dbx and "normal" Autocad application open&close file. Against all my expectations they performed the same, provided I set application "Visible" property to "False".
So shouldn't you succeed in fixing that dbx problem, you might switch to opening Autocad application.

I haven't seen your code, but if you're getting similar performance between ActiveX & .NET, then that's likely due to using DBX, or opening the drawing in the Editor, in lieu of ReadDwgFile(), or Core Console. Feel free to post a thread in the .NET forum to discuss, if you like.

Cheers

[RICVBA]

No BB
those codes of mine where both VBA ones
one accessing the drawing as AxDbDocument, so:

ThisDrawing = Acad.GetInterfaceObject("ObjectDBX.AxDbDocument.18")
ThisDrawing.Open FilePath & "\" & FileName"

and the other accessing it via Autocad editor:

Set Acad = GetObject(, "AutoCAD.Application")
Set ThisDrawing = Acad.Documents.Open(FilePath & FileName)

as for NET, I'm still stuck. but with high hopes!

[a.ghensi689507]

Thanks to all!
SaveAs did the trick, now the macro runs without problems.

I'm running a similar macro, but starting from excel, over 750 files to extract all the texts, some mtexts and some mleader, and it takes about 20 seconds per dwg.
I used adbxlib because in this and other forums many people stated that it's faster than the normal open&close, and I struggled few days to make it work. Now you tell me the performance are similar

maybe it's time to switch to .NET, since the drawings are piling up quickly (they will be about 2000dwgs at the end of this project) and I plan to start building some inventor addins to help the modeling process.. if only my work pc could handle it!

[RICVBA]

20 seconds per dwg is a lot of time, indeed.
so, before you get definitely caught by Lord Fener (I and BB know what I mean!) I'd suggest one VBA alternative: using selectionsets
but to this end you must abandon adbxlib and stick to the "normal open&close"

if you post your VBA code I'll gladly try and help you to make it much faster

[BlackBox]

No BB
those codes of mine where both VBA ones

No worries; my misunderstanding.

SaveAs did the trick, now the macro runs without problems.

I'm running a similar macro, but starting from excel, over 750 files to extract all the texts, some mtexts and some mleader, and it takes about 20 seconds per dwg.
I used adbxlib because in this and other forums many people stated that it's faster than the normal open&close, and I struggled few days to make it work. Now you tell me the performance are similar

maybe it's time to switch to .NET, since the drawings are piling up quickly (they will be about 2000dwgs at the end of this project) and I plan to start building some inventor addins to help the modeling process.. if only my work pc could handle it!

Glad you got it sorted!

I'd love to be able to test a .NET equivalent on a copy of the same data set, given the performance gains shown here. :geek:

VBA isn't going anywhere, but it's also not evolving at the same rate as .NET, nor is it currently just a slower equivalent. .NET just has more capability, and can better meet the ever-changing needs of most... But that doesn't necessarily mean it's the best tool for the job either, given one's own proficiencies, availability of required applications, internal policies, and ultimately your ability to develop, distribute, and maintain the resultant apps.

Despite strongly encouraging any who have a firm grasp on ActiveX to begin the long process of learning .NET, that doesn't mean you need to give up VBA, Visual LISP, etc. - you're adding to your skill sets, not necessarily replacing one.

Cheers

[BlackBox]

so, before you get definitely caught by Lord Fener (I and BB know what I mean!) ....

Here's a general translation for those that do not speak Italian, from a recent thread.

Cheers

[RICVBA]

I followed the links BB gave in its post #8 and landed at "Through the Interface" Keans's "Accessing DWG files not open in the AutoCAD editor using .NET" post
form where I boldly copied and pasted his "ExtractObjects" C# project and had it run, oddly, at my first attempt.

Still through those posts I thought to understand that using side database would avoid using transaction, too. and that this latter would be almost necessary to achieve the "geek" performance results. But in Kean's code I see Transaction using right after database loading.

is it possible to avoid it?