Private Sub HorizAlignmt_Example()
' This example creates text and adds it to the drawing using the ' AddText method. It then obtains the HorizontalAlignment and ' VerticalAlignment properties. Dim icadDoc As IntelliCAD.Document Dim myText As String Dim textObj 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 textObj = icadDoc.ModelSpace.AddText(myText, insPt, height) textObj.Update ThisDocument.ActiveViewport.ZoomCenter insPt, 20 MsgBox "HorizontalAlignment property is: " & textObj.HorizontalAlignment & Chr(13) & "VerticalAlignment property is: " & textObj.VerticalAlignment End Sub