Sub InsertionPoint_Example()
' This example creates text and adds it to the drawing.
' It then obtains the InsertionPoint and TextAlignmentPoint properties.
Dim sBuf As String
Dim textObj As AcadText
Dim insPt(0 To 2) As Double
insPt(0) = 0: insPt(1) = 9
Dim dHeight As Double
dHeight = 1
sBuf = "Test string for the AddText method"
' Add the text Object
Set textObj = ThisDrawing.ModelSpace.AddText(sBuf, insPt, dHeight)
textObj.Update
ThisDrawing.Application.ZoomExtents
Dim vInsertionPoint As Variant
vInsertionPoint = textObj.InsertionPoint
MsgBox "Insertion Point: " & _
Chr(13) & "x = " & vInsertionPoint(0) & _
Chr(13) & "y = " & vInsertionPoint(1) & _
Chr(13) & "z = " & vInsertionPoint(2)
Dim vTextAlignmentPoint As Variant
vTextAlignmentPoint = textObj.InsertionPoint
MsgBox "Text Alignment Point: " & _
Chr(13) & "x = " & vTextAlignmentPoint(0) & _
Chr(13) & "y = " & vTextAlignmentPoint(1) & _
Chr(13) & "z = " & vTextAlignmentPoint(2)
End Sub
| Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved. |