Permet de recherché rapidement des interférences entre des pièces d'un assemblage.





Public Sub DetectInterferences()

Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oResults As InterferenceResults
Dim oCheckSet As ObjectCollection
Set oCheckSet = ThisApplication.TransientObjects.CreateObjectCollection

Dim oOcc As ComponentOccurrence
For Each oOcc In oDoc.ComponentDefinition.Occurrences
oCheckSet.Add oOcc
Next

Set oResults = oDoc.ComponentDefinition.AnalyzeInterference(oCheckSet)

If oResults.Count = 1 Then
MsgBox "Il y a 1 interférence."
ElseIf oResults.Count > 1 Then
MsgBox "Il y a " & oResults.Count & " interferences."
End If

If oResults.Count > 0 Then
Dim oHS1 As HighlightSet
Set oHS1 = oDoc.HighlightSets.Add
oHS1.SetColor 255, 0, 0
Dim oHS2 As HighlightSet
Set oHS2 = oDoc.HighlightSets.Add
oHS2.SetColor 0, 255, 0
For i = 1 To oResults.Count
oHS1.Clear
oHS2.Clear
oHS1.AddItem oResults.Item(i).OccurrenceOne
oHS2.AddItem oResults.Item(i).OccurrenceTwo
MsgBox "Le volume de l'interférence " & oResults.Item(i).OccurrenceOne.Name & " et " & oResults.Item(i).OccurrenceTwo.Name & " est " & oResults.Item(i).Volume & " cm3"
Next

oHS1.Clear
oHS2.Clear
Else
MsgBox "Aucune interférence trouvé."
End If
End Sub




Marche très bien avec Inventor 2009

Dan