---

Hallo,
anbei ein Programm, dass ich für die Massenermittlung nutze wenn ich einen äquivalenten Körper benötige. Es wird ein Würfel erstellt, den man platzieren kann.
Das Problem ist, dass man Dezimalstellen mit Komma trennen muß damit die richtige Größe entsteht. Gibt man als Detimaltrennzeichen versehentlich einen Punkt ein, wird dieser ignoriert aus 1.5 wird 15.
Für einen Lösungsvorschlag wäre ich sehr dankbar.

Sub WuerfelAusMasse()
ActiveDocument.SendCommand "BKS" & vbCr & "W" & vbCr
Dim L As Double
Dim G As Double
Dim P As Variant
Dim Wuerfel As Acad3DSolid
On Error GoTo Done
G = InputBox("Stahlgewicht in kg: ", "Stahlwürfeldialog")
L = (G / 7.85) ^ (1 / 3) * 100
P = ThisDrawing.Utility.GetPoint(, "Einfügepunkt anklicken:")
Set Wuerfel = ThisDrawing.ModelSpace.AddBox(P, L, L, L)
Done:
End Sub

Mit freundlichen Grüßen
G.Paul

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

---

Hi,

Code:

---

Dim GS as String
GS = InputBox("Stahlgewicht in kg: ", "Stahlwürfeldialog")
G= replace(GS,",",".")

---

  'ersetzt alle Beistriche im String gegen Punkt

- alfred -

------------------
www.hollaus.at

---

Vielen Dank
noch Komma mit Punkt getauscht und es hat auf Anhieb funktioniert.
Freundliche Grüße
G.Paul

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