之前的文章介紹了如何通過SOLIDWORKS正版軟件的VBA來開發(fā)一個簡單的標(biāo)準(zhǔn)件生成器;后面我們會對這個標(biāo)準(zhǔn)件生成器進(jìn)行進(jìn)一步功能擴(kuò)充，今天我們來研究另一個問題：SOLIDWORKS裝配體零件遍歷。
SOLIDWORKS裝配體零件遍歷在二次開發(fā)中會經(jīng)常使用，比如：
1.創(chuàng)建裝配體結(jié)構(gòu)BOM，搜索結(jié)構(gòu)的所有層級，并提取每個結(jié)構(gòu)、零件的屬性信息;
2.在裝配體中查找出所有的標(biāo)準(zhǔn)件、特定的零部件;
3.當(dāng)裝配體提示零件中存在被壓縮的特征時，通過遍歷找出被壓縮特征的零部件;
4.遍歷整個結(jié)構(gòu)，為每個零件進(jìn)行隨機(jī)上色;
5.批量檢查零件屬性的完整性;
那么在SOLIDWORKS VBA開發(fā)中，如何對裝配體結(jié)構(gòu)進(jìn)行完整的遍歷呢?以下是對裝配體遍歷的基本流程：
首先用戶需要先獲取當(dāng)前裝配體結(jié)構(gòu)的子組件，然后通過for循環(huán)遍歷該結(jié)構(gòu)的所有子組件，并且判斷每個子組件是屬于零件還是裝配體，如果是裝配體，則需要對該裝配體進(jìn)行子組件獲取，然后檢查該裝配體的下屬層級…如此往復(fù);
但因?yàn)槲覀儫o法預(yù)先知道任何一個裝配體結(jié)構(gòu)存在多少個層級，所以也無法判斷需要執(zhí)行多少次for循環(huán)，所以我們在這里使用了遞歸的方式來處理該問題。
以下是裝配體遍歷的基本代碼：
在main主函數(shù)中，我們通過 Set swmodel = swApp.ActiveDoc
獲取到當(dāng)前正在被SOLDWORKS打開且處于當(dāng)前顯示界面的裝配體，通過 swmodelComps = swAsm.GetComponents(True)
或者這個裝配體的所有子組件，放到swmodelComps 這個數(shù)組中;
接下來調(diào)用GetAsmChild這個函數(shù)，并且將swmodelComps數(shù)組作為變量傳遞到函數(shù)中;
在GetAsmChild函數(shù)中，通過：
For i = 0 To UBound(swmodelComps)
…
Next
語句對獲取到的子組件數(shù)組進(jìn)行遍歷，該遍歷只會搜索結(jié)構(gòu)的一個層級，為了讓遍歷可以搜索結(jié)構(gòu)的所有層級，所以有如下的條件判斷代碼：
If swmodel.GetType = 1 Then
MsgBox (swmodel.GetTitle)
ElseIf swmodel.GetType = 2 Then
swAsm = swmodel
GetAsmChild (swAsm.GetComponents(True))
End If
其中swmodel.GetType = 1 表示該獲取到的一個層級中的其中一條子組件屬于零件;
其中MsgBox (swmodel.GetTitle) 表示將該零件的名稱進(jìn)行顯示;
重點(diǎn)在對子組件屬于裝配體的處理，在swmodel.GetType = 2 的條件(子組件屬于裝配體)中，我們做了如下操作：
GetAsmChild (swAsm.GetComponents(True))
可以看到這是一個函數(shù)調(diào)用，調(diào)用了什么函數(shù)呢?調(diào)用了GetAsmChild，這實(shí)際上是調(diào)用了它自身，這種調(diào)用函數(shù)自身的情況就叫做遞歸;可以看到，雖然函數(shù)相同，但是前后兩個GetAsmChild的變量卻不同，第一次的GetAsmChild作為入口，傳遞的是我們打開的裝配體文件的信息，第二次到第N次，傳遞的則是每一個子組件(子裝配體)的信息，這樣層層嵌套，最終實(shí)現(xiàn)裝配體結(jié)構(gòu)的整體的遍歷。
以上是本次SOLIDWORKS VBA裝配體結(jié)構(gòu)遍歷的一些分享，希望能夠幫助大家，更多信息請?jiān)L問鑫辰信息科技有限公司