' ==========================================================================
' SolidWorks Native Parametric Rebuilding Macro
' Generated by AI Engineering CAD Generator
' ==========================================================================

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.NewDocument("C:\ProgramData\SolidWorks\SolidWorks 2024\templates\Part.prtdot", 0, 0, 0)
    swApp.ActivateDoc2 "Parametric_Base_Plate", True, longstatus
    Set Part = swApp.ActiveDoc

    ' 1. Select Front Plane & Create Base Rectangle Sketch
    boolstatus = Part.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    Part.SketchManager.InsertSketch True
    Part.SketchManager.CreateCenterRectangle 0, 0, 0, 0.05, 0.03, 0
    Part.SketchManager.InsertSketch True

    ' 2. Boss Extrude Base Solid
    Dim myFeature As Object
    Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 0, 0, False, False, False, False, True, True, True, 0, 0, False)

    ' 3. Add Mounting Holes Cut
    boolstatus = Part.Extension.SelectByID2("", "FACE", 0, 0, 0.01, False, 0, Nothing, 0)
    Part.SketchManager.InsertSketch True
    Part.SketchManager.CreateCircle -0.025, -0.015, 0, -0.02, -0.015, 0
    Part.SketchManager.CreateCircle 0.025, -0.015, 0, 0.03, -0.015, 0
    Part.SketchManager.CreateCircle -0.025, 0.015, 0, -0.02, 0.015, 0
    Part.SketchManager.CreateCircle 0.025, 0.015, 0, 0.03, 0.015, 0
    Part.FeatureManager.FeatureCut4 True, False, False, 1, 0, 0.01, 0.01, False, False, False, False, 0, 0, False, False, False, False, False, True, True, True, True, False, 0, 0, False

    MsgBox "AI Model Parametric_Base_Plate rebuilt successfully in SolidWorks!", vbInformation, "AI CAD Generator"
End Sub