hi Im trying to create view rep for each member in frame through vba or inventor rules. i have tried but assembly occurrence only created. frames are not detected in assembly occurrence .
image is the sample snips of frames, need your help guys.
Frame members View Reps
Accepted solution
I reworked your original and this will give the following outcome.
'create a design view representation for each unique part in the assembly
'define current document
Dim oOpenDoc As Document = ThisDoc.Document
Dim oTrans As Transaction = ThisApplication.TransactionManager.StartTransaction(oOpenDoc,"Create View Rep's")
Try
'set a reference to the assembly component definintion.
'this assumes an assembly document is open.
Dim oAsmCompDef As AssemblyComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition
'look at all of the components in the assembly
Dim oCompDef As Inventor.ComponentDefinition = oOpenDoc.ComponentDefinition
'define the first level components collection
Dim oCompOcc As Inventor.ComponentOccurrence
'define view rep
Dim oViewRep As DesignViewRepresentation
'define view reps
Dim oViewReps As DesignViewRepresentations = oAsmCompDef.RepresentationsManager.DesignViewRepresentations
'define an arraylist to hold the list of view rep names
Dim NameList As New ArrayList()
'Look at the view reps in the assembly
For Each oViewRep In oViewReps
'set the list of names to the array list
NameList.Add(oViewRep.Name)
Next
'check for a Default view rep and create it if not found
If Not NameList.Contains("Default") Then
'create Default view rep
oViewRep = oViewReps.Add("Default")
oViewRep.ShowAll
oViewRep.Activate
End If
'zoom all
ThisApplication.CommandManager.ControlDefinitions.Item("AppIsometricViewCmd").Execute
'look at all of the unique parts in the assembly
For Each oRefDoc As Document In oOpenDoc.AllReferencedDocuments
If oCompDef.Occurrences.AllReferencedOccurrences(oRefDoc).Count > 0 Then 'avoid to create a view rep for base part of derived parts
If Not oRefDoc.componentdefinition.bomstructure = BOMStructureEnum.kPhantomBOMStructure Then
If oRefDoc.DocumentType = 12290 Then '12290 is the part document enumurator
Dim sShortName As String = System.IO.Path.GetFileNameWithoutExtension(oRefDoc.FullFileName)
'check to see if the arraylist contains the desired view rep
If Not NameList.Contains(sShortName) Then
'create new View Rep
oViewRep = oViewReps.Add(sShortName)
ElseIf NameList.Contains(sShortName) Then
'reference existing View Rep
oViewRep = oViewReps.Item(sShortName)
End If
oViewRep.Activate
oViewRep.Locked = False
Dim bSkip As Boolean = False
'look at all of the occurences
For Each oCompOcc In oCompDef.Occurrences.AllLeafOccurrences
'locate the colon position in the occurence name
Dim oCompOccPos As Integer = InStrRev(oCompOcc.Name, ":")
If oCompOccPos<2 Then oCompOccPos = Len(oCompOcc.Name)
'set occurence name to everything left of the colon
Dim oOccName As String = Left(oCompOcc.Name, oCompOccPos -1)
'set visible if name matches first occurence
'If oCompOcc.Name = ShortName & ":1" And bSkip = False Then
If System.IO.Path.GetFileNameWithoutExtension(oCompOcc.ReferencedDocumentDescriptor.ReferencedFileDescriptor.FullFileName) = sShortName And bSkip=False Then
oCompOcc.Visible = True
ThisApplication.ActiveView.Update()
bSkip = True 'even if there is more than one occurrence named "xyz:1" in different subassys, we want only one occurence in our view rep
Else
oCompOcc.Visible = False
ThisApplication.ActiveView.Update()
End If
Next
oViewRep.Locked = True
End If
End If
End If
Next
'set Default View Rep active
oViewReps.Item("Default").Activate
oTrans.End
Catch ex As Exception
MsgBox(ex.StackTrace)'Message)
oTrans.Abort
End Try
Here is a shorter version that is working in a more target way to find only frame generator parts.
Dim asmDoc As AssemblyDocument = ThisDoc.Document
Dim trans As Transaction = ThisApplication.TransactionManager.StartTransaction(asmDoc, "FG View Reps")
Dim viewReps As DesignViewRepresentations = asmDoc.ComponentDefinition.RepresentationsManager.DesignViewRepresentations
Dim viewRep As DesignViewRepresentation
'Traverse all referenced documents
For Each doc As Document In asmDoc.AllReferencedDocuments
If doc.DocumentInterests.HasInterest("{AC211AE0-A7A5-4589-916D-81C529DA6D17}") _' Frame generator component
AndAlso doc.DocumentType = DocumentTypeEnum.kPartDocumentObject _ 'Part
AndAlso doc.IsModifiable _'Not read only CC/Library document
AndAlso Not doc.DocumentInterests.HasInterest("SkeletonDoc") _'Not reference skeleton
AndAlso asmDoc.ComponentDefinition.Occurrences.AllReferencedOccurrences(doc).Count > 0 _'Exists in assembly (not derived base component)
AndAlso Not doc.ComponentDefinition.Bomstructure = BOMStructureEnum.kPhantomBOMStructure Then
Dim occ As ComponentOccurrence = asmDoc.ComponentDefinition.Occurrences.AllReferencedOccurrences(doc).Item(1)
Dim fileName As String = System.IO.Path.GetFileNameWithoutExtension(doc.FullFileName)
'Select/Create view rep
Try
viewRep = viewReps(fileName)
Catch
viewRep = viewReps.Add(fileName)
End Try
viewRep.Activate
viewRep.Locked = False
viewRep.HideAll
occ.Visible = True
viewRep.Locked = True
End If
Next
'Create view rep
Try
viewRep = viewReps("Default")
Catch
viewRep = viewReps.Add("Default")
viewRep.ShowAll
End Try
viewRep.Activate
viewRep.Locked = True
trans.End
