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

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

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

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

x

Option Strict Off
- [( }$ {- x7 b# @" |% x( d y: @
( {/ c C3 T1 r% q5 C7 E! y1 O
Imports System4 [% G& \# L/ M# n E" C/ i
Imports NXOpen
; A( e# H5 T5 v& I9 o" X9 j
Imports NXOpen.UF0 y6 w7 L# _1 T' s# z& i
Imports NXOpen.UI0 G0 Y/ D8 g0 r1 E! j
Imports NXOpen.Utilities
0 }, k' M+ v5 p, q& ~
Imports NXOpen.Assemblies
0 c$ |3 Z' J) m" ?6 }
" K. i# [9 Y, B7 ?3 U+ k+ v
Module create_array_of_all_bodies_in_assembly P2 _4 l) u5 u! ^7 o2 h
, P/ [, T( a& [5 H
Dim s As Session = Session.GetSession()8 F) G J% O4 a7 x- }
Dim ufs As UFSession = UFSession.GetUFSession()+ E L9 c3 y2 C# }+ K7 \/ O4 V8 v
Dim lw As ListingWindow = s.ListingWindow
( U$ V0 N9 J* }3 g# Q5 G- z
% x+ {- @ F( ?0 K& K
Sub Main()
0 Q! \/ o* L$ L' N1 _1 `5 L. e# H: v
lw.Open()/ ^# h5 u/ h2 H( x6 W" g
$ u8 h, s' G. g, f1 \# E6 t1 L. @
Dim dispPart As Part = s.Parts.Display()- O; ~( X. d$ p4 U) N- {
: @" S' Z1 j$ ?3 `+ T
Dim root As Component = _
! p! } s5 |0 U( \0 b
dispPart.ComponentAssembly.RooTComponent% Z$ t& k* W) {, L) Q6 W
% [- X7 h$ O5 b: u7 N- N' X6 h
Dim compArray(-1) As Component3 `2 [2 D& ?4 q! S/ X2 m0 d
2 _. B0 ^% G) `0 B9 w
stuffComponentArray(root, compArray)
$ ~4 R% o) z, B7 W3 m
- f+ Z' F, {5 N' u& I
lw.WriteLine("Component Array Size: " & compArray.Length.ToString()), v; w. i' D7 P& Z0 G* \! X
Dim bodyArray(-1) As Body4 I) D4 R% Z1 ?2 u W0 ^
* W& v8 d! i+ V: O/ g2 X
stuffBodyArray(compArray, bodyArray)
_/ J# N' n. ^+ T
$ G9 L3 \# M+ m' B/ l$ F/ }
lw.WriteLine("Count of bodies in array: " & _ z1 i0 ?1 Z2 o4 N5 x8 B& N
bodyArray.Length.ToString())
# t5 u5 @' J4 Y; a0 ]
$ _6 p/ q* \, b4 s- F+ b# f: V
3 f8 e! M b9 d$ a i2 j% n
End Sub& f B0 h( H2 ]
# L; X$ u) t5 U, ?% e- \3 I
Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())* y* n) ]; m# V' ~
/ Q- J' s6 H: @ v6 g1 }
For Each comp As Component In ca
7 F0 ]' ^" @" t9 s- L, A: A
Dim c_part As Part = comp.Prototype
- k3 t# Q% C) _5 p; b3 B( O8 @
Dim localBodies() As Body = c_part.Bodies.ToArray()$ O- g/ R( E5 T1 I& }
For Each thisBody As Body In localBodies
2 u( V$ t# p! ~
ReDim Preserve ba(ba.GetUpperBound(0) + 1)
( E+ N7 q; l k* ^7 h7 x7 c
ba(ba.GetUpperBound(0)) = thisBody" B( Z- @" j. F+ X, X/ G; ]
Next
5 ~$ k0 d' K+ L' i) N5 j# E6 p6 S2 F
# H" L* N; _' z# Y
Next
9 G* x, H A/ s- O
End Sub G& a) x' ?4 j- V7 | S
4 w6 U) v& A. Z7 ?
Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())% p" t' G) \# R; g# }% d+ b1 l- _
Dim child As Component = Nothing
7 I* A3 |* N; s# W
For Each child In cmp.GetChildren()$ F: a* ]/ N0 J, [% `) @
ReDim Preserve ca(ca.GetUpperBound(0) + 1)
0 F( x! z% ^; O/ _$ ^* H& t4 D
ca(ca.GetUpperBound(0)) = child
$ g' L* l/ h- L* N0 L) [
stuffComponentArray(child, ca)
3 \" L& L' ]7 d, q' v- n$ N
Next
$ @( v+ G. i& E1 D2 W" s
End Sub; S' n4 _2 G1 j7 ~- b) q! O
( \8 J' }. x/ z9 z: T U
Public Function GetUnloadOption(ByVal dummy As String) As Integer/ P0 e" {7 N0 j: y5 n4 k! g
% L: _0 B/ d4 {
Return Session.LibraryUnloadOption.Immediately4 _9 t2 \2 ^% g, o0 \* i0 L# g
( f) N) H e' n2 h. v j1 E9 M
End Function
2 K3 ~# L5 _$ p2 |. D7 ]
. \! O N8 k* }4 m0 M9 R8 i$ r' H
End Module7 J% b% f$ o! i/ ^0 G" e2 z

复制代码

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

热图推荐

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

admin 楼主

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

相关帖子

发表回复