1.引言

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

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

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

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

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

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

2.1.明細(xì)欄的建立 

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

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

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

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

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

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

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