基于AutoCAD二次開發實現按序排圖

張培媛

(忠旺（遼陽）鋁模板制造有限公司, 遼寧 遼陽111003)

0 引 言

AutoCAD為我們提供了一個很好的繪圖平臺，但在生產實際中會遇到一些大量的重復工作，需要按生產實際對AutoCAD進行二次開發。例如生產實際中會遇到從大量圖中選出部分圖，然后將這些圖樣分配到滿足加工條件的生產線上，或者是把已有的圖樣調整前后順序等工作。如果一張張圖樣地查找、排序，效率會比較低，而且長時間的重復工作也易發生一些錯誤。這就需要我們確定好排圖順序，例如將需要的順序放在確定格式的Excel表格中，要處理的圖樣也統一格式，然后通過二次開發，實現高地效完成按序排圖，讓設計人員有更多的時間來開展優化設計與工藝研究工作。

1 從Excel表格讀取排圖順序

生產實際中分類情況較多，用到的圖樣張數也比較多，為了方便演示程序，對實際情況進行了簡化。例如共有圖1～圖10這10張圖樣，3條生產線，生產線和產品圖樣的對應關系為：線1 使用圖樣為TZ-1和TZ-10，線2使用圖樣為TZ-3、TZ-5。將其列入表格如圖1所示。

在CAD中通過GetOpen－FileName打開選擇文件界面[1]，由操作人員打開指定的Excel文件, 讀取排圖順序，并將其放入一個數組中。CAD中的產品圖樣如圖2所示，邊框是一個多段線，邊框所在圖層名稱為“圖框”。

如圖2示例所示，表格中數據在A列與B列。在生產實際中，每批的圖樣分配情況不同，Excel表格中表格的使用范圍也不同，這就需要將獲取表格的數據寫為動態判斷使用區域的行數[2]。打開表格文件并獲取數據的關鍵語句如下：B" & endA)

圖1 生產線與產品對應關系

圖2 產品圖樣示例

2 對每個圖樣添加擴展數據

在圖樣中先過濾圖層為“圖框”的多段線，放入SSet選擇集[3]，遍歷每個圖框，用GetBoundingBox獲取每個圖框的左下角坐標和右上角坐標。關鍵語句如下：

然后將圖框的左下角坐標和右上角坐標作為新的選擇范圍，在此范圍內選文字，放入一個新的選擇集SSetbh。如果文字中含有“TZ”則表示這個文本為圖樣編號，符合條件的文字作為該圖樣的擴展數據[4]。關鍵語句如下：

3 獲取圖樣擴展數據

逐個取出圖樣的擴展數據，將其與數組中的圖樣編號進行對比。如果兩者相同，說明找到了符合要求的圖樣，可以將其放到指定位置；如果不同則繼續對比下一張圖樣的擴展數據，實現按順序排圖。關鍵語句如下：

'分析數組中的數據，如果生產線和上一個單元格的生產線相同的，那么圖樣間距可以設置小一些，如果是不相同，圖樣間距就大一些，方便后期的審閱。

'遍歷選擇集中的圖樣，獲取圖樣的擴展數據

'在對應的圖樣上插入文本，標記生產線號[5]

4 實際應用擴展

在本例中列舉的圖樣其邊框為多段線，在實際的工作中，圖框還有一種常用的格式是屬性塊。如遇到這種圖樣，可以對屬性塊用GetBoundingBox方法獲取包圍框，然后加一個多段線外邊框，這樣就符合本文對圖樣邊框的要求，可以直接使用文中的方法。 如果原圖不可以修改，那就修改一段文中的程序。將過濾條件由圖層為“圖框”的多段線，改為屬性塊。篩選圖樣編號也由符合圖層條件的文本，改為判斷屬性塊中的屬性值[6]。改變為適用于屬性塊邊框的判斷條件后，需要注意的是，屬性塊對應的過濾對象類型為“Insert”。可以用GetAttributes方法獲得塊的屬性集合，遍歷集合中的屬性標記（TagString）找到圖樣編號標記，再將此標記對應的屬性值（TextString）作為擴展數據的文本，為圖樣添加擴展數據。

5 結 語

AutoCAD為機械行業的從業人員提供了很大的便利。在工作實際中如果有大量的重復工作，可以將軟件原有的功能結合二次開發，必要時可以結合Excel表格實現數據的交換。VBA易學易用，且功能強大，熟悉方法和屬性后可靈活應用，更高效準確地完成重復的工作，從而有更多的時間和精力投入到創作和設計中。