Description
Sets or returns the text string for the attribute.
Property type
Read-write property
Syntax
Visual Basic |
---|
Public Property TextString As String |
Example
Private Sub TextString_Example()
' This example creates text and adds it to the drawing using the
' AddText method. It then returns the TextString in a message box.
Dim icadDoc As IntelliCAD.Document
Dim myText As String
Dim textObj As IntelliCAD.Text
Dim insPt As IntelliCAD.Point
Dim height As Double
Dim NewScaleFac As Double
Set icadDoc = ActiveDocument
Set insPt = Library.CreatePoint(0, 9)
height = 5
myText = InputBox("Type some text here:")
' Add the Text object
Set textObj = icadDoc.ModelSpace.AddText(myText, insPt, height)
textObj.Update
ThisDocument.Application.ZoomExtents
MsgBox "The text you type is: " & textObj.TextString
End Sub