Below is a macro for a coincident mate. I need to modify it to apply a Profile-Center mate and lock rotation. The quick mate breadcrumbs don't lock rotation for Profile-Center no matter what. I'm tired of fighting it.

Dim swApp As Object
Dim Part As Object
Dim Gtol As Object
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Part.AddMate 0, 2, 0, 0.01, 0.5235987755983
Part.ClearSelection
End Sub

Also, what do the numbers drive on the third-to-last row? Selection boxes?

TIA!