Sub GetBoundingBox_Example()
' This example creates text and finds the bounding box for the text.
Dim myText As String
Dim textObj As AcadText
Dim insPt(0 To 2) As Double
Dim height As Double
insPt(0) = 3: insPt(1) = 7: insPt(2) = 0
height = 5
myText = "Test string for bounding box"
' Add the Text object
Set textObj = ThisDrawing.ModelSpace.AddText(myText, insPt, height)
textObj.Update
ThisDrawing.Application.ZoomExtents
' Return the bounding box for the text and return the lower left
' and upper right corners of the box.
Dim LL As Variant
Dim UR As Variant
textObj.GetBoundingBox LL, UR
MsgBox "The extents of the bounding box for the text are:" & Chr(13) & _
"Lower Left: " & LL(0) & ", " & LL(1) & Chr(13) & "Max Extent: " & UR(0) & ", " & UR(1)
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. |