---

Hallo!

ist es möglich eine Makro zu machen welche folgende Änderungen an der ausgewählten Makro ausführt?

- Tolleranz symmetrisch +- 0,05 mm
- Prüfbemaßung ein
- Rund umkreist (zweite Auswahl im Prüfbemaßungsfenster)
- Prüfrate auf 100% setzen

Danke

MfG.

Alcom

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

---

Ich hab inzwischen einiges gemacht, und funktioniert auch so fast wie ich es brauche...

Code:

---

Public Sub tolleranz()

        Dim oDrawDoc As DrawingDocument
        Set oDrawDoc = ThisApplication.ActiveDocument

        Dim oDrawingDims() As DrawingDimension
        Dim a As Integer
        a = 0
       
        Dim i As Long
        For i = 1 To oDrawDoc.SelectSet.Count
        If Not oDrawDoc.SelectSet.Item(i) Is Nothing Then
        If TypeOf oDrawDoc.SelectSet.Item(i) Is DrawingDimension Then
        'Only add Dimensions to the ObjectCollection
        a = a + 1
        ReDim Preserve oDrawingDims(0 To a)
        Set oDrawingDims(a) = oDrawDoc.SelectSet.Item(i)
        End If
        End If
        Next

       
       
        Dim n As Integer
        For n = 1 To a
        oDrawingDims(n).Tolerance.SetToSymmetric ("0,05")
        oDrawingDims(n).IsInspectionDimension = True
        oDrawingDims(n).SetInspectionDimensionData kRoundedEndsInspectionBorder, "", "100%"
       
      ' MsgBox oDrawingDims(n).Text.FormattedText
       
        Next
End Sub

---

Mein Problem ist jetzt, dass es nur bei einer allgemeinen Bemaßung funktioniert.

Bei einem Bemaßungssatz wird die Tolleranz auf dem Ausgangsmaß gesetzt (0 mm).

Wenn man das allerdings von Hand macht dann kann man die Tolleranz auf einer X-beliebigen Bemaßung setzen.

Wie kann man diese Macro umprogrammieren sodass sie richtig funktioniert?

danke

MfG

Alcom

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

---

Moin!

Ginge das nicht viel einfacher mit einem entsprechenden Bemaßungsstil?

------------------
Roli  
www.Das-Entwicklungsbuero.de

[Diese Nachricht wurde höchstwahrscheinlich nach ihrer Erstellung von Doc Snyder noch ein Mal editiert.]

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

---

Hallo!

Nein, da bei einem Bemaßungssatz alle Maße geändert werden. Ich will die Tolleranz nur auf einigen Bemaßungen setzen.

Mfg

Alcom

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