Hallo Zusammen,
ich weis, dieses Thema wurde bereits hinreichend diskutiert...
Jedoch haben mich die bisherigen Beiträge und API-Dokumentationen nicht leider weiter gebracht.
Ich möchte aus einem Maß z.B. 25 H6 die oberen und unteren Abmaße auslesen und (später) als Tabelle in die Zeichnung eintragen. Dies am besten ohne externe Toleranztabelle auf die das Makro zugreift.
Nun ist das Problem, dass die Werte für mich nicht nachvollziehbar sind.
Es sollte 0,013 und 0 herauskommen. Jedoch erscheinen die Werte mit x10^254 -Angaben (siehe Anhang)????
Der Toleranztyp ist "Tol_ALP1". Wenn man einen Toleranztyp einstellt, bei dem die Abmaße direkt in Klammern am Nennmaß angezeigt werden, kommen die richtigen Abmaße heraus.
Anbei mein bisheriger Code:
...
selection1.Search "CATDrwSearch.DrwDimension,all"
For I = 1 To selection1.Count
Set DRWDimension = selection1.Item(I).Value
Dim Wert As DrawingDimValue
Set Wert = DRWDimension.GetValue
DRWDimension.GetTolerances oTolType, oTolName, oUpTol, oLowTol, odUpTol, odLowTol, oDisplayMode
MsgBox "Tol= " & oUpTol & +Chr(10)+_
"Upper Value= " & odUpTol & +Chr(10)+_
"Lower Value= " & odLowTol ,0,"Tolerance Info"
Next
...
Habt Ihr Hinweise für mich wo hier meine Wissenslücke besteht?
Vielen Dank bereits im Voraus und
Viele Grüße
René
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP