Getting rid of text formatting of mtext

[arman88]

I want to iterate through the mtexts of a given drawing and export them to Excel.suppose that there is an mtext in the drawing named mtextobj in which "sample" is written in the first line and "note" is written in the 2nd.this would be read as "sample note". i use textstring property:
.
.
Dim mtextobj As AcadMText
MsgBox mtextobj .TextString
.
.
and autocad returns "sample\Pnote". this is appropriate for me.
the problem is when text formatting of this mtext is changed.for example if i double click on the mtext and in the Text Formatting box change the color to red,autocad returns
{\C1;sample\Pnote}

or if i change the font to verdana it gives
{\fVerdana|b0|i0|c0|p34;sample\fVerdana|b0|i0|c178 |p34;\P\fVerdana|b0|i0|c0|p34;note}

How can i access to the real content inside the mtext? and exclude text formatting data which is merged with the string.
any help is highly appreciated..

[mahahaavaaha]

Hi,

I don't think you have any other method than ging through the textstrings and individually stripping the controlcharacters. Take a look at the ExpressTools Uppercase Text-tool-lisp, you'll see that's the way Autodesk does it as well.
File tcaseSup.lsp, this is the part where they strip the formatting:

(defun acet-mtext-format-extract ( str / lst raw len pos frmt flst a n j lst2 )
 
 (setq lst (list "{"    "}"    "\\P"    "\\~"
                 "\\{"    "\\}"    "\\O"    "\\L"
                 "\\S"    "\\A1"    "\\A2"    "\\A3"
                 "\\f"    "\\C"    "\\H"    "\\T"
                 "\\Q"    "\\W" "\\p"
           );list
       raw ""
       len (strlen str)
       pos 0
 );setq
 
 (while (> (strlen str) 0)
  
  (setq lst2 (mapcar '(lambda (x) (acet-str-find x str)) lst)
        lst2 (mapcar '(lambda (x) (if x (list x) x)) lst2)
        lst2 (apply 'append lst2)
           j (apply 'min lst2)
  );setq 
  (if (/= j 0)
      (progn
        (setq  raw (strcat raw 
                           (substr str 1 (- j 1))
                   )
               str (substr str j)
                 a (acet-mtext-format-bite str) ;; (list format str offset)
              frmt (car a)
               str (cadr a)
                 n (+ pos j)
               pos (+ pos 
                      j 
                      (caddr a)
                      (- (strlen frmt) 1)
                   )
              frmt (list frmt n)
              flst (cons frmt flst)
        );setq
        (setq n (+ (length lst) 10));get out of inner loop
      );progn
      (setq raw (strcat raw str)
            str ""
      );setq then get out
  );if    
 
 );while
 
 (list raw (reverse flst))
);defun acet-mtext-format-extract

/Petri

[cganiere]

I usually just explode the mtext. Use match properties to the format I want then recombine the text entities.

[arman88]

Hi Petri(mahahaavaaha)
Do those codes strip the textformatting? would you please let me know how can i use it. I am not that familiar with lisps.
I copied them into a blank notepad and saved it as tcaseSup.lsp. then in acad
Tools>AutoLISP>Load Application i loaded tcaseSup.lsp. then i wrote tcaseSup in the prompt and pressed Enter. but acad returned and error: "Unknown command "TCASESUP". Press F1 for help."
Was it the correct way?

[Hedgehog]

I use one called stripmtext.lsp but I suspect it does essentially the same thing...

[arman88]

I use one called stripmtext.lsp but I suspect it does essentially the same thing...

I tested that in the same way. autocad gave me an error:
"cannot load DCL file stripmtext[3].dcl"

In the file it is said that for AutoCAD 2000 thru 2004.mine is 2007.
thanks anyway

I am trying to find a VBA code for that

[Hedgehog]

Apologies... won't let me upload a DCL... erm, try this zip of it... I've run it on 2006/7/8

[arman88]

Apologies... won't let me upload a DCL... erm, try this zip of it... I've run it on 2006/7/8

how should i run it? it still returns the same error. should i copy the DCL file to a special path? or load it manually in acad?

[CAB]

There is a newer version.

;|

StripMtext 4 BETA
Main function that performs the format removal written by John Uhden
All other supporting code and user interface written by Steve Doman

-------------------------------------------------------------------

Notes for Beta 4A 7/18/2005:

1) New file names are: StripMtext[4a].lsp & StripMtext[4].dcl
2) Added support for Acad Tables.
3) Fields inside Mtext objects seem to process ok, but need more testing.
4) Currently working on Tab removal.  DCL shows Tabs, but it doesn't work yet.
5) The report which prints a count of objects processed is temporarily disabled.
6) Please email bug reports, comments, or annoyances to: sdoman@qwest.net
7) Should I add support for the new fangled ArcLength Dimensions?

|;

[Hedgehog]

how should i run it? it still returns the same error. should i copy the DCL file to a special path? or load it manually in acad?

Bung 'em both in your support directory then appload the .lsp in Autocad... use stripmtext to run