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

fisherhai

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

        Dim component_tag As NXOpen.Tag
        Dim component1 As Assemblies.Component
" t% H! ^5 Z% y3 z        Dim all_bodies() As Body
        Dim body_count As Integer
        SelectWithSingleDialog(.......component_tag...........)(此处省略）
* L, p* V$ N% h# i        component1 = ctype(NXObjectManager.Get(component_tag), Assemblies.Component)
# B1 @& b& K1 a        all_bodies=component1.Bodies.ToArray()
        body_count=all_bodies.length
        MsgBox("Count of Bodies in select Part: " & body_count)
+ E) ~) k) z3 b  s  g" p
/ c- o  @3 [& ~# x9 w; T但是提示错误信息，
, G$ i, r5 X) o3 m$ k& i'part' is not a member of 'NXopen.Assemblies.Component'.

我没办法查看帮助文档（公司电脑没有管理员权限不让装），请各位路过的高手帮小弟看看怎么改，多谢了~~~~~~~~~~~~~~~~~~

fisherhai

有哪位大哥知道啊，期待高手啊

fisherhai

我顶，急煞我也

fisherhai

高手啊高手，千呼萬喚快出來。。。。。

fisherhai

。。。。。。。。。。。。。。。。。。。。。。。