CAD与Word,应用ALisp、VLisp自动填写节能专篇数据，应用场景分享！

红烧嘎嘎

一、背景：

１、工作中需要以Word表格形式填写建筑单体相关信息审查备案（固定格式）。

２、设计说明以ＤＷＧ格式文件出图签章。

3、两种格式的文件中信息内容具有相同部分。

二、通常操作：

利用专用软件对建筑建模进行模拟计算后，软件会生成Word格式的计算书，填写数据就是打开计算书，通过复制、粘贴把需要的数据填到基本情况表，再打开ＣＡＤ文件再重复一次复制、粘贴，过程极度无聊、简单粗暴、极易出错。

三、解决思路：

在网络一顿乱搜，终于在晓东CAD中找到了相关的贴子，注册并在论坛中搜索教程、看贴子，经不断测试终于可以让程序来完成复制、粘贴的工作，我就能小小的偷懒一下了。

四、论坛中学习的主要资料：

1、Vlisp连接Word初步

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=667458&fromuid=777990

(出处: 晓东CAD家园-论坛)

2、AutoCAD 完全应用指南:程序设计篇 （作者：吴永进）

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=725375&fromuid=777990

(出处: 晓东CAD家园-论坛)

轻松掌握Visual LISP活用于块与属性管理

轻松掌握Visual LISP活用于Word

重要知识点：

1、建立与Word文档连接，例：(setq mswobj (vlax-get-object "word.application"));

2、理解Word文档对象模型，典型的层级关系。参考资料：《Microsoft Word Visual Basic参考》;

3、获取Word文档对象，例：(setq mswdoc (vlax-get-property mswobj "ActiveDocument"));

4、调用Word VBA方法（函数），例：(vlax-invoke-method mytbl 'cell a b);用Word表格对象支持的cell (行 列)方法，定位Word表格单元。

由于这个小功能不具有通用性，所以分享一下应用场景。如果有类似应用场景的可以作为一种参考思路。

应用演示：

应用演示