How to set a text to a specific location if the text has justification

By Xiaodong Liang

We got a question to place text in a specific location with justification ‘MC’. But  the text is NOT placed at the location, though the justification in set correctly.   

If you want to set the text to by modifying its alignment point, please just use

oTextEnt.AlignmentPoint = newPoint

If  you want to set the text by modifying its position when the text has justification, please refer to the following code.

Sub TextPosition()            Dim doc As Document = Autodesk.AutoCAD. _             ApplicationServices.Application. _             DocumentManager.MdiActiveDocument            Dim ed as Editor = doc.Editor       Dim selection As PromptSelectionResult = ed.GetSelection()              Dim tm = Autodesk.AutoCAD.ApplicationServices.Application. _             DocumentManager.MdiActiveDocument.TransactionManager             Dim objectID As ObjectId              Dim ta As Transaction = tm.StartTransaction()             Try            For Each objectID In selection.Value.GetObjectIds()                Dim  ent As Entity= tm.GetObject( _                     objectID, OpenMode.ForWrite)                If TypeOf ent is DBText then                   Dim oText As DBText = ent                   Dim textPosition = oText.Position                   Dim transMatrix As Matrix3d  = _                       Matrix3d.Identity                   Dim newPosition As New Point3d(10, 10, 10)             &
#160;     Dim transVec As Vector3d =  _                        newPosition -                        textPosition                   ' tranform so that the whole text                    ' including position and alighment point are                    ' relocated.                   transMatrix = _                        transMatrix.Displacement(transVec)                  oText.TransformBy(transMatrix)                End If                                       Next                  ta.Commit()        Catch ex As System.Exception            MsgBox(ex.Message)        Finally            ta.Dispose()        End Try         End Sub