Get Sub Type Property of IPT file when I have a "IDW" file open

[isocam]

Can anybody help???

I have a "IDW" file open on screen containing a part "IPT".

How, using Inventor VBA, do I get the "file sub type property" of the "IPT" File (eg Sheet Metal) when I am in the "IDW" file.

Many thanks in advance!!!

IsoCAM

[Anonymous]

Public Sub Part_Type()
    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    Dim oSheet As Sheet
    Set oSheet = oDoc.ActiveSheet
    
    Dim oPart As PartDocument
    Set oPart = oSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument
    
    If oPart.DocumentSubType.DocumentSubTypeID = "{4D29B490-49B2-11D0-93C3-7E0706000000}" Then
        MsgBox ("This is a normal Part document")
    ElseIf oPart.DocumentSubType.DocumentSubTypeID = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
        MsgBox ("This is a Sheet metal Part document")
    End If
End Sub