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 2163 0

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

admin 楼主

2019-4-12 09:06:31

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

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

x
[mw_shl_code=csharp,true]Imports System3 |* A3 O- c* |! u
Imports NXOpen3 J4 D; E5 `3 Z
Imports NXOpen.UF0 h0 I! _  [/ ~7 r4 ?. ]" ?
Imports NXOpen.Utilities
6 F+ n9 z  U6 [+ [0 s+ ^- L'7 R) q3 u  M/ H9 U& P. y5 n. Z
' The OpenComponents() parameter
$ T! f: G* c) `! i' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
( ?; y4 v/ s, N3 |2 t' only opens unloaded components fully (see also PR-8406345)* ^9 v' t; |+ @+ ~, d% g
' Workaround: collect and open all components individually. p2 i+ Z' h- u2 _* {' j) Y
'1 i7 n& E& x  a1 r) K
Module NXJournal: N+ o$ x1 ]6 F9 n9 z- r. M+ o
    Dim theSession As Session = Session.GetSession()
- V9 q! j' t1 J+ V. N! ^    Dim theUFSession As UFSession = UFSession.GetUFSession()+ A7 A6 J2 p% x( S, o3 K+ m- K7 ~- l
    Dim dispPart As Part = theSession.Parts.Display2 X, U7 |; j' S& w7 B7 N2 D! _3 q
8 L0 ]. i+ K5 F# A6 `' `
    Sub DoIt()
0 ]1 c+ y0 A6 `: J        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)4 [+ L% I/ `6 \' ~0 R% R
        Echo("Number of Components: " & allComps.Length.ToString)) Q, U# |% z; i. _0 g( U6 g
        For ii As Integer = 0 To allComps.Length - 1; z1 Y& ~0 G5 z7 T
            Echo(allComps(ii).DisplayName)
4 }* ~8 O8 v8 q8 C( h6 c        Next8 ]' E. O8 p! [0 D: l2 x9 ?$ i

3 h5 {4 m2 x3 {; {9 m# U0 r        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
7 W9 h- D, ?! U8 n4 y) d        theSession.Parts.LoadOptions.UsePartialLoading = False5 @7 l& d; B! L+ Z, O
$ @9 Q/ ?; i3 `0 Y
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
' A8 E2 q0 K3 Z# q$ }2 e% R        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
+ [; B1 s) n+ u7 ~& }3 Y        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
; g9 ~9 `* ~, c8 J; f7 a            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
1 u8 k4 N& p' i
" |! L* K! a5 K9 {        reportPartLoadStatus(partLoadStatus1)6 f& b6 z/ Q' u! U
        partLoadStatus1.Dispose()
1 M" k5 X6 E+ e5 f/ P3 U/ M# H, ~
9 a; H$ _$ h/ j3 t$ I. ?6 ~5 ?7 e        theSession.Parts.LoadOptions.UsePartialLoading = option13 K- t! B" t% D% c2 h$ k% O
  C! j: E( P/ _( H/ N8 R
    End Sub- Z7 \1 A# C: t! n( B4 u
$ G) j* M& B6 _) V) j/ }/ Y
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()' U. C/ X2 ~; U8 s) E+ b
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
+ e8 ?2 P& W' b9 y        Dim aChildTag As Tag = Tag.Null# i) M; I+ c: S/ D. V

' S1 z( ]! ^7 J* _7 V  g8 Z* k3 M        Do
7 n- K) `3 {5 o9 ~8 u# D            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
/ e% b! `" K3 M' O( I9 \% h            If (aChildTag = Tag.Null) Then Exit Do; I: w" E0 \7 o. R; K  z9 J

9 ?( M9 y" U/ c8 b0 q2 E/ U            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)/ W) R' d( R7 C" ~" J
            theChildren.Add(aChild)* I, t% H  F) a" R
        Loop
6 V, l. X, v' b3 g+ u        Return theChildren.ToArray(GetType(Assemblies.Component))5 o8 I+ q. E" M! n6 y
9 X' n0 s. T/ s/ K% c
    End Function2 b+ @$ |' v% e5 W

& s7 F7 u! i0 s# o    Public Sub Main(ByVal args As String())2 I  ^( _: c9 `# R
        If dispPart IsNot Nothing Then
1 a9 C0 H5 W8 E' s& o            DoIt()
4 [! N4 T; X% i- `4 \            Return+ `& X8 m1 u0 [8 L" l. O
        End If
& z% p* b* Z# y9 v" P
5 d/ Q& R3 y! o/ e& _# u* F    End Sub6 ]; C; V" \5 k7 T, g6 G+ e
6 D0 P' l0 X- N$ A
    Sub Echo(ByVal output As String)
: c$ x  c0 o- [  B+ w8 s/ y1 _& ?        theSession.ListingWindow.Open()3 ?0 N- }; G0 v) V$ A- U+ B. l# E' c
        theSession.ListingWindow.WriteLine(output)/ d: X1 Z; m/ |
        theSession.LogFile.WriteLine(output)9 q, i1 [9 P- z) N' @
    End Sub/ C/ h! P) B4 G- ?5 f7 r
. q* \' q7 J% s/ g# U# X1 g
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
- p7 I1 R4 S* d9 W9 m        If load_status.NumberUnloadedParts = 0 Then
1 |) }+ L( F1 p" n% @            Return
& v) f* i% C% l5 y* R4 c        End If" q' y& f% }2 t4 C9 A
2 h3 P" G* R: V+ N2 x
        Echo("  Load notes:")( v0 U" Y" ~4 t, s+ G
1 v' K+ [0 b, n: i' W
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
) H5 q- Q) g, w4 K            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))3 N' y# t8 t4 N" J
        Next! }* R1 G8 ^- E1 ^( N- h
    End Sub1 ]' e+ v/ Y/ i7 ?- G2 z7 C
6 q1 K$ j; K# H4 {; Y9 a0 M$ |
    Public Function GetUnloadOption(ByVal arg As String) As Integer3 I) _4 Q- \; l# b( f' d5 Y
        Return Session.LibraryUnloadOption.Immediately, U; l5 s/ m# ^$ F5 F0 p* s& S
    End Function* H  l2 C  L. \

2 N" h, @% X# W5 VEnd Module[/mw_shl_code]  P( Z* E/ u6 [( m
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了