從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. 複製口齒不清文件到一個目錄，您的DWG文件，命名文件爲acaddoc.lsp。
2. 按順序打開目錄中的每個dwg。打開後，acaddoc.lsp將運行並執行其操作。
3. 從該目錄中刪除acaddoc.lsp（否則它會在您每次打開dwg時運行）。
4. 重複每個你想要目錄的dwg文件的目錄。

注：

1. 確保acaddoc.lsp關閉繪圖時，它的完成（或者讓AutoCAD中退出，這取決於你如何打開文件）。
2. 爲此，您的標題欄需要可靠，請確保您添加了一些錯誤檢查。您可以使用腳本將任何問題記錄到文本文件，因爲他們發現它們...

AutoLisp真的很容易，幫助學習去AutoLISP Beginners' Tutorials。

想要提出問題並從以前回答的問題中搜索代碼片段的最佳位置，請參閱Visual LISP, AutoLISP and General Customization。

Answer 2

如果您有完整版本的AutoCAD，則可以嘗試使用數據提取向導。這對於歸檔塊很有效。如果這不好，最好的嘗試是Swamp或AutoCAD論壇或AUGI。

VBA已被棄用，在過去3個版本的AutoCAD贊成.NET API的，FYI

+編輯+ 看一看這個(free) chapter on AutoCAD external database connectivity。