获取钣金件厚度

        在处理钣金件的时候，有时需要提取钣金件厚度的情况，获取方式一般有两种，一种是通过切割清单，还有一种是通过钣金特征获取厚度值，这里我推荐后者。

废话不多说，直接上代码：

    Dim swApp As SldWorks.SldWorks

    Dim swModel As SldWorks.ModelDoc2

    Dim swSelMgr As SldWorks.SelectionMgr

    Dim swFeat As SldWorks.Feature

    Dim featMgr As SldWorks.FeatureManager

    Dim swFeatm() As Object

    Dim fa As Variant

    Dim boolstatus As Boolean

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.ActiveDoc

    Set featMgr = swModel.FeatureManager

    swFeatm = featMgr.GetFeatures(False)

    Set swSelMgr = swModel.SelectionManager

        For Each fa In swFeatm'遍历到钣金特征

            If Left(fa.Name, 2) = "基体" Then

                boolstatus = swModel.Extension.SelectByID2(fa.Name, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)

                Exit For

            End If

        Next

        Set swFeat = swSelMgr.GetSelectedObject(1)

        swModel.ClearSelection2 True

        Set swfeaturedata = swFeat.GetDefinition'这个GetDefinition里有许多东西可以获取，不仅限于厚度

        Thickness = swfeaturedata.Thickness'获取厚度

获得厚度后就可以写入到属性里，供你索取。

如果有更好的方法或者想法可以私聊~~