Create Section View in Model Example (VBA)

This example shows how to create a section view in a model.

 

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

'

' Preconditions: Part document is open that contains a solid block.

'

'

' Postconditions: Section view of the block is created.

'

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

Option Explicit

 

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelDocExt As SldWorks.ModelDocExtension

Dim swModelViewMgr As SldWorks.ModelViewManager

Dim swSelMgr As SldWorks.SelectionMgr

Dim svData As SldWorks.SectionViewData

Dim plane1 As Object, plane2 As Object, plane3 As Object

Dim boolstatus As Boolean

 

Sub main()

    

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swModelDocExt = swModel.Extension

    Set swModelViewMgr = swModel.ModelViewManager     

    Set swSelMgr = swModel.SelectionManager

    

    boolstatus = swModelDocExt.SelectByID2("", "FACE", -0.04751707843116, 0.04466659468449, 0.1209999999999, False, 1, Nothing, 0)

    boolstatus = swModelDocExt.SelectByID2("Top Plane", "PLANE", -0.06781533387408, 0.00100317525596, 0.1263684575364, True, 2, Nothing, 1)

    boolstatus = swModelDocExt.SelectByID2("Right Plane", "PLANE", -0.000808330303073, 0.07304457560201, -0.003890984556108, True, 4, Nothing, 1)

    

 

    Set svData = swModelViewMgr.CreateSectionViewData()

    FillPlaneData svData, swSelMgr

    

    boolstatus = swModelViewMgr.CreateSectionView(svData)

    

    Debug.Print " Result : " & boolstatus

 

End Sub

 

Sub FillPlaneData(data As SectionViewData, selMgr As SelectionMgr)

    Dim plane1 As Object

    Dim plane2 As Object

    Dim plane3 As Object

    

    Set plane1 = selMgr.GetSelectedObject6(1, 0)

    Set plane2 = selMgr.GetSelectedObject6(2, 0)

    Set plane3 = selMgr.GetSelectedObject6(3, 0)

    

    

    data.FirstPlane = plane1

    data.FirstReverseDirection = False

    data.FirstOffset = -0.01

    data.FirstRotationX = 0.296705972839036

    data.FirstRotationY = 0.174532925199433

    data.FirstColor = RGB(255, 0, 0)

    

    data.SecondPlane = plane2

    data.SecondReverseDirection = False

    data.SecondOffset = 0.01

    data.SecondRotationX = 0.296705972839036

    data.SecondRotationY = 0.174532925199433

    data.SecondColor = RGB(0, 255, 0)

    

    data.ThirdPlane = plane3

    data.ThirdReverseDirection = True

    data.ThirdOffset = -0.01

    data.ThirdRotationX = 0.296705972839036

    data.ThirdRotationY = 0.174532925199433

    data.ThirdColor = RGB(0, 0, 255)

    

    

    data.ShowSectionCap = True

    

End Sub