Align Line Text

From AutoCAD ActiveX

previous page next page

Format Line Text

Use Line Text (Text)

Change Line Text

Create and Edit AutoCAD Entities > Add Text to Drawings > Use Line Text (Text) >

Align Line Text

You can justify line text horizontally and vertically. Left alignment is the default. To set the horizontal and vertical alignment options, use the Alignment property.

Realign text

This example creates a Text object and a Point object. The Point object is set to the text alignment point, and is changed to a red crosshair so that it is visible. The text alignment is changed and a message box is displayed so that the macro execution is halted. This allows you to see the impact of changing the text alignment.

Sub Ch4_TextAlignment()

    Dim textObj As AcadText

    Dim textString As String

    Dim insertionPoint(0 To 2) As Double

    Dim height As Double

          ' Define the new Text object
          textString = "Hello, World."
          insertionPoint(0) = 3
          insertionPoint(1) = 3
          insertionPoint(2) = 0
          height = 0.5
                ' Create the Text object in model space
          Set textObj = ThisDrawing.ModelSpace. _
       AddText(textString, insertionPoint, height)
                ' Create a point over the text alignment point,
          ' so we can better visualize the alignment process
          Dim pointObj As AcadPoint
          Dim alignmentPoint(0 To 2) As Double
          alignmentPoint(0) = 3
          alignmentPoint(1) = 3
          alignmentPoint(2) = 0
          Set pointObj = ThisDrawing.ModelSpace. _
       AddPoint(alignmentPoint)
          pointObj.Color = acRed
                ' Set the point style to crosshair
          ThisDrawing.SetVariable "PDMODE", 2
               ' Align the text to the Left
          textObj.Alignment = acAlignmentLeft
          ThisDrawing.Regen acActiveViewport
          MsgBox "The Text object is now aligned left"
                ' Align the text to the Center
          textObj.Alignment = acAlignmentCenter
                ' Align the text to the point (necessary for
          ' all but left aligned text.)
          textObj.TextAlignmentPoint = alignmentPoint
                ThisDrawing.Regen acActiveViewport
          MsgBox "The Text object is now centered"
                ' Align the text to the Right
          textObj.Alignment = acAlignmentRight
          ThisDrawing.Regen acActiveViewport
          MsgBox "The Text object is now aligned right"
            End Sub

previous page start next page