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

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

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

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

×

Option Strict Off( v/ f8 W) D# A( A: X$ A) e
! a- ^& J- _& }7 @$ ^/ i5 \/ { p
Imports System$ A2 ?8 g: U! a6 n
Imports NXOpen
5 S5 `( G" M, h( Y3 |0 j' s
Imports NXOpen.UF
0 R1 [+ S' W e- l# {6 o
Imports NXOpen.UI2 @) J: N' T6 w! r8 t
Imports NXOpen.Utilities, ?3 ]" V5 `6 \! M
Imports NXOpen.Assemblies+ [; l% b& k) r1 j r1 c+ O4 \* {
( n6 t3 Z/ K+ J- Q7 E4 N3 B
Module create_array_of_all_bodies_in_assembly
6 O7 R% I: ?3 ]9 X: k
8 i7 ?) x% h. A
Dim s As Session = Session.GetSession()/ [7 ~5 V8 a9 _4 ^* |- ~
Dim ufs As UFSession = UFSession.GetUFSession()8 i, Q! c- @2 [4 D: t
Dim lw As ListingWindow = s.ListingWindow
( S; I6 I' e. S W! y& f) Z2 U7 S% ]
5 P$ y7 h+ c4 A$ ~
Sub Main()( y1 I$ i8 L1 P5 X; L8 l
lw.Open()6 x# n, i! N0 M" m
* N" X4 d/ B0 ]/ Q
Dim dispPart As Part = s.Parts.Display()
: n4 u+ s7 W, T: K
- k8 ?2 b/ k8 o2 u
Dim root As Component = _" Z1 H8 ^1 L( [, t% g9 v
dispPart.ComponentAssembly.RooTComponent
! o2 s. [! |3 M' l; Y
1 U( c0 T( m- U3 z1 d
Dim compArray(-1) As Component8 R1 N6 w. N! W: k% ]
1 L7 i) r" x; Y5 s
stuffComponentArray(root, compArray)3 N8 ]3 L2 u4 o& f2 n2 V+ M& L
0 r' y' |: G0 @
lw.WriteLine("Component Array Size: " & compArray.Length.ToString())
3 I2 s* J2 @! c/ E) w7 f
Dim bodyArray(-1) As Body/ {) B% d$ C9 K1 R: n
, H2 A+ }, i$ |( e" b( e
stuffBodyArray(compArray, bodyArray)
# _/ l% H, O* e5 S
6 B" w1 B, C3 D; t. q3 H( B7 h/ W
lw.WriteLine("Count of bodies in array: " & _8 \! g% H* I T+ @( B( Y
bodyArray.Length.ToString())
0 B% z1 Y+ u- L
' W! k7 A+ H5 H/ A$ r- ^ |
( ^# ~7 g0 N2 n% S7 _! }7 p: `
End Sub
0 R6 P$ x+ F! D2 D) O5 E" B
& d: `, z. X' ?6 B, z9 a
Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())
! Q7 N- \0 _5 T; i$ C" o
9 E4 R7 r$ S& }2 o9 g3 J
For Each comp As Component In ca
5 a9 Y6 n" `7 I0 Y( y- A
Dim c_part As Part = comp.Prototype$ `9 h; d) O% N) A' j
Dim localBodies() As Body = c_part.Bodies.ToArray()
+ P! ]# L1 y' S6 e6 K
For Each thisBody As Body In localBodies
& m" y6 ?# v0 R# U: P" w# ^
ReDim Preserve ba(ba.GetUpperBound(0) + 1)
& z+ }: S- K: |+ Y$ y
ba(ba.GetUpperBound(0)) = thisBody
% U. Y6 j6 M2 ~9 n/ Z
Next" b. l5 l( V* x! ^9 h: H* n+ {
9 R8 ?! d$ s6 p* a9 p: _) \* E
Next
, ~8 u* A9 S' U8 l1 N( a! |. u* l
End Sub
1 m' T. [) A8 F
8 ~3 E5 ^* p" `& k) h5 p0 j! X" u
Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())6 K2 ?# ^0 s/ [9 w
Dim child As Component = Nothing
3 ]" p* P( ]" {9 w& H* F/ j7 [
For Each child In cmp.GetChildren()
( K! |+ |1 {7 x9 q5 F ]
ReDim Preserve ca(ca.GetUpperBound(0) + 1)8 l9 z, l2 U) \2 h; I
ca(ca.GetUpperBound(0)) = child: N& t. a+ e" ~3 D
stuffComponentArray(child, ca)
" t2 x# C, H ^. d- l
Next: l) s/ g+ C8 o* ]/ I9 l8 R% n
End Sub' ]$ F( o3 F0 i J3 y0 U2 |
) R$ U& A4 H$ J5 C/ [( Y
Public Function GetUnloadOption(ByVal dummy As String) As Integer
+ _4 q" T7 T8 r) l
2 M% D8 }' Q9 l+ g( [
Return Session.LibraryUnloadOption.Immediately7 ~: Q+ Q6 K# ]; v- m
2 F4 t- C$ f9 u& e2 J$ ^
End Function7 J) a% c$ d( r" i0 \" r+ x- h
) T& U% b; N* _: [
End Module& B2 Z- F: Y& W `6 O; }: G

复制代码

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

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

相关帖子