Align Single-Line Text
 
 
 

You can justify single-line text horizontally and vertically. Left alignment is the default. To set the horizontal and vertical alignment options, use the HorizontalMode and VerticalMode properties.

Normally when a text object is closed, the position and alignment points of the text object are adjusted according to its justification and text style. However, the alignment of an in memory text object will not automatically be updated. Call the AdjustAlignment method to update the alignment of the text object based on its current property values.

Realign text

The following example creates a single-line text (DBText) object and a point (DBPoint) 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.

VB.NET

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
 
<CommandMethod("TextAlignment")> _
Public Sub TextAlignment()
  '' Get the current document and database
  Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
  Dim acCurDb As Database = acDoc.Database
 
  '' Start a transaction
  Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
 
      '' Open the Block table for read
      Dim acBlkTbl As BlockTable
      acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, _
                                   OpenMode.ForRead)
 
      '' Open the Block table record Model space for write
      Dim acBlkTblRec As BlockTableRecord
      acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
                                      OpenMode.ForWrite)
 
      Dim textString(0 To 2) As String
      textString(0) = "Left"
      textString(1) = "Center"
      textString(2) = "Right"
 
      Dim textAlign(0 To 2) As Integer
      textAlign(0) = TextHorizontalMode.TextLeft
      textAlign(1) = TextHorizontalMode.TextCenter
      textAlign(2) = TextHorizontalMode.TextRight
 
      Dim acPtIns As Point3d = New Point3d(3, 3, 0)
      Dim acPtAlign As Point3d = New Point3d(3, 3, 0)
 
      Dim nCnt As Integer = 0
 
      For Each strVal As String In textString
          '' Create a single-line text object
          Dim acText As DBText = New DBText()
          acText.SetDatabaseDefaults()
          acText.Position = acPtIns
          acText.Height = 0.5
          acText.TextString = strVal
 
          '' Set the alignment for the text
          acText.HorizontalMode = textAlign(nCnt)
 
          If acText.HorizontalMode <> TextHorizontalMode.TextLeft Then
              acText.AlignmentPoint = acPtAlign
          End If
 
          acBlkTblRec.AppendEntity(acText)
          acTrans.AddNewlyCreatedDBObject(acText, True)
 
          '' Create a point over the alignment point of the text
          Dim acPoint As DBPoint = New DBPoint(acPtAlign)
          acPoint.SetDatabaseDefaults()
          acPoint.ColorIndex = 1
 
          acBlkTblRec.AppendEntity(acPoint)
          acTrans.AddNewlyCreatedDBObject(acPoint, True)
 
          '' Adjust the insertion and alignment points
          acPtIns = New Point3d(acPtIns.X, acPtIns.Y + 3, 0)
          acPtAlign = acPtIns
 
          nCnt = nCnt + 1
      Next
 
      '' Set the point style to crosshair
      Application.SetSystemVariable("PDMODE", 2)
 
      '' Save the changes and dispose of the transaction
      acTrans.Commit()
  End Using
End Sub

C#

using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
 
[CommandMethod("TextAlignment")]
public static void TextAlignment()
{
  // Get the current document and database
  Document acDoc = Application.DocumentManager.MdiActiveDocument;
  Database acCurDb = acDoc.Database;
 
  // Start a transaction
  using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
  {
      // Open the Block table for read
      BlockTable acBlkTbl;
      acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,
                                   OpenMode.ForRead) as BlockTable;
 
      // Open the Block table record Model space for write
      BlockTableRecord acBlkTblRec;
      acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
                                      OpenMode.ForWrite) as BlockTableRecord;
 
      string[] textString = new string[3];
      textString[0] = "Left";
      textString[1] = "Center";
      textString[2] = "Right";
 
      int[] textAlign = new int[3];
      textAlign[0] = (int)TextHorizontalMode.TextLeft;
      textAlign[1] = (int)TextHorizontalMode.TextCenter;
      textAlign[2] = (int)TextHorizontalMode.TextRight;
 
      Point3d acPtIns = new Point3d(3, 3, 0);
      Point3d acPtAlign = new Point3d(3, 3, 0);
 
      int nCnt = 0;
 
      foreach (string strVal in textString)
      {
          // Create a single-line text object
          DBText acText = new DBText();
          acText.SetDatabaseDefaults();
          acText.Position = acPtIns;
          acText.Height = 0.5;
          acText.TextString = strVal;
 
          // Set the alignment for the text
          acText.HorizontalMode = (TextHorizontalMode)textAlign[nCnt];
 
          if (acText.HorizontalMode != TextHorizontalMode.TextLeft)
          {
              acText.AlignmentPoint = acPtAlign;
          }
 
          acBlkTblRec.AppendEntity(acText);
          acTrans.AddNewlyCreatedDBObject(acText, true);
 
          // Create a point over the alignment point of the text
          DBPoint acPoint = new DBPoint(acPtAlign);
          acPoint.SetDatabaseDefaults();
          acPoint.ColorIndex = 1;
 
          acBlkTblRec.AppendEntity(acPoint);
          acTrans.AddNewlyCreatedDBObject(acPoint, true);
 
          // Adjust the insertion and alignment points
          acPtIns = new Point3d(acPtIns.X, acPtIns.Y + 3, 0);
          acPtAlign = acPtIns;
 
          nCnt = nCnt + 1;
      }
 
      // Set the point style to crosshair
      Application.SetSystemVariable("PDMODE", 2);
 
      // Save the changes and dispose of the transaction
      acTrans.Commit();
  }
}
VBA/ActiveX Code Reference