CATIA VBA：在新窗口打开子装配教程

Sub CATMain()
    Dim InputObjectType(0)
    InputObjectType(0) = "Product"
    Dim oProductDoc
    Set oProductDoc = CATIA.ActiveDocument
    Dim oSelection
    Set oSelection = oProductDoc.Selection
    oSelection.Clear
    Dim aSel
    aSel = oSelection.SelectElement2(InputObjectType, "Select the part to open in a new window", False)
    Dim oProduct
    Set oProduct = oSelection.FindObject("CATIAProduct" )
    Dim prodToOpen as Document
    Set prodToOpen = oProduct.ReferenceProduct.Parent
    prodToOpen.NewWindow 'This is openeing the main product but should open the part?'
    oSelection.Clear
End Sub

Dim oProduct
Set oProduct = oSelection.FindObject("CATIAProduct" )

Dim prodToOpen as Document
Set prodToOpen = oProduct.ReferenceProduct.Parent

prodToOpen.NewWindow 'This is openeing the main product but should open the part?

oSelection.Clear

If aSel = "Normal" Then
CATIA.StartCommand "Open in New Window"
Else
'Take some other action...
End If