Sub ZoomCenter_Example()
' This example creates text and adds it to the drawing using the
' AddText method. It then zooms to the center of the drawing.
Dim icadDoc As IntelliCAD.Document
Dim myText As String
Dim mtextObj As IntelliCAD.Text
Dim insPt As IntelliCAD.Point
Dim height As Double
Set icadDoc = ActiveDocument
Set insPt = Library.CreatePoint(0, 9)
height = 5
myText = "Test string for the AddText method"
' Add the Text object
Set mtextObj = icadDoc.ModelSpace.AddText(myText, insPt, height)
mtextObj.Update
ThisDocument.ActiveViewport.ZoomCenter insPt, 20
End Sub