PLM之家精品课程培训

PLM之家精品课程培训

联系电话:18301858168   |   QQ咨询:939801026
NX二次开发培训

NX二次开发培训

UFUN/NXOpen C++和实战案例

适合初级入门或想深入了解二次开发的工程师,本培训结合ufun,NXOpen C++,大量的实例及官方内部的开发技术。
公众号二维码

关注公众号

点击扫描二维码免费在线高清教程

课程详情
Catia二次开发培训

Catia二次开发培训

市场需求大,掌握核心技术前景广阔

Catia二次开发的市场需求大,人才稀缺。掌握开发技能潜力巨大,随着经验积累将在汽车、航空等领域有所作为。
B站二维码

在线原创B站视频

点击关注工业软件传道士主页

课程详情
Teamcenter培训

Teamcenter培训

全方位培训,从基础应用到高级开发全覆盖

涵盖用户应用基础培训、管理员基础培训、管理员高级培训及二次开发培训等全方位内容,由多年经验讲师打造。
QQ群二维码

加入同行交流

点击扫描二维码加入QQ群

课程详情
×

PLM之家plmhome公众号

课程涵盖: PLM之家所有原创视频

×

关注B站视频

所有高清视频一览无余,全部在线播放学习

×

加入PLM之家QQ群

同行交流,疑问解答,更多互助

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

[二次开发源码] NX二次开发源码分享: 加载所有的装配组件----全部加载

[复制链接]

2019-4-12 09:06:31 2193 0

admin 发表于 2019-4-12 09:06:31 |阅读模式

admin 楼主

2019-4-12 09:06:31

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

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

