【求助】装配图中的零件序号排列

三维专家 发表于 2016-11-11 18:17
你可以试用下面的宏，将零部件按顺序排列

测试了下，真心好用，为了装配体零件排序美观，我在闲的时候也常把零部件的位置托到名称一致的地方去，有这个宏就可以很方便的排序了，谢谢专家

三维专家 发表于 2016-11-11 18:17
你可以试用下面的宏，将零部件按顺序排列

这个宏很好用，谢谢三维专家！

学习了

你可以试用下面的宏，将零部件按顺序排列

1. Option Explicit
   
2. 
   
3. Dim swApp As SldWorks.SldWorks
   
4. 
   
5. Dim Part As ModelDoc2
   
6. Dim swAssyDoc As AssemblyDoc
   
7. Dim selMgr As SelectionMgr
   
8. Dim boolstatus As Boolean
   
9. Dim components As Variant
   
10. Dim swComp As Component2
    
11. Dim nComponents As Integer
    
12. Dim sArray() As String
    
13. Dim iArray() As Integer
    
14. Dim I As Integer
    
15. Dim x As Integer
    
16. Dim y As Integer
    
17. Dim sTemp As String
    
18. Dim iTemp As Integer
    
19. 
    
20. Sub main()
    
21. 
    
22.     Set swApp = Application.SldWorks
    
23.    
    
24.     Set Part = swApp.ActiveDoc
    
25.    
    
26.              '检查是否有效的装配体文档打开
    
27.     If Part Is Nothing Then
    
28.        swApp.SendMsgToUser "当前没有任何文档打开，该程序必须在装配体中运行！"
    
29.        Exit Sub
    
30.     ElseIf Part.GetType <> swDocASSEMBLY Then
    
31.        swApp.SendMsgToUser "当前打开的文档不是一个装配体，请打开装配体后再试！"
    
32.        Exit Sub
    
33.     End If
    
34.    
    
35.     Set swAssyDoc = Part
    
36. 
    
37.     Set selMgr = Part.SelectionManager
    
38.    
    
39.     ' 获得所有顶级零部件
    
40.     components = swAssyDoc.GetComponents(True)
    
41.     ' 获取零部件数组的上边界
    
42.     nComponents = UBound(components)
    
43.     ReDim sArray(nComponents)
    
44.     ReDim iArray(nComponents)
    
45.    
    
46.     ' 增加零部件名称以及数组索引
    
47.     For I = 0 To nComponents
    
48.         Set swComp = components(I)
    
49.         sArray(I) = swComp.Name2
    
50.         iArray(I) = I
    
51.     Next I
    
52.     ' 对数组进行冒泡排序
    
53.     For x = 0 To (nComponents - 1)
    
54.         For y = (x + 1) To nComponents
    
55.             If sArray(x) > sArray(y) Then
    
56.                 sTemp = sArray(x)
    
57.                 iTemp = iArray(x)
    
58.                 sArray(x) = sArray(y)
    
59.                 iArray(x) = iArray(y)
    
60.                 sArray(y) = sTemp
    
61.                 iArray(y) = iTemp
    
62.             End If
    
63.         Next y
    
64.     Next x
    
65.     ' 按照相反的顺序对零部件重新排序
    
66.     For I = (nComponents - 1) To 0 Step -1
    
67. '        Debug.Print components(iArray(i)).Name2 & " - " & components(iArray(i + 1)).Name2
    
68.         boolstatus = swAssyDoc.ReorderComponents(components(iArray(I)), components(iArray(I + 1)), swReorderComponents_Before)
    
69.     Next I
    
70. 
    
71. End Sub
    

复制代码

6楼的朋友，你的零件序号问题是如何解决的，公布一下方法啊

ldw 发表于 2002-6-13 00:28
1.如装配零件少，在装配树中用鼠标拖一下顺序应该是可以接受的；
2.如装配零件多，可以将装配图明细表的属 ...

没有找到，明细表的属性→控制→行号→根据装配体顺序分配行号，盼大侠指点

look