CAD Forum

Code: Select all

    
    Dim swBodies As Variant
    swBodies = swPart.GetBodies2(0, False)
    Dim flag As Boolean
    Dim i As Integer
    For i = 0 To UBound(swBodies)
        If Not swBodies(i).Name = firstBody.Name Then
            Dim bodyFaces As Variant
            bodyFaces = swBodies(i).GetFaces
            
            Dim j As Integer
            For j = 0 To UBound(bodyFaces)
                Dim candidateFace As SldWorks.Face2
                Set candidateFace = bodyFaces(j)
                
                Dim candidateFaceArea As Double
                candidateFaceArea = candidateFace.GetArea
                
                If Round(firstFaceArea, 5) = Round(candidateFaceArea, 5) Then
                    Set secondFace = candidateFace
                    Set secondBody = candidateFace.GetBody
                    flag = True
                End If
                
                If flag = True Then Exit For
            Next
        End If
        If flag = True Then Exit For
    Next

Code: Select all

Option Explicit

Const PI = 3.14159265358979
Const offset As Double = 0.0005
Const height As Double = 0.005
Const clearance As Double = 0.0001
Const draftDeg As Double = 10

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc

Dim firstFace As SldWorks.Face2
Dim firstBody As SldWorks.Body2
Dim secondFace As SldWorks.Face2
Dim secondBody As SldWorks.Body2

Dim sketchName As String

Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swPart = swModel
    
    SetObjectReferences
    DrawFirstSketchAndFeature
    DrawSecondSketchAndFeature
End Sub

Sub SetObjectReferences()
    Set firstFace = swModel.SelectionManager.GetSelectedObject6(1, -1)
    Set firstBody = firstFace.GetBody
   
    Dim firstFaceArea As Double
    firstFaceArea = firstFace.GetArea
    
    Dim swBodies As Variant
    swBodies = swPart.GetBodies2(0, False)
    Dim flag As Boolean
    Dim i As Integer
    For i = 0 To UBound(swBodies)
        If Not swBodies(i).Name = firstBody.Name Then
            Dim bodyFaces As Variant
            bodyFaces = swBodies(i).GetFaces
            
            Dim j As Integer
            For j = 0 To UBound(bodyFaces)
                Dim candidateFace As SldWorks.Face2
                Set candidateFace = bodyFaces(j)
                
                Dim candidateFaceArea As Double
                candidateFaceArea = candidateFace.GetArea
                
                If Round(firstFaceArea, 5) = Round(candidateFaceArea, 5) Then
                    Set secondFace = candidateFace
                    Set secondBody = candidateFace.GetBody
                    flag = True
                End If
                
                If flag = True Then Exit For
            Next
        End If
        If flag = True Then Exit For
    Next
    
    swPart.ClearSelection2 True
End Sub

Sub DrawFirstSketchAndFeature()
    Dim swEntity As SldWorks.Entity
    Set swEntity = firstFace
    swEntity.Select4 False, swModel.SelectionManager.CreateSelectData
    
    swPart.SketchManager.InsertSketch True
    swPart.SketchOffsetEntities2 -offset, False, False
    sketchName = swModel.FeatureByPositionReverse(0).Name
    swPart.ClearSelection2 True
    swPart.Extension.SelectByID2 firstBody.Name, "SOLIDBODY", 0, 0, 0, True, 8, Nothing, 0
    swPart.FeatureManager.FeatureCut4 True, False, False, 0, 0, height, 0, True, False, False, False, draftDeg * PI / 180, 0, False, False, False, False, False, True, False, True, True, False, 0, 0, False, False
    swPart.ClearSelection2 True
End Sub

Sub DrawSecondSketchAndFeature()
    Dim swEntity As SldWorks.Entity
    Set swEntity = secondFace
    swEntity.Select4 False, swModel.SelectionManager.CreateSelectData
    
    swPart.SketchManager.InsertSketch True
    swPart.Extension.SelectByID2 sketchName, "SKETCH", 0, 0, 0, False, 0, Nothing, 0
    swPart.SketchOffsetEntities2 clearance, False, False
    swPart.ClearSelection2 True
    swPart.Extension.SelectByID2 secondBody.Name, "SOLIDBODY", 0, 0, 0, True, 8, Nothing, 0
    swPart.FeatureManager.FeatureExtrusion2 True, False, False, 0, 0, height - clearance, 0, True, False, False, False, draftDeg * PI / 180, 0, False, False, False, False, True, True, False, 0, 0, False
    swPart.ClearSelection2 True
End Sub

Code: Select all

Feature f = selMgr.GetSelectedObject6(1, -1) as Feature;              
object[] faceObjArray = f.GetFaces() as object[];     

Code: Select all

Dictionary<Face2,Face2> matchingFaces = matchFaces(faceObjArray);

Code: Select all

private Dictionary<Face2, Face2> matchFaces(object[] faceObjArray)
{
	Dictionary<Face2, Face2> matchingFaces = new Dictionary<Face2, Face2>();

	/* Use a double loop to check each possible pairing.  For example, if there were 4
	 * faces (0,1,2,3), there are 6 possible combinations (0,1),(0,2),(0,3),(1,2),(1,3),(2,3)             
	 */
	for (int i = 0; i < faceObjArray.Length; i++)
	{
		for (int j = i + 1; j < faceObjArray.Length; j++)
		{
			Face2 firstFace = faceObjArray[i] as Face2;
			UVBounds firstFaceBounds = new UVBounds(firstFace.GetUVBounds());
			Face2 secondFace = faceObjArray[j] as Face2;
			UVBounds secondFaceBounds = new UVBounds(secondFace.GetUVBounds());
			if (!firstFaceBounds.Equals(secondFaceBounds)) //Faces don't match
			{
				if (matchingFaces.Count == 0)
				{
					matchingFaces.Add(firstFace, null);
					//Debug.Print("Added " + i + " , null");
				}
				else
				{
					if (matchingFaces.ContainsValue(secondFace))
					{
					   //Debug.Print("Value " + j + " already added -- skipping");
						continue;
					}
				}
			}
			else //Faces match
			{
				if (matchingFaces.ContainsKey(firstFace) && !matchingFaces.ContainsValue(secondFace))
				{
					//First face was found, add the second face as its partner
					//Debug.Print("Found first " + i + " Adding match " + j);
					matchingFaces[firstFace] = secondFace;
				}
				else if (matchingFaces.ContainsKey(secondFace) && !matchingFaces.ContainsValue(firstFace))
				{
					//Second face was found, add first face as its partner
				   // Debug.Print("Found second" + j + " Adding match " +i);
					matchingFaces[secondFace] = firstFace;
				}
				else
				{
					//Neither face was found, add them as a pair
					//Debug.Print("Adding full pair " + i + "," + j);
					matchingFaces.Add(firstFace, secondFace);
				}
			}
		}
	}
	return matchingFaces;
}           

Code: Select all

 public class UVBounds
    {
        private double uMin, uMax, vMin, vMax;
        public UVBounds(object uvDataObj)
        {
            double[] uvData = uvDataObj as double[];
            this.uMin = uvData[0];
            this.uMax = uvData[1];
            this.vMin = uvData[2];
            this.vMax = uvData[3];
        }

        public override bool Equals(object o)
        {
            if (!(o is UVBounds))
            {
                return false;
            }
            UVBounds b = o as UVBounds;
            return this.uMin == b.uMin &&
                this.uMax == b.uMax &&
                this.vMin == b.vMin &&
                this.vMax == b.vMax;
        }
    }