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

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

admin 楼主

2013-10-30 13:46:00

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

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

x

0 s& _3 i2 t/ q" b9 [1 u" N
  1. Option Strict Off; Q& h5 R: u- m. W6 {1 u

  2. 4 \$ j& @7 p" W$ k* R- E
  3. Imports System5 x! A* x/ L$ s. w
  4. Imports NXOpen
    9 W9 a, ~0 C1 x" w6 l4 e
  5. Imports NXOpen.UF5 b$ \2 K& e$ I' i2 d& {% r( k
  6. Imports NXOpen.UI7 s0 G# x/ p" u' e& g3 A
  7. Imports NXOpen.Utilities% E0 s- G: {3 D4 Z9 u
  8. Imports NXOpen.Assemblies
    4 u  F* U5 T6 B  {, S$ L& S

  9. 5 T5 c6 h  c7 I( W. \) ~
  10. Module create_array_of_all_bodies_in_assembly* a% Q3 o6 b. ?# ]' q) i

  11. # C: k/ k5 P$ U& K% N
  12.    Dim s As Session = Session.GetSession()
    4 U# {* v0 @' \3 h
  13.    Dim ufs As UFSession = UFSession.GetUFSession()
    ) L# j. ~8 p& @& H
  14.    Dim lw As ListingWindow = s.ListingWindow3 U  I- Z; B% ]  L) F. i
  15. ( _" x& b) X3 P* p, b. X8 X
  16.    Sub Main()4 ~/ s5 ^( W5 `* S; U6 E' o
  17.       lw.Open()
    * a- ^5 O$ d' g! c$ S) K! g) D  l7 z" t
  18. & t: ^0 Q4 N4 Q' B
  19.       Dim dispPart As Part = s.Parts.Display()# U9 G1 G" ]8 |2 [) p

  20.   a$ m" K+ }. |
  21.       Dim root As Component = _( B3 q# i& I! ~
  22.                   dispPart.ComponentAssembly.RooTComponent
    ) w' b5 M! r$ n
  23. 1 P9 J& O2 E* W" T
  24.       Dim compArray(-1) As Component
    + F# @  X7 r" q' C. _  V* P

  25. 3 S0 g( t" D" R
  26.       stuffComponentArray(root, compArray)
    3 @# q2 a  _+ }4 s* a
  27. - V# u8 W( \% M: C
  28.       lw.WriteLine("Component Array Size: " & compArray.Length.ToString())7 l2 Y5 H& R, A* n* Y3 G5 t4 ^) h
  29.       Dim bodyArray(-1) As Body9 L6 m+ `* M  I2 j

  30. - o% o+ c% Y4 A3 H" N
  31.       stuffBodyArray(compArray, bodyArray)
    % I" m& W% u) c
  32. 7 Y0 I: ~0 E# z
  33.       lw.WriteLine("Count of bodies in array: " & _" i$ B' X+ F0 q7 Y* z) p( O' {
  34.                    bodyArray.Length.ToString())
    + p. P) u- B* e# R# M3 U
  35. ; @- S* [/ h; P' N5 s

  36. + y9 @+ c5 ?0 A$ ~, \
  37.    End Sub
    / Q; I" G% Q5 Q+ b' ^" H
  38. 6 Q: g, q- Q* s  C8 `* I
  39.    Public Sub stuffBodyArray(ByVal ca As Component(), ByRef ba As Body())- }) C; f) T9 g7 a8 l& j' ?4 O! a
  40. , d( B5 Q' |' O% G3 e; Z1 |
  41.       For Each comp As Component In ca
    1 B) X' m9 f4 ?+ `0 @
  42.          Dim c_part As Part = comp.Prototype) b; ]+ i% Z# p# d4 D4 Z( ]
  43.          Dim localBodies() As Body = c_part.Bodies.ToArray()! j$ w8 ~7 g+ M( y, j
  44.          For Each thisBody As Body In localBodies
      [+ f: F0 L( j, i4 \
  45.             ReDim Preserve ba(ba.GetUpperBound(0) + 1)3 S6 O$ m+ k$ K, x
  46.             ba(ba.GetUpperBound(0)) = thisBody
    ( q# H' D; K+ y
  47.          Next+ @$ v5 f" X) J$ Q! [' u
  48. ' O1 S3 H' x1 S7 V' @# m  L
  49.       Next
    . O9 F& Z1 x8 n8 R" t
  50.    End Sub
      `5 I) a% Z) `8 N- J1 {

  51. + K: @. m  q4 f- R
  52.    Public Sub stuffComponentArray(ByVal cmp As Component, ByRef ca As Component())* ~* Y9 x& @! p
  53.       Dim child As Component = Nothing8 u' }/ a. Q0 L+ a% r. Q' D
  54.       For Each child In cmp.GetChildren()
    . e. H- v3 t5 P& ?2 M# d
  55.          ReDim Preserve ca(ca.GetUpperBound(0) + 1)4 |" ?  T4 u6 w- q" ^" {. I
  56.          ca(ca.GetUpperBound(0)) = child) D; ~9 M, s8 `9 _3 |5 B2 S2 X1 d
  57.          stuffComponentArray(child, ca): F6 `4 k  b: D" G# j) ~
  58.       Next
    ( \+ D3 ~8 m& f- V# ~
  59.    End Sub
    % c$ X. C; v) r9 h

  60. 0 D6 k3 a1 J; n3 J! L$ K' U' J. @
  61.    Public Function GetUnloadOption(ByVal dummy As String) As Integer
    5 N  z; G) m3 y% _1 r+ D# V

  62. 7 F/ y3 m7 L3 u' O
  63.       Return Session.LibraryUnloadOption.Immediately- |% v0 `/ Z8 h4 J/ E

  64. , s  m! J2 u1 c2 e3 e7 D$ |
  65.    End Function
    & `+ O) K  j4 x+ u) i
  66. 7 x. N7 X$ d1 k  e$ f  t# G
  67. End Module2 H& z  Q4 _" b+ `
复制代码

3 d. }, G, X& p$ I( j+ P* D& r' S: W8 d( h' _' R+ u
2 A* B' `4 D) ?
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了