I would lyk to create Derive component from active assembly or active partfile

[k14348]

Sub CreateDerivedPart()

    Dim oAsmDoc As AssemblyDocument
    Set oAsmDoc = ThisApplication.ActiveDocument

    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.Documents.Add(kPartDocumentObject, "C:\Users\Public\Documents\Autodesk\Inventor 2015\Templates\English\Standard (in).ipt", True)
    
    Dim oPartDef As PartComponentDefinition
    Set oPartDef = oPartDoc.ComponentDefinition
    
    Dim oRefComp As ReferenceComponents
    Set oRefComp = oPartDef.ReferenceComponents
    
    Dim oDerAsmComp As DerivedAssemblyDefinition
    Set oDerAsmComp = oRefComp.DerivedAssemblyComponents.CreateDefinition(oAsmDoc.FullDocumentName)
    
    
    oDerAsmComp.DeriveStyle = kDeriveAsMultipleBodies
    oDerAsmComp.IncludeAllTopLevelWorkFeatures = kDerivedExcludeAll
    oDerAsmComp.IncludeAllTopLevelSketches = kDerivedExcludeAll
    oDerAsmComp.IncludeAllTopLevelParameters = kDerivedExcludeAll
    oDerAsmComp.IncludeAllTopLeveliMateDefinitions = kDerivedExcludeAll
    
    oDerAsmComp.DeriveStyle = kDeriveAsSingleBodyNoSeams
    
    Call oDerAsmComp.SetHolePatchingOptions(kDerivedPatchNone)
    Call oDerAsmComp.SetRemoveByVisibilityOptions(kDerivedRemoveNone)
    
    Dim oDerAsm As DerivedAssemblyComponent
    Set oDerAsm = oPartDoc.ComponentDefinition.ReferenceComponents.DerivedAssemblyComponents.Add(oDerAsmComp)
    
    Call oDerAsm.SuppressLinkToFile
    
End Sub

Please help me to solve error.

Thanks

-karthik

[HermJan.Otterman]

better remove this one, because it is the same as the other question...