按设计树顺序遍历装配体

秋韵舞-江枫

     完整按设计树顺序遍历装配体代码，此代码为VB.NET编写。可以在此代码中添加功能代码后可实现特定功能。

4 j2 E. D! i8 Y

1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
2.         Dim swApp As SldWorks
   
3.         Dim swModel As ModelDoc2
   0 W9 C; Y& I1 P" l9 q" ]& _* \  ~- Z
4.         Dim swPrOPMgrs As CustomPropertyManager
   
5.         Dim swConMgrs As ConfigurationManager
   / i' x: t1 F- e; t) k0 ^
6.         Dim swConfigs As Configuration
   
7.         Dim swGetType As String
   9 w2 U, d8 l) ]% ]* W- F
8.         Dim swFeat As Feature
   
9.         Dim swChild As String
   & ?8 i5 B" L! ?! j9 U* e5 d% x
10.         RichTextBox1.Text = ""
    
11.         swApp = GetObject(, "SldWorks.Application")
    5 |4 o0 ]: Z: r) K1 V. y
12.         If swApp Is Nothing Then
    . ^9 ~: Z, i+ S6 C: L
13.             MsgBox("请您在运行本程序前先运行SOLIDWORKS！")
    7 M, s) L4 v) ~* R; o1 }  u
14.             Exit Sub
    
15.         End If
    : _- y' r" r0 i  j% ?+ K
16.         swModel = swApp.ActiveDoc
    * m& _  @( @9 @
17.         If swModel Is Nothing Then
    
18.             MsgBox("请您打开模型后再运行！")
    - E0 H, F2 g4 i1 w
19.             Exit Sub
    
20.         End If
    0 F) N- G7 j3 K* d) ~
21.         If swModel.GetType <> 2 Then
    
22.             MsgBox("请您打开装配模型后再运行！")
    
23.             Exit Sub
    
24.         End If
    5 B# D, [, ^7 M8 e
25.         swConMgrs = swModel.ConfigurationManager '获取配置管理器
    
26.         swConfigs = swConMgrs.ActiveConfiguration '获取活动配置
    
27.         swChild = swConfigs.Name '获取活动配置名
    % b; T. G* z& C8 i' h% ~4 ~
28.         swPropMgrs = swModel.Extension.CustomPropertyManager("") '获得自定义属性
    
29.         'swPropMgrs = swModel.Extension.CustomPropertyManager(swChild) '获得配置特定属性
    
30.         swGetType = swModel.GetPathName '获取此文档的完整路径名，包括文件名
    
31.         RichTextBox1.Text &= swGetType & vbNewLine
    
32.         swFeat = swModel.FirstFeature
    ) S( n, M" l! k; i# [
33.         While IsNothing(swFeat) = False
    - b% B  w  D7 \
34.             Select Case swFeat.GetTypeName2
    
35.                 Case "Reference", "ReferencePattern" '排除镜像及阵列模型
    2 C" I9 G# D2 S/ b4 d
36.                     Throughs(swModel, swFeat.Name)
    * J0 Q1 h9 N: W
37.             End Select
    
38.             swFeat = swFeat.GetNextFeature
    
39.         End While
    
40.     End Sub
    
41.     Private Sub Throughs(ByVal swModels As ModelDoc2, ByVal swPartName As String)
    & G) S4 z& U6 h7 l
42.         Dim swComponent As Component2
    * B: T1 r1 h& W9 C3 ^, i5 T2 T
43.         Dim swildMode As ModelDoc2
    : O7 h. Y" t' v3 m* j/ {1 _3 r( n
44.         Dim swPropMgr As CustomPropertyManager
    7 a1 r7 J* D+ g5 I
45.         Dim swGetTypes As String
    ! f  q! p  d! D
46.         Dim swFeature As Feature
    
47.         Dim swChild As String
    & e: O6 K) H* u" ~6 m% y
48.         swComponent = swModels.GetComponentByName(swPartName) '获取指定的顶级程序集组件
    1 j  {/ V& a# R1 j
49.         swChild = swComponent.ReferencedConfiguration
    
50.         If swComponent.IsSuppressed = False AndAlso swComponent.ExcludeFromBOM = False AndAlso swComponent.IsEnvelope = False Then '排除是否被压缩、不包括在材料明细表中或封套的模型
    ) U$ a! f! k) z1 V8 S& j
51.             swildMode = swComponent.GetModelDoc2 '获取此组件的模型文档
    
52.             swGetTypes = swildMode.GetPathName '获取此文档的完整路径名，包括文件名
    . Q7 M, G& u) t5 f+ K
53.             RichTextBox1.Text &= swGetTypes & vbNewLine
    - c0 x8 _  D# [( z$ i6 L4 ~
54.             swPropMgr = swildMode.Extension.CustomPropertyManager("") '获得自定义属性
    
55.             'swPropMgr = swildMode.Extension.CustomPropertyManager(swChild) '获得配置特定属性
    
56. 
    3 q9 k1 p  r9 m4 L* I& j5 S' w
57.             '..............
    
58.             '..............
    
59.             '..............
    2 g1 X( I! n2 b$ h9 f
60.             '..............添加你要处理的代码
    1 Q2 s* _& f5 N% L: p
61. 
    
62. 
    + b& e6 m- _, A
63.             If swildMode.GetType = 2 Then '获取文档类型，是否是装配文件
    3 F; _$ W1 ]" T8 @! T
64.                 swFeature = swildMode.FirstFeature '获取此组件中的第一个模型
    
65.                 Do While Not swFeature Is Nothing '如果模型存在， 模型循环此模型
    6 z" F) n. ^5 {4 r& N9 U" |
66.                     Select Case swFeature.GetTypeName2
    8 S1 [, h* p& m* z) y. @
67.                         Case "Reference", "ReferencePattern"
    
68.                             Throughs(swildMode, swFeature.Name)
    ; m% M( {( }& O- f) `2 O4 h( C/ H; B
69.                     End Select
    
70.                     swFeature = swFeature.GetNextFeature
    
71.                 Loop
    
72.             End If
    
73.         End If
    
74.     End Sub

复制代码

; e; J0 {  H' U1 j; q/ t1 d

che-zp

2 \# v( X$ k, f1 e
遍历设计树 解压错误

秋韵舞-江枫

应该是论坛的问题，我上传的时候提示如下图，后来我自己也下载解压一下，确实有问题。
! v, S8 l2 O; e, w) O0 T" X0 ~

/ b4 V0 B0 D" O7 o6 X4 Q
/ n% P$ _/ G- \$ f. h$ }


! j  x4 m) @9 f4 S, H- z6 M: D6 |

孤寂的过路人

学习一下，感谢楼主的分享。

hdgd501

感谢楼主的分享，学习一下。

努力到无能为力

9 H6 E1 O% u- j没有明白啥是”遍历装配体“的意思，怎么用的。但感觉好高大上！
' X! s4 ^" s  _5 [

qxzch

谢谢楼主！膜拜

lider2010

谢谢楼主分享