Hallo zusammen,
ich würde gerne mittels VBA einen Arbeitspunkt auswählen, um später einen Abstand zu diesem Punkt zu messen.
Mein Problem hierbei ist folgendes:
Ich habe eine Baugruppe mit 2 Bauteilen Part1 und Part2. Der Arbeitspunkt befindet sich in Part2. Ich weiss nun leider nicht wie ich diesen Arbeitspunkt referenzieren, bzw. auf ihn zugreifen kann.
Mein Code sieht momentan so aus:
Sub test()
Dim oApp As Application
Set oApp = ThisApplication
Dim oDoc As AssemblyDocument
Set oDoc = oApp.ActiveDocument
Dim oPart1 As ComponentOccurrence
Set oPart1 = oDoc.ComponentDefinition.Occurrences(1)
Dim oPart2 As ComponentOccurrence
Set oPart2 = oDoc.ComponentDefinition.Occurrences(2)
Dim oPkt as Workpoint
'hier weiss ich nicht weiter:
set oPkt = oPart2.???????????
Dim abstand As Single
abstand = oApp.MeasureTools.GetMinimumDistance(oPkt, oPart1)
End sub
Was ich bereits versuch hatte, war Part2 zu aktivieren (oPart2.edit). Das offene Dokument als PartDocument zu definieren und dann auf den Workpoint zu zugreifen. Das Zuweisen des Punktes funktioniert auf diese Weise zwar, allerdings lässt sich der Befehl oApp.MeasureTools.GetMinimumDistance(oPkt, oPart1) dann nicht ausführen.
Wäre sehr dankbar wenn jemand eine Idee hat.
Viele Grüße
Dennis
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP