---

Ture_Beschriftung.dwg

Hallo,

ich habe eine Türe mit einer Beschriftung die ich aus dem Katalog Browser geholt habe. Diese macht genau das was ich gerne hätte bis auf die Tatsache das wenn ich über 1000mm gehe ein Komma gesetzt wir und das sieht dann so aus wie in der DWG.
Unter 1000 steht da 90 über 1000 steht da 2,00.
Die Frage ist wie kann ich das beheben?

Im Stylemanager unter Dokumentationsobjekte > Eigenschaftssatz-Definition gibt es den Eintrag DoorObjects_Austria und da ist unter HeightPassage_M-CM eine Formel wo ich annehme das dort sich das Anpassen lässt.
Wenn ich in dieser Formel die 1000 gegen eine 10 tausche dann wird mir 90,00 und 200,00 angezeigt aber wie bekomme ich 90 / 200 ?

Hier die Formel:

Code:

---

InputNumber = Cdbl([HeightPassage])
WholeMeters=Int(InputNumber/1000)
PartialMeters=InputNumber-(WholeMeters*1000)
WholeCentimeters = Int((InputNumber-(WholeMeters*1000))/10)
WholeMillimeters = int(round(inputnumber-(int(inputnumber/10)*10)))
If WholeMillimeters <3 Then
WholeMillimeters =""
ElseIf WholeMillimeters < 8 Then
WholeMillimeters ="5"
Else
WholeMillimeters =""
WholeCentimeters = WholeCentimeters + 1
End If
If WholeMeters>0 Then
If WholeCentimeters<9 Then WholeCentimeters="0" & WholeCentimeters
RESULT = WholeMeters&","&WholeCentimeters&WholeMillimeters
Else
If WholeCentimeters=0 Then WholeCentimeters=""
RESULT = WholeCentimeters&WholeMillimeters
End If

---

Ich hoffe jemand kann mir da Helfen das wäre toll

[Diese Nachricht wurde von Helmi3000 am 07. Feb. 2025 editiert.]

[Diese Nachricht wurde von Helmi3000 am 20. Feb. 2025 editiert.]

[Diese Nachricht wurde von Helmi3000 am 20. Feb. 2025 editiert.]

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

---

Hallo,

auf die Schnelle - reicht für die Ausgabe von ganzen Zentimetern (bei der Annahme, dass ganze Millimeter reinkommen) nicht etwas wie:

Code:

---

InputNumber = Cdbl([HeightPassage])
WholeCentimeters = round(InputNumber/10)
RESULT = WholeCentimeters

---

------------------
ebene11.com - Webentwicklung . AutoCAD . Schulung

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

---

H

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

---

Ture_Beschriftung07.02.2025.dwg

Hallo Cadzer,

vielen Dank für den Code, ich habe in ausprobiert aber er hat nicht den gewünschten Effekt erzielt.

Genau dieser Code hat mich dann auf die Idee gebrach doch die WholeMeters zu entfernen aus den Formeln

Code:

---

InputNumber = Cdbl([HeightPassage])
WholeCentimeters = Int((InputNumber-(WholeMeters*1000))/10)
WholeMillimeters = int(round(inputnumber-(int(inputnumber/10)*10)))
If WholeMillimeters <3 Then
WholeMillimeters =""
ElseIf WholeMillimeters < 8 Then
WholeMillimeters ="5"
Else
WholeMillimeters =""
WholeCentimeters = WholeCentimeters + 1
End If
If WholeMeters>0 Then
If WholeCentimeters<9 Then WholeCentimeters="0" & WholeCentimeters
RESULT = WholeMeters&","&WholeCentimeters&WholeMillimeters
Else
If WholeCentimeters=0 Then WholeCentimeters=""
RESULT = WholeCentimeters
End If

---

und siehe Da es funktionier mit den Einheit Millimeter.
Man kann natürlich daran noch einiges weglassen aber es geht und ich habe keine Ahnung was und wie ich das machen soll, daher bin ich jetzt mal glücklich das es geht

Danke!     

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