I want to use macro to modify a limitdistance mate in different configuration in a subassembly. However, after running the following macro code, the limit distance mate becomes the same for all configurations. 

' ******************************************************************************
' C:\\Users\\Lcp\\AppData\\Local\\Temp\\swx15872\\Macro1.swb - macro recorded on 05/07/21 by Lcp
' ******************************************************************************

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Test_Assem1-1@Assem2", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Part.EditAssembly

' Edit Mate
Part.ClearSelection2 True
boolstatus = Part.ShowConfiguration2("PreviewCfg")
boolstatus = Part.Extension.SelectByID2("Plane1@Test_Assem1-1@Assem2/Part3^Test_Assem1-1@Test_Assem1", "PLANE", 0, 0, 0, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Top Plane@Test_Assem1-1@Assem2/Part2-1@Test_Assem1", "PLANE", -0, 0, 0, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("LimitDistance1@Test_Assem1-1@Assem2", "MATE", 0, 0, 0, True, 0, Nothing, 0)
Part.EditDistanceMate 5, False, 0.02, 0.04, 0.02, 0, 0, longstatus
Part.EditAssembly
End Sub

By the way, how can I upload an attachment to this forum?