Allows access to a mate controller feature.
.NET Syntax
Visual Basic (Declaration) | |
---|
Public Interface IMateControllerFeatureData |
C# | |
---|
public interface IMateControllerFeatureData |
C++/CLI | |
---|
public interface class IMateControllerFeatureData |
Example
'VBA
'======================================================================================
' Preconditions: Open an assembly document that contains a mechanical slot feature
' with a slot mate that has one of these constraints:
' - Distance Along Slot
' - Percent Along Slot
'
' Postconditions:
' 1. Mate Controller (Position 3) is added to the FeatureManager design tree.
' 2. Inspect the graphics area.
'
' =====================================================================================
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim Assem As SldWorks.AssemblyDoc
Dim boolstatus As Boolean
Option Explicit
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set Assem = Part
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Part.ClearSelection2 True
boolstatus = Assem.IsSupportedMatesAvailable
Dim var As Variant
var = Assem.CollectAllSupportiveMates
Dim featMgr As SldWorks.FeatureManager
Set featMgr = Part.FeatureManager
Dim mateControllerObj As SldWorks.MateControllerFeatureData
Set mateControllerObj = featMgr.CreateDefinition(swFmMateController)
Call mateControllerObj.Initialize(var)
mateControllerObj.AddNewPosition ("Position1")
mateControllerObj.AddNewPosition ("Position2")
mateControllerObj.AddNewPosition ("Position3")
Dim position2ValArr(0) As Double
position2ValArr(0) = 0.0375
Call mateControllerObj.SetValues("Position2", position2ValArr)
Dim position3ValArr(0) As Double
position3ValArr(0) = 0.0625
Call mateControllerObj.SetValues("Position3", position3ValArr)
Dim mateContFeat As SldWorks.Feature
Set mateContFeat = featMgr.CreateFeature(mateControllerObj)
Dim mcObj2 As SldWorks.MateControllerFeatureData
Set mcObj2 = mateContFeat.GetDefinition()
Dim var1 As Variant
var1 = mcObj2.Mates
Dim position2ValArr2(0) As Double
position2ValArr2(0) = 0.015
Call mcObj2.SetValues("Position2", position2ValArr2)
Dim position3ValArr2(0) As Double
position3ValArr2(0) = 0.085
Call mcObj2.SetValues("Position3", position3ValArr2)
mateContFeat.ModifyDefinition mcObj2, Part, Nothing
End Sub
Example
Remarks
Accessors
Access Diagram
See Also