mehdi-tarkian
/
X2021
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Interference code

This commit is contained in:
Anton 2021-03-22 16:03:11 +01:00
parent 1584a2e550
commit d438a6b994
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Wardrobe/SolidWorks/Model_3D_Fill.vb
View File

@ -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