Create derive file from active assembly or active part

[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 this error.

Thanks

-karthik

[HermJan.Otterman]

this will only work with an assembly, because the say that the active document is an assembly...

the last line is missing "= true" or "= false"

maybe you allso need to delete the call... I tested it in VB.net, not in VBA...

but the line  Call oDerAsm.SuppressLinkToFile  gives or sets a boolean

so:

oDerAsm.SuppressLinkToFile = False