API & derived part

[Jef_E]

Hi there,

I'm trying to build a skeleton modeling tool, but i'm kinda stuck. I have a 'Master' part that creates sketches when required. After this i would like to create a new part (which is working) & then create a derived part (which is also working). But now i want to select not all sketches to derive but only a few based on the sketch name.

For now i have this: Create part, Set the derived component, Create the derived component.

        Dim oProjectMgr As DesignProjectManager = oInvApp.DesignProjectManager
        Dim oProject As DesignProject = oProjectMgr.ActiveDesignProject
        Dim oTemplatesPath As String = oProject.TemplatesPath

        Dim oNewDoc As PartDocument = oInvApp.Documents.Add(DocumentTypeEnum.kPartDocumentObject, oTemplatesPath & "\Standard.ipt", True)

        Dim oDerivedPartDef As DerivedPartUniformScaleDef
        oDerivedPartDef = oNewDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents.CreateUniformScaleDef(oMasterLoc)
        oDerivedPartDef.ScaleFactor = 1
        oDerivedPartDef.ExcludeAll()
        oDerivedPartDef.UseColorOverridesFromSource = False

        Call oNewDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents.Add(oDerivedPartDef)

So for my settings i chose .ExcludeAll to eliminate all unwanted sketches.

But now it needs to add Sketch1 & Sketch2 for example and also Param_A & Param_B

But i think if i know howto derive the sketches i can also figure out the parameters.

Any ideas?

[MechMachineMan]

Withn the Derived Part Transform Definition object, there is a Parameters Property that contains the Derived Part Entities Object. That should be a start.

[Jef_E · Accepted solution]

This works for, found it on the mod the machine site i think!

        Dim oDerivedComp As DerivedPartComponent = oNewDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents(1)
        oDerivedPartDef = oDerivedComp.Definition

        Dim oDerEntity As DerivedPartEntity
        For Each oDerEntity In oDerivedPartDef.Parameters
            If oDerEntity.ReferencedEntity.Name = "C02_t" Then
                oDerEntity.IncludeEntity = True
            End If
        Next

[kevin_gauthierLLF3A]

What is oMasterLoc?

[kevin_gauthierLLF3A]

What is "oMasterLoc"?