Multi line Mtext to Single line Mtext

[csiress.154683]

Is there a lisp or shortcut to convert a multiple line mtext to a single line mtext?

Your help is greatly appreciated.
Thank you.

Craig II <><

[H-Angus]

Is there a lisp or shortcut to convert a multiple line mtext to a single line mtext?

Your help is greatly appreciated.
Thank you.

Craig II <><

Why do you want single line Mtext?

You can just explode the Mtext (to convert to Dtext) and either leave it or then use the txt2mtxt command. I guess you can create a macro or lisp to that if that's what you mean.

[csiress.154683]

Thank you for your reply.
I don't know why I didn't think of it earlier, explode and convert back to mtext.
Easy as that.

Take Care.

[ibach_]

Yes the above answer is ok if you do not have any fields in text, but how to do that with mtext containing fields so the fields stay fields?!

[alanjt]

Extract the string (assoc 1 (entget <ename>)) and put it back, then explode.

[BlackBox]

this.Mode = Modes.ProfessorChaos;

(defun c:FOO (/ ss oldEnt eData asso eName)
  (if (setq ss (ssget ":S:E:L" '((0 . "MTEXT"))))
    (progn
      (setq oldEnt (entlast))
      (entmod
        (subst
          (cons
            1
            (cdr
              (setq asso (assoc 1 (setq eData (entget (ssname ss 0)))))
            )
          )
          asso
          eData
        )
      )
      (command "._explode" ss)
      (setq eName oldEnt)
      (while (and (setq eName (entnext eName))
                  (= "TEXT" (cdr (assoc 0 (entget eName))))
             )
        (command "txt2mtxt" eName "")
      )
      (setq eName oldEnt)
      (while (setq eName (entnext eName))
        (entmod
          (subst
            (cons
              41
              (* 0.0
                 (cdr
                   (setq asso (assoc 41 (setq eData (entget eName)))
                   )
                 )
              )
            )
            asso
            eData
          )
        )
      )
    )
  )
  (princ)
)

[pbejse]

(defun c:FOO (/ ss oldEnt eData asso eName)
  (if (setq ss (ssget ":S:E:L" '((0 . "MTEXT"))))
    (progn.......

I dont get it BlackBox and what of this?

"....but how to do that with mtext containing fields so the fields stay fields?!"

unlikely i'm sure but MTEXT string more that 250 [?] characters wont be included with DXF 1.

[BlackBox]

I dont get it BlackBox and what of this?

... Just demonstrating, which regretfully doesn't do this:

"....but how to do that with mtext containing fields so the fields stay fields?!"

... And I didn't know that:

unlikely i'm sure but MTEXT string more that 250 [?] characters wont be included with DXF 1.

... So, cheers... You know, for that.