Hallo!
Zuerst mußt du zwei Gruppen (Group) erstellen. Entweder automatisch (siehe auch V5Automation.chm in deinem ...\Dassault Systemes\B10\intel_a\code\bin\ Verzeichnis; Stichworte: Groups, Group) oder per Hand unter Workbench "Digitale Modellerstellung"=>"DMU Space Analysis"=>Einfügen=>Gruppe. Diese kannst du dann als Item von Groups ansprechen (mit Nummer, wie im folgenden Makro oder gezielt mit Name)
Sub CATMain()
Dim oDocuments As Documents
Dim oProductDocument As ProductDocument
Dim oProduct As Product
Dim Clashes1 As Clashes
Set oProductDocument = CATIA.ActiveDocument
Set oProduct = oProductDocument.Product
Set Clashes1 = oProduct.GetTechnologicalObject("Clashes")
Set Groups1 = oProduct.GetTechnologicalObject("Groups")
Dim Clash As Clash
Set Clash = Clashes1.Add
Clash.ComputationType = catClashComputationTypeBetweenTwo
Clash.InterferenceType = catClashInterferenceTypeClearance
Clash.Clearance = 20
Dim FirstGroup As Group
Set FirstGroup = Groups1.Item(1) 'oder ...Groups1.Item("Gruppe1")
Clash.FirstGroup = FirstGroup
Dim SecondGroup As Group
Set SecondGroup = Groups1.Item(2) 'oder ...Groups1.Item("Gruppe2")
Clash.SecondGroup = SecondGroup
Clash.Compute
End Sub
Funktioniert bei mir unter CATIA V5R10 SP4 (Win2000)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP