CAD tip # 9264:

iLogic kód pro rozložení pole komponent v Inventoru.

  
  
Sub Main()  
Dim oDoc As AssemblyDocument  
oDoc = ThisApplication.ActiveDocument  
 
Dim oPattern As OccurrencePattern  
oPattern = GetPattern(oDoc)  
If oPattern Is Nothing Then  
MsgBox("Nothing for explode")  
Return  
End If  
 
Dim t As Transaction = ThisApplication.TransactionManager.StartTransaction(ThisDoc.Document, "Pattern explode")  
Try  
'MAKE EACH ELEMENT INDEPENDENT, STARTING AT THE SECOND ELEMENT.  
Dim i As Integer  
'COUNT HOW MANY ELEMENTS ARE IN THE PATTERN, AFTER 2  
For i = 2 To oPattern.OccurrencePatternElements.Count  
'MAKE ALL ELEMENTS INDEPENDANT  
oPattern.OccurrencePatternElements.Item(i).Independent = True  
 
Next  
'DELETE THE PATTERN, LEAVING ONLY THE INDEPENDENT COPIES AND THE ORIGINAL ELEMENT  
oPattern.Delete()  
t.End()  
Catch ex As Exception  
MsgBox(ex.Message, MsgBoxStyle.Critical)  
t.Abort()  
End Try  
End Sub  
 
Private Function GetPattern(ByVal oDoc As AssemblyDocument) As OccurrencePattern  
Dim pattern As OccurrencePattern  
'pattern = oDoc.ComponentDefinition.OccurrencePatterns.Item("Component Pattern 1:1")  
pattern = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyOccurrencePatternFilter, "Select pattern for explode")  
Return pattern  
End Function