---

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

---

Hallo zusammen,

Mit Hilfe des Lokal-Fensters hab ich nun mal gesucht wo sich der Arbeitspunkt in Part1 versteckt.
In dem folgenden Pfad konnte ich ihn ausfindig machen:
oPart1.OccurencePath.Item(1).Definition.Workpoints(2)

Das Problem hierbei ist nun, dass ich in VBA darauf anscheinend nicht zugreifen kann. Denn nach oPart1.OccurencePath.Item(1).Definition kann Workpoints nicht gesetzt werden.

Weiss daher jemand ob es gar nicht möglich ist per VBA auf Elemente eines Bauteils in einer Baugruppe zu zugreifen?

Auf Hilfe hoffende Grüsse
Dennis

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

---

Hallo,

muss mich korrigieren.
Das Zugreifen ist doch möglich, auch wenn VBA Workpoints an dieser Stelle gar nicht als Option anbietet.
Aber dennoch funktioniert nach dem setzen des Workpoints
    Dim oPkt As WorkPoint
    Set oPkt = oRad.OccurrencePath.Item(1).Definition.WorkPoints(2)
der Messen-Befehl wieder nicht.
Laufzeitfehler '5', ungültiges Argument.

So langsam gehen mit die Ideen aus.

Gruss Dennis

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