vba遍历数组_【VBA】遍历所有特征及草图尺寸

零件草图及特征尺寸

立即窗口输出

【说明】

本宏演示了如何遍历当前打开的文件中所有特征和草图的尺寸，或者装配体中被选中的零件中的所有尺寸。

该宏将把这些尺寸的ID和数值输出到立即窗口。

【程序正文】

Dim swApp As SldWorks.SldWorks

'主程序

Sub main()

Set swApp = Application.SldWorks

Dim swModel As SldWorks.ModelDoc2

Set swModel = swApp.ActiveDoc

'判断当前是否有文件打开

If Not swModel Is Nothing Then

Dim swSelMgr As SldWorks.SelectionMgr

Set swSelMgr = swModel.SelectionManager

Dim swComp As SldWorks.Component2

'如果打开的是装配体，则swComp定义为在装配体中选中的零件

Set swComp = swSelMgr.GetSelectedObjectsComponent3(1, -1)

'判断当前选择是否为空

If Not swComp Is Nothing Then

'如果不为空，则从装配体中零件的第一个特征开始，遍历尺寸

TraverseDimensions swComp.FirstFeature

Else

'如果为