Hide Table of Contents

Get Sketch Regions (VBA)

This example shows how to get the sketch regions in a sketch.

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

' Preconditions: Model document open that contains a Sketch1 feature

'                and one or more sketch regions.

'

' Postconditions: None

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

Option Explicit

Sub main()

 

    Dim swApp As SldWorks.SldWorks

    Dim myModel As SldWorks.ModelDoc2

    Dim myPart As SldWorks.PartDoc

    Dim SelMgr As SldWorks.SelectionMgr

    Dim mySelectData as SldWorks.SelectData

    Dim myFeature As SldWorks.Feature

    Dim mySketch As SldWorks.Sketch

    Dim regionCount As Long

    Dim vSkRegions As Variant

    Dim skRegion As SketchRegion

    Dim myLoop As Loop2

    Dim edgeCount As Long, vertexCount As Long

    Dim vEdges As Variant, myEdge As SldWorks.Edge

    Dim vVertices As Variant, myVertex As SldWorks.Vertex

    Dim vPoint As Variant, X As Double, Y As Double, Z As Double

    Dim outer As Boolean, strOuter As String

    Dim i As Integer, j As Integer, k As Integer

    Dim boolstatus As Boolean

    Dim longstatus As Long, longwarnings As Long

 

    Set swApp = Application.SldWorks

    Set myModel = swApp.ActiveDoc

    Set SelMgr = myModel.SelectionManager

    Set mySelectData = SelMgr.CreateSelectData

    Set myPart = myModel

    Set myFeature = myPart.FeatureByName("Sketch1")

    Set mySketch = myFeature.GetSpecificFeature2()

 

'             or

'    Set mySketch = myModel.GetActiveSketch2()

'    Set myFeature = mySketch

 

    If Not mySketch Is Nothing Then

        regionCount = mySketch.GetSketchRegionCount()

        Debug.Print ""

        Debug.Print regionCount & " regions in sketch " & myFeature.Name

        vSkRegions = mySketch.GetSketchRegions()

        For i = LBound(vSkRegions) To UBound(vSkRegions)

            Set skRegion = vSkRegions(i)

            If Not skRegion Is Nothing Then

                Debug.Print "  region " & i & ":"

                j = 0

                Set myLoop = skRegion.GetFirstLoop()

                While Not myLoop Is Nothing

                    edgeCount = myLoop.GetEdgeCount()

                    vertexCount = myLoop.GetVertexCount()

                    outer = myLoop.IsOuter()

                    If outer = 0 Then

                        strOuter = "Inner loop"

                    Else

                        strOuter = "Outer loop"

                    End If

                    Debug.Print "    Loop " & j & ": " & edgeCount & " edges, " & vertexCount & " vertices, " & strOuter

                    vEdges = myLoop.GetEdges()

                    For k = LBound(vEdges) To UBound(vEdges)

                        Set myEdge = vEdges(k)

                        If Not myEdge Is Nothing Then

                            Debug.Print "      Edge " & k & ": "

                        End If

                    Next k

                    vVertices = myLoop.GetVertices()

                    For k = LBound(vVertices) To UBound(vVertices)

                        Set myVertex = vVertices(k)

                        If Not myVertex Is Nothing Then

                            vPoint = myVertex.GetPoint()

                            X = vPoint(0)

                            Y = vPoint(1)

                            Z = vPoint(2)

                            

                            Debug.Print "      Vertex " & k & ": " & "(" & X & ", " & Y & ", " & Z & ")"

                        End If

                    Next k

                    

                    Set myLoop = myLoop.GetNext()

                    j = j + 1

                Wend

                boolstatus = skRegion.Select2(False, mySelectData)

                If boolstatus = 0 Then

                    Debug.Print "    Selection of region failed."

                End If

                Stop

            End If

        Next i

    End If

End Sub



Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

 
*Email:  
Subject:   Feedback on Help Topics
Page:   Get Sketch Regions (VBA)
*Comment:  
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:



x

We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again
x

Web Help Content Version: API Help (English only) 2012 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.