---

Koordinatensatz.PNG

Hallo zusammen,

wie kann ich beim Koordinatensatz das selektierte Maß oder das 2. Maß auf die Toleranzmethode Basis setzen?

Vielen Dank

Georg

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

---

Wenn ich den Satz anklicke wird der kpl. Satz markiert.
Wenn Du jetzt das 2. Maß aus dem Satz haben willst, probier mal folgenden
Code:

Code:

---

    Dim oapp As Inventor.Application
    Dim oDoc As Inventor.DrawingDocument
    Set oapp = ThisApplication
    Set oDoc = oapp.ActiveDocument
    Dim oOrdinate As OrdinateDimension
   
    For Each item In oDoc.SelectSet
        If TypeOf item Is OrdinateDimension Then
            Set oOrdinate = item
            oOrdinate.OrdinateDimensionSet.Members.item(2).Tolerance.SetToBasic
        End If
    Next

---

Ist wenigstens ein Ansatz...

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

---

Es scheint nicht möglich zu sein, dass man direkt auf das Maß zugreifen kann. Vielen Dank für Deine Hilfe.

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