Toggle Underline On/Off in MTEXT

[Bill Tillman]

I have a small note that I need to add to a drawing using LISP and it contains two lines. The first line is underlined, but the second line is simple text. I've been able to get the underline to work using \\L but I need to shut it down before going on to the next line in the paragraph.

(command-s "._MTEXT" 	(polar (polar gp4 0 (- (/ (distance gp4 gp3) 2.) 12)) a270 64)
   			(polar (polar gp4 0 (+ (/ (distance gp4 gp3) 2.) 12)) a270 64) "\\LPLAN VIEW\\P(DETAILS ON NEXT SHEET)" "")

[Bill Tillman]

Okay, I found this and that takes care of my problem. Now to find out how to horizontally center justify this same MTEXT object.

 

UPDATE: Once again, entmake came to the rescue. I had an old routine that I deployed and it's handling the issue fine, but I was really hoping to get something just in an MTEXT command which would Center align the text.

Edited March 27, 2015 by Bill Tillman

[neophoible]

Perhaps this approach might shed some light on the situation. The following are entity lists representing the five basic justification options in MText dialog (after the "Select object: " prompts). Note the "pxq?;" prefix of each.

 

Command: (setq E (car (entsel)) N E L (entget E))
Select object: ((-1 . <Entity name: 7ffff6b5140>) (0 . "MTEXT") (330 . <Entity 
name: 7ffff6039f0>) (5 . "9BBC") (100 . "AcDbEntity") (67 . 0) (410 . "Model") 
(8 . "LABELS") (100 . "AcDbMText") (10 25.8534 9.24843 0.0) (40 . 0.125) (41 . 
3.17468) (46 . 0.0) (71 . 2) (72 . 5) (1 . "\\pxql;Test text 00.") (7 . 
"ROMANS") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 1.24405) (43 . 0.125) (50 . 
0.0) (73 . 1) (44 . 1.0))

Command: (setq E (car (entsel)) N E L (entget E))
Select object: ((-1 . <Entity name: 7ffff6ac850>) (0 . "MTEXT") (330 . <Entity 
name: 7ffff6039f0>) (5 . "9B35") (100 . "AcDbEntity") (67 . 0) (410 . "Model") 
(8 . "LABELS") (100 . "AcDbMText") (10 25.8991 8.61804 0.0) (40 . 0.125) (41 . 
3.17468) (46 . 0.0) (71 . 2) (72 . 5) (1 . "\\pxqc;Test text 01.") (7 . 
"ROMANS") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 1.24405) (43 . 0.125) (50 . 
0.0) (73 . 1) (44 . 1.0))

Command: (setq E (car (entsel)) N E L (entget E))
Select object: ((-1 . <Entity name: 7ffff6ac860>) (0 . "MTEXT") (330 . <Entity 
name: 7ffff6039f0>) (5 . "9B36") (100 . "AcDbEntity") (67 . 0) (410 . "Model") 
(8 . "LABELS") (100 . "AcDbMText") (10 25.9324 7.48601 0.0) (40 . 0.125) (41 . 
3.17468) (46 . 0.0) (71 . 2) (72 . 5) (1 . "\\pxqr;Test text 02.") (7 . 
"ROMANS") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 1.24405) (43 . 0.125) (50 . 
0.0) (73 . 1) (44 . 1.0))

Command: (setq E (car (entsel)) N E L (entget E))
Select object: ((-1 . <Entity name: 7ffff6ac870>) (0 . "MTEXT") (330 . <Entity 
name: 7ffff6039f0>) (5 . "9B37") (100 . "AcDbEntity") (67 . 0) (410 . "Model") 
(8 . "LABELS") (100 . "AcDbMText") (10 25.9491 6.30404 0.0) (40 . 0.125) (41 . 
3.17468) (46 . 0.0) (71 . 2) (72 . 5) (1 . "\\pxqj;Test text 03.") (7 . 
"ROMANS") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 1.24405) (43 . 0.125) (50 . 
0.0) (73 . 1) (44 . 1.0))

Command: (setq E (car (entsel)) N E L (entget E))
Select object: ((-1 . <Entity name: 7ffff6b5130>) (0 . "MTEXT") (330 . <Entity 
name: 7ffff6039f0>) (5 . "9BBB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") 
(8 . "LABELS") (100 . "AcDbMText") (10 25.9582 5.28993 0.0) (40 . 0.125) (41 . 
3.17468) (46 . 0.0) (71 . 2) (72 . 5) (1 . "\\pxqd;Test text 04.") (7 . 
"ROMANS") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 3.17468) (43 . 0.125) (50 . 
0.0) (73 . 1) (44 . 1.0))

[Bill Tillman]

Hey thanks. I'm discovering lots of things about dimenion text these days like DIMTIX and DIMJUST variables, etc...