topic Re: MText mixed justification in VBA Forum

MText mixed justification

Anonymous — Tue, 12 Dec 2017 21:17:02 GMT

Hello everyone,

I tried to create Mtext with mixed alignment, but up to now only find the possibility to align the whole text block by following code:

Set InsrtTXT = AcadApp.ActiveDocument.ModelSpace.AddMText(InsrtPnt, 50, TXTString)

InsrtTXT.AttachmentPoint = acAttachmentPointBottomRight

But I want the text like this:

Line 1: Profile-No. 12345_1_Ä2

Line 2: RWXXXX

One possibility of course would be to split the text into smaller peaces, but I don't want to do this. Especially because the MText Editor within Autocad allows me exactly to do what I want.

Thanks in advance.

Lars

Re: MText mixed justification

Ed__Jobe — Thu, 14 Dec 2017 15:24:09 GMT

You need to edit the text string using mtext format codes.

Re: MText mixed justification

Anonymous — Thu, 14 Dec 2017 15:52:49 GMT

Thanks Ed that is obviously a good idea, but up to now I only found parameters to align to Bottom, Center or Top by putting \A+No. in front of the text.

What do you have to use for horizontal alignment?

Re: MText mixed justification

Ed__Jobe — Thu, 14 Dec 2017 18:30:32 GMT

Format some mtext how you want it. Then select it and look at its Contents property in the Properties palette. This help topic might help some.

If you're having trouble seeing the format codes, you can switch the editor to Notepad by setting MTEXTED to "notepad".

Specify an Alternate Text Editor

At the Command prompt, enter MTEXTED.
At the prompt do one of the following:
- Enter the path and name of the executable file for the ASCII text editor that you want to use to create or edit multiline text.
- Enter Internal to restore the text editor.

Re: MText mixed justification

Anonymous — Fri, 15 Dec 2017 15:50:23 GMT

Hello Ed,

thanks you ver much for your help! That was quite helpful answer.

By using "{\P\pql;Text}" you could align single line left. Replacing "l"
through "r" you get IT to the right.