Sweep Planar Loop Along Vector Example (VBA)
This example shows how to sweep a planar loop along a vector.
'---------------------------------
'
' Preconditions: Model document is open and a planar face
is selected.
'
' Postconditions: Planar loop is swept along the specified
vector.
'
'---------------------------------
Option Explicit
Sub main()
Dim
swApp As
SldWorks.SldWorks
Dim
swModel As
SldWorks.ModelDoc2
Dim
swSelMgr As
SldWorks.SelectionMgr
Dim
swFace As
SldWorks.face2
Dim
swLoop As
SldWorks.Loop2
Dim
vSweepOutput As
Variant
Dim
swBody As
SldWorks.body2
Dim
swStopFace(1) As
SldWorks.face2
Set
swApp = Application.SldWorks
Set
swModel = swApp.ActiveDoc
Set
swSelMgr = swModel.SelectionManager
Set
swFace = swSelMgr.GetSelectedObject5(1)
Set
swLoop = swFace.GetFirstLoop:
Debug.Assert 1 = swFace.GetLoopCount
vSweepOutput
= swLoop.SweepPlanarLoop(0#, 0#,
0.01, 0#)
Debug.Assert
Not IsEmpty(vSweepOutput)
Debug.Assert
2 = UBound(vSweepOutput)
Set
swBody = vSweepOutput(0)
Set
swStopFace(0) = vSweepOutput(1)
Set
swStopFace(1) = vSweepOutput(2)
Debug.Print
"Original face area =
" & swFace.GetArea *
1000000# & " mm^2"
Debug.Print
" Stop
face 1 area =
" & swStopFace(0).GetArea
* 1000000# & " mm^2"
Debug.Print
" Stop
face 2 area =
" & swStopFace(1).GetArea
* 1000000# & " mm^2"
End Sub
'---------------------------------