Insert Table-driven Pattern Example (VB.NET)
This example shows how to insert a table-driven pattern.
'--------------------------------------------------------------------
' Preconditions:
' 1. Verify that c:\temp exists.
' 2. Open public_documents\tutorial\api\tablepattern.sldprt.
' 3. Edit TPattern1.
' 4. Click Save As, browse to c:\temp, type TestTable.sldptab in File name,
' click Save, and click OK.
' 5. Edit c:\temp\TestTable.sldptab and change:
' a. 0.01m to 0.04m.
' b. -0.03m to -0.025m.
' 6. Save c:\temp\TestTable.sldptab.
' 7. Delete TPattern1.
'
' Postconditions:
' 1. Creates TPattern1.
' 2. Examine the FeatureManager design tree and the graphics
' area.
'
' NOTE: Because the part is used elsewhere, do not save changes.
'-------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Partial Class SolidWorksMacro
Public Sub main()
Dim swModel As ModelDoc2
Dim swModelDocExt As ModelDocExtension
Dim swFeatureMgr As FeatureManager
Dim swPatternFeature As Feature
Dim swPatternPoints As Object
Dim status As Boolean
swModel = swApp.ActiveDoc
swModelDocExt = swModel.Extension
swFeatureMgr = swModel.FeatureManager
status = swModelDocExt.SelectByID2("Coordinate System1", "COORDSYS", 0, 0, 0, True, 16, Nothing, 0)
status = swModelDocExt.SelectByID2("Cut-Extrude1", "BODYFEATURE", 0, 0, 0, True, 4, Nothing, 0)
swPatternPoints = Nothing
swPatternFeature = swFeatureMgr.InsertTableDrivenPattern2("c:\temp\TestTable.sldptab", (swPatternPoints), True, False, True)
End Sub
''' <summary>
''' The SldWorks swApp variable is pre-assigned for you.
''' </summary>
Public swApp As SldWorks
End Class