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 二次开发源码:从整个装配上获取所有的实体

[复制链接]

2013-10-30 13:46:00 3668 0

admin 发表于 2013-10-30 13:46:00 |阅读模式

admin 楼主

2013-10-30 13:46:00

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

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

x
: O/ Y1 ?% h' D' X
  1. Option Strict Off& Y4 s& \" n. W+ p, g

  2. 7 |. E- H4 ]4 h9 y1 j; Q
  3. Imports System2 F6 N0 s9 @' t
  4. Imports NXOpen/ i0 i9 N: B' R9 g8 |: x
  5. Imports NXOpen.UF, T7 |" @7 D; L# ?' ^- x+ E
  6. Imports NXOpen.UI0 E5 Z- T! a: g* [% I
  7. Imports NXOpen.Utilities, k  r/ C$ Z# V" V( y. N
  8. Imports NXOpen.Assemblies
    + @2 [+ A! F& g4 X9 y

  9. 7 t4 P) i1 l% C! u1 |! K
  10. Module create_array_of_all_bodies_in_assembly* H4 i5 L! W& D0 c' y" J) Z
  11. 4 V0 M+ }" `$ A. b. r7 V0 {/ E# K
  12.    Dim s As Session = Session.GetSession()
    ; e7 T& u" k$ k. C: q& h
  13.    Dim ufs As UFSession = UFSession.GetUFSession()" q' \4 D) g% ^6 \$ f0 `  Q
  14.    Dim lw As ListingWindow = s.ListingWindow7 ?: h+ m# L! r1 U: x2 A
  15. 1 d0 G, @4 x7 A& P% N- H
  16.    Sub Main()
    0 q( ~7 ^' g6 j, b& X6 v5 h3 ]
  17.       lw.Open()* s! Q+ F$ A- q

  18. ) k) ]8 j( f! @
  19.       Dim dispPart As Part = s.Parts.Display()2 G" P. Y0 [! |
  20. " f; _) w* \7 T0 A
  21.       Dim root As Component = _3 K: [2 Q$ c& V. E0 a& B
  22.                   dispPart.ComponentAssembly.RooTComponent
    ; }! G* R- I- U( |0 Q9 b

  23. 7 z) ~( h- H9 V: n$ ^0 [
  24.       Dim compArray(-1) As Component
    - `3 b* I& e2 h& e3 X2 G+ o
  25. & N( j; X2 L: b; j9 O
  26.       stuffComponentArray(root, compArray)3 I$ D0 U$ K/ E) @7 g

  27. 3 a, K9 {1 _% T
  28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())6 x6 K7 c2 a. }: N( O7 o8 [6 T
  29.       Dim bodyArray(-1) As Body5 L: V* j5 I5 x& z/ k9 [! {
  30. % d4 T  ]5 Y+ G# h7 j* o
  31.       stuffBodyArray(compArray, bodyArray)- U* Y8 I6 _4 t& ?

  32. ' p0 I0 @& d; V- n2 E
  33.       lw.WriteLine("Count of bodies in array: " & _
    ( [+ K  L0 u5 v
  34.                    bodyArray.Length.ToString())+ b# j& w- W  _& ~6 o

  35. 6 P/ C7 I, H. c) g3 Q
  36. 8 |+ K4 j9 J" _+ f* Z7 G
  37.    End Sub: G0 J7 ~5 @' ?2 @$ C) l$ G& E
  38. 5 C/ M) A" [7 K+ I, h: s$ j
  39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())3 K9 Z6 Y$ E2 x& d7 O

  40. " B0 w: O$ z+ Z% v' K
  41.       For Each comp As Component In ca
    0 F) g* q% o1 S. j
  42.          Dim c_part As Part = comp.Prototype! v# L) M/ G; W+ w: P2 Y1 S. I
  43.          Dim localBodies() As Body = c_part.Bodies.ToArray()
    $ A5 i5 c1 J6 ^9 i2 W" l
  44.          For Each thisBody As Body In localBodies) G; X% G, }) v! i/ w
  45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)
    $ C% x" b8 `% A- _2 C, |# z
  46.             ba(ba.GetUpperBound(0)) = thisBody2 U# x9 e8 x! q! Q* z
  47.          Next
    & S* K# N) ?' Y
  48. ! C5 [. L. h  t  k
  49.       Next! i' l) _+ h8 z, e
  50.    End Sub* C% t5 J8 K9 N! W. L, v" J0 j

  51. - k* l# e5 J7 @6 p$ ?
  52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())
    ) W* r0 e6 i* ]2 Z
  53.       Dim child As Component = Nothing
    / g0 n0 M4 I5 d2 ?
  54.       For Each child In cmp.GetChildren()$ n. S: ?: n' k5 I8 K. b7 P
  55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)9 a9 L& _% Q" _+ l
  56.          ca(ca.GetUpperBound(0)) = child0 i5 v% j4 q4 o: w+ V( H/ g# ~
  57.          stuffComponentArray(child, ca)
    * Y- Z+ `, A1 n! ]; V; u
  58.       Next8 K8 p' |4 t4 ~5 i1 `
  59.    End Sub
    , ?& w$ k( L6 {/ B
  60. 6 x0 c" ^* u* J3 Y9 e8 ?; d
  61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    % t8 y. n1 B/ Z3 Q5 T
  62. ( V6 S) p  z/ N% S
  63.       Return Session.LibraryUnloadOption.Immediately
    # f, D4 L0 x8 |" Q  O, `

  64. % X  J  f% l( F: G& K$ x
  65.    End Function
    7 J$ h5 V; K1 a' {6 c

  66. 4 O/ V6 m+ q# E8 T
  67. End Module
    7 L* E" c1 p6 k4 T& w
复制代码

, r) q: E, R  a/ }, l- m1 M3 B1 |; t5 e: Z$ }
7 _- G. B( u6 S
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了