how to Justify Text from VBA

[ummar]

hi i am using autocad 2009, how can i justify some text inserted from VBA in autocad drawing. i want to make it justified MIDDLE CENTRE.

[MSasu]

You should insert the text entity and just after alter his alignment; the code below may clarify this:

 

Dim myTextObject As Object
Set myTextObject = ThisDrawing.ModelSpace.AddText("Hello World!", TextInsertionPoint, 1#)

'modify text alignment to Middle-Center
myTextObject.Alignment = acAlignmentMiddleCenter

 

Please check the help for the list of built-in alignment constants.

 

Regards,

[ummar]

thx alot dear, i am greatful

[MSasu]

You’re welcomed!