NX 二次开发源码：从整个装配上获取所有的实体

admin · 发表于 2013-10-30 13:46:00

请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！

您需要登录才可以下载或查看，没有账号？注册

x

Option Strict Off
- W+ H; m1 Z+ W
5 z2 I8 T6 Z9 F
Imports System
! f' o, V! `, i4 Z: d7 ^) j% C0 i
Imports NXOpen1 z2 M, ]) ^( x
Imports NXOpen.UF
# r, C: _3 s, \4 f
Imports NXOpen.UI+ Z5 N: y5 E8 r* }9 y* i( k6 T: _
Imports NXOpen.Utilities
: V6 Z2 S6 |/ B8 y9 Y2 T
Imports NXOpen.Assemblies
6 o- ]6 K: r- n: S4 l/ [
' E" U* p8 f% W$ v- D0 \
Module create_array_of_all_bodies_in_assembly: `$ p ~3 \+ l. ~+ N
% f2 U3 L8 I7 s- ^8 X: R
Dim s As Session = Session.GetSession()( v/ a6 a' j. ?
Dim ufs As UFSession = UFSession.GetUFSession()8 n/ {' n( } \5 k* }
Dim lw As ListingWindow = s.ListingWindow( s2 E; l! ]" u; h4 O3 b0 Y: b/ E
1 ~3 R3 B/ j2 |- |* i
Sub Main()
9 l1 L: R- n `: |0 \# m
lw.Open()
6 T6 G# b) b: A" r: e
* j$ Y/ \0 j0 z
Dim dispPart As Part = s.Parts.Display()# O& U: ^& e* S% Q0 G/ a) t
8 D; t" [& a3 G6 ^ }9 A
Dim root As Component = _
" m6 a7 Z0 g" v1 |% M
dispPart.ComponentAssembly.RooTComponent, }' g+ {3 A8 w f% r) T3 x
: M1 Y. a* o! g6 O8 I
Dim compArray(-1) As Component: r5 @! k( w* s1 N* V8 T$ i
: X2 C, H3 @* n7 d& e
stuffComponentArray(root, compArray)7 F1 b* V8 ]( f3 M
( c. m: C! W$ n# @( q! o4 Z, z
lw.WriteLine("Component Array Size: " & compArray.Length.ToString())% }/ v2 @8 X2 c/ {4 z( P r0 F
Dim bodyArray(-1) As Body$ c0 M Q4 ? J7 a
- I+ }8 J7 k4 K. r- o1 C
stuffBodyArray(compArray, bodyArray)
* f- F8 T! q: k& ~2 w
/ H% q8 z* I; @" j4 j; _4 n
lw.WriteLine("Count of bodies in array: " & _- z U6 J9 W! _; u) k$ h
bodyArray.Length.ToString())
2 B3 F" [9 n: t0 g& Q/ B
; G4 W1 B) _5 p
) m/ Y+ ]8 y- r. Z. e; ?
End Sub. x2 Q, y6 q v5 J- U
* c/ h! e* Z$ s! i" a
Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
4 y: j8 B+ s: I% T0 n
( I) I& _( A3 x
For Each comp As Component In ca. {9 N/ E) h2 q4 [+ Q
Dim c_part As Part = comp.Prototype. h. S% }1 ?5 o, ]0 \9 H: [
Dim localBodies() As Body = c_part.Bodies.ToArray()+ [. c+ z6 X( }% O! T
For Each thisBody As Body In localBodies
7 m2 [9 k% i" D7 ~
ReDim Preserve ba(ba.GetUpperBound(0) + 1)
7 i' S- W. V. p3 S
ba(ba.GetUpperBound(0)) = thisBody2 _+ ]" n' [! L& q% q# [
Next
4 i+ h5 K. ]0 a
) b1 X" R8 J! U, J8 ]5 u; f
Next: K/ u2 L: u. d7 p n
End Sub
) [6 H* ]/ M' o4 p7 m; S6 H
6 R6 J5 m( L5 w5 ?
Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
: n; M1 `( }+ R: {( i9 ]) V0 d
Dim child As Component = Nothing" e: }, L. x; ~: H
For Each child In cmp.GetChildren()
! e5 i% L) q; B
ReDim Preserve ca(ca.GetUpperBound(0) + 1)
8 ~/ \3 D- a; v# p6 {0 U7 P
ca(ca.GetUpperBound(0)) = child# \% A6 i- [5 W/ J. W7 n$ v
stuffComponentArray(child, ca)( K6 {5 T" R- h3 R# R
Next
( Y) V. m" J6 `; o5 }. U
End Sub
& e3 ~8 R0 u( B7 q: S4 O1 L
Public Function GetUnloadOption(ByVal dummy As String) As Integer
7 O# v G7 A" k: S
7 [) } L) ? Z1 `+ i; e
Return Session.LibraryUnloadOption.Immediately
3 ^; e: v5 T0 _7 _, o! ]8 L
0 d3 B6 k+ h$ b) X
End Function
6 s, `3 t, l/ L. Z- {, W
+ r. l" p. @- T# r; i" I
End Module
, H' l! I7 S& v$ }3 R( i- O) Q

复制代码

PLM之家PLMHome-国产软件践行者

热图推荐

[二次开发源码] NX 二次开发源码：从整个装配上获取所有的实体

admin 楼主

请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！

相关帖子

发表回复