---

Hallo Zusammen,

Ich habe ein kleines Makro geschrieben, mit welchem ich Clash-Clearence-Berechnung zwischen einer Auswahl und den restlichen Bauteilen eines Products durchführen kann. Mein Problem ist jetzt, dass die Kollisionsergebnisse im Baum unter Applications - Kollision abgelegt werden und ich nochmal das entsprechende Kollisionsergebnis doppelklicken muß. Ich möchte aber, das sich das Fenster "Überschneidung überprüfen" mit der entsprechenden Voranzeige gleich nach der Berechnung öffnet und sich in das Ergebnisfenster einloggt. Ich habe mir auch schon die SpaceAnalysisInterfaces Object Library angeschaut, war hier jedoch nicht fündig. Ich wäre euch sehr dankbar, wenn mir hier jemand weiterhelfen könnte. Zur Erklärung ist hier noch mein bisheriger Quelltext:

Sub CATMain()

      ' Retrieve the Clashes collection
      Dim cClashes As Clashes
      Set cClashes = CATIA.ActiveDocument.Product.GetTechnologicalObject("Clashes")

      ' Create a clash with selected components and compute it
        Dim oClash As Clash
        Set oClash = cClashes.AddFromSel
        oClash.ComputationType = catClashComputationTypeAgainstAll
        oClash.InterferenceType = catClashInterferenceTypeClearance

Dim ClearanceValue As Double
'ClearanceValue = InputBox("What is the Clearance value ?", "Clearance value",ClearanceValue)
ClearanceValue = 4.
oClash.Clearance = ClearanceValue

      oClash.Compute

End Sub

Wie gesagt, ich wäre für jede Hilfe dankbar.

Gruß
nafets

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP