---

Moin zusammen,

da ich endlich mal wieder Zeit gefunden habe meine älteren Tools zu überarbeiten bin ich auf ein Problem gestoßen; ich will einen MText erzeugen (kein Problem) allerdings soll der Mtext eine vom User definierte größe haben, das steuere ich über eine Textbox (txtheight) und die Anweisung  "ThisDrawing.SetVariable "Textsize" txtheight.text"  , es funktioniert auch einwandfrei, solange ich Ganzzahlen verwende, sobald ich das ganze mit Kommazahlen (zwecks Textgröße 3.5) versuche, schmiert er mir ab.....

hier der CODE, wie ich ihn momentan verwende:

Zür Überwachung der Textbox, eine ASCII Abfrage

Code:

---

Private Sub txtHeight_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   
    '' Zahleneingabe bei der Texthöhe sichern
   
    Select Case KeyAscii
          Case 48 To 57 'nichts zu tun
          Case 46      'Punkt auch zulassen
          Case Else    'alles andere verwerfen
                KeyAscii = 0
    End Select
   
End Sub

---

Und hier wird der Text erzeugt:

Code:

---

......
Default_txtHeight = ThisDrawing.GetVariable("Textsize")  'Hier wird die Aktuelle Variable gespeichert
......

ThisDrawing.SetVariable "Textsize", txtheight.text

Set objAcadText = ThisDrawing.ModelSpace.AddMText(ssPoint.Coordinates, 0, _
            PCap & vbNewLine & "X: " & Px & vbNewLine & "Y: " & Py & vbNewLine & "Z: " & Pz)

.........

ThisDrawing.SetVariable "Textsize", Default_txtHeight  'Hier wird die vorherige Variable zurückgeschrieben

.........

---

Er stürtzt immer bei der Anweisung:

ThisDrawing.SetVariable "Textsize", txtheight.text

mit der Fehlermeldung "Unable to Set Systemvariable" ab, obwohl das Rückschreiben der alten Textsize-Variablen funktioniert und das ist auch eine Kommazahl.... 

Ich steh gerade gewaltig aufm Schlauch..........

------------------
Etwaige Rechtschreibfehler sind gewollt und dienen der allgemeinen Belustigung 

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

---

Hi,

warum nutzt du nicht die .height Eigenschaft des MTextes?

Code:

---

objAcadText.height=txtheight.text 'bzw. cdbl(txtheight.text)

---

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

---

Ähhh.......    DAS ist eine sehr gute Frage......  OOOOOhhhhh ich hab den Wald vor lauter Bäumen nicht gesehen! Frag mich bitte nicht, warum ich auf die eigentlich logischte aller Lösungen nicht gekommen bin!? 

Danke dir!

------------------
Etwaige Rechtschreibfehler sind gewollt und dienen der allgemeinen Belustigung 

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

---

okay, aber vergiss das cdbl() nicht (hätte vielleicht auch bei der sysvar geklappt) 

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