装配体中零件排序问题

lwy4558 · 发表于 2019-5-29 13:11:54

经典图书

各位朋友好，有哪位朋友有装配体零件按照图号顺序进行排列的宏，或者软件本身有这个功能，帮忙解答下，谢谢。

suzhanpeng · 发表于 2019-5-31 10:37:27

没必要纠结这个，顺序不对的话在左边列表树里拖拽一下，如果是工程图的话，在材料明细表里有按名称排列的功能

hainanbibi · 发表于 2019-6-3 10:11:01

经典图书

很不错，顶一下！

lhl-RT · 发表于 2019-6-3 11:00:59

Option Explicit
' ******************************************************************************
' ?ú????????????????е?????????????
' ******************************************************************************
Dim swApp As SldWorks.SldWorks
Dim Part As ModelDoc2
Dim swAssyDoc As AssemblyDoc
Dim selMgr As SelectionMgr
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim source As Object
Dim target As Object
Dim components As Variant
Dim swComp As Component2
Dim nComponents As Integer
Dim sArray() As String
Dim iArray() As Integer
Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim sTemp As String
Dim iTemp As Integer
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swAssyDoc = Part
Set selMgr = Part.SelectionManager
' ??????ж???????
components = swAssyDoc.GetComponents(True)
' ????????????????
nComponents = UBound(components)
ReDim sArray(nComponents)
ReDim iArray(nComponents)
' ???????????????????????
For i = 0 To nComponents
Set swComp = components(i)
sArray(i) = swComp.Name2
iArray(i) = i
Next i
' ?????????e??????
For x = 0 To (nComponents - 1)
For y = (x + 1) To nComponents
If sArray(x) > sArray(y) Then
sTemp = sArray(x)
iTemp = iArray(x)
sArray(x) = sArray(y)
iArray(x) = iArray(y)
sArray(y) = sTemp
iArray(y) = iTemp
End If
Next y
Next x
' ????????????????????????
For i = (nComponents - 1) To 0 Step -1
Debug.Print components(iArray(i)).Name2 & " - " & components(iArray(i + 1)).Name2
boolstatus = swAssyDoc.ReorderComponents(components(iArray(i)), components(iArray(i + 1)), swReorderComponents_Before)
Next i
End Sub

复制代码

给你一个宏，试试！

lwy4558 · 发表于 2019-6-3 14:33:48

经典案例图书

lhl-RT 发表于 2019-6-3 11:00
给你一个宏，试试！

大佬，牛，刚试了，非常好用。非常感谢！

KEMIRWU · 发表于 2019-6-20 15:15:30

下载下来看看，应该会有用！好好学习，天天向上！

zb456250 · 发表于 2021-5-31 15:31:30

经典案例图书

lhl-RT 发表于 2019-6-3 11:00
给你一个宏，试试！

向哥哥致敬

13178546908 · 发表于 2022-1-14 11:01:43

666666

zxt0824 · 发表于 2022-3-11 09:19:39

楼主辛苦了！

		自动登录	找回密码
密码			立即注册

装配体中零件排序问题

浏览过的版块

最佳新人

活跃会员

热心会员

宣传达人

灌水之王

突出贡献