选中component后遍历该component的body（带源码）

fisherliu

选中component后遍历该component的body

我用SelectWithSingleDialog选中一个component得到component_tag，想要得到所选component中body的数量，代码如下：


        Dim component_tag As NXOpen.Tag

        Dim component1 As Assemblies.Component
        Dim all_bodies() As Body
        Dim body_count As Integer

        SelectWithSingleDialog(.......component_tag...........)(此处省略）
        component1 = ctype(NXObjectManager.Get(component_tag), Assemblies.Component)
        all_bodies=component1.Bodies.ToArray()
        body_count=all_bodies.length
        MsgBox("Count of Bodies in select Part: " & body_count)



但是提示错误信息，

'part' is not a member of 'NXopen.Assemblies.Component'.


请各位路过的高手帮小弟看看怎么改，多谢了~~~~~~~~~~~~~~~~~~

fisherliu

fisherliu