Topic: Underlined Mtext

[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.