Allows access to a universal joint mate feature.
.NET Syntax
Visual Basic (Declaration) | |
---|
Public Interface IUniversalJointMateFeatureData |
C# | |
---|
public interface IUniversalJointMateFeatureData |
C++/CLI | |
---|
public interface class IUniversalJointMateFeatureData |
Example
'VBA
' ******************************************************************************
' 1. Open public_documents\samples\tutorial\api\MechanicalMates\Universal Joint.sldasm.
' 2. Run the macro.
' 3. Inspect the Mates folder of the FeatureManager design tree.
' ******************************************************************************
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Option Explicit
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByRay(1.88633351534122E-02, 2.88569103901466E-02, 5.46569039595397E-02, -0.879159305813743, -0.399683188478405, -0.259484611969252, 7.73012265648448E-04, 2, True, 1, 0)
boolstatus = Part.Extension.SelectByRay(1.86671108039604E-02, 7.47386637118552E-02, 4.19001939717987E-02, -0.879159305813743, -0.399683188478405, -0.259484611969252, 7.73012265648448E-04, 2, True, 1, 0)
' Create UniversalJointMateFeatureData
Dim MateData As SldWorks.UniversalJointMateFeatureData
Set MateData = Part.CreateMateData(19)
' Set the Entities To Mate
Dim EntitiesToMate(1) As Object
Set EntitiesToMate(0) = Part.SelectionManager.GetSelectedObject6(1, -1)
Set EntitiesToMate(1) = Part.SelectionManager.GetSelectedObject6(2, -1)
Dim EntitiesToMateVar As Variant
EntitiesToMateVar = EntitiesToMate
MateData.EntitiesToMate = (EntitiesToMateVar)
' Set the Mate DefineJointPoint
MateData.DefineJointPoint = False
' Create the mate
Dim MateFeature As SldWorks.Feature
Set MateFeature = Part.CreateMate(MateData)
Part.ClearSelection2 True
Part.EditRebuild3
End Sub
Remarks
See Also