Underlined Text

[Bill Tillman]

I'm using the M-Text routine that Lee Mac so generously provided for us. I made a few additions to it to fit the style I'm using but can't seem to find how to have it create underlined text. I'm using AC 2009 here at this office. What I want to do is to create a note like this:

 

GENERAL NOTES:

 

• This is note #1

• This is note #2

• etc....

 

This works well using M-Text and building up a string with //P to separate the paragraphs but I want the first sentence to be underlined. The only way I've succeeded with this is to actually draw a line where it make the first sentence look like it's underlined. I tried to create a new text style which would have underlined text but that doesn't seem possible with AC 2009.

 

The M-Text routine I'm using looks like this:

 

(defun M-Text (pt str txtclr a)
 (entmakex (list (cons 0 "MTEXT")         
                 (cons 100 "AcDbEntity")
                 (cons 100 "AcDbMText")
                 (cons 10 pt)
                 (cons 7 "DIM")
                 (cons 71 a)
                 (cons 62 txtclr)
                 (cons 1 str))))

[MSasu]

You may try:

(cons 1 "[color=blue]{\\L[/color]GENERAL NOTES[color=blue]}[/color]:\\PThis is note #1")

 

Regards,

Mircea

[Lee Mac]

http://docs.autodesk.com/ACD/2010/ENU/AutoCAD%202010%20User%20Documentation/index.html?url=WS1a9193826455f5ffa23ce210c4a30acaf-63b9.htm,topicNumber=d0e123454

[Organic]

I'm using the M-Text routine that Lee Mac so generously provided for us.

 

Which program is this one?