Ehup mate,
If you're putting the parts in using code, here is something I wrote in .NET to mate Planes and Axes
Sub AddAngleConstraint(ByVal EntityOne As Object, ByVal EntityTwo As Object, ByVal Offset As Double, ByVal strMateType As String, _
ByVal Axis1 As Integer, ByVal Axis2 As Integer)
On Error GoTo ErrH
oOcc1 = EntityOne
oOcc2 = EntityTwo
oPartAxis1 = oOcc1.Definition.workaxes.item(Axis1)
oPartAxis2 = oOcc2.Definition.workaxes.item(Axis2)
Call oOcc1.CreateGeometryProxy(oPartAxis1, oAsmAxis1)
Call oOcc2.CreateGeometryProxy(oPartAxis2, oAsmAxis2)
Select Case strMateType
Case "Flush"
Call oAsmCompDef.Constraints.AddFlushConstraint(oAsmAxis1, oAsmAxis2, Offset)
Case "Mate"
Call oAsmCompDef.Constraints.AddMateConstraint(oAsmAxis1, oAsmAxis2, Offset)
Case "Angle"
Call oAsmCompDef.Constraints.AddAngleConstraint(oAsmAxis1, oAsmAxis2, Offset)
Case "Special"
oPartPlane1 = oOcc1.Definition.workplanes.item(Axis1)
Call oOcc1.CreateGeometryProxy(oPartPlane1, oAsmPlane1)
Call oAsmCompDef.Constraints.AddMateConstraint(oAsmPlane1, oAsmAxis2, Offset)
End Select
ErrH:
End Sub
Public Sub AddMateConstraint(ByVal EntityOne As Object, ByVal EntityTwo As Object, ByVal Offset As Double, ByVal strMateType As String, _
ByVal Plane1 As Integer, ByVal Plane2 As Integer)
On Error Resume Next
oOcc1 = EntityOne
oOcc2 = EntityTwo
oPartPlane1 = oOcc1.Definition.workplanes.item(Plane1)
oPartPlane2 = oOcc2.Definition.workplanes.item(Plane2)
Call oOcc1.CreateGeometryProxy(oPartPlane1, oAsmPlane1)
Call oOcc2.CreateGeometryProxy(oPartPlane2, oAsmPlane2)
Select Case strMateType
Case "Flush"
Call oAsmCompDef.Constraints.AddFlushConstraint(oAsmPlane1, oAsmPlane2, Offset)
Case "Mate"
Call oAsmCompDef.Constraints.AddMateConstraint(oAsmPlane1, oAsmPlane2, Offset)
End Select
End Sub
These are called from the main sub by the following code
AddMateConstraint(BackPanel(c), BackPanel(c - 1), -0.45, "Flush", 1, 1)
AddMateConstraint(BackPanel(c), BackPanel(c - 1), (((-panelheight(i - 1)) / 10) / 2) + (((-panelheight(i)) / 10) / 2) - 1.3, "Flush", 2, 2)
AddMateConstraint(BackPanel(c), BackPanel(c - 1), 0, "Flush", 3, 3)
Where BackPanel(c) is component 1 and backpanel(c-1) is the second component.
BackPanel(c) = oOccs.AddiPartMember("S:\Design\Drawings\Library\Components\Gondola\Back Panel.ipt", oPos, iNumRows)
To add using iMAtes through code, you could use something like:
oOccEnumerator = oAsmCompDef.Occurrences.AddUsingiMates("S:\Design\Drawings\Library\Components\Gondola\Tek Fixing.ipt", True)
This will add parts to all available iMate locations (In this case 16 places). Changing to False, will add one occurrence in.
for you, it would look something like:
oOccEnumerator = oASmCompDef.Occurrences.AddUsingiMates("Cylinder.ipt", False)
Jon
