--- In cadprog@yahoogroups .com, "Tara" <cc_tara@... > wrote:
>
> hi everyone
> if anybody knows about how export text from a dwg file please help
me
>
Dear Tara

copy save this funtion as c:\text2file. lsp file
On Command prompt type
Command: (load "c:\\text2file. lsp") <--'
C:TEXT2FILE

Command: text2file <--'
and select text it will save file on c:\news_text. txt

;----------- --------- text2file.lsp ------------ --------- --------- ---
(defun c:text2file ()
(setq fin (open (strcat "c:\\news_text. txt")"W") )
(if fin
(progn

;(setq alltext_set (ssget "x"'((-4 . "<OR")(0 . "TEXT")
(0 . "MTEXT") (-4 . "OR>")))) ; auto select all text and mtext
(setq alltext_set (ssget)) ; select text one by one

(setq cnt 0)
(repeat (sslength alltext_set)
(setq ent1 (ssname alltext_set cnt))
(setq entlst (entget ent1))
(setq textlin (cdr (assoc 1 entlst)))
(write-line textlin fin)
(setq cnt(1+ cnt))
)
(close fin)
(alert (strcase (strcat "\nText saved in file
c:\\news_text. txt")))
)
)
)
;----------- --------- --------- --------- --------- --------- --