From d438a6b9943377669d75ba5644163f154003fc9e Mon Sep 17 00:00:00 2001 From: Anton Date: Mon, 22 Mar 2021 16:03:11 +0100 Subject: [PATCH] Interference code --- Wardrobe/SolidWorks/Model_3D_Fill.vb | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/Wardrobe/SolidWorks/Model_3D_Fill.vb b/Wardrobe/SolidWorks/Model_3D_Fill.vb index dde19c2..560c92a 100644 --- a/Wardrobe/SolidWorks/Model_3D_Fill.vb +++ b/Wardrobe/SolidWorks/Model_3D_Fill.vb @@ -611,7 +611,7 @@ Public Class Model_3D_Fill Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swAssy As SldWorks.AssemblyDoc - Dim CompArray() As SldWorks.Component2 + Dim CompArray(3) As SldWorks.Component2 Dim vCompArray Dim vIntCompArray Dim vIntFaceArray @@ -624,11 +624,14 @@ Public Class Model_3D_Fill Dim components = swAssy.GetComponents(True) 'CompArray = swAssy.GetComponents(True) 'For i = 1 To components.length - 1 - ' CompArray(0) = swAssy.GetComponentByName("Part2^Assem1-1") + CompArray(0) = components(0) + CompArray(1) = components(1) + CompArray(2) = components(2) + CompArray(3) = components(3) 'Next - vCompArray = components - swAssy.ToolsCheckInterference2(components.length, (vCompArray), interfering, vIntCompArray, vIntFaceArray) + vCompArray = CompArray + swAssy.ToolsCheckInterference2(4, (vCompArray), interfering, vIntCompArray, vIntFaceArray) Dim Bodies(UBound(vIntFaceArray)) As Object