CAD Forum

Code: Select all

Option Explicit
 
Declare PtrSafe Function StrCmpLogicalW Lib "shlwapi" (ByVal s1 As String, ByVal s2 As String) As Integer
 
Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swDoc As SldWorks.ModelDoc2
 
    Set swApp = Application.SldWorks
    Set swDoc = swApp.ActiveDoc
 
    If swDoc Is Nothing Then End
    If swDoc.GetType <> swDocASSEMBLY Then End
 
    swDoc.FeatureManager.EnableFeatureTree = False
 
    ' Sort assembly components
    SortAssemblyComponents swDoc
 
    swDoc.FeatureManager.EnableFeatureTree = True
 
End Sub
 
Function SortAssemblyComponents(swDoc As SldWorks.ModelDoc2)
    Dim swAsm As SldWorks.AssemblyDoc
    Dim swComp As SldWorks.Component2
    Dim swFeatmgr As SldWorks.FeatureManager
    Dim swConf As SldWorks.Configuration
    Dim swRootComp As SldWorks.Component2
    Dim swFeatFolder As SldWorks.Feature
    Dim vChildComp As Variant
    Dim i As Integer, j As Integer
 
    Set swFeatmgr = swDoc.FeatureManager
 
    Set swAsm = swDoc
    Set swConf = swDoc.GetActiveConfiguration
    Set swRootComp = swConf.GetRootComponent3(True)
 
    vChildComp = swRootComp.GetChildren
 
    For i = 0 To UBound(vChildComp)
        For j = i + 1 To UBound(vChildComp)
                If StrCmpLogicalW(StrConv(vChildComp(i).Name2, vbUnicode), StrConv(vChildComp(j).Name2, vbUnicode)) = 1 Then
                Set swComp = vChildComp(j)
                Set vChildComp(j) = vChildComp(i)
                Set vChildComp(i) = swComp
            End If
        Next j
    Next i
 
    vChildComp(0).Select4 False, Nothing, False
    Set swFeatFolder = swFeatmgr.InsertFeatureTreeFolder2(swFeatureTreeFolderType_e.swFeatureTreeFolder_Containing)
 
    For i = 0 To UBound(vChildComp)
        swAsm.ReorderComponents vChildComp(i), swFeatFolder, swReorderComponentsWhere_e.swReorderComponents_LastInFolder
    Next
 
    swFeatFolder.Select2 False, -1
    swDoc.Extension.DeleteSelection2 swDeleteSelectionOptions_e.swDelete_Absorbed
 
End Function

Code: Select all

Declare PtrSafe Function StrCmpLogicalW Lib "shlwapi" (ByVal s1 As String, ByVal s2 As String) As Integer