使用 Access 2007 中的 VBA 在 AutoCAD (dwg) 文件中进行搜索

Question

我有数百个 DWG、AutoCAD 文件，我想搜索这些文件并将它们编目到 MS Access 数据库中。

基本上，我想搜索 DWG 并提取标题框中的任何描述以及日期，并将所有内容带到 Access 中，使其成为可搜索的目录。

例如，我有一个文件名为 T-25682.DWG，其标题为 Machine Spacer，创建于 01/20/2010。

我会从 DWG 文件中提取该信息并将其插入 Access 数据库中：

== ID ==    == DESCRIPTION ==    == CREATED ON ==    == FILENAME ==

    1       Machine Spacer       01/20/2010          T-25682.dwg

我该如何处理和解决这个问题？是否有可以与 Access 一起使用的 AutoCAD 库？如何在 DWG 文件中进行搜索？

Answer 1

我会完全避免使用 VBA，AutoLISP 可以轻松地完成这项工作。方法如下：

在 AutoLISP 文件中创建“数据提取和写入 Access”功能。免费提供的 ADOLisp 库将使写入 Access 变得轻而易举，如果失败，或者您无法做到这一点，您可以随时写入 csv 文件...

一旦您能够为单个 dwg 文件执行此操作，请创建一个脚本（使用任何可以复制和打开文件的工具，AutoLisp 也可以）以执行以下操作：

1. 将该 lisp 文件复制到 dwg 文件所在的目录中，将文件命名为 acaddoc.lsp。
2. 依次打开目录中的每个 dwg。打开后，acaddoc.lsp 将运行并执行其工作。
3. 从该目录中删除 acaddoc.lsp（否则每次在其中打开 dwg 时它都会运行）。
4. 对您希望在其中编目的 dwg 文件的每个目录重复此操作。

注意事项：

1. 确保 acaddoc.lsp 完成后关闭图形（或退出 AutoCAD，具体取决于您打开文件的方式）。
2. 为此，您的标题栏需要可靠，确保添加一些错误检查。当他们发现问题时，您可以使用该脚本将任何问题记录到文本文件中...

AutoLisp 真的很简单，学习的帮助请到AutoLISP Beginners' Tutorials。

有关提问和从以前回答的问题中搜索代码 sn-ps 的最佳位置，请参阅Visual LISP, AutoLISP and General Customization。

Answer 2

如果您有完整版的 AutoCAD，您可以尝试数据提取向导。这对于属性块非常有效。如果这不好，最好的尝试是 Swamp 或 AutoCAD 论坛或 AUGI。

在 AutoCAD 的最后 3 个版本中不推荐使用 VBA，以支持 .NET API，仅供参考

+编辑+ 看看这个(free) chapter on AutoCAD external database connectivity。