---

Hallo zusammen!
Da ich mich noch nicht allzu lange mit der Makroprogrammierung beschäftige tauchen hier und da kleine Hürden auf.
Die mit der ich mich momentan beschäftige ist die Abstandsmessung zwischen zwei Bodies. "Von Hand" ist dies problemlos möglich, mit einem Makro scheint es schwieriger zu sein...
Habe versucht es mit measurable aus der SPAWorkbench umzusetzen, was aber nur zum Abstand Null geführt hat. Eine Messung von Solids ist ohne weiteres möglich, ich möchte aber die ganzen Bodies vermessen.
Könnte es sein, dass CreateReferenceFromObject nicht auf Bodies funktioniert???

Hier mein kleiner Versuch:
Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("Koerper_1")
Dim body2 As Body
Set body2 = bodies1.Item("Koerper_2")

Dim ref1 As reference
Set ref1 = part1.CreateReferenceFromObject(body1)

Dim ref2 As reference

Dim TheSPAWorkbench As Workbench
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")

Dim TheMeasurable As Measurable
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(ref1)
Dim Mini As Double

Set ref2 = part1.CreateReferenceFromObject(body2)

Mini = TheMeasurable.GetMinimumDistance(ref2)
MsgBox ("Abstand: " & Mini)

If Mini = 0 Then
MsgBox ("Koerper schneiden sich!")
End If

End Sub

Wäre schön, wenn jemand einen Tipp übrig hätte!
Schonmal Danke im Voraus!
Grüße aus dem Bergischen Land,
Lars

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

---

Guten Morgen!
Habe nun eine alternative Möglichkeit gefunden die Messung umzusetzen. Mittels Skript erstelle ich einen Parameter vom Typ length und weisen ihn über eine erstellte Formel das Ergebnis einer Abstandsmessung zu. Die zu vermessenden Bodies werden über eine Selektion ausgewählt und in einer Schleife der Messung zugefügt.
Hier ist die Abstandsmessung zwischen Bodies zwar möglich, allerdings nimmt das automatisierte Erstellen und Löschen der Parameter und Formeln in der Schleife eine gewisse Zeit in Anspruch. Wäre schön wenn´s schneller gehen würde...
Hier mein Skript:
Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("Koerper_1")

Dim body2 As Body

Dim koerperselektion As Selection
Set koerperselektion = partDocument1.Selection
koerperselektion.Clear

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim relations1 As Relations
Set relations1 = part1.Relations

Dim length1 As Length

Dim Messformel As Formula

koerperselektion.Search "(CATPrtSearch.BodyFeature),all"

For I = 1 To koerperselektion.Count
Set body2 = koerperselektion.Item(I).Value
On Error Resume Next
    If body2.InBooleanOperation = False Then
    Set length1 = parameters1.CreateDimension("Messung" & I, "LENGTH", 0)
    Set Messformel = relations1.CreateFormula("computedistance" & I, "Berechnet den Abstand zwischen Körpern", length1, "distance(" & body1.Name & " ," & body2.Name & " )")

            If length1.Value = 0 Then
            MsgBox ("Koerper_1 geschnitten von " & Koerper(I).Name)
            End If
    parameters1.Remove ("Messung" & I)
    End If
Next

part1.Update

End Sub

[Diese Nachricht wurde von Steefle am 16. Jun. 2006 editiert.]

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