---

Guten Morgen an alle!
Ich habe folgendes Problem: ich muss aus einer Zeichnung (IDW) nachträglich die Toleranzen ändern.
Ich bekomme es hin, den makierten Wert schon irgendeine Toleranz zuzuordnen.

Im nächsten Schritt muss ich, bevor ich die Toleranz setzte, ersteinmal die makierte Bemaßung "einlesen" um sie dann anschließend bearbeiten zu können.

Bisher habe ich folgenden Code:

Code:

---

Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument
 
    Dim oSelectSet As SelectSet
    Set oSelectSet = oDrawDoc.SelectSet
 
    Dim colDimensions As New Collection
    Dim länge As Double
   
    Dim i As Long

    For i = 1 To oSelectSet.Count
      If TypeOf oSelectSet.Item(i) Is DrawingDimension Then
        colDimensions.Add oSelectSet.Item(i)
      End If
    Next
 
    If colDimensions.Count < 1 Then
      MsgBox "Mindestens ein Maß muss markiert sein."
      Exit Sub
    End If
   
    'Einfügen: Das Maß muss noch ausgelesen werden!
    'Test Anfang
        oSelectSet.Item (1)
    'Test Ende
   
   
    Dim oDimension As DrawingDimension
    Set oDimension = colDimensions.Item(1)
 
    Dim oTol As Tolerance
    Set oTol = oDimension.Tolerance
                                         
                                           
    'Call oTol.SetToFits(kLimitsFitsStackedTolerance, "G8", "")
    Call oTol.SetToDeviation(0.03, 0.04)

---

Mir fehlt nur diese eine "Funktion", um Sachen zuerst einzulesen.

Ich bin sehr dankbar für jede Antwort,aber auch für einen Tipp zur "Selbsthilfe", wie ich in Zukunft vllt auch selbst auf eine Lösung komme.

Freundliche Grüße
M

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

---

Bitte nicht steinigen, aber ich schätze, ich hab selbst eine Lösung gefunden:

mit:

Code:

---

Dim ma As Double
    ma = oDimension.ModelValue

---

kann ich den Wert auslesen...

Ich hab dafür am Ende der Sub einen Haltepunkt gesetzt und mir dann alle Objekte einmal angeschaut, besonders eben das Objekt "oDimension".
Und siehe da, ich wurde fündig.

     

LG M

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