Function RemoveMisalignment() As System.Boolean

Dim instance As IMate2
Dim value As System.Boolean
 
value = instance.RemoveMisalignment()

System.bool RemoveMisalignment()

System.bool RemoveMisalignment(); 

Return Value

'VBA

'Open an assembly with a misaligned concentric mate, Concentric1

Dim swfeature As SldWorks.Feature
Dim swmate As SldWorks.Mate2
Sub main()

    Set swApp = Application.SldWorks
    Set swassm = swApp.ActiveDoc
    Set Swfeat = swassm.FeatureByName("Concentric1")
    Set swmate = Swfeat.GetSpecificFeature2
    Debug.Print "Concentric mate type as defined in swConcentricAlignmentType_e: " & swmate.GetConcentricAlignmentType

    'Remove the misaligned mate condition
    swmate.RemoveMisalignment
    

    'Create the misaligned mate condition
    swmate.ForceMisalignment

End Sub