Dear Expert,
Please help me to Get dimensions of ifeatures in Derived Solid to Derived Part.ipt. Please the picture below:
Public Sub Tenon(openDocPartSub As Inventor.PartDocument)
Dim oPartDef As Inventor.ComponentDefinition
oPartDef = openDocPartSub.ComponentDefinition
Dim oDerivedPartComp As DerivedPartComponent
oDerivedPartComp = oPartDef.ReferenceComponents.DerivedPartComponents(1)
Dim oDerivedPartDef As DerivedPartUniformScaleDef
oDerivedPartDef = oDerivedPartComp.Definition
Dim oDerivedPartPara As Inventor.DerivedPartEntity
'For Each oDerivedPartPara In oDerivedPartDef.Parameters
' If (TypeOf oDerivedPartPara.ReferencedEntity Is Parameter) Then
' Dim oParameter As Parameter
' oParameter = oDerivedPartPara.ReferencedEntity
' MsgBox("Derived Parameter: " & oParameter.Name)
' 'oDerivedEntity.IncludeEntity = False
' End If
'Next
oDerivedPartComp.Definition = oDerivedPartDef
End Sub
Many thanks
