Lesson 4.2b code

Files

Lesson 4.2b code

Code

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim swFeat As SldWorks.Feature
Dim swExtrudeFeatData As SldWorks.ExtrudeFeatureData2
Dim swFilletFeatData As SldWorks.SimpleFilletFeatureData2
    
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swPart = swModel
    
    'modify boss extrude
    Set swFeat = swPart.FeatureByName("Boss-Extrude1")
    Set swExtrudeFeatData = swFeat.GetDefinition
    swExtrudeFeatData.SetDepth True, swExtrudeFeatData.GetDepth(True) * 1.2
    swFeat.ModifyDefinition swExtrudeFeatData, swModel, Nothing
    
    'modify fillet
    Set swFeat = swPart.FeatureByName("Fillet1")
    Set swFilletFeatData = swFeat.GetDefinition
    swFilletFeatData.AccessSelections swModel, Nothing
    
    Dim swBody As SldWorks.Body2
    Dim vBodies As Variant
    vBodies = swPart.GetBodies2(swSolidBody, False)
    Set swBody = vBodies(0) 'assume only one solid body
    swFilletFeatData.Edges = swBody.GetEdges
    swFeat.ModifyDefinition swFilletFeatData, swModel, Nothing
End Sub