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

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

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

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

x

Option Strict Off6 I$ U8 h% M4 A% g6 q
+ [, l# O; y9 v* T( `3 N
Imports System& R7 ~1 m* w8 d( A8 p
Imports NXOpen" R) h* ]8 J7 _$ v6 v
Imports NXOpen.UF3 `" R1 Z2 Y ]9 U( V7 `
Imports NXOpen.UI: a; q! v+ g/ u- o* I" y
Imports NXOpen.Utilities1 @% i$ f* g5 _* _3 N
Imports NXOpen.Assemblies) q+ z2 r" |) g$ g) f- L( R% {
; Z( E0 a9 H2 \7 s! x: [4 t" q# M
Module create_array_of_all_bodies_in_assembly
" K! o+ B& @# O/ o+ j% }
3 C2 f1 l0 b) m3 V" I5 |; Q
Dim s As Session = Session.GetSession()
& s+ h# y8 e2 f/ i7 t0 h
Dim ufs As UFSession = UFSession.GetUFSession(); M$ v' J8 Q9 o9 ^3 [0 y
Dim lw As ListingWindow = s.ListingWindow3 y1 t% n- t9 N/ {4 z* v
X1 l3 I! B0 K
Sub Main() y" Q5 f+ @, D* G
lw.Open()
& ~; l' P' R3 h0 c$ m+ ~) o5 G
8 i, ~5 B8 T* N( [9 t/ h/ q
Dim dispPart As Part = s.Parts.Display()/ \" X4 f* f% O+ e$ I
( w6 b9 u& l. |( ^
Dim root As Component = _
1 j; r' G8 |: g) v1 a: h
dispPart.ComponentAssembly.RooTComponent1 i! \5 X& t4 K: @
1 v- T9 ~, D' I! h* x9 \% K0 |, ^; t
Dim compArray(-1) As Component! w, Y# N2 `4 o3 `0 U) y) Q
/ u/ g* D/ S* p D
stuffComponentArray(root, compArray)
/ }" t/ g i8 K+ \0 {! |0 e
% s& K+ b- u* W+ P2 a: g3 p
lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
+ V) j% {. S: R: g% C6 Z5 J
Dim bodyArray(-1) As Body
7 o' R. n+ |8 |
2 c" n8 N8 y* r, E( c8 S! m
stuffBodyArray(compArray, bodyArray): F8 `. m. G& u9 P+ ~" `
% m& B! W& f- G; J6 B
lw.WriteLine("Count of bodies in array: " & _* }8 J/ u. a+ S/ o, S
bodyArray.Length.ToString())6 d: ^8 }" u( M) ]' V* z
+ l5 Z$ Q6 U& O7 M, b7 X
* Q$ I/ U @0 t A% K F* m0 h) E
End Sub
8 M T& w% z) ?& I' a& a8 }5 c2 }
7 [& V( P8 w. Q
Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body()) Z/ S$ j* o& F$ o& v: S! ^
1 h3 [/ l u: E/ \! G, x
For Each comp As Component In ca
( _5 `' y+ g' e$ E3 O- \
Dim c_part As Part = comp.Prototype
- k2 L* x: V4 J' @% u) J7 l/ a
Dim localBodies() As Body = c_part.Bodies.ToArray()$ s$ e) A( L3 a
For Each thisBody As Body In localBodies
" e5 I! V0 s$ }$ V
ReDim Preserve ba(ba.GetUpperBound(0) + 1)
5 `! B5 i U4 {5 |0 }
ba(ba.GetUpperBound(0)) = thisBody
: d$ S7 ]7 l" g, O0 f- b6 y' ]. L
Next
, ?7 N, _, ^1 n
: p7 u# u) M" z( ` o1 S
Next5 X7 j" a9 O* N4 c; x+ y
End Sub! P- [0 o* H) C) X
3 I* L; M1 X, g. I/ e
Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())6 a7 j3 P. E! v8 ?* h
Dim child As Component = Nothing$ X3 `0 ~* [: Y! A
For Each child In cmp.GetChildren()! Q1 o/ o+ ]+ _% F! m
ReDim Preserve ca(ca.GetUpperBound(0) + 1)
: x+ _4 h$ b* _) [8 a
ca(ca.GetUpperBound(0)) = child! D, S9 b1 J& P/ ]9 S
stuffComponentArray(child, ca)+ Z5 M F- o4 k7 Y! l, v
Next1 d& J8 y5 i! h7 k" @2 ~
End Sub) ^+ B/ I$ c; k. Z; |% B2 S2 D
4 E7 s$ b$ @! W* Y7 q
Public Function GetUnloadOption(ByVal dummy As String) As Integer
) F- B* f1 ]: S
@8 I: v7 `9 {' {9 j& [
Return Session.LibraryUnloadOption.Immediately
( R4 b3 A4 B& y! G" I H
% O4 J1 k1 ~, F: J$ F
End Function
. g4 Y; c$ P1 M7 y# L- n. L
, ~0 f$ W, }: u. `4 }6 k0 f
End Module8 t7 E& c0 _7 d6 i4 l

复制代码

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

热图推荐

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

admin 楼主

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

相关帖子

发表回复