Create Section View and Get Some Data Example (VBA)

This example creates a section view and gets some of the newly created section view's data.

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

' Preconditions: Open:

' <SolidWorks_install_dir>\samples\tutorial\driveworksexpress\moble gantry.slddrw

'

' Postcondtions: Section view of Drawing View4 is created

' when the macro is run.

'

' NOTE: Because this drawing is used in a SolidWorks

'       online tutorial, do not save the drawing when

'       you close it.

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

Option Explicit

 

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swDrawing As SldWorks.DrawingDoc

Dim swSketchMgr As SldWorks.SketchManager

Dim swSketchSegment As SldWorks.SketchSegment

Dim excludedComponents As Variant

Dim swView As SldWorks.View

Dim swSectionView As SldWorks.DrSection

Dim boolstatus As Boolean

 

Sub main()

 

Set swApp = Application.SldWorks

 

Set swModel = swApp.AcitveDoc

Set swDrawing = swModel

 

' Activate the view for which you want to create a section view

boolstatus = swDrawing.ActivateView("Drawing View4")

swModel.ClearSelection2 True

 

' Create section-view line

Set swSketchMgr = swModel.SketchManager

Set swSketchSegment = swSketchMgr.CreateLine(-1.383705, 2.078706, 0#, 2.747162, 0.0441, 0#)

 

' Create the section view at the specified coordinates

' and up to the specified distance from the section-view line

Set swView = swDrawing.CreateSectionViewAt5(0.1604082711061, 0.2048687170364, 0, "D", 32, (excludedComponents), 0.00835)

 

' Activate the section view

boolstatus = swDrawing.ActivateView("Drawing View6")

 

' Get some section-view data

Set swSectionView = swView.GetSection

Debug.Print "Section view data: "

Debug.Print "  Label: " & swSectionView.GetLabel

Debug.Print "  Name of section line: " & swSectionView.GetName

Debug.Print "  Depth: " & swSectionView.SectionDepth * 1000# & " mm"

 

End Sub