---

Tolerance.pdf

Hallo VB bzw. VBA-Spezialisten!

In meiner Zeichnung befinden sich mehrere Maße mit unterschiedlichen Toleranzangaben. Bei dem Versuch das obere, bzw. untere Abmaß auszulesen, bin ich auf das Problem gestoßen, dass teilweise 0-Werte sawohl für upper als auch für lower zurückgegeben werden. (Siehe Beispiel in angehängter Datei).
Zur Sicherheit hier noch der entsprechende Code:

Sub Toleranzen_2()
Dim Toleranzen()
Dim I, K, Anzahl_Masse As Integer
Dim Zeichnung As DrawingDocument
Set Zeichnung = ThisApplication.ActiveDocument
MsgBox "Anzahl Maße in der Zeichnung: " & Zeichnung.Sheets(1).DrawingDimensions.Count
Anzahl_Masse = 0
For I = 1 To Zeichnung.Sheets(1).DrawingDimensions.Count
    MsgBox Zeichnung.Sheets(1).DrawingDimensions(I).Tolerance.ShaftTolerance & Chr(13) & Zeichnung.Sheets(1).DrawingDimensions(I).Tolerance.HoleTolerance _
    & Chr(13) & "oberes Abmaß: " & Zeichnung.Sheets(1).DrawingDimensions(I).Tolerance.Upper _
    & Chr(13) & "unteres Abmaß: " & Zeichnung.Sheets(1).DrawingDimensions(I).Tolerance.Lower
    'MsgBox Zeichnung.Sheets(1).DrawingDimensions(I).Tolerance.ToleranceType
Next I
End Sub

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

---

HAllo ???,

das ist ein bekannter Bug in Inventor.

Grüsse,

Paul

www.morecam.ch
www.thinkcad.de

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

---

Hallo,

probier mal :

Code:

---

Dim odoc As DrawingDocument
Set odoc = ThisApplication.ActiveDocument

Dim odrawdim As DrawingDimension
Dim osheet As Sheet
Set osheet = odoc.ActiveSheet
Dim otol As Tolerance

For Each odrawdim In osheet.DrawingDimensions

Set otol = odrawdim.Tolerance
Dim ostring As String
ostring = ostring & otol.ToleranceType & Chr(13)
'MsgBox odrawdim.Type & " : " & otol.HoleTolerance & " : " & otol.ShaftTolerance
If otol.Upper = 0 And otol.Lower = 0 Then
'otol.SetToFits kLimitsFitsShowTolerance, otol.HoleTolerance, ""
End If
'MsgBox odrawdim.ModelValue & " : " & odrawdim.Tolerance.Lower & " : " & odrawdim.Tolerance.Upper
'otol.SetToFits kLimitsFitsStackedTolerance, "H7", ""
Next

---

upper und lower sollte jetzt nicht mehr 0 sein

Gruß
Reinhard

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