Topic: Out of Memory Exception defining AcadDocument

[slappy]

New to the forum and new to .NET.  Done a little VBA, a little LISP, a little asp.net.  So not so much a stranger to programing.  However .NET is a whole new can of woopin-my-a$$.     :ugly:

This is for ACA 2010 using VS Express 2010. I'm accessing the Autodesk version 18 assemblies and .net 3.5 or 2.0 where applicable.

So here's the dilemma.  I'm porting over a VBA project the "Hard way".  Meaning I'm writing it from scratch.  Essentially it's a batch processing dialog that does a number of things.  The problem however is in iterating through my files.  I keep getting an outofmemoryexception on this line:

Code: [Select]

        Dim acadDoc As New Autodesk.AutoCAD.Interop.AcadDocument   ...modified for clarity.

with in the context of:

Code: [Select]

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Interop
Imports acadDocIM = Autodesk.AutoCAD.Interop.AcadDocument


...code list of file names and process procedure


    Public Sub ProcessDwg(ByVal ThisDwg As String, ByVal processedFile As String, ByVal processSelection As Integer)
        BatcherMainDialog.ActiveForm.Hide()

        Dim acadDoc As New acadDocIM
        acadDoc.Application.Documents.Open(ThisDwg)
        acadDoc = AcadApp.ActiveDocument
        Select Case processSelection
            Case 0
                PurgeBlockMethod("border")  ...do something
        End Select
        acadDoc.SaveAs(processedFile, False, False)
        acadDoc.Close(False, processedFile)

    End Sub

Anyway I know it's something really simple, it's just beyond me at the moment.

Thanks

Slap

[Glenn R]

I'm not surprised.

Although I don't speak VB.NET, it's time for a little lesson:

Q. What does this line return:

Code: [Select]

acadDoc.Application.Documents.Open(ThisDwg)


[Glenn R]

Also, in future, post the context of the called function (ProcessDwg in this case) - I, for one, don't like to guess the calling context and it's more often than not, the cause of the problem.

[jgr]

slappy, sorry, but your code is very confusing

With COM +.NET (i think) this is the way:

Code: [Select]

Dim acadApp As AcadApplication = DirectCast(Application.AcadApplication, AcadApplication)
Dim acadDoc As AcadDocument = acadApp.Documents.Open(ThisDwg)
....
acadDoc.Close

[Kerry]

Also, in future, post the context of the called function (ProcessDwg in this case) - I, for one, don't like to guess the calling context and it's more often than not, the cause of the problem.

In addition :
generally,
in my experience,
insufficient or incomplete information related to problems is the biggest obstacle to producing a solution,

and consequently an incredible time waster for anyone trying to resolve someone elses problem.

[slappy]

Well thanks for the replies and the public correction of my posting procedure...  Did I mention I was new to the forum.  I realize I don't have the experience and/or vocabulary to properly convey the problem I'm experiencing so I will stumble along, and attempt to ignore the Newbie hazing. 

I have searched for solutions before stumbling onto this forum, and the provided code is what I found.

In regards to the calling procedure, I created an isolated class and replaced ALL of the variables with specific information and the error still persisted.  So that lead me to conclude the information I provided was sufficent to identify the problem.

Q. What does this line return:

Code: [Select]

acadDoc.Application.Documents.Open(ThisDwg)


Not sure what your asking.  Do you want a return from VS or is the a syntax incorrect?

slappy, sorry, but your code is very confusing

With COM +.NET (i think) this is the way:

Code: [Select]

Dim acadApp As AcadApplication = DirectCast(Application.AcadApplication, AcadApplication)
Dim acadDoc As AcadDocument = acadApp.Documents.Open(ThisDwg)
....
acadDoc.Close

Thanks for the snippet and apologize for my lack of proper syntax.  Your response will give me some direction.  I will see if I can integrate this code and post back my result

Regards
Slap

[Krushert]

Well thanks for the replies and the public correction of my posting procedure...  Did I mention I was new to the forum.  I realize I don't have the experience and/or vocabulary to properly convey the problem I'm experiencing so I will stumble along, and attempt to ignore the Newbie hazing. 

Meh don't worry about!  We all have our turn(s) in the fire.   

BTW; Welcome to The Swamp!  I will now leave you in capable hands.

[slappy]

Thanks Krushert, I'm feeling the love.

[Glenn R]

Q. What does this line return:

Code: [Select]

acadDoc.Application.Documents.Open(ThisDwg)


Not sure what your asking.  Do you want a return from VS or is the a syntax incorrect?

Neither.

Every line in a computer program is essentially an expression and will evaluate, or return, something. It depends on whether you ignore or assign the 'return' value of the expression.

So, with respect to the above, I was asking if you knew what that line returned, or evaluated to. In this case, it's a chained expression, so looking at the right most method/function, I was actually asking what the 'Open' method/function returned.

This is your clue as to why you're getting the specific error you mentioned.

[Bryco]

acadDoc.Application.Documents.Open(ThisDwg)
place your cursor after Open and hit F1,
this brings up the help menu and you will find under description
"Opens the specified drawing and returns a Document object representing the opened drawing. "
So you need to capture the returned doc.
Dim acadDoc As AcadDocument = acadApp.Documents.Open(ThisDwg)
Here acadDoc is the returned Doc.
Do your mojo on acadDoc.

While net is very frustrating at the beginning, it doesn't get much better.

[It's Alive!]

While net is very frustrating at the beginning, it doesn't get much better.

 

[Chuck Gabriel]

That reminds me of something an old boss used to say.

We're slow, and we make a lot of mistakes, but we're expensive.

[slappy]

Code: [Select]

Dim acadDoc As AcadDocument = acadApp.Documents.Open(ThisDwg)

Thanks Bryco, that was the trick...  I knew it was simple.

While net is very frustrating at the beginning, it doesn't get much better.

That's encouraging.