Message 1 of 6
Edit Derived Assembly Part with Code
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I'm trying to include or exclude occurrences from the base assembly on call from the derived assembly part.
It seems i can show the Derived Component Option Enum from each solid/part but I cant change it.
Here is a sample code and a screen-cast also.:
Dim Doc_P As PartDocument = ThisDoc.Document Dim oDoc_Def As ComponentDefinition = Doc_P.ComponentDefinition Dim oAsmDef As AssemblyComponentDefinition Dim oDerAssemblyComp As DerivedAssemblyComponent Dim oDerAssemblyCompDef As DerivedAssemblyDefinition Dim oDerEntity As DerivedAssemblyOccurrence Dim Inclusion As DerivedComponentOptionEnum Dim New_Inclusion As DerivedComponentOptionEnum New_Inclusion = kDerivedIncludeAll oDerAssemblyComp = Doc_P.ComponentDefinition.ReferenceComponents.DerivedAssemblyComponents(1) oDerAssemblyComp.SuppressLinkToFile = False oDerAssemblyCompDef = oDerAssemblyComp.Definition For i = 1 To oDerAssemblyCompDef.Occurrences.Count oDerEntity = oDerAssemblyCompDef.Occurrences.Item(i)'.InclusionOption Inclusion = oDerAssemblyCompDef.Occurrences.Item(i).InclusionOption MessageBox.Show(oDerEntity.Name & vbCr & Inclusion) oDerAssemblyCompDef.Occurrences.Item(i).InclusionOption = kDerivedIncludeAll oDerAssemblyCompDef.Occurrences.Item(i).InclusionOption = 27137 oDerAssemblyCompDef.Occurrences.Item(i).InclusionOption = New_Inclusion MessageBox.Show(oDerEntity.Name & vbCr & Inclusion & vbCr & New_Inclusion) Next i oDerAssemblyComp.SuppressLinkToFile = True InventorVb.DocumentUpdate()