Topic: Creating mtext with varying height and colours

[Windsor]

Is it possible to create an mtext object via autolisp where the user inputs a string of text  (i.e. "PLAN ON BASE") which is has a specified height and colour, then skip a line and write a new line with a different text height and colour? (see image attached for reference)

I know that I can use dtext to do this but is there a method where either these are joined into an mtext object or done directly to mtext.


Any help would be greatly appreciated!

[Lee Mac]

Yes - you can embed formatting codes within the MText content.

[BIGAL]

An example of text, the Cx is color number, the H is a height factor. The \\P is line break.

{\\C1;\\H1.6x;PLAN ON BASE}\\P{\\C3;A1 Scale 1:250}\\P{\\C4;A3 scale 1:500}"

[Windsor]

Thanks a million guys, with my limited AutoLisp experience, I would have just attempted to insert individual texts and change their properties individually.

I am attempting to create code to go along with this to insert into a drawing. can you give me any pointers as to where to go from here? I'm attempting to specify the description, A1 scale and A3 scale then put it all together with the relevant formatting.

Code - Auto/Visual Lisp: [Select]

1. (defun c:test ( / p Des A1 A3)
2.        
3.         (setq Des (getstring "\nEnter Description: "))
4.         (setq A1 (getint "\nEnter Scale at A1: "))
5.         (setq A3 (* A1 2))
6.         (setq txt (strcat "{\\C4;\\H4x;" Des "}\\P{\\C7;\\H2x;A1 SCALE 1:" A1 "}\\P{\\C7;\\H2x;A3 SCALE 1:" A3 "}"))
7.  
8.        
9.         (if (setq p (getpoint "\nText Insertion Point: "))
10.         (entmake
11.             (list
12.                '(000 . "MTEXT")
13.                '(100 . "AcDbEntity")
14.                '(100 . "AcDbMText")
15.                 (cons 010 (trans p 1 0))
16.                '(001 . txt)
17.                            '(007 . "standard")
18.                '(041 . 0)
19.                '(040 .  1.0)
20.             )
21.         )
22.     )
23.     (princ)
24. )

[BIGAL]

In the strcat you must have strings A1 is a number so is A3 (* A1 2) need to use (rtos A1 2 0) look up help Rtos and what the 2 0 means.

[Lee Mac]

Use itoa to convert your integer variables to a string before concatenation.

[Windsor]

Thanks guys, I have it working as expected now!

[alanjt]

Yes - you can embed formatting codes within the MText content.

I did not know this one existed. Good stuff!

Code: [Select]

\Tvalue;

Adjusts the space between characters. Valid values range from a minimum of .75 to 4 times the original spacing between characters.

\T2;Autodesk