cad中如何导入导出文本.docxVIP

CAD 中如何导入导出文本？ 在使用 CAD 绘图软件进行工作时，有时需要把用文字 编辑器写好的段落文字插入到图形中，并用 CAD 的文字编 辑命令进行修改；有时也需要把图形中已有的文字输出到 文件中，以便用文字编辑器进行处理。CAD 中并没有直接 提供关于文本插入和文本输出的命令，遇到这样的问题该 怎么办？通过剪贴板进行 OLE 方式的复制与粘贴是无法实 现上述要求的。下面介绍的方法能够解决在 CAD 与文字编 辑器之间进行纯文本的导入和导出的问题。　　1. 导入文 本　　虽然 CAD 中没有提供插入文本的命令，但是利用多 行文字编辑 Mtext 可以实现文本插入。在 Mtext 的对话框中 右键菜单中有“输入文字”的功能，可以选择磁盘上的“.txt”、 “.rtf”格式的文件进行插入，注意插入文件大小不得超过 16KB，这显得美中不足。还有一种比较麻烦的方法就是利 用文字编辑软件先打开文本，然后在输入单行文字或多行 文字的时候将文字内容复制粘贴到 CAD 中。CAD 还可以将 默认的文字编辑器设置为记事本或 WORD，设置方法如下： 1、 在选项对话框中设置。输入 OP 命令，打开选项对话框，在 “文件”选项卡中找到文本编辑器应用程序，可以浏览设置成 记事本、WORD 的执行文件。 2、 直接输入 mtexted 命令，回车，输入 notepad，可以将编辑 器设置成记事本，如果想设置回来，输入 mtexted，回车， 输入“.”，回车，就可以回复为 CAD 默认的编辑器。 如果要导入文本，无论是粘贴、插入，实际上都不太复杂， 改变编辑器一般人很少用。 　　2. 导出文本 如果仅有少量文字需要导出，那么在单行和多行文字的编 辑框中，选择文字进行复制，然后粘贴到文字编辑器中即 可。但是如果图纸中有大量散落的文字需要导出，上述方 法就不太适用了。下面给大家介绍两个在网上看到的小程 序，可以快速将 CAD 中的单行文字输出为文本文件（*.csv）， 这个文件用记事本或 EXCEL 都可以打开。 A、选择文字输出 可以框选文字进行输出，自动将文字保存为*.csv。 (defun c:exx ( / amp;ss %fir ~fir @tex #si #sn amp;tex %lay %tex @cl %ctx ) (vl-load-com) (princ \n 请选择要输出的文字对象) (if (setq amp;ss (ssget (list (cons 0 TEXT)))) (progn (setq %fir (strcat C:\\ (vl-filename-base (getvar dwgname)) .csv) ~fir (open %fir w)) (repeat (setq @tex () #si 0 #sn (sslength amp;ss)) (setq amp;tex (vlax-ename-gt;vla-object (ssname amp;ss #si)) #si (1+ #si)) (setq %lay (vla-get-layer amp;tex) %tex (vla-get-textstring amp;tex)) (if (setq @cl (assoc %lay @tex)) (setq @tex (subst (append @cl (list %tex)) @cl @tex)) (setq @tex (cons (list %lay %tex) @tex)) ) ) (setq @tex (vl-sort @tex (function (lambda (a b) (gt; (length a) (length b)))))) (setq #si 0 #sn (length (car @tex))) (setq @tex (vl-sort @tex (function (lambda (a b) (lt; (car a) (car b)))))) (repeat #sn (setq %tex ) (foreach @tx @tex (if (null (setq %ctx (nth #si @tx))) (setq %ctx ) ) (if (/= %tex ) (setq %tex (strcat %tex , %ctx)) (setq %tex %ctx) ) ) (write-line %tex ~fir) (setq #si (1+ #si)) ) (close ~fir) (vlax-release-object amp;tex) (princ (strcat \n 成功输出 (itoa (sslength amp;ss)) 个文字输出 到 %fir 中.)) ) (princ