Topic: Underlined Mtext

[MeasureUp]

How to write underlined mtext by using lisp?
Thanks in advance.

[CAB]

Perhaps the answer you seek is HERE

[MeasureUp]

Perhaps the answer you seek is HERE

Thanks for your help.

[CAB]

You're welcome.
Did you find the information you needed?

[Lee Mac]

Code: [Select]

[color=RED]{\\L[/color]This text is Underlined[color=RED]}[/color]


[cmwade77]

Simply add \\u to the text string, let's say your text is in a variable called TEXT
(setq TEXT (strcat "\\u" TEXT))
should do the trick.

[Joe Burke]

To underdline a text object add %%u.

But the question was how to underline an mtext object.

[MeasureUp]

Code: [Select]

[color=RED]{\\L[/color]This text is Underlined[color=RED]}[/color]


Simply add \\u to the text string, let's say your text is in a variable called TEXT
(setq TEXT (strcat "\\u" TEXT))
should do the trick.

Unlike underlining TEXT, the prefix "\\L" doesn't do the trick for MTEXT.
Thanks.

[MeasureUp]

To underdline a text object add %%u.

But the question was how to underline an mtext object.

Yes, you know what I mean.
Thanks.

[Lee Mac]

Seems to work for me  

Code: [Select]

(defun c:MakeThatMTextUnderlined (/ ent obj)
  (vl-load-com)

  (if (and (setq ent (car (entsel "\nSelect MText: ")))
           (eq "MTEXT" (cdr (assoc 0 (entget ent)))))

    (vlax-put-property
      (setq obj (vlax-ename->vla-object ent)) 'TextString
        (strcat "{\\L"
          (vlax-get-property obj 'TextString) "}")))

  (princ))


[MeasureUp]

You're welcome.
Did you find the information you needed?

Hi CAB,
Yes, I have read ervery threads which you linked.
They are helpful. Thanks.
Another question raised after reading the info you linked:
How to customise a mtext in leader?
For example, write an underline mtext and/or set up text style in leader.
Thanks again.

[MeasureUp]

Seems to work for me  

Code: [Select]

(defun c:MakeThatMTextUnderlined (/ ent obj)
  (vl-load-com)

  (if (and (setq ent (car (entsel "\nSelect MText: ")))
           (eq "MTEXT" (cdr (assoc 0 (entget ent)))))

    (vlax-put-property
      (setq obj (vlax-ename->vla-object ent)) 'TextString
        (strcat "{\\L"
          (vlax-get-property obj 'TextString) "}")))

  (princ))


Thank you very much.
This is very nice when underlining an existing MTEXT.

[Lee Mac]

Seems to work for me  

Code: [Select]

(defun c:MakeThatMTextUnderlined (/ ent obj)
  (vl-load-com)

  (if (and (setq ent (car (entsel "\nSelect MText: ")))
           (eq "MTEXT" (cdr (assoc 0 (entget ent)))))

    (vlax-put-property
      (setq obj (vlax-ename->vla-object ent)) 'TextString
        (strcat "{\\L"
          (vlax-get-property obj 'TextString) "}")))

  (princ))


Thank you very much.
This is very nice when underlining an existing MTEXT.

Is that what you were after? Or was it something else?

[MeasureUp]

Seems to work for me  

Code: [Select]

(defun c:MakeThatMTextUnderlined (/ ent obj)
  (vl-load-com)

  (if (and (setq ent (car (entsel "\nSelect MText: ")))
           (eq "MTEXT" (cdr (assoc 0 (entget ent)))))

    (vlax-put-property
      (setq obj (vlax-ename->vla-object ent)) 'TextString
        (strcat "{\\L"
          (vlax-get-property obj 'TextString) "}")))

  (princ))


Thank you very much.
This is very nice when underlining an existing MTEXT.

Is that what you were after? Or was it something else?

Origenally, I want to write underlined MTEXT by using AutoLisp.
Thanks again.

[Lee Mac]

Origenally, I want to write underlined MTEXT by using AutoLisp.
Thanks again.

Code: [Select]

(defun c:test (/ M-Text pt str)

  (defun M-Text (pt val)
    (entmakex (list (cons 0 "MTEXT")
                    (cons 100 "AcDbEntity")
                    (cons 100 "AcDbMText")
                    (cons 10 pt)
                    (cons 1 val))))

  (if (setq pt (getpoint "\nSpecify Point: "))
    (progn
      (setq str (getstring t "\nSpecify Text: "))

      (M-Text pt (strcat "{\\L" str "}"))))

  (princ))