Hide Table of Contents

Get Points of Repeating Elements in Table-driven Pattern (VBA)

This example shows that the points that describe the locations of the repeating elements in a table-driven pattern are based on the table-driven pattern's coordinate system.

' Preconditions:
' 1. Verify that the part to open exists.
' 2. Open the Immediate window.
' Postconditions:
' 1. Gets the coordinates of the
'    points for the two repeating elements in the
'    table-driven pattern.
' 2. Examine the Immediate window.
' NOTE: Because the part is used elsewhere, do not
' save changes.
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Dim swFeat As SldWorks.Feature
Dim swCoordinateData As SldWorks.CoordinateSystemFeatureData
Dim swTablePatternFeatData As SldWorks.TablePatternFeatureData
Dim swMathTransform As SldWorks.MathTransform
Dim swMathUtility As SldWorks.MathUtility
Dim swMathPoint As SldWorks.MathPoint
Dim status As Boolean
Dim errors As Long
Dim warnings As Long
Dim filename As String
Dim points As Variant
Dim point As String
Dim pointsArray(2) As Double
Dim i As Integer
Sub main()
filename = "C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2018\samples\tutorial\api\tablepattern.sldprt"
Set swApp = Application.SldWorks
Set swModel = swApp.OpenDoc6(filename, swDocPART, swOpenDocOptions_Silent, "", errors, warnings)
Set swModelDocExt = swModel.Extension
Set swSelMgr = swModel.SelectionManager
' Select the table-driven pattern
status = swModelDocExt.SelectByID2("TPattern1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Set swFeat = swSelMgr.GetSelectedObject6(1, -1)
Set swTablePatternFeatData = swFeat.GetDefinition
swTablePatternFeatData.AccessSelections swModel, Nothing
' Get the points of the repeating elements in a table-driven pattern 
' and transform them to coordinates 
Set swCoordinateData = swTablePatternFeatData.CoordinateSystem.GetDefinition
swCoordinateData.AccessSelections swModel, Nothing
Set swMathTransform = swCoordinateData.Transform
Set swMathUtility = swApp.GetMathUtility
points = swTablePatternFeatData.PointArray
Debug.Print "Number of points: " & swTablePatternFeatData.GetPointCount
For i = 0 To UBound(points) Step 3
    pointsArray(0) = points(i): pointsArray(1) = points(i + 1): pointsArray(2) = points(i + 2)
    Set swMathPoint = swMathUtility.CreatePoint(pointsArray)
    Set swMathPoint = swMathPoint.MultiplyTransform(swMathTransform.Inverse)    
    ' Print the coordinates for the two repeating elements in the table-driven pattern
    point = "x: " & swMathPoint.ArrayData(0) & "   y: " & swMathPoint.ArrayData(1) & "   z: " & swMathPoint.ArrayData(2)    
    Debug.Print point
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

Subject:   Feedback on Help Topics
Page:   Get Points of Repeating Elements in Table-driven Pattern (VBA)
*   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:


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

Web Help Content Version: API Help (English only) 2021 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.