ClearSelection2 True ' Zoom to fit screen in Solidworks Window swDoc.

CreatePolygon ( 0, 0, 0, 1, 0, 0, 6, True ) ' De-select the Polygon after creation swDoc. InsertSketch True ' Creating Varient for Polygon Dim myPolygon As Variant ' Creating a Polygon myPolygon = swSketchManager. SketchManager ' Inserting a sketch into selected plane swSketchManager. swSelectOptionDefault ) ' Setting Sketch manager for our sketch Set swSketchManager = swDoc. SelectByID2 ( 'Front Plane', 'PLANE', 0, 0, 0, False, 0, Nothing, swSelectOption_e.

NewDocument ( defaultTemplate, 0, 0, 0 ) ' Selecting Front Plane BoolStatus = swDoc. swDefaultTemplatePart ) ' Setting Solidworks document to new part document Set swDoc = swApp. GetUserPreferenceStringValue ( swUserPreferenceStringValue_e. SldWorks ' Creating string type variable for storing default part location Dim defaultTemplate As String ' Setting value of this string type variable to 'Default part template' defaultTemplate = swApp. SketchManager ' Main function of our VBA program Sub main () ' Setting Solidworks variable to Solidworks application Set swApp = Application. ModelDoc2 ' Boolean Variable Dim BoolStatus As Boolean ' Creating variable for Solidworks Sketch Manager Dim swSketchManager As SldWorks. SldWorks ' Creating variable for Solidworks document Dim swDoc As SldWorks. Option Explicit ' Creating variable for Solidworks application Dim swApp As SldWorks.

Solidworks hexagon pattern