topic Re: Inventor crashes after oDoc.Close (VBA) in Inventor Programming Forum

Inventor crashes after oDoc.Close (VBA)

dominiek_vanwest — Fri, 21 Aug 2015 08:34:58 GMT

Hi,

I have the following VBA code (to Update, Save, CheckIn and Close the file):

Public Sub UpdateSaveCheckinClose()
    Dim oDoc As Document
    Set oDoc = ThisApplication.ActiveDocument
    oDoc.Update
    oDoc.Save2 (True)
    
    Dim oCtrlDef As ControlDefinition
    Set oCtrlDef = ThisApplication.CommandManager.ControlDefinitions("VaultCheckinTop")
    oCtrlDef.Execute
    
    oDoc.Close
End Sub

But Inventor crashes right after oDoc.Close.

However, if I add the following after oDoc.close, I have no problem.

MsgBox ("Document closed")

Why does Inventor crashes without the MsgBox?

And how can I solve this problem?

Thanks in advance,

Dominiek

Re: Inventor crashes after oDoc.Close (VBA)

rogmitch — Fri, 21 Aug 2015 23:26:20 GMT

It is difficult to diagnose a crash but it could be a timing issue. You could try adding a DoEvents statment after the Execute or/and Close commands. Occasionally I have seen this help in my code.

Roger Mitchell

Re: Inventor crashes after oDoc.Close (VBA)

dominiek_vanwest — Mon, 24 Aug 2015 07:29:10 GMT

@rogmitch wrote:
It is difficult to diagnose a crash but it could be a timing issue. You could try adding a DoEvents statment after the Execute or/and Close commands. Occasionally I have seen this help in my code.

Roger Mitchell

And how would that look exactly? I haven't worked with the DoEvents statement yet.

Re: Inventor crashes after oDoc.Close (VBA)

rogmitch — Mon, 24 Aug 2015 13:40:28 GMT

Just as an example from my code:

Set oProjectionEntity = osketch.AddByProjectingEntity(oPartCompDef.WorkAxes.Item(3)) 'Z axis
oProjectionEntity.Construction = True
DoEvents

more code...

Re: Inventor crashes after oDoc.Close (VBA)

dominiek_vanwest — Mon, 24 Aug 2015 14:48:35 GMT

I put the DoEvents before oDoc.Close and it works!

I haven't got a crash anymore.

Thanks!

What does the DoEvents statement actually do?

Re: Inventor crashes after oDoc.Close (VBA)

rogmitch — Mon, 24 Aug 2015 16:58:59 GMT

Essentially it forces all Window messages that are queued to be processed while the current thread is suspended.

This means that any process that is necessary to ensure the correct behaviour of the current thread willl now be finished and hence the current thread can continue to completion without crashing.

Roger Mitchell