Open model from drawing [VBA]

[Anonymous]

Hi All,

Simply I need to open the model (ipt/iam)from the drawing with VBA

Public Sub Test_Click()

Dim oDocument As Inventor.DrawingDocument
    Set oDocument = ThisApplication.ActiveDocument

    ThisApplication.Documents.Open(ThisDrawing.ModelDocument.FullFileName)
     
End Sub

Could any one help my with the simple soution ? The code abowe dosent work 

[MechMachineMan]

Dim oDwgDoc As DrawingDocument = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Dim oDrawingView As DrawingView
Dim oModelDoc As Document

For Each oSheet In oDwgDoc.Sheets
oSheet.Activate
oDrawingView = oSheet.DrawingViews.Item(1)
oModelDoc = oDrawingView.ReferencedDocumentDescriptor.ReferencedDocument
ThisApplication.Documents.Open(oModelDoc.FullDocumentName, True) ' False for invisbly opened


Next

[Anonymous]

Hi 

Thank you for the help...but i am getting the error:

[MechMachineMan]

Hmmm. Not at clue. It works perfectly for me just like that inside of inventor.

It could be because it is written in vb.net instead of vba, so it might be missing Call in front of the last line.

[Anonymous]

Yes, it works as Ilogic rule (VB.Net) but I need this for my macro so i need this in VBA.....

[MechMachineMan]

And that's where you get to have fun with it 🙂 I'm clueless as to how vba
would be written different

[Anonymous · Accepted solution]

Ok i didi it 🙂

Dim oDwgDoc As DrawingDocument
    Set oDwgDoc = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Dim oDrawingView As DrawingView
Dim oModelDoc As Document

For Each oSheet In oDwgDoc.Sheets
oSheet.Activate
Set oDrawingView = oSheet.DrawingViews.Item(1)
Set oModelDoc = oDrawingView.ReferencedDocumentDescriptor.ReferencedDocument
Call ThisApplication.Documents.Open(oModelDoc.FullDocumentName, True) ' False for invisbly opened
Next

 And it works 🙂

Thanks for help

[MechMachineMan]

Pretty Simple, so it was just adding "Set" And "Call" to convert it?

[Anonymous]

Yes 🙂