Message 1 of 5
Help about set text in Autocad VBA

Not applicable
07-06-2012
11:22 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
With this sub, I create a text in AutoCAD.
Sub Ch4_ChangeTextHeight()
Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double
textString = "Hello, World."
insertionPoint(0) = 0
insertionPoint(1) = 0
insertionPoint(2) = 0
height = 1
Set textObj = ThisDrawing.ModelSpace. _
AddText(textString, insertionPoint, height)
End Sub
But, when I type -vp and then "1,1,1" to set view in AutoCAD, my view will change, and I can not see my text as before.
Tell me how to set View for this text or something similar 😞