x
[mw_shl_code=csharp,true]Imports System
/ b, [2 z4 ]* m* u! k7 w7 RImports NXOpen
7 L+ J" O1 c6 fImports NXOpen.UF
$ T! ^3 Q: O; }' y7 `/ ~1 ^, F7 c* rImports NXOpen.Utilities
0 H; Y+ t* ^1 C'; h3 ?" u1 ?- z, ]0 b" E5 S
' The OpenComponents() parameter6 X& ]7 ]' j* z' y
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
" i: _& v' Y5 [' only opens unloaded components fully (see also PR-8406345)
( j7 Z. h4 ?9 v" y4 ]8 L' Workaround: collect and open all components individually2 k* c' `: I! p: |/ b5 ~8 ~- Q1 |8 n
'
: h+ j3 `( z( D* U+ _" [Module NXJournal( G: r% ]. Q( y* a" _, ]7 b& s$ L1 d, g
    Dim theSession As Session = Session.GetSession()
- v  j. N' T& N: L    Dim theUFSession As UFSession = UFSession.GetUFSession()
2 ~7 R# R: ?4 K+ k+ g    Dim dispPart As Part = theSession.Parts.Display: D0 h. a2 d7 a5 D% Q" G
" q  t( B7 w1 |6 O8 t1 |3 v
    Sub DoIt()
/ x3 n5 x! D0 W; y5 E        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)# ~+ y  G1 b0 B0 f5 ]+ l
        Echo("Number of Components: " & allComps.Length.ToString)
2 F/ h$ v' A; u6 V, E        For ii As Integer = 0 To allComps.Length - 14 |3 b9 i/ w, f
            Echo(allComps(ii).DisplayName)7 f! @! {$ F* {( j- w0 j  [
        Next
" ^3 I$ p1 F; m- z0 `9 B( ?
# [, P2 H; K/ |  f5 {5 K! `; m        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading+ i/ d) H0 A  K3 }# u7 I) D% {
        theSession.Parts.LoadOptions.UsePartialLoading = False7 _0 `5 t5 W! |. P  n$ ^% t
6 i% O( j" d) J, \4 l
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
# W4 z! Y  D8 ~* w5 ^, v        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
0 O3 j  L: U5 i( @) y, d+ n        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
: s" m8 P  n- C/ k" Q6 \            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)9 S$ B0 ~7 u! M) t5 |+ O8 L* g3 A
# f4 C; S. B$ w
        reportPartLoadStatus(partLoadStatus1)( v' D- S) n* H# l; P
        partLoadStatus1.Dispose()& C6 |5 ?3 r# j) y% l

; {% G1 \7 `& L, M        theSession.Parts.LoadOptions.UsePartialLoading = option1
0 i5 @( t$ l% Y. x
6 v6 y# z4 Z* ^9 R    End Sub
: k# ^4 a: }# i) }) L6 \6 j
3 B9 D$ y8 }4 P# t8 r0 Y    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
& i+ S& V3 n/ S" }/ L. @$ f" ?        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
( W2 b+ j1 m1 k9 P5 y        Dim aChildTag As Tag = Tag.Null
) K& d$ _1 m* k% }: K8 j3 r
, e3 K+ ^" C# ?9 G        Do6 ]0 J* p  Y: P: Z
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
: J/ s/ k( A8 l/ n            If (aChildTag = Tag.Null) Then Exit Do
3 I/ G) j3 |+ U5 J. Z
* C6 F( b& b, z  r# `! x            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)1 h6 ?. M! G" t
            theChildren.Add(aChild)- L9 A# D2 T2 @% T) J4 [+ [$ `7 g
        Loop* D" \9 F( |; B4 r% T1 W
        Return theChildren.ToArray(GetType(Assemblies.Component))/ ~2 z- S; _! O; N3 Y

0 T2 o& A! l. S3 r! |    End Function' a; I, D% i1 V

% a: G* q, ]! v0 s+ y    Public Sub Main(ByVal args As String())% v0 t0 g/ x: K4 A
        If dispPart IsNot Nothing Then, {) d+ L; M( @0 Q4 |+ u
            DoIt()0 x$ o6 E7 n5 z3 u
            Return7 a. g1 |0 w/ b, y1 c$ E7 c
        End If
  }4 h# L9 @0 z/ p1 H" P: C' f% M3 R6 l
    End Sub
+ a( J, q, j% j+ U5 x  p
; ]* \  }; a: l. N0 L; o1 Q    Sub Echo(ByVal output As String)
7 V: v/ m+ a. U# Y        theSession.ListingWindow.Open()
1 K2 O& ~# a6 e6 t. T# e6 ^$ t        theSession.ListingWindow.WriteLine(output); q" v9 x, n) r( ^! I3 h
        theSession.LogFile.WriteLine(output)% D2 L: }& U7 x4 u' b
    End Sub8 w/ Q4 o7 Q- r' B: {4 Y0 M

( S- z' h2 K$ g    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)# ?# J: C* v8 c9 y3 U
        If load_status.NumberUnloadedParts = 0 Then
; M0 a& O4 {4 b/ Q/ A+ Q5 F            Return9 _& F( z; z. P) j. {, H
        End If
9 F( u: Q5 n5 j
- [0 h" z& L0 C. G1 w4 }        Echo("  Load notes:")0 e0 G8 ]& F' B' v
" x' Y& k0 C' T- O4 Z* h! j; u
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
) \$ y8 J# j5 X6 V4 l0 `            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
. o+ j) I! F* j  u) y/ D* ]        Next
0 [. Z! ?0 Q* s6 t  B' F# a) K; P; g    End Sub3 P: G+ ~6 y, F6 {" g

% P! Z4 _: J5 e2 j, y( e& K    Public Function GetUnloadOption(ByVal arg As String) As Integer! `+ O0 D- g8 A+ b
        Return Session.LibraryUnloadOption.Immediately
! a6 b# a: B/ T( Q    End Function
0 I0 P! Q( X: q
  W: d  e6 S9 N1 `End Module[/mw_shl_code]
) n: b* r9 t* k/ Y
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 注册

返回列表 本版积分规则

  • 发布新帖

  • 在线客服

  • 微信

  • 客户端

  • 返回顶部

  • x
    温馨提示

    本网站(plmhome.com)为PLM之家工业软件学习官网站

    展示的视频材料全部免费,需要高清和特殊技术支持请联系 QQ: 939801026

    PLM之家NX CAM二次开发专题模块培训报名开始啦

    我知道了