' ******************************************************************************
' C:\\Users\\123\\AppData\\Local\\Temp\\swx41516\\Macro1.swb - macro recorded on 04/18/26 by 123
' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByRay(-3.58071174819561E-02, 8.87550712330793E-03, 1.99999999999818E-02, 0, 0, -1, 5.52149716664792E-04, 2, False, 0, 0)

' Hole Wizard
Dim swHoleFeature As Feature
Set swHoleFeature = Part.FeatureManager.HoleWizard5(4, 13, 359, "M6", 0, 0.005, 0.03, 0.03175, 0, 0, 0, 0, 3.14159265358979, 0, 0, 0, 0, -1, -1, -1, "", False, True, True, True, True, False)
Dim swSketchFeature As Feature
Set swSketchFeature = swHoleFeature.GetFirstSubFeature
swSketchFeature.Select2 False, 0
Part.EditSketch
Dim swSelectionManager As SelectionMgr
Set swSelectionManager = Part.SelectionManager
Dim swSketch As Sketch
Set swSketch = swSketchFeature.GetSpecificFeature2()
Dim swSketchPointArray As Variant
swSketchPointArray = swSketch.GetSketchPoints2()
Dim swMaxPointNumber As Long
swMaxPointNumber = UBound(swSketchPointArray)
Dim swSketchPoint As Object
Dim swCurrentPointNumber As Long
For swCurrentPointNumber = 0 To swMaxPointNumber Step 1
  Set swSketchPoint = swSketchPointArray(swCurrentPointNumber)
  boolstatus = swSelectionManager.AddSelectionListObject(swSketchPoint, Nothing)
  Part.EditDelete
Next swCurrentPointNumber
Dim skPoint As Object
Set skPoint = Part.SketchManager.CreatePoint(-3.67814993348939E-02, 9.36269804977687E-03, 0)
Part.SketchManager.InsertSketch True
End Sub