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

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

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

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

x

Option Strict Off& A& [* g B& e8 Z6 |0 p6 \
2 i! z8 C9 j7 C) w* W, i
Imports System
4 l/ n+ _! D1 f, f: N
Imports NXOpen! T6 ?2 k. K, G- y; E
Imports NXOpen.UF
# e) z; [2 l% ^
Imports NXOpen.UI# }+ f( u3 s$ K& K5 p6 d
Imports NXOpen.Utilities
6 b: l1 o% Z9 Q7 k: \
Imports NXOpen.Assemblies4 |8 x' A% R5 i# m; d# P
2 V+ f* c* g4 Q& ]% U
Module create_array_of_all_bodies_in_assembly4 [+ r9 b8 V- C
; y7 R* p6 @* \$ B
Dim s As Session = Session.GetSession()
' d7 Q( U& j4 a' m
Dim ufs As UFSession = UFSession.GetUFSession()
6 k0 t* n* D: O {" A* A
Dim lw As ListingWindow = s.ListingWindow- P$ K2 S6 ~0 p! X
( k" Q2 e6 {8 c
Sub Main()5 D* H. \$ z: O* X2 m+ t
lw.Open()
" ?# P: `2 E$ I# w; l0 C
5 v9 I4 j$ A5 A/ l! ]( [$ R: Y
Dim dispPart As Part = s.Parts.Display()- J- z# [1 e; Z4 G7 e
* f7 h; U8 H7 U Y5 T- D1 v, T
Dim root As Component = _
& o- D D) G& t+ s l
dispPart.ComponentAssembly.RooTComponent
3 h6 U& @! z: T- u5 z( q
. L( e( n- V: K: }9 p9 D" n n3 J' V
Dim compArray(-1) As Component( \( ^9 s) P+ [/ f6 a& c7 u
/ m2 A3 V, l$ N8 q
stuffComponentArray(root, compArray)
- p8 y* B* Z2 z# e, {
: A" z, g# A0 `, v
lw.WriteLine("Component Array Size: " & compArray.Length.ToString()); g$ P0 z* S. v+ j$ l7 r/ K7 |- D
Dim bodyArray(-1) As Body1 t( `& i" n- [. Q/ D: e
. N3 G5 h- U' X4 ?$ ^
stuffBodyArray(compArray, bodyArray)
& ~! y% ?% b# e5 n6 D: u
8 f) ` z! p$ ]6 E; A( q8 ?. V
lw.WriteLine("Count of bodies in array: " & _6 g1 u4 D8 B+ k. c, r1 L, {
bodyArray.Length.ToString())
$ {; j8 @0 R- E1 k. {! m) @
# R% {/ ^" A- i/ k3 m! ]8 Z. c
) k# H. |, S2 @' F# C; X
End Sub
8 B3 V7 B, w( j/ g- I1 k9 u
3 h3 R" p* \3 @2 V8 i9 G
Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())( U, ?" Y8 m6 P x0 s: Z
( H$ s' H6 q7 X( E" D/ H7 D+ [
For Each comp As Component In ca
3 A0 {$ H1 E9 b& _8 H* d
Dim c_part As Part = comp.Prototype9 d# y# P! h' ]" @7 P
Dim localBodies() As Body = c_part.Bodies.ToArray(); ~1 o2 D }& }: N4 Q" @7 c
For Each thisBody As Body In localBodies. }9 R, j5 x3 Q$ p# f
ReDim Preserve ba(ba.GetUpperBound(0) + 1)
, o# D- K+ k! A s
ba(ba.GetUpperBound(0)) = thisBody0 w2 X& G# }/ H5 Y9 @7 V6 Y/ u9 t
Next
, k8 e6 j. Y! X& s! W' L" ]+ D
# h1 t- |3 `) u
Next
2 [# w3 t) C; B; O
End Sub
& F8 b7 e* ]* M" u' J! U
3 T- s' h; M- e
Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component()); P6 a. K _: O i
Dim child As Component = Nothing
+ S) F1 @8 n" \) T& p6 u- N
For Each child In cmp.GetChildren()
3 w) O; J) W) |8 D3 ]/ T
ReDim Preserve ca(ca.GetUpperBound(0) + 1)
! I- i" D7 r. Z z
ca(ca.GetUpperBound(0)) = child
/ G6 c* X0 S- _& a+ V E
stuffComponentArray(child, ca)
# b) I, _# {: m1 x; U1 F
Next
% `8 n9 |% Z8 }' Z! B
End Sub2 v7 Y, z( t, ^/ }/ M
8 h8 |% q0 h; i
Public Function GetUnloadOption(ByVal dummy As String) As Integer( m: o# _3 y4 a( A k Y) }
$ ^4 s7 r5 h# \$ U% U2 b* P7 h
Return Session.LibraryUnloadOption.Immediately
5 ?$ O; s: @* J9 m, ~9 U K
" g( W1 f$ b: A+ n4 ?7 {: C
End Function
) W- y X2 ^2 d0 z. }4 s
6 g6 O: J) d) ~) E' p. @' D+ X, y4 M
End Module
) U( @4 ?% f. f

复制代码

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

热图推荐

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

admin 楼主

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

相关帖子

发表回复