按设计树顺序遍历装配体

秋韵舞-江枫

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

1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
2.         Dim swApp As SldWorks
   
3.         Dim swModel As ModelDoc2
   
4.         Dim swPrOPMgrs As CustomPropertyManager
   . p" I; w3 w3 @
5.         Dim swConMgrs As ConfigurationManager
   % ~. o( q  s  A! ~7 l, h
6.         Dim swConfigs As Configuration
   
7.         Dim swGetType As String
   9 C6 N$ A8 ^, e2 I- G: G# {) N0 A
8.         Dim swFeat As Feature
   7 d, Y1 }  W- [+ n+ A' t- B  D
9.         Dim swChild As String
   3 M+ b( V7 O4 t$ o) K9 N* Q
10.         RichTextBox1.Text = ""
    
11.         swApp = GetObject(, "SldWorks.Application")
    
12.         If swApp Is Nothing Then
    ' U8 M. M9 Q* \2 v
13.             MsgBox("请您在运行本程序前先运行SOLIDWORKS！")
      G5 u3 o8 i) W9 H/ H, `
14.             Exit Sub
    
15.         End If
    . i7 d" n/ W4 N/ _" \2 I3 s" H
16.         swModel = swApp.ActiveDoc
    
17.         If swModel Is Nothing Then
    
18.             MsgBox("请您打开模型后再运行！")
    & I; @: ^( k" t  ~2 X( L' S
19.             Exit Sub
    4 F/ `/ ~$ N3 T- T- G, T
20.         End If
    
21.         If swModel.GetType <> 2 Then
    
22.             MsgBox("请您打开装配模型后再运行！")
    
23.             Exit Sub
    
24.         End If
    
25.         swConMgrs = swModel.ConfigurationManager '获取配置管理器
    
26.         swConfigs = swConMgrs.ActiveConfiguration '获取活动配置
    
27.         swChild = swConfigs.Name '获取活动配置名
    0 A  {# D9 L7 M- \! B# l8 x! w
28.         swPropMgrs = swModel.Extension.CustomPropertyManager("") '获得自定义属性
    % E2 a3 H4 E2 e! f2 \! E0 }, f) i* L# m
29.         'swPropMgrs = swModel.Extension.CustomPropertyManager(swChild) '获得配置特定属性
    
30.         swGetType = swModel.GetPathName '获取此文档的完整路径名，包括文件名
    . d  A' @. P# `2 a
31.         RichTextBox1.Text &= swGetType & vbNewLine
    % h4 c" y- p# y0 j5 ^
32.         swFeat = swModel.FirstFeature
    " s* _0 B. o  D  U4 s9 z4 T
33.         While IsNothing(swFeat) = False
    
34.             Select Case swFeat.GetTypeName2
    0 R6 x; S% U; Y6 {+ Z/ q
35.                 Case "Reference", "ReferencePattern" '排除镜像及阵列模型
    ' z1 f+ v! _% k3 ^. p, O
36.                     Throughs(swModel, swFeat.Name)
    * G5 N1 m$ u, g$ s  G' R+ j
37.             End Select
    
38.             swFeat = swFeat.GetNextFeature
    - S& [7 [( H0 \) X7 A, \
39.         End While
    ) Q- O) `5 C8 O; S1 z
40.     End Sub
    
41.     Private Sub Throughs(ByVal swModels As ModelDoc2, ByVal swPartName As String)
    
42.         Dim swComponent As Component2
    : P2 l- h/ ]4 E: n8 l
43.         Dim swildMode As ModelDoc2
    6 s5 o0 n- a9 _1 t" v4 a
44.         Dim swPropMgr As CustomPropertyManager
    ) ^4 N; I$ [- F5 `, s3 w) k
45.         Dim swGetTypes As String
    
46.         Dim swFeature As Feature
    & M2 t8 w4 [: q4 d; v
47.         Dim swChild As String
    
48.         swComponent = swModels.GetComponentByName(swPartName) '获取指定的顶级程序集组件
    
49.         swChild = swComponent.ReferencedConfiguration
    
50.         If swComponent.IsSuppressed = False AndAlso swComponent.ExcludeFromBOM = False AndAlso swComponent.IsEnvelope = False Then '排除是否被压缩、不包括在材料明细表中或封套的模型
    
51.             swildMode = swComponent.GetModelDoc2 '获取此组件的模型文档
    
52.             swGetTypes = swildMode.GetPathName '获取此文档的完整路径名，包括文件名
    * g2 L9 }/ A+ ?6 j) i
53.             RichTextBox1.Text &= swGetTypes & vbNewLine
    9 Q9 ?% w+ T. Y) _7 b
54.             swPropMgr = swildMode.Extension.CustomPropertyManager("") '获得自定义属性
    ! j" Y3 @( J* L: c0 ?4 P: [
55.             'swPropMgr = swildMode.Extension.CustomPropertyManager(swChild) '获得配置特定属性
    
56. 
      d8 \# k* f( Y0 x6 m
57.             '..............
    
58.             '..............
    
59.             '..............
    
60.             '..............添加你要处理的代码
    
61. 
    
62. 
    
63.             If swildMode.GetType = 2 Then '获取文档类型，是否是装配文件
    
64.                 swFeature = swildMode.FirstFeature '获取此组件中的第一个模型
    ( X) {5 X" e8 A8 m
65.                 Do While Not swFeature Is Nothing '如果模型存在， 模型循环此模型
    0 b  n7 {8 O% R. x
66.                     Select Case swFeature.GetTypeName2
    % z) ]! D4 @3 ?6 ~1 J
67.                         Case "Reference", "ReferencePattern"
    # [/ O% {& R3 g
68.                             Throughs(swildMode, swFeature.Name)
    
69.                     End Select
    
70.                     swFeature = swFeature.GetNextFeature
    7 B7 G' H0 @, b9 C
71.                 Loop
    
72.             End If
    
73.         End If
    % K, r6 Z1 c3 M( u5 z% ^
74.     End Sub

复制代码

/ f) B, T7 l/ h  Z

che-zp

5 `3 v; \( p9 `) j: A( E: k
$ z8 o, y- {" p4 ?3 k7 ^遍历设计树 解压错误

秋韵舞-江枫

应该是论坛的问题，我上传的时候提示如下图，后来我自己也下载解压一下，确实有问题。




/ R3 h) b9 M0 ~5 ?! _

孤寂的过路人

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

hdgd501

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

努力到无能为力

8 C0 y9 a4 O* C+ R) V4 O5 Q: x
% K6 W$ i6 j6 P% [# k没有明白啥是”遍历装配体“的意思，怎么用的。但感觉好高大上！

qxzch

谢谢楼主！膜拜

lider2010

谢谢楼主分享