Onderlijnen / underline

[TheChris]

Goedendag,

Ik wil graag een tekst onderlijnen, zodat ik kan zien dat ik bezig ben met die tekst om te bewerken.
Ik zoek iets van DataArray(i).Underline = True, maar DataArray(i) is van het type Object en bij een watch zie ik:
DataArray(0) > Object/IAcadAttributeReference2

Wie kan mij helpen, zelf ben ik zover dat ik zit te denken aan teken line.

[HofCAD]

Beste Chris,

Dit bedoel je toch niet:

Code Selecteer Uitklappen

Public Sub TestAddText()
Dim varStart As Variant
Dim dblHeight As Double
Dim strText As String
Dim objEnt As AcadText
    On Error Resume Next
    With ThisDrawing.Utility
    varStart = .GetPoint(, vbCr & "Pick the start point: ")
    dblHeight = .GetDistance(varStart, vbCr & "Indicate the height: ")
    strText = "%%UUnderline%%u%%OOverline%%o
    End With
If ThisDrawing.ActiveSpace = acModelSpace Then
  Set objEnt = ThisDrawing.ModelSpace.AddText(strText, varStart, dblHeight)
Else
  Set objEnt = ThisDrawing.PaperSpace.AddText(strText, varStart, dblHeight)
End If
    objEnt.Update
End Sub

Met vriendelijke groet, HofCAD CSI.

[TheChris]

Beste HofCad,

bedankt voor uw antwoord, maar ik wil nu een bestaande string onderlijnen, en wanneer ik er klaar mee ben de onderlijning weer makelijk weg kunnen halen.

[TheChris]

Gelukt, in het begin begreep ik het niet helemaal nu ik het zag gaat dat goed. Gewoon het volgende er voor plakken.
Dim Underline As String
Underline = "%%u"

NewString = Underline & NewString

En er weer af halen met ReplaceStr()

Gr Chris Braas