[ARX程序]：如何把acad中的一段文字输出到Microsoft Word格式文件中

lzxlzx · 发表于 2004-1-6 20:03:55

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何把acad中的一段文字输出到Microsoft Word格式文件中

hongyang · 发表于 2004-1-7 08:21:00

首先要在程序中加载读写word的控件(vc自带),然后想怎么样就怎么样!

xiaoyanyan · 发表于 2004-1-7 11:10:45

如果仅有少量文字需要导出，那么在“Ddedit”或“Mtext”的编辑框中，选择文字进行复制，然后粘贴到文字编辑器中即可。但是如果图纸中有大量散落的文字需要导出，上述方法就不太适用了。下面提供的小程序“ExpText.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”命令加载“ExpText.lsp”，在“Command：”后键入EXT回车，输入文件名（可带路径及后缀名）、窗选实体（自动过滤非文字实体），此时输出到文件的文字实体将按其在AutoCAD实体集中建立的先后次序及回车换行。

照猫画虎 · 发表于 2004-1-9 17:06:18

读写word的控件(vc自带)
是什么？

king_ws2002 · 发表于 2006-2-10 16:45:25

我认为需要用到COM技术！

nymbhet · 发表于 2007-4-4 23:15:10

最初由 hongyang 发布
[B]首先要在程序中加载读写word的控件(vc自带),然后想怎么样就怎么样! [/B]

怎么理解？

liusun1982 · 发表于 2007-4-5 08:39:35

最初由 hongyang 发布
[B]首先要在程序中加载读写word的控件(vc自带),然后想怎么样就怎么样! [/B]

应该就是用那个控件的接口吧,找到要导出文字的位置然后找到字符串

SunLion · 发表于 2007-4-26 11:26:16

需要WORD（COM）对象（WWW.VCKBASE.COM查一下）,然� ... 作生成WORD文档

账号		自动登录	找回密码
密码			立即注册

[ARX程序]：如何把acad中的一段文字输出到Microsoft Word格式文件中

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子