wrote in message news:4814383@discussion.autodesk.com...
> I would like to get both exported. I am, at the moment, using ACAD 2002.
I have tried to copy and paste regular text & Mtext and all I get in WORD or
EXCEL is an image.
per your original request
>I am trying to take text from AutoCAD and convert it to a .txt file
(defun c:TextToFIle( / *error* allText lenTxt idx fName txtFile dName
thisTxtObj thisText HeaderText)
(vl-load-com)
(defun *error*(msg)
(if msg
(if txtFile
(progn
(close txtfile)
(setq txtFile nil)
(gc)
)
)
)
)
(setq allText(ssget"x"(list(cons 0 "MText,Text"))))
(if allText
(progn
(setq HeaderText "---Put what you want at top of file here---")
(princ(strcat(itoa(setq lenTxt(sslength allText)))" text objects to
export"))
(setq idx -1)
(setq fName(strcat(getvar"DwgPrefix")(setq
dName(vl-filename-base(getvar"Dwgname")))"-Text.txt"))
(setq txtFile(open fName "w"))
(write-line HeaderText txtFile)
(write-line (strcat "Text exported from " dname "\nProbably in reverse
order of creation ")txtFile)
(repeat lenTxt
(setq thisTxtObj
(vlax-ename->vla-object(ssname allText (setq idx(1+ idx))))
thisText (vla-get-textstring thisTxtObj))
(write-line thisText txtFile)
);repeat
(close txtFile)
(setq txtFile nil)
(gc)
(princ"\nDone writing to file")
);progn
);if text
(princ)
)
