1 Reply Latest reply on Feb 17, 2016 2:09 PM by Joe Pickens

    Macro to mate parts in an assembly

    Joe Pickens

      I am running this macro to mate components in an assembly and its not making the selection like it should


      'Sub Add_Mates(SWAsmName As String, SWCompName As String, SWAsm As SldWorks.AssemblyDoc)

      Sub Add_Mates()


      Dim SWApp               As SldWorks.SldWorks

      Dim SWModel             As SldWorks.ModelDoc2

      Dim SWDocExt            As SldWorks.ModelDocExtension

      Dim SWMateFeat          As SldWorks.Feature

      Dim Asm                 As SldWorks.AssemblyDoc

      Dim MateName            As String

      Dim FirstSelection      As String

      Dim SecondSelection     As String

      Dim CompName            As String

      Dim AsmName             As String

      Dim AsmName2            As String

      Dim boolstat            As Boolean

      Dim SWMateError         As Long

      Dim Str                 As Variant


      Set SWApp = CreateObject("SldWorks.Application")

      Set SWModel = SWApp.ActiveDoc


      'Create the name of the mate and the names of the entities to use for mating

      'CompName = SWCompName

      'AsmName = SWAsmName

      'Asm = SWAssy


      CompName = "148024005-1"

      AsmName2 = SWModel.GetTitle

      Str = Split(AsmName2, ".")

      AsmName = Str(0)

      Set Asm = SWModel


      MateName = "top_coinc_" + CompName

      FirstSelection = "Point1@Origin@" + CompName & "@" + AsmName

      SecondSelection = "Point1@Origin@" + AsmName


      SWModel.ClearSelection2 (True)


      Set SWDocExt = SWModel.Extension


      'Select entities for mating

      boolstat = SWDocExt.SelectByID2(FirstSelection, "DATUMPOINT", 0, 0, 0, True, 1, Nothing, swSelectOptionDefault)

      boolstat = SWDocExt.SelectByID2(SecondSelection, "DATUMPOINT", 0, 0, 0, True, 1, Nothing, swSelectOptionDefault)


      'Add the mate

      Set SWMateFeat = Asm.AddMate3(swMateCOINCIDENT, swMateAlignALIGNED, False, 0, 0, 0, 0, 0, 0, 0, 0, False, SWMateError)

      SWMateFeat.Name = MateName


      End Sub