---

Hallo,
wie kann man mit VBA die
Grenzwerte/ Passungen  -> Größengrenzwerte  auslesen

732 H7 (732,08
        732,00)

also 732,08 und 732,00

oder
Grenzwerte/ Passungen  -> Toleranz  auslesen
732 H7 (0,08
        0,00)
also 0,08 und 0,00

mit
oSheet.DrawingDimensions.Item(1).Tolerance.Lower
oSheet.DrawingDimensions.Item(1).Tolerance.upper
komme ich an die Toleranzen heran

wenn ich 732  +0,1  habe
              -0,2
mit oSheet.DrawingDimensions.Item(1).Tolerance.upper
erhalte ich +0,1
und mit
oSheet.DrawingDimensions.Item(1).Tolerance.Lower
erhalte ich -0,2

Wer kann mir weiterhelfen ?

MFG

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

---

Hallo!

Thema immer noch aktuell!
Wer kann weiterhelfen?
MFG

[Diese Nachricht wurde von VOSTA1 am 20. Feb. 2006 editiert.]

[Diese Nachricht wurde von VOSTA1 am 20. Feb. 2006 editiert.]

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

---

Hi Vosta,

ist das ein String was du da bekommst?

"732 H7 (732,08
        732,00)"

???

lg Nancy

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

---

toleranz.JPG

Hallo,

ich bekomme mit
oSheet.DrawingDimensions.Item(1).ModelValue
das Maß als double

oSheet.DrawingDimensions.Item(1).Tolerance.Lower oSheet.DrawingDimensions.Item(1).Tolerance.Upper
hier die von Hand eingebenen Toleranzen als double

oSheet.DrawingDimensions.Item(1).Tolerance.ShaftTolerance
das Toleranzfeld als String aber nur z.B H7  ohne die Grenzmaße
oSheet.DrawingDimensions.Item(1).Tolerance.HoleTolerance
das Toleranzfeld als String aber nur z.B h7  ohne die Grenzmaße

an die Werte 732,08  und 732,00 komme ich nicht heran, das ist das
Problem
gibt es da einen nicht dokumentierten Befehl
oSheet.DrawingDimensions.Item(1).Tolerance.HoleTolerance.???????

MFG

[Diese Nachricht wurde von VOSTA1 am 20. Feb. 2006 editiert.]

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

---

Hm,

du bekommst also den String: "732 H7" ?

Die Klammer sieht mir auch nicht wie eine normale Klammer aus,
verstecken sich da vielleicht noch irgendwo paar Steuerzeichen für?
Gras' mal die gesamten Properties des Toleranzobjektes? im Lokalfenster ab, e.g.:

dim t as Tolerance
set t = oSheet.DrawingDimensions.Item(1).Tolerance

Wenn er das so displayed, muss doch auch was greifbares geben, was dies steuert?

Gruss Nancy

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

---

Ich bekomme nur 132
und ich bekomme H7 einzeln und nicht zusammenhängend
wenn ich den gesammten String String bekommen würde, wäre ich auch schon einen Schritt weiter.
MFG

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

---

Vosta, ich glaub' ich kann dir nicht weiterhelfen, mir fehlt da etwas die Live-Vorstellungskraft;-)

Aber mal eine allerletzte Frage noch, wo kommt denn zB. der String her?:

Methode: Grenzwerte/Passungen - Größengrenzwerte Ø168.00 H7(168.04 168.00)
Methode: Grenzwerte/Passungen - Toleranz Ø168.00 H7(+0.04 -0.00)

Gruss Nancy

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

---

Den String hab ich zur Erläuterung von Hand dazugeschrieben!
Er beschreibt mit welcher Toleranz Methode ich die Bemaßung
erstellt habe.

MFG

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

---

Hi Vosta

Die Abmaße sind genormt.Und zwar in ISO 286-1 u. -2.
Die Toleranzfelder kannst Du in Abhängigkeit vom Grundmaß berechnen.

Schau mal in den Hoischen (S. 159, 29. Auflage)

HTH Mathias
@Nancy: Das mußt Du auch nicht wissen, als Dachbauer 

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

[Diese Nachricht wurde von Charly Setter am 21. Feb. 2006 editiert.]

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