solidworks-mcp-server 3.0.8 → 3.1.3

package/dist/tools/vba-advanced.js

@@ -14,223 +14,265 @@ export const advancedVBATools = [
             features: z.array(z.string()).optional(),
             properties: z.record(z.any()).optional(),
             suppressStates: z.record(z.boolean()).optional(),
-            displayStates: z.array(z.string()).optional()
+            displayStates: z.array(z.string()).optional(),
         }),
         handler: (args) => {
-            return `
-Sub ManageConfiguration_${args.operation}()
-    Dim swApp As SldWorks.SldWorks
-    Dim swModel As SldWorks.ModelDoc2
-    Dim swConfig As SldWorks.Configuration
-    Dim swConfigMgr As SldWorks.ConfigurationManager
-    Dim swFeature As SldWorks.Feature
-    Dim bRet As Boolean
-    
-    Set swApp = Application.SldWorks
-    Set swModel = swApp.ActiveDoc
-    
-    If swModel Is Nothing Then
-        MsgBox "No active document"
-        Exit Sub
-    End If
-    
-    Set swConfigMgr = swModel.ConfigurationManager
-    
-    ${args.operation === 'create' ? `
-    ' Create new configuration
-    Set swConfig = swModel.AddConfiguration3( _
-        "${args.configName}", _
-        "Created via VBA", _
-        "", _
-        swConfigurationOptions2_e.swConfigOption_LinkToParent + _
-        swConfigurationOptions2_e.swConfigOption_InheritProperties, _
-        "${args.parentConfig || ''}")
-    
-    If Not swConfig Is Nothing Then
-        ' Activate configuration
-        swModel.ShowConfiguration2 "${args.configName}"
-        
-        ${args.features && args.features.length > 0 ? `
-        ' Suppress/Unsuppress features
-        ${args.features.map((feat) => `
-        Set swFeature = swModel.FeatureByName("${feat}")
-        If Not swFeature Is Nothing Then
-            swFeature.SetSuppression2 _
-                ${args.suppressStates && args.suppressStates[feat] ?
-                'swFeatureSuppressionAction_e.swSuppressFeature' :
-                'swFeatureSuppressionAction_e.swUnSuppressFeature'}, _
-                swInConfigurationOpts_e.swThisConfiguration, Nothing
-        End If`).join('\n        ')}` : ''}
-        
-        ${args.properties ? `
-        ' Set configuration properties
-        Dim swCustPropMgr As SldWorks.CustomPropertyManager
-        Set swCustPropMgr = swConfig.CustomPropertyManager
-        
-        ${Object.entries(args.properties).map(([key, value]) => `
-        swCustPropMgr.Add3 "${key}", swCustomInfoType_e.swCustomInfoText, _
-            "${value}", swCustomPropertyAddOption_e.swCustomPropertyReplaceValue`).join('\n        ')}` : ''}
-        
-        MsgBox "Configuration '${args.configName}' created"
-    End If` : ''}
-    
-    ${args.operation === 'derive' ? `
-    ' Create derived configuration
-    Dim parentConfig As SldWorks.Configuration
-    Set parentConfig = swModel.GetConfigurationByName("${args.parentConfig || 'Default'}")
-    
-    If Not parentConfig Is Nothing Then
-        Set swConfig = parentConfig.GetDerivedConfiguration3( _
-            "${args.configName}", _
-            swConfigurationOptions2_e.swConfigOption_LinkToParent + _
-            swConfigurationOptions2_e.swConfigOption_InheritProperties, _
-            "Derived configuration")
-        
-        If Not swConfig Is Nothing Then
-            swModel.ShowConfiguration2 "${args.configName}"
-            MsgBox "Derived configuration created: ${args.configName}"
-        End If
-    End If` : ''}
-    
-    ${args.operation === 'suppress_features' ? `
-    ' Suppress features in configuration
-    swModel.ShowConfiguration2 "${args.configName}"
-    
-    ${args.features ? args.features.map((feat) => `
-    Set swFeature = swModel.FeatureByName("${feat}")
-    If Not swFeature Is Nothing Then
-        swFeature.SetSuppression2 _
-            swFeatureSuppressionAction_e.swSuppressFeature, _
-            swInConfigurationOpts_e.swThisConfiguration, Nothing
-        Debug.Print "Suppressed: ${feat}"
-    End If`).join('\n    ') : ''}
-    
-    MsgBox "Features suppressed in configuration"` : ''}
-    
-    swModel.EditRebuild3
+            return `
+Sub ManageConfiguration_${args.operation}()
+    Dim swApp As SldWorks.SldWorks
+    Dim swModel As SldWorks.ModelDoc2
+    Dim swConfig As SldWorks.Configuration
+    Dim swConfigMgr As SldWorks.ConfigurationManager
+    Dim swFeature As SldWorks.Feature
+    Dim bRet As Boolean
+    
+    Set swApp = Application.SldWorks
+    Set swModel = swApp.ActiveDoc
+    
+    If swModel Is Nothing Then
+        MsgBox "No active document"
+        Exit Sub
+    End If
+    
+    Set swConfigMgr = swModel.ConfigurationManager
+    
+    ${args.operation === 'create'
+                ? `
+    ' Create new configuration
+    Set swConfig = swModel.AddConfiguration3( _
+        "${args.configName}", _
+        "Created via VBA", _
+        "", _
+        swConfigurationOptions2_e.swConfigOption_LinkToParent + _
+        swConfigurationOptions2_e.swConfigOption_InheritProperties, _
+        "${args.parentConfig || ''}")
+    
+    If Not swConfig Is Nothing Then
+        ' Activate configuration
+        swModel.ShowConfiguration2 "${args.configName}"
+        
+        ${args.features && args.features.length > 0
+                    ? `
+        ' Suppress/Unsuppress features
+        ${args.features
+                        .map((feat) => `
+        Set swFeature = swModel.FeatureByName("${feat}")
+        If Not swFeature Is Nothing Then
+            swFeature.SetSuppression2 _
+                ${args.suppressStates?.[feat]
+                        ? 'swFeatureSuppressionAction_e.swSuppressFeature'
+                        : 'swFeatureSuppressionAction_e.swUnSuppressFeature'}, _
+                swInConfigurationOpts_e.swThisConfiguration, Nothing
+        End If`)
+                        .join('\n        ')}`
+                    : ''}
+        
+        ${args.properties
+                    ? `
+        ' Set configuration properties
+        Dim swCustPropMgr As SldWorks.CustomPropertyManager
+        Set swCustPropMgr = swConfig.CustomPropertyManager
+        
+        ${Object.entries(args.properties)
+                        .map(([key, value]) => `
+        swCustPropMgr.Add3 "${key}", swCustomInfoType_e.swCustomInfoText, _
+            "${value}", swCustomPropertyAddOption_e.swCustomPropertyReplaceValue`)
+                        .join('\n        ')}`
+                    : ''}
+        
+        MsgBox "Configuration '${args.configName}' created"
+    End If`
+                : ''}
+    
+    ${args.operation === 'derive'
+                ? `
+    ' Create derived configuration
+    Dim parentConfig As SldWorks.Configuration
+    Set parentConfig = swModel.GetConfigurationByName("${args.parentConfig || 'Default'}")
+    
+    If Not parentConfig Is Nothing Then
+        Set swConfig = parentConfig.GetDerivedConfiguration3( _
+            "${args.configName}", _
+            swConfigurationOptions2_e.swConfigOption_LinkToParent + _
+            swConfigurationOptions2_e.swConfigOption_InheritProperties, _
+            "Derived configuration")
+        
+        If Not swConfig Is Nothing Then
+            swModel.ShowConfiguration2 "${args.configName}"
+            MsgBox "Derived configuration created: ${args.configName}"
+        End If
+    End If`
+                : ''}
+    
+    ${args.operation === 'suppress_features'
+                ? `
+    ' Suppress features in configuration
+    swModel.ShowConfiguration2 "${args.configName}"
+    
+    ${args.features
+                    ? args.features
+                        .map((feat) => `
+    Set swFeature = swModel.FeatureByName("${feat}")
+    If Not swFeature Is Nothing Then
+        swFeature.SetSuppression2 _
+            swFeatureSuppressionAction_e.swSuppressFeature, _
+            swInConfigurationOpts_e.swThisConfiguration, Nothing
+        Debug.Print "Suppressed: ${feat}"
+    End If`)
+                        .join('\n    ')
+                    : ''}
+    
+    MsgBox "Features suppressed in configuration"`
+                : ''}
+    
+    swModel.EditRebuild3
 End Sub`;
-        }
+        },
     },
     {
         name: 'vba_equations',
         description: 'Generate VBA for managing equations and global variables',
         inputSchema: z.object({
             operation: z.enum(['add', 'modify', 'delete', 'link', 'export']),
-            equations: z.array(z.object({
+            equations: z
+                .array(z.object({
                 name: z.string(),
                 value: z.string(),
                 isGlobal: z.boolean().optional(),
-                comment: z.string().optional()
-            })).optional(),
+                comment: z.string().optional(),
+            }))
+                .optional(),
             externalFile: z.string().optional(),
-            linkExternal: z.boolean().optional()
+            linkExternal: z.boolean().optional(),
         }),
         handler: (args) => {
-            return `
-Sub ManageEquations_${args.operation}()
-    Dim swApp As SldWorks.SldWorks
-    Dim swModel As SldWorks.ModelDoc2
-    Dim swEquationMgr As SldWorks.EquationMgr
-    Dim equations() As String
-    Dim i As Integer
-    Dim equationIndex As Integer
-    
-    Set swApp = Application.SldWorks
-    Set swModel = swApp.ActiveDoc
-    
-    If swModel Is Nothing Then
-        MsgBox "No active document"
-        Exit Sub
-    End If
-    
-    Set swEquationMgr = swModel.GetEquationMgr
-    
-    ${args.operation === 'add' ? `
-    ' Add equations
-    ${args.equations ? args.equations.map((eq, i) => `
-    ' Add equation: ${eq.name}
-    equationIndex = swEquationMgr.Add2( _
-        -1, _
-        "\\"${eq.name}\\" = ${eq.value}", _
-        ${eq.isGlobal ? 'True' : 'False'})
-    
-    If equationIndex >= 0 Then
-        Debug.Print "Added equation: ${eq.name} = ${eq.value}"
-        ${eq.comment ? `swEquationMgr.SetEquationComment equationIndex, "${eq.comment}"` : ''}
-    End If`).join('\n    ') : ''}
-    
-    MsgBox "Equations added successfully"` : ''}
-    
-    ${args.operation === 'modify' ? `
-    ' Modify existing equations
-    Dim equationCount As Integer
-    equationCount = swEquationMgr.GetCount
-    
-    For i = 0 To equationCount - 1
-        Dim currentEq As String
-        currentEq = swEquationMgr.Equation(i)
-        
-        ${args.equations ? args.equations.map((eq) => `
-        If InStr(currentEq, "\\"${eq.name}\\"") > 0 Then
-            swEquationMgr.Equation(i) = "\\"${eq.name}\\" = ${eq.value}"
-            Debug.Print "Modified equation: ${eq.name}"
-        End If`).join('\n        ') : ''}
-    Next i
-    
-    MsgBox "Equations modified"` : ''}
-    
-    ${args.operation === 'delete' ? `
-    ' Delete equations
-    ${args.equations ? args.equations.map((eq) => `
-    For i = swEquationMgr.GetCount - 1 To 0 Step -1
-        If InStr(swEquationMgr.Equation(i), "\\"${eq.name}\\"") > 0 Then
-            swEquationMgr.Delete i
-            Debug.Print "Deleted equation: ${eq.name}"
-        End If
-    Next i`).join('\n    ') : ''}
-    
-    MsgBox "Equations deleted"` : ''}
-    
-    ${args.operation === 'link' ? `
-    ' Link to external equation file
-    If swEquationMgr.LinkToFile Then
-        ' Already linked, update path
-        swEquationMgr.FilePath = "${args.externalFile}"
-    Else
-        ' Create link
-        swEquationMgr.LinkToFile = True
-        swEquationMgr.FilePath = "${args.externalFile}"
-    End If
-    
-    swEquationMgr.UpdateValuesFromExternalEquationFile
-    MsgBox "Linked to external file: ${args.externalFile}"` : ''}
-    
-    ${args.operation === 'export' ? `
-    ' Export equations to file
-    Dim fso As Object, file As Object
-    Set fso = CreateObject("Scripting.FileSystemObject")
-    Set file = fso.CreateTextFile("${args.externalFile || 'C:\\Temp\\equations.txt'}", True)
-    
-    file.WriteLine "' SolidWorks Equations Export"
-    file.WriteLine "' Generated: " & Now
-    file.WriteLine ""
-    
-    For i = 0 To swEquationMgr.GetCount - 1
-        file.WriteLine swEquationMgr.Equation(i)
-        
-        Dim comment As String
-        comment = swEquationMgr.GetEquationComment(i)
-        If comment <> "" Then
-            file.WriteLine "' " & comment
-        End If
-    Next i
-    
-    file.Close
-    MsgBox "Equations exported to: ${args.externalFile || 'C:\\Temp\\equations.txt'}"` : ''}
-    
-    swModel.EditRebuild3
+            return `
+Sub ManageEquations_${args.operation}()
+    Dim swApp As SldWorks.SldWorks
+    Dim swModel As SldWorks.ModelDoc2
+    Dim swEquationMgr As SldWorks.EquationMgr
+    Dim equations() As String
+    Dim i As Integer
+    Dim equationIndex As Integer
+    
+    Set swApp = Application.SldWorks
+    Set swModel = swApp.ActiveDoc
+    
+    If swModel Is Nothing Then
+        MsgBox "No active document"
+        Exit Sub
+    End If
+    
+    Set swEquationMgr = swModel.GetEquationMgr
+    
+    ${args.operation === 'add'
+                ? `
+    ' Add equations
+    ${args.equations
+                    ? args.equations
+                        .map((eq, _i) => `
+    ' Add equation: ${eq.name}
+    equationIndex = swEquationMgr.Add2( _
+        -1, _
+        "\\"${eq.name}\\" = ${eq.value}", _
+        ${eq.isGlobal ? 'True' : 'False'})
+    
+    If equationIndex >= 0 Then
+        Debug.Print "Added equation: ${eq.name} = ${eq.value}"
+        ${eq.comment ? `swEquationMgr.SetEquationComment equationIndex, "${eq.comment}"` : ''}
+    End If`)
+                        .join('\n    ')
+                    : ''}
+    
+    MsgBox "Equations added successfully"`
+                : ''}
+    
+    ${args.operation === 'modify'
+                ? `
+    ' Modify existing equations
+    Dim equationCount As Integer
+    equationCount = swEquationMgr.GetCount
+    
+    For i = 0 To equationCount - 1
+        Dim currentEq As String
+        currentEq = swEquationMgr.Equation(i)
+        
+        ${args.equations
+                    ? args.equations
+                        .map((eq) => `
+        If InStr(currentEq, "\\"${eq.name}\\"") > 0 Then
+            swEquationMgr.Equation(i) = "\\"${eq.name}\\" = ${eq.value}"
+            Debug.Print "Modified equation: ${eq.name}"
+        End If`)
+                        .join('\n        ')
+                    : ''}
+    Next i
+    
+    MsgBox "Equations modified"`
+                : ''}
+    
+    ${args.operation === 'delete'
+                ? `
+    ' Delete equations
+    ${args.equations
+                    ? args.equations
+                        .map((eq) => `
+    For i = swEquationMgr.GetCount - 1 To 0 Step -1
+        If InStr(swEquationMgr.Equation(i), "\\"${eq.name}\\"") > 0 Then
+            swEquationMgr.Delete i
+            Debug.Print "Deleted equation: ${eq.name}"
+        End If
+    Next i`)
+                        .join('\n    ')
+                    : ''}
+    
+    MsgBox "Equations deleted"`
+                : ''}
+    
+    ${args.operation === 'link'
+                ? `
+    ' Link to external equation file
+    If swEquationMgr.LinkToFile Then
+        ' Already linked, update path
+        swEquationMgr.FilePath = "${args.externalFile}"
+    Else
+        ' Create link
+        swEquationMgr.LinkToFile = True
+        swEquationMgr.FilePath = "${args.externalFile}"
+    End If
+    
+    swEquationMgr.UpdateValuesFromExternalEquationFile
+    MsgBox "Linked to external file: ${args.externalFile}"`
+                : ''}
+    
+    ${args.operation === 'export'
+                ? `
+    ' Export equations to file
+    Dim fso As Object, file As Object
+    Set fso = CreateObject("Scripting.FileSystemObject")
+    Set file = fso.CreateTextFile("${args.externalFile || 'C:\\Temp\\equations.txt'}", True)
+    
+    file.WriteLine "' SolidWorks Equations Export"
+    file.WriteLine "' Generated: " & Now
+    file.WriteLine ""
+    
+    For i = 0 To swEquationMgr.GetCount - 1
+        file.WriteLine swEquationMgr.Equation(i)
+        
+        Dim comment As String
+        comment = swEquationMgr.GetEquationComment(i)
+        If comment <> "" Then
+            file.WriteLine "' " & comment
+        End If
+    Next i
+    
+    file.Close
+    MsgBox "Equations exported to: ${args.externalFile || 'C:\\Temp\\equations.txt'}"`
+                : ''}
+    
+    swModel.EditRebuild3
 End Sub`;
-        }
+        },
     },
     {
         name: 'vba_simulation_setup',
@@ -238,388 +280,423 @@ End Sub`;
         inputSchema: z.object({
             studyType: z.enum(['static', 'frequency', 'buckling', 'thermal', 'nonlinear', 'dynamic']),
             studyName: z.string(),
-            materials: z.array(z.object({
+            materials: z
+                .array(z.object({
                 componentName: z.string(),
-                materialName: z.string()
-            })).optional(),
-            fixtures: z.array(z.object({
+                materialName: z.string(),
+            }))
+                .optional(),
+            fixtures: z
+                .array(z.object({
                 faceName: z.string(),
-                type: z.enum(['fixed', 'roller', 'hinge'])
-            })).optional(),
-            loads: z.array(z.object({
+                type: z.enum(['fixed', 'roller', 'hinge']),
+            }))
+                .optional(),
+            loads: z
+                .array(z.object({
                 faceName: z.string(),
                 type: z.enum(['force', 'pressure', 'torque']),
                 value: z.number(),
-                unit: z.string()
-            })).optional(),
-            meshQuality: z.enum(['draft', 'standard', 'fine']).optional()
+                unit: z.string(),
+            }))
+                .optional(),
+            meshQuality: z.enum(['draft', 'standard', 'fine']).optional(),
         }),
         handler: (args) => {
-            return `
-Sub SetupSimulationStudy_${args.studyType}()
-    Dim swApp As SldWorks.SldWorks
-    Dim swModel As SldWorks.ModelDoc2
-    Dim swSimulation As Object ' CosmosWorksLib.CwAddincallback
-    Dim swStudyMgr As Object ' CosmosWorksLib.CWStudyManager
-    Dim swStudy As Object ' CosmosWorksLib.CWStudy
-    Dim swMesh As Object ' CosmosWorksLib.CWMesh
-    Dim errCode As Long
-    
-    Set swApp = Application.SldWorks
-    Set swModel = swApp.ActiveDoc
-    
-    If swModel Is Nothing Then
-        MsgBox "No active document"
-        Exit Sub
-    End If
-    
-    ' Get Simulation add-in
-    Set swSimulation = swApp.GetAddInObject("SldWorks.Simulation")
-    
-    If swSimulation Is Nothing Then
-        MsgBox "Simulation add-in not loaded"
-        Exit Sub
-    End If
-    
-    ' Activate Simulation
-    swSimulation.InitializeInterface swApp, swModel
-    Set swStudyMgr = swSimulation.StudyManager
-    
-    ' Create study
-    Set swStudy = swStudyMgr.CreateNewStudy3( _
-        "${args.studyName}", _
-        ${args.studyType === 'static' ? '0' :
-                args.studyType === 'frequency' ? '1' :
-                    args.studyType === 'buckling' ? '2' :
-                        args.studyType === 'thermal' ? '3' :
-                            args.studyType === 'nonlinear' ? '4' :
-                                '5'}, _
-        0, errCode)
-    
-    If swStudy Is Nothing Then
-        MsgBox "Failed to create study. Error: " & errCode
-        Exit Sub
-    End If
-    
-    ${args.materials && args.materials.length > 0 ? `
-    ' Apply materials
-    ${args.materials.map((mat) => `
-    swModel.Extension.SelectByID2 "${mat.componentName}", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0
-    Dim swMaterial As Object
-    Set swMaterial = swStudy.GetMaterial("${mat.materialName}")
-    If Not swMaterial Is Nothing Then
-        swStudy.ApplyMaterial swMaterial
-        Debug.Print "Applied material: ${mat.materialName} to ${mat.componentName}"
-    End If`).join('\n    ')}` : ''}
-    
-    ${args.fixtures && args.fixtures.length > 0 ? `
-    ' Add fixtures
-    ${args.fixtures.map((fix) => `
-    swModel.Extension.SelectByID2 "${fix.faceName}", "FACE", 0, 0, 0, False, 0, Nothing, 0
-    Dim swFixture As Object
-    Set swFixture = swStudy.AddRestraint( _
-        ${fix.type === 'fixed' ? '0' :
-                fix.type === 'roller' ? '1' :
-                    '2'}, _
-        swModel.SelectionManager)
-    If Not swFixture Is Nothing Then
-        Debug.Print "Added ${fix.type} fixture to ${fix.faceName}"
-    End If`).join('\n    ')}` : ''}
-    
-    ${args.loads && args.loads.length > 0 ? `
-    ' Add loads
-    ${args.loads.map((load) => `
-    swModel.Extension.SelectByID2 "${load.faceName}", "FACE", 0, 0, 0, False, 0, Nothing, 0
-    Dim swLoad As Object
-    Set swLoad = swStudy.AddLoad( _
-        ${load.type === 'force' ? '0' :
-                load.type === 'pressure' ? '1' :
-                    '2'}, _
-        swModel.SelectionManager)
-    If Not swLoad Is Nothing Then
-        swLoad.Value = ${load.value}
-        swLoad.Unit = "${load.unit}"
-        Debug.Print "Added ${load.type}: ${load.value} ${load.unit} to ${load.faceName}"
-    End If`).join('\n    ')}` : ''}
-    
-    ' Create mesh
-    Set swMesh = swStudy.GetMesh
-    If Not swMesh Is Nothing Then
-        swMesh.Quality = ${args.meshQuality === 'draft' ? '0' :
-                args.meshQuality === 'fine' ? '2' : '1'}
-        
-        Dim meshResult As Long
-        meshResult = swStudy.CreateMesh(0, 0, 0, errCode)
-        
-        If meshResult = 0 Then
-            Debug.Print "Mesh created successfully"
-        Else
-            MsgBox "Failed to create mesh. Error: " & errCode
-        End If
-    End If
-    
-    MsgBox "Simulation study '${args.studyName}' created and configured"
+            return `
+Sub SetupSimulationStudy_${args.studyType}()
+    Dim swApp As SldWorks.SldWorks
+    Dim swModel As SldWorks.ModelDoc2
+    Dim swSimulation As Object ' CosmosWorksLib.CwAddincallback
+    Dim swStudyMgr As Object ' CosmosWorksLib.CWStudyManager
+    Dim swStudy As Object ' CosmosWorksLib.CWStudy
+    Dim swMesh As Object ' CosmosWorksLib.CWMesh
+    Dim errCode As Long
+    
+    Set swApp = Application.SldWorks
+    Set swModel = swApp.ActiveDoc
+    
+    If swModel Is Nothing Then
+        MsgBox "No active document"
+        Exit Sub
+    End If
+    
+    ' Get Simulation add-in
+    Set swSimulation = swApp.GetAddInObject("SldWorks.Simulation")
+    
+    If swSimulation Is Nothing Then
+        MsgBox "Simulation add-in not loaded"
+        Exit Sub
+    End If
+    
+    ' Activate Simulation
+    swSimulation.InitializeInterface swApp, swModel
+    Set swStudyMgr = swSimulation.StudyManager
+    
+    ' Create study
+    Set swStudy = swStudyMgr.CreateNewStudy3( _
+        "${args.studyName}", _
+        ${args.studyType === 'static'
+                ? '0'
+                : args.studyType === 'frequency'
+                    ? '1'
+                    : args.studyType === 'buckling'
+                        ? '2'
+                        : args.studyType === 'thermal'
+                            ? '3'
+                            : args.studyType === 'nonlinear'
+                                ? '4'
+                                : '5'}, _
+        0, errCode)
+    
+    If swStudy Is Nothing Then
+        MsgBox "Failed to create study. Error: " & errCode
+        Exit Sub
+    End If
+    
+    ${args.materials && args.materials.length > 0
+                ? `
+    ' Apply materials
+    ${args.materials
+                    .map((mat) => `
+    swModel.Extension.SelectByID2 "${mat.componentName}", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0
+    Dim swMaterial As Object
+    Set swMaterial = swStudy.GetMaterial("${mat.materialName}")
+    If Not swMaterial Is Nothing Then
+        swStudy.ApplyMaterial swMaterial
+        Debug.Print "Applied material: ${mat.materialName} to ${mat.componentName}"
+    End If`)
+                    .join('\n    ')}`
+                : ''}
+    
+    ${args.fixtures && args.fixtures.length > 0
+                ? `
+    ' Add fixtures
+    ${args.fixtures
+                    .map((fix) => `
+    swModel.Extension.SelectByID2 "${fix.faceName}", "FACE", 0, 0, 0, False, 0, Nothing, 0
+    Dim swFixture As Object
+    Set swFixture = swStudy.AddRestraint( _
+        ${fix.type === 'fixed' ? '0' : fix.type === 'roller' ? '1' : '2'}, _
+        swModel.SelectionManager)
+    If Not swFixture Is Nothing Then
+        Debug.Print "Added ${fix.type} fixture to ${fix.faceName}"
+    End If`)
+                    .join('\n    ')}`
+                : ''}
+    
+    ${args.loads && args.loads.length > 0
+                ? `
+    ' Add loads
+    ${args.loads
+                    .map((load) => `
+    swModel.Extension.SelectByID2 "${load.faceName}", "FACE", 0, 0, 0, False, 0, Nothing, 0
+    Dim swLoad As Object
+    Set swLoad = swStudy.AddLoad( _
+        ${load.type === 'force' ? '0' : load.type === 'pressure' ? '1' : '2'}, _
+        swModel.SelectionManager)
+    If Not swLoad Is Nothing Then
+        swLoad.Value = ${load.value}
+        swLoad.Unit = "${load.unit}"
+        Debug.Print "Added ${load.type}: ${load.value} ${load.unit} to ${load.faceName}"
+    End If`)
+                    .join('\n    ')}`
+                : ''}
+    
+    ' Create mesh
+    Set swMesh = swStudy.GetMesh
+    If Not swMesh Is Nothing Then
+        swMesh.Quality = ${args.meshQuality === 'draft' ? '0' : args.meshQuality === 'fine' ? '2' : '1'}
+        
+        Dim meshResult As Long
+        meshResult = swStudy.CreateMesh(0, 0, 0, errCode)
+        
+        If meshResult = 0 Then
+            Debug.Print "Mesh created successfully"
+        Else
+            MsgBox "Failed to create mesh. Error: " & errCode
+        End If
+    End If
+    
+    MsgBox "Simulation study '${args.studyName}' created and configured"
 End Sub`;
-        }
+        },
     },
     {
         name: 'vba_api_automation',
         description: 'Generate VBA for advanced API automation and event handling',
         inputSchema: z.object({
             automationType: z.enum(['event_handler', 'macro_feature', 'property_page', 'add_in']),
-            eventTypes: z.array(z.enum([
-                'file_save', 'file_open', 'rebuild', 'selection_change',
-                'dimension_change', 'feature_add', 'configuration_change'
-            ])).optional(),
+            eventTypes: z
+                .array(z.enum([
+                'file_save',
+                'file_open',
+                'rebuild',
+                'selection_change',
+                'dimension_change',
+                'feature_add',
+                'configuration_change',
+            ]))
+                .optional(),
             className: z.string().optional(),
-            methods: z.array(z.object({
+            methods: z
+                .array(z.object({
                 name: z.string(),
                 parameters: z.array(z.string()).optional(),
-                returnType: z.string().optional()
-            })).optional()
+                returnType: z.string().optional(),
+            }))
+                .optional(),
         }),
         handler: (args) => {
             const eventHandlers = {
-                file_save: `
-Private Function swApp_FileSaveNotify(ByVal FileName As String) As Long
-    Debug.Print "File saving: " & FileName
-    ' Add custom save logic here
-    swApp_FileSaveNotify = 0
+                file_save: `
+Private Function swApp_FileSaveNotify(ByVal FileName As String) As Long
+    Debug.Print "File saving: " & FileName
+    ' Add custom save logic here
+    swApp_FileSaveNotify = 0
 End Function`,
-                file_open: `
-Private Function swApp_FileOpenNotify(ByVal FileName As String) As Long
-    Debug.Print "File opened: " & FileName
-    ' Add custom open logic here
-    swApp_FileOpenNotify = 0
+                file_open: `
+Private Function swApp_FileOpenNotify(ByVal FileName As String) As Long
+    Debug.Print "File opened: " & FileName
+    ' Add custom open logic here
+    swApp_FileOpenNotify = 0
 End Function`,
-                rebuild: `
-Private Function swApp_RebuildNotify() As Long
-    Debug.Print "Model rebuilding"
-    ' Add custom rebuild logic here
-    swApp_RebuildNotify = 0
+                rebuild: `
+Private Function swApp_RebuildNotify() As Long
+    Debug.Print "Model rebuilding"
+    ' Add custom rebuild logic here
+    swApp_RebuildNotify = 0
 End Function`,
-                selection_change: `
-Private Function swApp_SelectionChangeNotify() As Long
-    Dim swSelMgr As SldWorks.SelectionMgr
-    Set swSelMgr = swModel.SelectionManager
-    
-    Debug.Print "Selection changed. Count: " & swSelMgr.GetSelectedObjectCount2(-1)
-    ' Add custom selection logic here
-    swApp_SelectionChangeNotify = 0
+                selection_change: `
+Private Function swApp_SelectionChangeNotify() As Long
+    Dim swSelMgr As SldWorks.SelectionMgr
+    Set swSelMgr = swModel.SelectionManager
+    
+    Debug.Print "Selection changed. Count: " & swSelMgr.GetSelectedObjectCount2(-1)
+    ' Add custom selection logic here
+    swApp_SelectionChangeNotify = 0
+End Function`,
+                dimension_change: `
+Private Function swApp_DimensionChangeNotify(ByVal swDim As Object) As Long
+    Debug.Print "Dimension changed: " & swDim.FullName
+    ' Add custom dimension change logic here
+    swApp_DimensionChangeNotify = 0
 End Function`,
-                dimension_change: `
-Private Function swApp_DimensionChangeNotify(ByVal swDim As Object) As Long
-    Debug.Print "Dimension changed: " & swDim.FullName
-    ' Add custom dimension change logic here
-    swApp_DimensionChangeNotify = 0
-End Function`
             };
-            return `
-${args.automationType === 'event_handler' ? `
-' Class module for SolidWorks event handling
-' Name this class module: ${args.className || 'SwEventHandler'}
-
-Option Explicit
-
-' SolidWorks application events
-Public WithEvents swApp As SldWorks.SldWorks
-Public WithEvents swModel As SldWorks.ModelDoc2
-
-' Initialize event handler
-Public Sub Init(app As SldWorks.SldWorks, model As SldWorks.ModelDoc2)
-    Set swApp = app
-    Set swModel = model
-    
-    ' Enable notifications
-    If Not swModel Is Nothing Then
-        swModel.EnableNotifications = True
-    End If
-End Sub
-
-${args.eventTypes ? args.eventTypes.map((evt) => eventHandlers[evt] || '').join('\n\n') : ''}
-
-' Cleanup
-Public Sub Terminate()
-    Set swModel = Nothing
-    Set swApp = Nothing
-End Sub
-
-' Usage in main module:
-' Dim eventHandler As New SwEventHandler
-' eventHandler.Init swApp, swModel` : ''}
-
-${args.automationType === 'macro_feature' ? `
-Sub CreateMacroFeature()
-    Dim swApp As SldWorks.SldWorks
-    Dim swModel As SldWorks.ModelDoc2
-    Dim swFeatMgr As SldWorks.FeatureManager
-    Dim swMacroFeature As SldWorks.Feature
-    Dim swMacroFeatureDef As SldWorks.MacroFeatureData
-    Dim methods(9) As String
-    Dim dimTypes(1) As Long
-    Dim dimValues(1) As Double
-    Dim paramNames(1) As String
-    Dim paramTypes(1) As Long
-    Dim paramValues(1) As String
-    
-    Set swApp = Application.SldWorks
-    Set swModel = swApp.ActiveDoc
-    
-    If swModel Is Nothing Then Exit Sub
-    
-    Set swFeatMgr = swModel.FeatureManager
-    
-    ' Define macro feature methods
-    methods(0) = "${args.className || 'CustomFeature'}" ' Module name
-    methods(1) = "swmRebuild" ' Rebuild function
-    methods(2) = "swmEdit" ' Edit function
-    methods(3) = "swmSecurity" ' Security function
-    methods(4) = "" ' Reserved
-    methods(5) = "" ' Reserved
-    methods(6) = "" ' Reserved
-    methods(7) = "" ' Reserved
-    methods(8) = "" ' Reserved
-    methods(9) = "" ' Icon file
-    
-    ' Set parameters
-    paramNames(0) = "Parameter1"
-    paramTypes(0) = swMacroFeatureParamType_e.swMacroFeatureParamTypeDouble
-    paramValues(0) = "10.0"
-    
-    ' Create macro feature
-    Set swMacroFeature = swFeatMgr.InsertMacroFeature3( _
-        "${args.className || 'CustomFeature'}", _
-        "", methods, _
-        paramNames, paramTypes, paramValues, _
-        Nothing, Nothing, Nothing, _
-        Nothing, swMacroFeatureOptions_e.swMacroFeatureByDefault)
-    
-    If Not swMacroFeature Is Nothing Then
-        MsgBox "Macro feature created: " & swMacroFeature.Name
-    End If
-End Sub
-
-' Macro feature rebuild method
-Function swmRebuild(swApp As Variant, swModel As Variant, swFeature As Variant) As Variant
-    ' Custom rebuild logic
-    swmRebuild = True
-End Function
-
-' Macro feature edit method
-Function swmEdit(swApp As Variant, swModel As Variant, swFeature As Variant) As Variant
-    ' Custom edit logic
-    MsgBox "Editing macro feature"
-    swmEdit = True
-End Function` : ''}
-
-${args.automationType === 'property_page' ? `
-' Property Manager Page Handler
-Sub CreatePropertyPage()
-    Dim swApp As SldWorks.SldWorks
-    Dim swModel As SldWorks.ModelDoc2
-    Dim swPMPage As SldWorks.PropertyManagerPage2
-    Dim swPMPageHandler As PropertyManagerPageHandler
-    Dim errors As Long
-    
-    Set swApp = Application.SldWorks
-    Set swModel = swApp.ActiveDoc
-    
-    If swModel Is Nothing Then Exit Sub
-    
-    ' Create property page handler
-    Set swPMPageHandler = New PropertyManagerPageHandler
-    
-    ' Create property page
-    Set swPMPage = swApp.CreatePropertyManagerPage( _
-        "${args.className || 'Custom Properties'}", _
-        swPropertyManagerPageOptions_e.swPropertyManagerOptions_OkayButton + _
-        swPropertyManagerPageOptions_e.swPropertyManagerOptions_CancelButton, _
-        swPMPageHandler, errors)
-    
-    If Not swPMPage Is Nothing Then
-        ' Add controls
-        Dim group As SldWorks.PropertyManagerPageGroup
-        Dim textbox As SldWorks.PropertyManagerPageTextbox
-        Dim numberbox As SldWorks.PropertyManagerPageNumberbox
-        
-        Set group = swPMPage.AddGroupBox(1, "Parameters", _
-            swPropertyManagerPageGroupBoxOptions_e.swGroupBoxOptions_Expanded)
-        
-        Set textbox = group.AddControl2(2, _
-            swPropertyManagerPageControlType_e.swControlType_Textbox, _
-            "Name:", swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge, _
-            swPropertyManagerPageControlOptions_e.swControlOptions_Enabled, "")
-        
-        Set numberbox = group.AddControl2(3, _
-            swPropertyManagerPageControlType_e.swControlType_Numberbox, _
-            "Value:", swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge, _
-            swPropertyManagerPageControlOptions_e.swControlOptions_Enabled, "")
-        
-        numberbox.SetRange2 swNumberboxUnitType_e.swNumberBox_Length, 0, 100, True, 10, 1, 0.1
-        
-        ' Show property page
-        swPMPage.Show
-    End If
-End Sub` : ''}
-
-${args.automationType === 'add_in' ? `
-' SolidWorks Add-in Template
-' Implements SwAddin interface
-
-Option Explicit
-
-Implements SwAddin
-
-Private swApp As SldWorks.SldWorks
-Private addinID As Long
-
-Private Function SwAddin_ConnectToSW(ThisSW As Object, Cookie As Long) As Boolean
-    Set swApp = ThisSW
-    addinID = Cookie
-    
-    ' Register callbacks
-    swApp.SetAddinCallbackInfo2 0, Me, addinID
-    
-    ' Add menu items
-    AddMenuItems
-    
-    ' Add toolbar
-    AddToolbar
-    
-    SwAddin_ConnectToSW = True
-End Function
-
-Private Function SwAddin_DisconnectFromSW() As Boolean
-    ' Clean up
-    RemoveMenuItems
-    RemoveToolbar
-    
-    Set swApp = Nothing
-    SwAddin_DisconnectFromSW = True
-End Function
-
-Private Sub AddMenuItems()
-    Dim menuID As Long
-    menuID = swApp.AddMenu(swDocumentTypes_e.swDocPART, _
-        "${args.className || 'Custom Add-in'}", 0)
-    
-    swApp.AddMenuItem4 menuID, 0, _
-        "Command 1@${args.className || 'Custom Add-in'}", _
-        0, "OnCommand1", "", ""
-End Sub
-
-Private Sub AddToolbar()
-    Dim toolbar As Object
-    Set toolbar = swApp.AddToolbar5( _
-        addinID, "${args.className || 'Custom Toolbar'}", _
-        swDocumentTypes_e.swDocPART + swDocumentTypes_e.swDocASSEMBLY, _
-        swToolbarOptions_e.swToolbarOptions_ShowInAllDocuments)
-End Sub
-
-Public Sub OnCommand1()
-    MsgBox "Custom command executed"
-End Sub` : ''}`;
-        }
+            return `
+${args.automationType === 'event_handler'
+                ? `
+' Class module for SolidWorks event handling
+' Name this class module: ${args.className || 'SwEventHandler'}
+
+Option Explicit
+
+' SolidWorks application events
+Public WithEvents swApp As SldWorks.SldWorks
+Public WithEvents swModel As SldWorks.ModelDoc2
+
+' Initialize event handler
+Public Sub Init(app As SldWorks.SldWorks, model As SldWorks.ModelDoc2)
+    Set swApp = app
+    Set swModel = model
+    
+    ' Enable notifications
+    If Not swModel Is Nothing Then
+        swModel.EnableNotifications = True
+    End If
+End Sub
+
+${args.eventTypes ? args.eventTypes.map((evt) => eventHandlers[evt] || '').join('\n\n') : ''}
+
+' Cleanup
+Public Sub Terminate()
+    Set swModel = Nothing
+    Set swApp = Nothing
+End Sub
+
+' Usage in main module:
+' Dim eventHandler As New SwEventHandler
+' eventHandler.Init swApp, swModel`
+                : ''}
+
+${args.automationType === 'macro_feature'
+                ? `
+Sub CreateMacroFeature()
+    Dim swApp As SldWorks.SldWorks
+    Dim swModel As SldWorks.ModelDoc2
+    Dim swFeatMgr As SldWorks.FeatureManager
+    Dim swMacroFeature As SldWorks.Feature
+    Dim swMacroFeatureDef As SldWorks.MacroFeatureData
+    Dim methods(9) As String
+    Dim dimTypes(1) As Long
+    Dim dimValues(1) As Double
+    Dim paramNames(1) As String
+    Dim paramTypes(1) As Long
+    Dim paramValues(1) As String
+    
+    Set swApp = Application.SldWorks
+    Set swModel = swApp.ActiveDoc
+    
+    If swModel Is Nothing Then Exit Sub
+    
+    Set swFeatMgr = swModel.FeatureManager
+    
+    ' Define macro feature methods
+    methods(0) = "${args.className || 'CustomFeature'}" ' Module name
+    methods(1) = "swmRebuild" ' Rebuild function
+    methods(2) = "swmEdit" ' Edit function
+    methods(3) = "swmSecurity" ' Security function
+    methods(4) = "" ' Reserved
+    methods(5) = "" ' Reserved
+    methods(6) = "" ' Reserved
+    methods(7) = "" ' Reserved
+    methods(8) = "" ' Reserved
+    methods(9) = "" ' Icon file
+    
+    ' Set parameters
+    paramNames(0) = "Parameter1"
+    paramTypes(0) = swMacroFeatureParamType_e.swMacroFeatureParamTypeDouble
+    paramValues(0) = "10.0"
+    
+    ' Create macro feature
+    Set swMacroFeature = swFeatMgr.InsertMacroFeature3( _
+        "${args.className || 'CustomFeature'}", _
+        "", methods, _
+        paramNames, paramTypes, paramValues, _
+        Nothing, Nothing, Nothing, _
+        Nothing, swMacroFeatureOptions_e.swMacroFeatureByDefault)
+    
+    If Not swMacroFeature Is Nothing Then
+        MsgBox "Macro feature created: " & swMacroFeature.Name
+    End If
+End Sub
+
+' Macro feature rebuild method
+Function swmRebuild(swApp As Variant, swModel As Variant, swFeature As Variant) As Variant
+    ' Custom rebuild logic
+    swmRebuild = True
+End Function
+
+' Macro feature edit method
+Function swmEdit(swApp As Variant, swModel As Variant, swFeature As Variant) As Variant
+    ' Custom edit logic
+    MsgBox "Editing macro feature"
+    swmEdit = True
+End Function`
+                : ''}
+
+${args.automationType === 'property_page'
+                ? `
+' Property Manager Page Handler
+Sub CreatePropertyPage()
+    Dim swApp As SldWorks.SldWorks
+    Dim swModel As SldWorks.ModelDoc2
+    Dim swPMPage As SldWorks.PropertyManagerPage2
+    Dim swPMPageHandler As PropertyManagerPageHandler
+    Dim errors As Long
+    
+    Set swApp = Application.SldWorks
+    Set swModel = swApp.ActiveDoc
+    
+    If swModel Is Nothing Then Exit Sub
+    
+    ' Create property page handler
+    Set swPMPageHandler = New PropertyManagerPageHandler
+    
+    ' Create property page
+    Set swPMPage = swApp.CreatePropertyManagerPage( _
+        "${args.className || 'Custom Properties'}", _
+        swPropertyManagerPageOptions_e.swPropertyManagerOptions_OkayButton + _
+        swPropertyManagerPageOptions_e.swPropertyManagerOptions_CancelButton, _
+        swPMPageHandler, errors)
+    
+    If Not swPMPage Is Nothing Then
+        ' Add controls
+        Dim group As SldWorks.PropertyManagerPageGroup
+        Dim textbox As SldWorks.PropertyManagerPageTextbox
+        Dim numberbox As SldWorks.PropertyManagerPageNumberbox
+        
+        Set group = swPMPage.AddGroupBox(1, "Parameters", _
+            swPropertyManagerPageGroupBoxOptions_e.swGroupBoxOptions_Expanded)
+        
+        Set textbox = group.AddControl2(2, _
+            swPropertyManagerPageControlType_e.swControlType_Textbox, _
+            "Name:", swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge, _
+            swPropertyManagerPageControlOptions_e.swControlOptions_Enabled, "")
+        
+        Set numberbox = group.AddControl2(3, _
+            swPropertyManagerPageControlType_e.swControlType_Numberbox, _
+            "Value:", swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge, _
+            swPropertyManagerPageControlOptions_e.swControlOptions_Enabled, "")
+        
+        numberbox.SetRange2 swNumberboxUnitType_e.swNumberBox_Length, 0, 100, True, 10, 1, 0.1
+        
+        ' Show property page
+        swPMPage.Show
+    End If
+End Sub`
+                : ''}
+
+${args.automationType === 'add_in'
+                ? `
+' SolidWorks Add-in Template
+' Implements SwAddin interface
+
+Option Explicit
+
+Implements SwAddin
+
+Private swApp As SldWorks.SldWorks
+Private addinID As Long
+
+Private Function SwAddin_ConnectToSW(ThisSW As Object, Cookie As Long) As Boolean
+    Set swApp = ThisSW
+    addinID = Cookie
+    
+    ' Register callbacks
+    swApp.SetAddinCallbackInfo2 0, Me, addinID
+    
+    ' Add menu items
+    AddMenuItems
+    
+    ' Add toolbar
+    AddToolbar
+    
+    SwAddin_ConnectToSW = True
+End Function
+
+Private Function SwAddin_DisconnectFromSW() As Boolean
+    ' Clean up
+    RemoveMenuItems
+    RemoveToolbar
+    
+    Set swApp = Nothing
+    SwAddin_DisconnectFromSW = True
+End Function
+
+Private Sub AddMenuItems()
+    Dim menuID As Long
+    menuID = swApp.AddMenu(swDocumentTypes_e.swDocPART, _
+        "${args.className || 'Custom Add-in'}", 0)
+    
+    swApp.AddMenuItem4 menuID, 0, _
+        "Command 1@${args.className || 'Custom Add-in'}", _
+        0, "OnCommand1", "", ""
+End Sub
+
+Private Sub AddToolbar()
+    Dim toolbar As Object
+    Set toolbar = swApp.AddToolbar5( _
+        addinID, "${args.className || 'Custom Toolbar'}", _
+        swDocumentTypes_e.swDocPART + swDocumentTypes_e.swDocASSEMBLY, _
+        swToolbarOptions_e.swToolbarOptions_ShowInAllDocuments)
+End Sub
+
+Public Sub OnCommand1()
+    MsgBox "Custom command executed"
+End Sub`
+                : ''}`;
+        },
     },
     {
         name: 'vba_error_handling',
@@ -630,158 +707,164 @@ End Sub` : ''}`;
             logToFile: z.boolean().optional(),
             logPath: z.string().optional(),
             emailOnError: z.boolean().optional(),
-            emailAddress: z.string().optional()
+            emailAddress: z.string().optional(),
         }),
         handler: (args) => {
-            return `
-' Error handling and logging utilities
-Option Explicit
-
-Private Const LOG_FILE As String = "${args.logPath || 'C:\\Temp\\SolidWorksVBA.log'}"
-
-Sub ${args.functionName}_WithErrorHandling()
-    On Error GoTo ErrorHandler
-    
-    Dim swApp As SldWorks.SldWorks
-    Dim swModel As SldWorks.ModelDoc2
-    Dim startTime As Double
-    Dim endTime As Double
-    
-    startTime = Timer
-    
-    ' Initialize
-    Set swApp = Application.SldWorks
-    Set swModel = swApp.ActiveDoc
-    
-    ' Log operation start
-    LogMessage "INFO", "Starting ${args.operationType}"
-    
-    ' Validate prerequisites
-    If swModel Is Nothing Then
-        Err.Raise vbObjectError + 1000, "${args.functionName}", _
-            "No active document found"
-    End If
-    
-    ' ===============================
-    ' Main operation logic goes here
-    ' ===============================
-    
-    ' Your ${args.operationType} code here
-    
-    ' ===============================
-    
-    endTime = Timer
-    LogMessage "SUCCESS", "${args.operationType} completed in " & _
-        Format(endTime - startTime, "0.00") & " seconds"
-    
-    Exit Sub
-    
-ErrorHandler:
-    Dim errorMsg As String
-    errorMsg = "Error in ${args.functionName}: " & vbCrLf & _
-               "Number: " & Err.Number & vbCrLf & _
-               "Description: " & Err.Description & vbCrLf & _
-               "Source: " & Err.Source
-    
-    ' Log error
-    LogMessage "ERROR", errorMsg
-    
-    ${args.emailOnError ? `
-    ' Send email notification
-    SendErrorEmail "${args.emailAddress}", "${args.functionName} Error", errorMsg` : ''}
-    
-    ' Display error to user
-    MsgBox errorMsg, vbCritical, "Error in ${args.operationType}"
-    
-    ' Clean up
-    On Error Resume Next
-    If Not swModel Is Nothing Then
-        swModel.ClearSelection2 True
-    End If
-    
-    ' Re-raise error if needed
-    ' Err.Raise Err.Number, Err.Source, Err.Description
-End Sub
-
-Private Sub LogMessage(logLevel As String, message As String)
-    ${args.logToFile ? `
-    Dim fso As Object
-    Dim logFile As Object
-    
-    On Error Resume Next
-    
-    Set fso = CreateObject("Scripting.FileSystemObject")
-    
-    ' Create log file if it doesn't exist
-    If Not fso.FileExists(LOG_FILE) Then
-        Set logFile = fso.CreateTextFile(LOG_FILE, True)
-        logFile.WriteLine "Timestamp,Level,Message"
-    Else
-        Set logFile = fso.OpenTextFile(LOG_FILE, 8) ' Append mode
-    End If
-    
-    ' Write log entry
-    logFile.WriteLine Now & "," & logLevel & "," & Replace(message, ",", ";")
-    logFile.Close
-    
-    Set logFile = Nothing
-    Set fso = Nothing` : ''}
-    
-    ' Also output to immediate window
-    Debug.Print "[" & logLevel & "] " & Now & " - " & message
-End Sub
-
-${args.emailOnError ? `
-Private Sub SendErrorEmail(recipient As String, subject As String, body As String)
-    On Error Resume Next
-    
-    Dim outlook As Object
-    Dim mail As Object
-    
-    Set outlook = CreateObject("Outlook.Application")
-    Set mail = outlook.CreateItem(0) ' olMailItem
-    
-    With mail
-        .To = recipient
-        .Subject = subject
-        .Body = body & vbCrLf & vbCrLf & _
-                "Generated by: ${args.functionName}" & vbCrLf & _
-                "Time: " & Now & vbCrLf & _
-                "Computer: " & Environ("COMPUTERNAME") & vbCrLf & _
-                "User: " & Environ("USERNAME")
-        .Send
-    End With
-    
-    Set mail = Nothing
-    Set outlook = Nothing
-End Sub` : ''}
-
-' Performance monitoring
-Private Sub MeasurePerformance(operationName As String, codeBlock As String)
-    Dim startTime As Double, endTime As Double
-    Dim memBefore As Long, memAfter As Long
-    
-    ' Get memory usage before
-    memBefore = GetMemoryUsage()
-    startTime = Timer
-    
-    ' Execute code block
-    Application.Run codeBlock
-    
-    endTime = Timer
-    memAfter = GetMemoryUsage()
-    
-    LogMessage "PERFORMANCE", operationName & " - Time: " & _
-        Format(endTime - startTime, "0.000") & "s, Memory: " & _
-        Format((memAfter - memBefore) / 1024, "0.00") & " KB"
-End Sub
-
-Private Function GetMemoryUsage() As Long
-    ' Returns approximate memory usage in bytes
-    On Error Resume Next
-    GetMemoryUsage = Application.MemoryUsed * 1024
+            return `
+' Error handling and logging utilities
+Option Explicit
+
+Private Const LOG_FILE As String = "${args.logPath || 'C:\\Temp\\SolidWorksVBA.log'}"
+
+Sub ${args.functionName}_WithErrorHandling()
+    On Error GoTo ErrorHandler
+    
+    Dim swApp As SldWorks.SldWorks
+    Dim swModel As SldWorks.ModelDoc2
+    Dim startTime As Double
+    Dim endTime As Double
+    
+    startTime = Timer
+    
+    ' Initialize
+    Set swApp = Application.SldWorks
+    Set swModel = swApp.ActiveDoc
+    
+    ' Log operation start
+    LogMessage "INFO", "Starting ${args.operationType}"
+    
+    ' Validate prerequisites
+    If swModel Is Nothing Then
+        Err.Raise vbObjectError + 1000, "${args.functionName}", _
+            "No active document found"
+    End If
+    
+    ' ===============================
+    ' Main operation logic goes here
+    ' ===============================
+    
+    ' Your ${args.operationType} code here
+    
+    ' ===============================
+    
+    endTime = Timer
+    LogMessage "SUCCESS", "${args.operationType} completed in " & _
+        Format(endTime - startTime, "0.00") & " seconds"
+    
+    Exit Sub
+    
+ErrorHandler:
+    Dim errorMsg As String
+    errorMsg = "Error in ${args.functionName}: " & vbCrLf & _
+               "Number: " & Err.Number & vbCrLf & _
+               "Description: " & Err.Description & vbCrLf & _
+               "Source: " & Err.Source
+    
+    ' Log error
+    LogMessage "ERROR", errorMsg
+    
+    ${args.emailOnError
+                ? `
+    ' Send email notification
+    SendErrorEmail "${args.emailAddress}", "${args.functionName} Error", errorMsg`
+                : ''}
+    
+    ' Display error to user
+    MsgBox errorMsg, vbCritical, "Error in ${args.operationType}"
+    
+    ' Clean up
+    On Error Resume Next
+    If Not swModel Is Nothing Then
+        swModel.ClearSelection2 True
+    End If
+    
+    ' Re-raise error if needed
+    ' Err.Raise Err.Number, Err.Source, Err.Description
+End Sub
+
+Private Sub LogMessage(logLevel As String, message As String)
+    ${args.logToFile
+                ? `
+    Dim fso As Object
+    Dim logFile As Object
+    
+    On Error Resume Next
+    
+    Set fso = CreateObject("Scripting.FileSystemObject")
+    
+    ' Create log file if it doesn't exist
+    If Not fso.FileExists(LOG_FILE) Then
+        Set logFile = fso.CreateTextFile(LOG_FILE, True)
+        logFile.WriteLine "Timestamp,Level,Message"
+    Else
+        Set logFile = fso.OpenTextFile(LOG_FILE, 8) ' Append mode
+    End If
+    
+    ' Write log entry
+    logFile.WriteLine Now & "," & logLevel & "," & Replace(message, ",", ";")
+    logFile.Close
+    
+    Set logFile = Nothing
+    Set fso = Nothing`
+                : ''}
+    
+    ' Also output to immediate window
+    Debug.Print "[" & logLevel & "] " & Now & " - " & message
+End Sub
+
+${args.emailOnError
+                ? `
+Private Sub SendErrorEmail(recipient As String, subject As String, body As String)
+    On Error Resume Next
+    
+    Dim outlook As Object
+    Dim mail As Object
+    
+    Set outlook = CreateObject("Outlook.Application")
+    Set mail = outlook.CreateItem(0) ' olMailItem
+    
+    With mail
+        .To = recipient
+        .Subject = subject
+        .Body = body & vbCrLf & vbCrLf & _
+                "Generated by: ${args.functionName}" & vbCrLf & _
+                "Time: " & Now & vbCrLf & _
+                "Computer: " & Environ("COMPUTERNAME") & vbCrLf & _
+                "User: " & Environ("USERNAME")
+        .Send
+    End With
+    
+    Set mail = Nothing
+    Set outlook = Nothing
+End Sub`
+                : ''}
+
+' Performance monitoring
+Private Sub MeasurePerformance(operationName As String, codeBlock As String)
+    Dim startTime As Double, endTime As Double
+    Dim memBefore As Long, memAfter As Long
+    
+    ' Get memory usage before
+    memBefore = GetMemoryUsage()
+    startTime = Timer
+    
+    ' Execute code block
+    Application.Run codeBlock
+    
+    endTime = Timer
+    memAfter = GetMemoryUsage()
+    
+    LogMessage "PERFORMANCE", operationName & " - Time: " & _
+        Format(endTime - startTime, "0.000") & "s, Memory: " & _
+        Format((memAfter - memBefore) / 1024, "0.00") & " KB"
+End Sub
+
+Private Function GetMemoryUsage() As Long
+    ' Returns approximate memory usage in bytes
+    On Error Resume Next
+    GetMemoryUsage = Application.MemoryUsed * 1024
 End Function`;
-        }
-    }
+        },
+    },
 ];
 //# sourceMappingURL=vba-advanced.js.map