Get Polyline Data from Drawing View Example (VBA)

This example shows how to retrieve the defining data of arcs, circles, ellipses, splines, and lines in a drawing view.

' -----------------------------------------------------------------------------
' Preconditions: Open a drawing of a part.
'
' Postconditions: Inspect the Immediate window for edge and geometry data.
' -----------------------------------------------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks
Sub main()

    Dim swModel               As SldWorks.ModelDoc2
     Dim swDrawing             As SldWorks.DrawingDoc
     Dim swView                As SldWorks.View
     Dim swSheetView           As SldWorks.View
     Dim swSketch              As SldWorks.Sketch
     

   
     ' Get SolidWorks application.
     Set swApp = Application.SldWorks

    ' Get active document.
     Set swModel = swApp.ActiveDoc
     

   
     ' Downcast model to a drawing.
     Set swDrawing = swModel

    ' The first view is the drawing sheet.
     Set swSheetView = swDrawing.GetFirstView
     

   
     ' Print its contents.
     PrintView swSheetView
     

   
     ' Get the sketch for the drawing sheet view.
     Set swSketch = swSheetView.GetSketch

    ' Print its contents.
     PrintSketch swSketch

    '
     ' Traverse all "real" views on the sheet.
     '

    ' First view on the sheet.
     Set swView = swSheetView.GetNextView
     

    Do While Not swView Is Nothing
     

        PrintView swView
         

        Set swSketch = swView.GetSketch
             

        PrintSketch swSketch
     

        ' Go to next view on the sheet.
         Set swView = swView.GetNextView
     

    Loop

End Sub

