[求助]：怎么将CAD里多行文字转化成文本格式？

longcf

菜鸟求助：刚刚收到张图纸，他将工程概况说明用CAD多行文字做的，请问有什么办法将他转化为文本格式啊？这样我把他帖到WORD里，进行文字编辑

水炮眼大侠

呵呵,双击之后不是可以打开文字编辑器吗?然后"复制",粘贴到WORD中不就可以了吗?
　　如果仅有少量文字需要导出，那么在“Ddedit”或“Mtext”的编辑框中，选择文字进行复制，然后粘贴到文字编辑器中即可。但是如果图纸中有大量散落的文字需要导出，上述方法就不太适用了。下面提供的小程序“1.lsp”，可以通过AutoCAD的窗选方式直接将所选文字输出到文本文件中去。


;;; ExpText.lsp(defun c:EXT (/ flnm fn s n index ents ent txt)

　(setq flnm (getstring “\nFile name:”))

　(setq fn (open flnm “w”))

　(setq s (ssget))

　(setq n (sslength s))

　(setq index ( - n 1))

　(repeat n

　　(setq ents (entget (ssname s index)))

　　(setq index ( - index 1))

　　(setq ent (assoc 0 ents))

　　(if ( = “TEXT”(cdr ent))

　　　　(progn

　　　　　　(setq txt (cdr (assoc 1 ents)))

　　　　　　(write-line txt fn)

　　　　)

　　)

　)

(close fn)

)

(princ “\n文本导出:EXT”)


　　程序建立后，通过“Appload”命令加载“1.lsp”，在“Command：”后键入EXT回车，输入文件名（可带路径及后缀名）、窗选实体（自动过滤非文字实体），此时输出到文件的文字实体将按其在AutoCAD实体集中建立的先后次序及回车换行。

bluedrag

可以用ET工具里面的text转mtext工具，然后再编辑复制

longcf

谢谢两位楼上的高手热心帮助

jordan1219

选择性粘贴