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))


[MeasureUp]

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)
                    [color=red](cons 7 "ROMANS")[/color]
                    (cons 1 val))))

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

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

  (princ))


Thank you very much.
By learning your code, I read DXF section in the HELP & add a line the your code allowing to change the text style. 

[CAB]

good job.
You can also set the layer and if needed the color override.
Do you see which DXF codes do that?

[Lee Mac]

Nice one 

This may help you 

http://autodesk.com/techpubs/autocad/acad2000/dxf/

[MeasureUp]

good job.
You can also set the layer and if needed the color override.
Do you see which DXF codes do that?

Not sure if the following correct:

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 7 "ROMANS")
                    (cons 1 val))
    ); end of entmakex
    [color=red](entmakex (list (cons 0 "LAYER")
  (cons 2 "Layer_Mtext")) ; set mtext's layer to "Layer_Mtext" if it exists.
    ); end of entmakex[/color]
)
  (if (setq pt (getpoint "\nSpecify Point: "))
    (progn
      (setq str (getstring t "\nSpecify Text: "))

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

[MeasureUp]

Nice one 

This may help you 

http://autodesk.com/techpubs/autocad/acad2000/dxf/

Thanks for the link.
PS. Is there a 2010 version available in autodesk's web?
I can find it there.

[CAB]

Not quite. The benefit of using entmake is that if the layer does not exist it will create it without your help.

Try this:

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 7 "ROMANS")
                    (cons 8 "Layer_Mtext")
                    (cons 1 val))
    ); end of entmakex

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

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

[Kerry]

Thanks for the link.
PS. Is there a 2010 version available in autodesk's web?
I can find it there.

Try this :-

http://images.autodesk.com/adsk/files/acad_dxf1.pdf

[MeasureUp]

Not quite. The benefit of using entmake is that if the layer does not exist it will create it without your help.

Try this:

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 7 "ROMANS")
                    (cons 8 "Layer_Mtext")
                    (cons 1 val))
    ); end of entmakex

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

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

Sorry, I confuse with the DXF group codes.
I use the (cons 2 "Layer_Mtext") because I found "2" under the layer section.

[MeasureUp]

Thanks for the link.
PS. Is there a 2010 version available in autodesk's web?
I can find it there.

Try this :-

http://images.autodesk.com/adsk/files/acad_dxf1.pdf

Thanks for your help. I opened the file.
I am trying to get more resources from Autodesk web.
I did a search again but can't find a page in the Autodesk web showing the entry to the DXF Reference file.
Can you show me the page?
Thanks again.

[Kerry]

http://usa.autodesk.com/adsk/servlet/ps/item?siteID=123112&id=2882295&linkID=9240617

Have you tried your local Help files ?  :-

C:\Program Files\Autodesk\ACAD 2010\Help\acad_dxf.chm

[CAB]

Don't forget to visit this thread:
http://www.theswamp.org/index.php?topic=24700.msg359343#msg359343

[Lee Mac]

Not quite. The benefit of using entmake is that if the layer does not exist it will create it without your help.

Try this:

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 7 "ROMANS")
                    (cons 8 "Layer_Mtext")
                    (cons 1 val))
    ); end of entmakex

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

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

Sorry, I confuse with the DXF group codes.
I use the (cons 2 "Layer_Mtext") because I found "2" under the layer section.

When aiming to modify/set the properties for an entity, just look at the entity dxf group codes - these are all that you need. The layer dxf codes would be used to create/modify a layer.

[MeasureUp]

http://usa.autodesk.com/adsk/servlet/ps/item?siteID=123112&id=2882295&linkID=9240617

Have you tried your local Help files ?  :-

C:\Program Files\Autodesk\ACAD 2010\Help\acad_dxf.chm

Thanks.
Yes, I know the local built in one but was thinking it would be helpful if there is one in pdf form.

[MeasureUp]

Don't forget to visit this thread:
http://www.theswamp.org/index.php?topic=24700.msg359343#msg359343

You are the biggggggg man.
Thanks for the useful/helpful resources.

[MeasureUp]

...
When aiming to modify/set the properties for an entity, just look at the entity dxf group codes - these are all that you need. The layer dxf codes would be used to create/modify a layer.

Thanks. you are right.