---

Schon wieder ich 

Ich habe eine lineare Bemßaung und möchte den Wert (z.B. 1717,34) gerne auf 1717 gerundet haben und gleichzeitig auf das nächste Zehner-Raster abrunden (also 1710).

Wie bringe ich das in ein Makro rein?
Meine Versuche waren unter anderem:

Code:

---

BEM_AUSSEN_MASS.TolerancePrecision = acDimPrecisionZero

---

aber es wird nicht akzeptiert.
ich muss auch dazusagen, dass ich noch einen Textprefix habe.

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

---

Hallo VIP,

nachfolgender Code rundet Dir die Zahl auf 1717 und rundet ihn auch auf den nächsten 10er ab.
Vielleicht hat ja auch jemand eine bessere Idee.

Code:

---

Sub test()

Dim descht As Double
descht = 1717.34

    If (Mid(descht, InStr(descht, ",") - 1, 1) > 4) Then
        Debug.Print descht, Round(descht, 0), Round((descht / 10), 0) * 10 - 10
    Else
        Debug.Print descht, Round(descht, 0), Round((descht / 10), 0) * 10
    End If
End Sub

---

Was meinst Du mit Textpräfix?

Gruß TP

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

---

Hm, ich glaub nicht dass ich das so in mein Makroeinbauen kann.

Du hast mit der Variablen "descht" zwar die Zahl 1717.34 definiert, aber wie ziehe ich diesen Wert aus der Bemaßung heraus? Ich habe ja eine Maßlinie die diese Zahl anzeigt, weil die gemessene Strecke so lang ist.
Aber wie lese ich diese Zahl aus um sie später wieder als Text einzusetzten.

Code:

---

vorher:
<<xx>>           -> 1717.34

nachher:
Höhe: 1710mm

---

-------------------

zum Textprefix:
Ich habe eine Bemaßung und da steht ein Text vornedran:
z.B. das Wort Höhe

Höhe: 1717.34mm

[Diese Nachricht wurde von The VIP am 23. Jul. 2004 editiert.]

[Diese Nachricht wurde von The VIP am 23. Jul. 2004 editiert.]

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

---

Hi VIP,

die Zahl bekommst Du denke mal mit deineBem.Measurement
Mit TP's Routine könnteste ja dann deineBem.TextOverride überschreiben,
ist natürlich nich optimal von wegen assoziativ und so ... ;-)

Am besten geh' mal mit F8 ran und guck' Dir mal im Lokalfenster an,
was deineBem da so mitbringt.

Gruss Nancy

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

---

ah, sehr schön. hat geklappt!

Code:

---

BEM_AUSSEN_MASS.TextOverride = "Höhe: " & Round(BEM_AUSSEN_MASS.Measurement - 5, 0) & "mm"

---

An dem Wert muss ich noch ein bissl was ändern, damit die ausgegebene Zahl stimmt, aber das ist was mathematisches, das bekomm ich noch hin 
Mir ging's um den Override Befehl und das Measurement das ich noch nicht kannte. Vielen Dank euch beiden!

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

---

Wie wäre es damit:
1.

Code:

---

.PrimaryUnitsPrecision = acDimPrecisionZero

---

2.

Code:

---

.TextPrefix = "Höhe: "

---

3.

Code:

---

.TextSuffix = "mm"

---

4.

Code:

---

.RoundDistance = 10

---

------------------
Roland

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

---

Sehr gut. außer, dass der Wert bei dir auf 10 gerundet wird, aber ich brauche den Wert abgerundet. Aufrunden ist tabu 

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