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 swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2 Dim swModel As SldWorks.ModelDoc2
Dim swAssy As SldWorks.AssemblyDoc Dim swAssy As SldWorks.AssemblyDoc
Dim CompArray() As SldWorks.Component2 Dim CompArray(3) As SldWorks.Component2
Dim vCompArray Dim vCompArray
Dim vIntCompArray Dim vIntCompArray
Dim vIntFaceArray Dim vIntFaceArray
@ -624,11 +624,14 @@ Public Class Model_3D_Fill
Dim components = swAssy.GetComponents(True) Dim components = swAssy.GetComponents(True)
'CompArray = swAssy.GetComponents(True) 'CompArray = swAssy.GetComponents(True)
'For i = 1 To components.length - 1 '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 'Next
vCompArray = components vCompArray = CompArray
swAssy.ToolsCheckInterference2(components.length, (vCompArray), interfering, vIntCompArray, vIntFaceArray) swAssy.ToolsCheckInterference2(4, (vCompArray), interfering, vIntCompArray, vIntFaceArray)
Dim Bodies(UBound(vIntFaceArray)) As Object Dim Bodies(UBound(vIntFaceArray)) As Object