VB Script check interference 1

Hi,

Here is a script which can solve your problem. You can obtain a clash analize for a whole product. The result will be listed in a xml file (see line "c:\Temp\sample.xml") but without pictures.

If somebody can find how can we obtain also pictures when we export a xml file, please let us know. Untill now, I can' realize how can I solve this.




Sub CATMain()

Dim cClashes As Clashes
Set cClashes =CATIA.ActiveDocument.Product.GetTechnologicalObject("Clashes")


Dim oClash As Clash
Set oClash = cClashes.AddFromSel
oClash.ComputationType = catClashComputationTypeInsideOne
oClash.InterferenceType = catClashInterferenceTypeContact
oClash.Compute

Dim cConflicts As Conflicts
Set cConflicts = oClash.Conflicts
Dim I As Integer


For I = 1 To cConflicts.Count
Dim oConflict As Conflict
Set oConflict = cConflicts.Item(I)


'MsgBox oConflict.Value
If (oConflict.Type = catConflictTypeClash) Then

If (oConflict.Value <> 0) Then

oConflict.Status = catConflictStatusRelevant
oConflict.Comment = "Automatic filter : penetration less than " & dFilterValue

End If

ElseIf (oConflict.Type = catConflictTypeContact) Then

oConflict.Status = catConflictStatusIrrelevant
oConflict.Comment = "Automatic filter : contact"
End If

Next

oClash.Export ClashSpecExportAsXMLClashSpec,"c:\Temp\sample.xml"
End Sub




Regards
Fernando