01-26-2015
09:27 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-26-2015
09:27 AM
hi ![]()
Ithink your looking for that
oCompDef = ThisDoc.Document.ComponentDefinition oAssyOccurrences = oCompDef.Occurrences Dim oOccurrence As ComponentOccurrence Dim oSubOccurrence1 As ComponentOccurrence For Each oOccurrence In oAssyOccurrences If oOccurrence.DefinitionDocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then iLogicVb.RunRule(oOccurrence.Name,"YOURRULENAME") For Each oSubOccurrence1 In oOccurrence.SubOccurrences If oSubOccurrence1.DefinitionDocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then iLogicVb.RunRule(oSubOccurrence1.Name,"YOURRULENAME") Next End If Next End If iLogicVb.UpdateWhenDone = True