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.
Beste Chris,
Dit bedoel je toch niet:
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.
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.
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