How to use vba to create a mateconstraint for two cylindrical faces?

[lzs013]

I need a macro. When I run this macro, I need to pick two cylindrical faces, after which the macro automatically creates a coaxial mate for the two part. Who can help me?

[YuhanZhang · Accepted solution]

Here is the VBA sample:

Sub CylinderFacesMateSample()
    Dim oDoc As AssemblyDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    Dim oFace1 As Face
    Set oFace1 = ThisApplication.CommandManager.Pick(kPartFaceCylindricalFilter, "Select a cylindrical face")
    
    Dim oFace2 As Face
    Set oFace2 = ThisApplication.CommandManager.Pick(kPartFaceCylindricalFilter, "Select another cylindrical face")
     
    Dim omate As MateConstraint
    Set omate = oDoc.ComponentDefinition.Constraints.AddMateConstraint(oFace1, oFace2, 0, kInferredLine, kInferredLine)
End Sub

Hope it helps.