1.引言

目前，AutoCAD提供了五種二次開發(fā)手段，分別是:AutoLISP, ADS ,ARX , VisualLlSP, VBA和Visual Basic。這五種開發(fā)工具都具有強大和豐富的二次開發(fā)能力及自己鮮明的特點。由于有些工具不適應目前的可視化編程要求，而逐漸被其他工具所替代。與其他幾種二次開發(fā)方法相對比，VBA具有全開放式的對象模型、良好的運行速度、能夠使AutoCAD與其他應用程序直接共享數據等優(yōu)點。

本文研究利用VBA操作AutoCAD文件中Block對象的屬性，將其中包含的明細欄信息導人Microsoft Excel的Worksheet對象中，生成符合要求明細表。研究基于對象模型的AutoCAD文件信息處理技術，研究介于AutoCAD和Excel之間的數據信息交換程序的開發(fā)，以及對產生的明細表進行后續(xù)處理的方法。

2.明細表自動提取的實現(xiàn)

將AutoCAD中的明細表信息自動導人Excel的實現(xiàn)過程為:首先通過VBA訪問AutoCAD，然后從AutoCAD中獲取明細表信息，接著將明細表信息導人Excel，最后再Excel中對提取出來的明細表信息進行進一步的處理。

提取明細欄信息的過程主要包括通過塊屬性建立明細欄、利用VBA提取明細欄信息、在Excel中對提取的明細欄信息進行整理等幾個步驟。

現(xiàn)在以一個實際工作中碰到的例子來具體說明利用VBA從AutoCAD文件中提取明細表信息到Excel的全過程。因為涉及保密的原因，刪去了圖紙中原有的具體設計內容，僅保留了有關的圖框和明細欄的內容。

2.1.明細欄的建立 

當裝配圖中需要輸人明細欄信息時，按照國標及所標的要求，明細欄位于圖紙標題欄的上方，按由下到上的順序填寫。首先在指定位置插入事先生成的標示明細欄各項名稱的明細欄表頭圖塊:明細欄頭.dwg。

插人明細欄表頭后，就可以依次輸人明細欄的各項內容了。為了統(tǒng)一明細欄的格式和便于以后的明細欄信息提取，這里采用了帶屬性的塊插人來輸入各項明細欄信息。

達到這個目的，需要建立一個帶有屬性的塊mxl。屬性是在一個塊內的變量文字區(qū)，利用屬性可以給塊加上文字或數據信息。首先按照有關明細欄的標準要求畫出一行符合要求的明細欄表格，然后選擇AutoCAD的下拉菜單中的繪圖Draw-塊Block-定義屬性Define Attributes，或者直接在命令行輸人attdef命令來生成明細欄的各項內容屬性。

使用帶屬性的塊插人來創(chuàng)建明細欄，沒有具體格式限制，用戶可以根據實際需要設計白己的格式，具有很大的靈活性，也利于信息的統(tǒng)一提取。

在帶屬性的塊中有Attribute和Block兩個圖形對象，一個Attribute對象對應明細欄中的一個欄月項，將對應明細欄中的所有欄目的Attribute對象組合在一起放人Block對象中，該對象就是用戶定義的一個明細欄記錄，然后將定義好的Block插人到圖中，就是在圖紙中放置了一條明細欄。

由于每張總裝圖或部件裝配圖中明細欄記錄的個數是不定的，因此只需為一個明細欄記錄定義一個Block，該Block包含若干Attribute對象，對應于名稱、材料和數量等欄目，在AutoCAD圖形中生成明細欄時，有多少個明細欄記錄就插人多少個明細欄Block。

我們用InsertBlock方法將塊插人到圖形中，用AddAttribute方法往塊中添加屬性，屬性的參數有標記、屬性值、插入屬性時的提示、文本的插人點。