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

Interference of bodies now fully work for individual and multiple gratings

This commit is contained in:
Anton 2021-04-12 13:21:54 +02:00
parent 9b1c9464a0
commit 23c26dedd9
5 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
HLCt/recess_angle.SLDPRT
View File

Binary file not shown.

BIN
HLCt/recess_middle_square.SLDPRT
View File

Binary file not shown.

BIN
HLCt/recess_rectangle.SLDPRT
View File

Binary file not shown.

BIN
HLCt/recess_side_square.SLDPRT
View File

Binary file not shown.

6
Wardrobe/SolidWorks/Model_3D_Fill.vb
View File

@ -320,6 +320,7 @@ Public Class Model_3D_Fill
Assembly.EditPart
Assembly.ClearSelection2(True)
boolstatus = AssemblyExtension.SelectByID2("Interference-Body@" & recessPartName & "-1@" & designName, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
modelDoc.EditSuppress2()
boolstatus = AssemblyExtension.SelectByID2("Cut-Body@" & recessPartName & "-1@" & designName, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
@ -336,6 +337,7 @@ Public Class Model_3D_Fill
Next
Dim gratingComponent As SldWorks.Component2 = components(indexGrating)
Assembly.ClearSelection2(True)
Dim bodiesToCut = Check_Interference(recessComponent, gratingComponent, recessPartName & "-1")
If bodiesToCut.Length > 0 Then
@ -386,8 +388,10 @@ Public Class Model_3D_Fill
modelDoc.EditUnsuppress2()
boolstatus = AssemblyExtension.SelectByID2("Cut-Body@" & recessPartName & "-1@" & designName, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
modelDoc.EditUnsuppress2()
Assembly.EditAssembly
End If
Assembly.EditAssembly
boolstatus = modelDoc.EditRebuild3()
Next
End Sub