Function PrintView(swView As SldWorks.View) As Boolean

    Dim vEdges As Variant
     Dim vPolyLinesBuffer       As Variant
     Dim vLines                 As Variant
     Dim lNumGeomData           As Long
     Dim i                      As Integer
     Dim iGeomIndex             As Integer
     Dim lNumLines              As Long
     Dim lItemType              As Long
     Dim lBufferSize            As Long
     Dim lBufferIdx             As Long
     Dim lGeomDataSize          As Long
     Dim dGeomData(11)          As Double
     Dim lLineData(3)           As Long
     Dim lLayerData(1)          As Long
     Dim lNumPoints             As Long
     Dim dPoint(2)              As Double
     Dim lGeomDataIdx           As Long
     Dim lLineDataIdx           As Long
     Dim lLayerDataIdx          As Long
     Dim lStartIdx              As Long
     Dim lEndIdx                As Long
     Dim lLineDataSize          As Long
     Dim lLayerDataSize         As Long
     Dim lNumProjectedElements  As Long
     Dim lNumSketchedElements   As Long

    If swView Is Nothing Then
         Exit Function
     End If
     
     Debug.Print "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
     Debug.Print "View = " + swView.Name

       
     '
     ' Report projected model geometry.
     '
     ' Initialize the number of projected elements for data is contained in the buffer.
     lNumProjectedElements = 0

     ' Get the edges and put all the polyline data into a buffer.
     ' - no cross-hatch lines.
     vEdges = swView.GetPolylines7(1, vPolyLinesBuffer)
     

    If Not IsEmpty(vEdges) Then
         Debug.Print "Number of edges: " & (UBound(vEdges) - LBound(vEdges) + 1)

    End If
     

    ' Any polyline data present ?
     If Not IsEmpty(vPolyLinesBuffer) Then

   
         ' Entries for line data and layer data have a fixed size.
         lLineDataSize = 4
         lLayerDataSize = 2
     

        ' Get the total buffer size.
         lBufferSize = UBound(vPolyLinesBuffer) - LBound(vPolyLinesBuffer) + 1

   
         ' We start to traverse the buffer at index 0.
         lBufferIdx = 0

   
         ' Traverse the buffer, consuming data elements.
         Do While lBufferIdx < lBufferSize
         

            ' Determine type.
             lItemType = vPolyLinesBuffer(lBufferIdx)
             lBufferIdx = lBufferIdx + 1
         
             ' We have found another projected element.
             lNumProjectedElements = lNumProjectedElements + 1

       
             ' Handle type specific data.
             If lItemType = 0 Then
         

                ' HERE: polylines

       
                 Debug.Print "    polyline"
                 

                ' Get GeomDataSize:
                 ' - should be zero, but consume it anyway.
                 lGeomDataSize = vPolyLinesBuffer(lBufferIdx)
                 lBufferIdx = lBufferIdx + 1
         

                ' Ignore GeomData.
                     

            Else
         

                ' HERE: arc:
                 ' - next to the piecewise linear approximation of the projected model geometry,
                 '   the buffer also contains the arc definining the model geometry projection.
         

                Debug.Print "    arc"
                 
                 ' Get GeomDataSize:
                 ' - should be 12.
                 lGeomDataSize = vPolyLinesBuffer(lBufferIdx)
                 lBufferIdx = lBufferIdx + 1

               
                 ' Get GeomData.
                 lGeomDataIdx = 0
                 lStartIdx = lBufferIdx
                 lEndIdx = lStartIdx + (lGeomDataSize - 1)
                 For lBufferIdx = lStartIdx To lEndIdx
                 

                    dGeomData(lGeomDataIdx) = vPolyLinesBuffer(lBufferIdx)
                 

                    lGeomDataIdx = lGeomDataIdx + 1
                     

                Next lBufferIdx
                 

                Debug.Print "      center pt = (" & dGeomData(0) * 1000# & ", " & dGeomData(1) * 1000# & ", " & dGeomData(2) * 1000# & ") mm"
                 Debug.Print "      start  pt = (" & dGeomData(3) * 1000# & ", " & dGeomData(4) * 1000# & ", " & dGeomData(5) * 1000# & ") mm"
                 Debug.Print "      end    pt = (" & dGeomData(6) * 1000# & ", " & dGeomData(7) * 1000# & ", " & dGeomData(8) * 1000# & ") mm"
                 Debug.Print "      normal    = (" & dGeomData(9) & ", " & dGeomData(10) & ", " & dGeomData(11) & ")"
                                 

            End If
             

           
             ' Get line data.
             lLineDataIdx = 0
             lStartIdx = lBufferIdx
             lEndIdx = lStartIdx + (lLineDataSize - 1)
                 

            For lBufferIdx = lStartIdx To lEndIdx
                 

                lLineData(lLineDataIdx) = vPolyLinesBuffer(lBufferIdx)
                 

                lLineDataIdx = lLineDataIdx + 1
                     

            Next lBufferIdx
                 

               
              ' Get layer data.
             lLayerDataIdx = 0
             lStartIdx = lBufferIdx
             lEndIdx = lStartIdx + (lLayerDataSize - 1)
             

            For lBufferIdx = lStartIdx To lEndIdx
                 

                lLayerData(lLayerDataIdx) = vPolyLinesBuffer(lBufferIdx)
                 

                lLayerDataIdx = lLayerDataIdx + 1
                     

            Next lBufferIdx
         

       
             ' Get point data.
             lNumPoints = vPolyLinesBuffer(lBufferIdx)
             

            Debug.Print "      #points = " & CStr(lNumPoints)
             

            lBufferIdx = lBufferIdx + 1
             lStartIdx = lBufferIdx
             lEndIdx = lStartIdx + lNumPoints * 3 - 1
             

            For lBufferIdx = lStartIdx To lEndIdx Step 3
             

                dPoint(0) = vPolyLinesBuffer(lBufferIdx)
                 dPoint(1) = vPolyLinesBuffer(lBufferIdx + 1)
                 dPoint(2) = vPolyLinesBuffer(lBufferIdx + 2)
             

            Next lBufferIdx
         

        Loop

    End If
     

    ' Report the number of projected elements we found.
     Debug.Print "  #projected elements = " & CStr(lNumProjectedElements)

    '
     ' Report sketched geometry; only show lines.
     '
     

    ' Initialize to zero.
     lNumSketchedElements = 0
     

   
     lNumLines = swView.GetLineCount2(1)

    If lNumLines <> 0 Then

        vLines = swView.GetLines4(1)
     

        If Not IsEmpty(vLines) Then
     

            For i = 0 To lNumLines - 1
     

                Debug.Print "    line[" & i & "]"
     

                Debug.Print "      start pt = (" & vLines(i * 12 + 6) * 1000# & ", " & vLines(i * 12 + 7) * 1000# & ", " & vLines(i * 12 + 8) * 1000# & ") mm"
                 Debug.Print "      end   pt = (" & vLines(i * 12 + 9) * 1000# & ", " & vLines(i * 12 + 10) * 1000# & ", " & vLines(i * 12 + 11) * 1000# & ") mm"
             

            Next i
             

        End If

    End If

    lNumSketchedElements = lNumSketchedElements + lNumLines
     lNumSketchedElements = lNumSketchedElements + swView.GetArcCount
     lNumSketchedElements = lNumSketchedElements + swView.GetEllipseCount
     lNumSketchedElements = lNumSketchedElements + swView.GetParabolaCount
     

    ' Report the number of sketched elements found.
     Debug.Print "  #sketched elements = " & CStr(lNumSketchedElements)

End Function

Function PrintSketch(swSketch As SldWorks.Sketch) As Boolean

    Dim vSegments              As Variant
     Dim lNumSegments           As Long
         

   
     If swSketch Is Nothing Then
         Debug.Print "No Sketch"
     End If
     

   
     ' Get the sketch segments.
     vSegments = swSketch.GetSketchSegments
     

   
     ' Determine number of segments.
     If Not IsEmpty(vSegments) Then
         lNumSegments = UBound(vSegments) - LBound(vSegments) + 1
     Else
         lNumSegments = 0
     End If
     

   
     Debug.Print "Sketch = "
     Debug.Print "  #points   = " & CStr(swSketch.GetUserPointsCount())
     Debug.Print "  #segments = " & CStr(lNumSegments)
     

    ' Get count of specific sketch segments.
     If lNumSegments > 0 Then
         

        Debug.Print "    #arcs      = " & CStr(swSketch.GetArcCount())
         Debug.Print "    #lines     = " & CStr(swSketch.GetLineCount2(1))
         Debug.Print "    #ellipses  = " & CStr(swSketch.GetEllipseCount())
         Debug.Print "    #parabolas = " & CStr(swSketch.GetParabolaCount())
     

    End If
     

End Function