Create Temporary Bodies by Offsetting a Surface Body Example (VBA)

This example shows how to create two temporary bodies by offsetting a surface body.

'---------------------------------------

'

' Preconditions: Select an edge on the surface body to offset.

'

' Postconditions: Two temporary bodies of the surface

'                 body whose edge you selected are created.

'

'-----------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swPart As SldWorks.PartDoc

Dim swBody As SldWorks.Body2

Dim swEdge As SldWorks.Edge

Dim swSelMgr As SldWorks.SelectionMgr

Dim swModel As SldWorks.ModelDoc2

Dim NewBody1 As SldWorks.Body2

Dim NewBody2 As SldWorks.Body2

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swPart = swModel

Set swSelMgr = swModel.SelectionManager

Set swEdge = swSelMgr.GetSelectedObject5(1)

Set swBody = swEdge.GetBody

Set swBody = swBody.Copy

' Using a copy of the selected surface body, create two new temporary bodies

Set NewBody1 = swBody.MakeOffset(0.01, 1)

Set NewBody2 = swBody.MakeOffset(0.01, 0)

' Display and color the new temporary body blue

NewBody1.Display2 swPart, RGB(0, 0, 255), 0

' Display and color the new temporary body red

NewBody2.Display2 swPart, RGB(255, 0, 0), 0

End Sub