Justify all text in drawing

[sgroff]

I have some old files that we need to mirror for a project. Can I use VBA to iterate through all the text objects and reverse their justification?

for example, If a piece of text is top left justified, I need it to be top right justified.

I assume i can use an "if" statement but i'm struggling finding any code that let me iterate through each text object in the drawing.

any help would be greatly appreciated

[ssaqibh346404]

This code should do what you require. You would have to use your own alignment codes instead of 9 and 11

Sub realigntext()
    Dim ent As AcadEntity
    Dim dwg As AcadDocument
    Set dwg = ThisDrawing
    For Each ent In dwg.ModelSpace
        If ent.ObjectName = "AcDbText" Then
            If ent.Alignment = 9 Then ent.Alignment = 11
        End If
    Next ent
End Sub

[sgroff]

This code should do what you require. You would have to use your own alignment codes instead of 9 and 11

Sub realigntext()
Dim ent As AcadEntity
Dim dwg As AcadDocument
Set dwg = ThisDrawing
For Each ent In dwg.ModelSpace
If ent.ObjectName = "AcDbText" Then
If ent.Alignment = 9 Then ent.Alignment = 11
End If
Next ent
End Sub

Awesome. I'll try it out later. thanks a million

[ssaqibh346404]

you can use these constants instead of numbers

acAlignmentLeft

acAlignmentCenter

acAlignmentRight

acAlignmentAligned

acAlignmentMiddle

acAlignmentFit

acAlignmentTopLeft

acAlignmentTopCenter

acAlignmentTopRight

acAlignmentMiddleLeft

acAlignmentMiddleCenter

acAlignmentMiddleRight

acAlignmentBottomLeft

acAlignmentBottomCenter

acAlignmentBottomRight