按设计树顺序遍历装配体

秋韵舞-江枫

+ R/ H& o6 J& B1 e2 Q2 ?
: k' T4 }0 m' N     完整按设计树顺序遍历装配体代码，此代码为VB.NET编写。可以在此代码中添加功能代码后可实现特定功能。

1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   . @  X/ l; @: H: Y6 g
2.         Dim swApp As SldWorks
   
3.         Dim swModel As ModelDoc2
   ; b# K$ J5 _$ P. j4 J$ e
4.         Dim swPrOPMgrs As CustomPropertyManager
   ( H5 ~7 u2 M& k. m+ Z( h. z
5.         Dim swConMgrs As ConfigurationManager
   ; @4 `$ k+ H; d9 u
6.         Dim swConfigs As Configuration
   4 e: @, {7 }2 h' w/ }5 q, ^) Z
7.         Dim swGetType As String
   - K" Q0 ?6 d$ C/ P: A; ^& ]/ _
8.         Dim swFeat As Feature
   
9.         Dim swChild As String
   ' l7 [  W* Q6 }0 |0 P4 D2 a2 z5 E
10.         RichTextBox1.Text = ""
    
11.         swApp = GetObject(, "SldWorks.Application")
    
12.         If swApp Is Nothing Then
    $ z8 T( s/ ]: X& m4 h) o
13.             MsgBox("请您在运行本程序前先运行SOLIDWORKS！")
    
14.             Exit Sub
    
15.         End If
    
16.         swModel = swApp.ActiveDoc
    
17.         If swModel Is Nothing Then
    
18.             MsgBox("请您打开模型后再运行！")
    
19.             Exit Sub
    7 G  k# |* f* C" w9 Q  L# j6 a
20.         End If
    & r6 w8 C6 T4 T
21.         If swModel.GetType <> 2 Then
    
22.             MsgBox("请您打开装配模型后再运行！")
    
23.             Exit Sub
    6 D) l* M+ s6 P
24.         End If
    9 D( B5 `; u% v
25.         swConMgrs = swModel.ConfigurationManager '获取配置管理器
    ' E5 h7 n& U4 L/ e+ k3 s6 n! d, s! p
26.         swConfigs = swConMgrs.ActiveConfiguration '获取活动配置
    / k4 c9 T2 n3 ?6 z0 c) e
27.         swChild = swConfigs.Name '获取活动配置名
      g% t% P2 ?! [  T$ u+ U  q
28.         swPropMgrs = swModel.Extension.CustomPropertyManager("") '获得自定义属性
    % P5 [4 d, N* N8 E# p9 z: p
29.         'swPropMgrs = swModel.Extension.CustomPropertyManager(swChild) '获得配置特定属性
    " A: ^1 c2 Y+ P5 }2 J/ B/ {
30.         swGetType = swModel.GetPathName '获取此文档的完整路径名，包括文件名
    
31.         RichTextBox1.Text &= swGetType & vbNewLine
    
32.         swFeat = swModel.FirstFeature
    
33.         While IsNothing(swFeat) = False
    
34.             Select Case swFeat.GetTypeName2
    5 B3 W4 }; T. Y6 p/ p' q- f9 x
35.                 Case "Reference", "ReferencePattern" '排除镜像及阵列模型
    . f- C" K5 d! p
36.                     Throughs(swModel, swFeat.Name)
    - [3 T5 u3 r, P" E2 Y
37.             End Select
    
38.             swFeat = swFeat.GetNextFeature
    & D; n. H6 w, K* i
39.         End While
    
40.     End Sub
    
41.     Private Sub Throughs(ByVal swModels As ModelDoc2, ByVal swPartName As String)
    
42.         Dim swComponent As Component2
    * O- z' j' `% Q' K( g+ q
43.         Dim swildMode As ModelDoc2
    ; @! A1 {0 L. q1 o' s* h( y
44.         Dim swPropMgr As CustomPropertyManager
    
45.         Dim swGetTypes As String
    - W6 L7 F( p# a) O" t
46.         Dim swFeature As Feature
    
47.         Dim swChild As String
    & P2 i8 z9 K* v5 i% j! V
48.         swComponent = swModels.GetComponentByName(swPartName) '获取指定的顶级程序集组件
    7 ~" k8 r9 `5 ]  w& m% x4 ~
49.         swChild = swComponent.ReferencedConfiguration
    
50.         If swComponent.IsSuppressed = False AndAlso swComponent.ExcludeFromBOM = False AndAlso swComponent.IsEnvelope = False Then '排除是否被压缩、不包括在材料明细表中或封套的模型
    4 j" ^3 o7 |/ o' I3 ]! E3 X
51.             swildMode = swComponent.GetModelDoc2 '获取此组件的模型文档
    # b! S, O( }$ L- \
52.             swGetTypes = swildMode.GetPathName '获取此文档的完整路径名，包括文件名
    ( [5 {6 O5 Q: |) K+ Z$ S1 i0 M
53.             RichTextBox1.Text &= swGetTypes & vbNewLine
    9 V$ S3 V+ |1 v9 z  |5 ]
54.             swPropMgr = swildMode.Extension.CustomPropertyManager("") '获得自定义属性
    5 A* {, C/ T! f' O/ ^6 a8 L
55.             'swPropMgr = swildMode.Extension.CustomPropertyManager(swChild) '获得配置特定属性
    6 ]+ V* u% b2 \( T/ _2 Z
56. 
    + N% `# T* O( j. i0 A( ?
57.             '..............
    
58.             '..............
    1 C% R! c5 O. t
59.             '..............
    * H; y2 o6 z! W
60.             '..............添加你要处理的代码
    
61. 
    
62. 
    ( R6 @, n, G6 {
63.             If swildMode.GetType = 2 Then '获取文档类型，是否是装配文件
    
64.                 swFeature = swildMode.FirstFeature '获取此组件中的第一个模型
    & v, R+ f7 y$ p% J
65.                 Do While Not swFeature Is Nothing '如果模型存在， 模型循环此模型
    
66.                     Select Case swFeature.GetTypeName2
    
67.                         Case "Reference", "ReferencePattern"
    1 L5 g1 C+ h; f" H! q7 ]
68.                             Throughs(swildMode, swFeature.Name)
    
69.                     End Select
    , s. l3 {- q0 R  k8 R3 K
70.                     swFeature = swFeature.GetNextFeature
    % B% Q0 X, h6 h  b- {) H1 f6 E
71.                 Loop
    
72.             End If
    
73.         End If
    7 q9 A6 C. i( s8 F, v" b2 }! |- `6 }
74.     End Sub

复制代码

che-zp

' e2 f+ [' L  a, h4 R) O& x
遍历设计树 解压错误

秋韵舞-江枫

应该是论坛的问题，我上传的时候提示如下图，后来我自己也下载解压一下，确实有问题。
$ j; z) L& l+ K# ^1 X1 a



* y9 t! y* [" ~2 y8 a8 d

孤寂的过路人

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

hdgd501

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

努力到无能为力

. n2 O* H5 u: h. o- {
没有明白啥是”遍历装配体“的意思，怎么用的。但感觉好高大上！
% V1 L' z6 l1 l: S% N

qxzch

谢谢楼主！膜拜

lider2010

谢谢楼主分享