---

Hallo Forum,

muss doch noch mal nachhaken,

ich möchte den Text in der Inputbox an einer bestimmten
Stelle in der Zeichnung absetzen, wie ergänze ich den Code dafür?

Public Sub text()
Dim Mldg, Titel, Voreinstellung, Wert1
Mldg = "Wert von 1 bis 3 eingeben"   
Titel = "InputBox-Demo" 
Voreinstellung = "1"   
Wert1 = InputBox(Mldg, Titel, Voreinstellung)

Wert1 = InputBox(Mldg, Titel, , , , "DEMO.HLP", 10)

Wert1 = InputBox(Mldg, Titel, Voreinstellung, 100, 100)

End Sub

Gruß Uwe

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

---

Hi Uwe,

Willst du einen Text oder einen MText erstellen?!

Aus der Hilfe:

Code:

---

Sub Ch4_ChangeTextHeight()
    Dim textObj As AcadText
    Dim textString As String
    Dim insertionPoint(0 To 2) As Double

    ' Definieren des Text-Objekts
    textString = "Hallo allerseits!"
    insertionPoint(0) = 3
    insertionPoint(1) = 3
    insertionPoint(2) = 0
    height = 0.5

    ' Erstellen des Textobjekts im Modellbereich
    Set textObj = ThisDrawing.ModelSpace. _
AddText(textString, insertionPoint, height)

---

oder

Code:

---

Sub Ch4_CreateMText()
    Dim mtextObj As AcadMText
    Dim insertPoint(0 To 2) As Double
    Dim width As Double
    Dim textString As String

    insertPoint(2) = 0
    insertPoint(1) = 2
    insertPoint(2) = 0
    width = 4
    textString = "Dies ist eine Zeichenfolge für das MText-Objekt."

    ' Erstellen eines Textobjekts im Modellbereich
    Set mtextObj = ThisDrawing.ModelSpace. _
AddMText(insertPoint, width, textString)
    ZoomAll
End Sub

---

Gruß, Carsten

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