solidworks-mcp-server 2.0.1 → 2.1.0

package/dist/tools/vba-assembly.js

@@ -0,0 +1,588 @@
+import { z } from 'zod';
+/**
+ * VBA Generation for Assembly Operations
+ * Comprehensive SolidWorks assembly automation
+ */
+export const assemblyVBATools = [
+    {
+        name: 'vba_assembly_mates',
+        description: 'Generate VBA for creating assembly mates',
+        inputSchema: z.object({
+            mateType: z.enum([
+                'coincident', 'parallel', 'perpendicular', 'tangent', 'concentric',
+                'distance', 'angle', 'symmetric', 'width', 'path', 'linear_coupler',
+                'cam', 'gear', 'rack_pinion', 'screw', 'universal_joint'
+            ]),
+            component1: z.string().describe('First component name'),
+            face1: z.string().describe('Face/edge/vertex on first component'),
+            component2: z.string().describe('Second component name'),
+            face2: z.string().describe('Face/edge/vertex on second component'),
+            distance: z.number().optional().describe('Distance in mm for distance mate'),
+            angle: z.number().optional().describe('Angle in degrees for angle mate'),
+            flip: z.boolean().optional(),
+            alignmentType: z.enum(['aligned', 'anti_aligned', 'closest']).optional()
+        }),
+        handler: (args) => {
+            const mateConstants = {
+                coincident: 'swMateCOINCIDENT',
+                parallel: 'swMatePARALLEL',
+                perpendicular: 'swMatePERPENDICULAR',
+                tangent: 'swMateTANGENT',
+                concentric: 'swMateCONCENTRIC',
+                distance: 'swMateDISTANCE',
+                angle: 'swMateANGLE',
+                symmetric: 'swMateSYMMETRIC',
+                cam: 'swMateCAMFOLLOWER',
+                gear: 'swMateGEAR',
+                rack_pinion: 'swMateRACKPINION',
+                screw: 'swMateSCREW'
+            };
+            return `
+Sub CreateAssemblyMate_${args.mateType}()
+    Dim swApp As SldWorks.SldWorks
+    Dim swAssy As SldWorks.AssemblyDoc
+    Dim swMate As SldWorks.Mate2
+    Dim swSelMgr As SldWorks.SelectionMgr
+    Dim mateError As Long
+    
+    Set swApp = Application.SldWorks
+    Set swAssy = swApp.ActiveDoc
+    
+    If swAssy Is Nothing Then
+        MsgBox "Please open an assembly document"
+        Exit Sub
+    End If
+    
+    Set swSelMgr = swAssy.SelectionManager
+    
+    ' Clear selections
+    swAssy.ClearSelection2 True
+    
+    ' Select first entity
+    swAssy.Extension.SelectByID2 "${args.face1}@${args.component1}", "FACE", 0, 0, 0, False, 1, Nothing, 0
+    
+    ' Select second entity
+    swAssy.Extension.SelectByID2 "${args.face2}@${args.component2}", "FACE", 0, 0, 0, True, 1, Nothing, 0
+    
+    ' Create mate
+    ${args.mateType === 'distance' ? `
+    Set swMate = swAssy.AddMate5( _
+        ${mateConstants[args.mateType]}, _
+        ${args.alignmentType === 'anti_aligned' ? 'swMateAlignANTI_ALIGNED' : 'swMateAlignALIGNED'}, _
+        ${args.flip ? 'True' : 'False'}, _
+        ${args.distance / 1000}, 0, 0, 0, 0, 0, 0, 0, _
+        False, False, 0, mateError)` : ''}
+    
+    ${args.mateType === 'angle' ? `
+    Set swMate = swAssy.AddMate5( _
+        ${mateConstants[args.mateType]}, _
+        ${args.alignmentType === 'anti_aligned' ? 'swMateAlignANTI_ALIGNED' : 'swMateAlignALIGNED'}, _
+        ${args.flip ? 'True' : 'False'}, _
+        0, ${args.angle * Math.PI / 180}, 0, 0, 0, 0, 0, 0, _
+        False, False, 0, mateError)` : ''}
+    
+    ${!['distance', 'angle'].includes(args.mateType) ? `
+    Set swMate = swAssy.AddMate5( _
+        ${mateConstants[args.mateType]}, _
+        ${args.alignmentType === 'anti_aligned' ? 'swMateAlignANTI_ALIGNED' : 'swMateAlignALIGNED'}, _
+        ${args.flip ? 'True' : 'False'}, _
+        0, 0, 0, 0, 0, 0, 0, 0, _
+        False, False, 0, mateError)` : ''}
+    
+    If Not swMate Is Nothing Then
+        MsgBox "${args.mateType} mate created successfully"
+        swAssy.EditRebuild3
+    Else
+        MsgBox "Failed to create mate. Error code: " & mateError
+    End If
+    
+    swAssy.ClearSelection2 True
+End Sub`;
+        }
+    },
+    {
+        name: 'vba_assembly_components',
+        description: 'Generate VBA for inserting and managing components',
+        inputSchema: z.object({
+            operation: z.enum(['insert', 'replace', 'pattern', 'mirror', 'explode', 'dissolve']),
+            componentPath: z.string().optional().describe('Path to component file'),
+            componentName: z.string().optional().describe('Component name in assembly'),
+            configurationName: z.string().optional(),
+            position: z.object({
+                x: z.number(),
+                y: z.number(),
+                z: z.number()
+            }).optional(),
+            quantity: z.number().optional(),
+            patternType: z.enum(['linear', 'circular']).optional(),
+            spacing: z.number().optional().describe('Spacing in mm')
+        }),
+        handler: (args) => {
+            const operations = {
+                insert: `
+Sub InsertComponent()
+    Dim swApp As SldWorks.SldWorks
+    Dim swAssy As SldWorks.AssemblyDoc
+    Dim swComp As SldWorks.Component2
+    Dim swMathUtil As SldWorks.MathUtility
+    Dim swTransform As SldWorks.MathTransform
+    Dim transformData(15) As Double
+    
+    Set swApp = Application.SldWorks
+    Set swAssy = swApp.ActiveDoc
+    
+    If swAssy Is Nothing Then
+        MsgBox "Please open an assembly document"
+        Exit Sub
+    End If
+    
+    Set swMathUtil = swApp.GetMathUtility
+    
+    ' Set transform matrix for position
+    transformData(0) = 1: transformData(1) = 0: transformData(2) = 0
+    transformData(3) = 0: transformData(4) = 1: transformData(5) = 0
+    transformData(6) = 0: transformData(7) = 0: transformData(8) = 1
+    transformData(9) = ${args.position?.x || 0} / 1000
+    transformData(10) = ${args.position?.y || 0} / 1000
+    transformData(11) = ${args.position?.z || 0} / 1000
+    transformData(12) = 1
+    
+    Set swTransform = swMathUtil.CreateTransform(transformData)
+    
+    ' Insert component
+    Set swComp = swAssy.AddComponent5( _
+        "${args.componentPath}", _
+        swAddComponentConfigOptions_e.swAddComponentConfigOptions_CurrentSelectedConfig, _
+        "${args.configurationName || ''}", _
+        False, "", _
+        ${args.position?.x || 0} / 1000, _
+        ${args.position?.y || 0} / 1000, _
+        ${args.position?.z || 0} / 1000)
+    
+    If Not swComp Is Nothing Then
+        MsgBox "Component inserted: " & swComp.Name2
+        swAssy.EditRebuild3
+    Else
+        MsgBox "Failed to insert component"
+    End If
+End Sub`,
+                replace: `
+Sub ReplaceComponent()
+    Dim swApp As SldWorks.SldWorks
+    Dim swAssy As SldWorks.AssemblyDoc
+    Dim swComp As SldWorks.Component2
+    Dim bRet As Boolean
+    
+    Set swApp = Application.SldWorks
+    Set swAssy = swApp.ActiveDoc
+    
+    If swAssy Is Nothing Then Exit Sub
+    
+    ' Select component to replace
+    swAssy.Extension.SelectByID2 "${args.componentName}", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0
+    Set swComp = swAssy.SelectionManager.GetSelectedObject6(1, -1)
+    
+    If Not swComp Is Nothing Then
+        ' Replace component
+        bRet = swComp.Replace2("${args.componentPath}", "${args.configurationName || ''}", False, True)
+        
+        If bRet Then
+            MsgBox "Component replaced successfully"
+            swAssy.EditRebuild3
+        Else
+            MsgBox "Failed to replace component"
+        End If
+    End If
+End Sub`,
+                pattern: `
+Sub CreateComponentPattern()
+    Dim swApp As SldWorks.SldWorks
+    Dim swAssy As SldWorks.AssemblyDoc
+    Dim swFeat As SldWorks.Feature
+    Dim swLocalPattern As SldWorks.LocalLinearPatternFeatureData
+    
+    Set swApp = Application.SldWorks
+    Set swAssy = swApp.ActiveDoc
+    
+    If swAssy Is Nothing Then Exit Sub
+    
+    ' Select component(s) to pattern
+    swAssy.Extension.SelectByID2 "${args.componentName}", "COMPONENT", 0, 0, 0, False, 1, Nothing, 0
+    
+    ${args.patternType === 'linear' ? `
+    ' Select direction references
+    swAssy.Extension.SelectByID2 "Right Plane", "PLANE", 0, 0, 0, True, 2, Nothing, 0
+    
+    ' Create linear pattern
+    Set swFeat = swAssy.FeatureManager.FeatureLinearPattern4( _
+        ${args.quantity || 3}, ${(args.spacing || 50) / 1000}, _
+        1, 0, False, False, "NULL", "NULL", _
+        False, False, False, False, False, False, _
+        False, False, False, False, 0, 0)` : ''}
+    
+    ${args.patternType === 'circular' ? `
+    ' Select axis
+    swAssy.Extension.SelectByID2 "Axis1", "AXIS", 0, 0, 0, True, 2, Nothing, 0
+    
+    ' Create circular pattern
+    Set swFeat = swAssy.FeatureManager.FeatureCircularPattern5( _
+        ${args.quantity || 6}, ${2 * Math.PI / (args.quantity || 6)}, _
+        False, "NULL", False, True, False, False)` : ''}
+    
+    If Not swFeat Is Nothing Then
+        MsgBox "Component pattern created: " & swFeat.Name
+        swAssy.EditRebuild3
+    End If
+End Sub`,
+                explode: `
+Sub CreateExplodedView()
+    Dim swApp As SldWorks.SldWorks
+    Dim swAssy As SldWorks.AssemblyDoc
+    Dim swConfig As SldWorks.Configuration
+    Dim swExplodeView As SldWorks.ExplodedView
+    
+    Set swApp = Application.SldWorks
+    Set swAssy = swApp.ActiveDoc
+    
+    If swAssy Is Nothing Then Exit Sub
+    
+    Set swConfig = swAssy.GetActiveConfiguration
+    
+    ' Create new exploded view
+    Set swExplodeView = swConfig.CreateExplodedView2("ExplodedView_${Date.now()}")
+    
+    If Not swExplodeView Is Nothing Then
+        ' Select components to explode
+        swAssy.Extension.SelectByID2 "${args.componentName}", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0
+        
+        ' Add explode step
+        swExplodeView.AddExplodeStep _
+            ${(args.position?.x || 100) / 1000}, _
+            ${(args.position?.y || 0) / 1000}, _
+            ${(args.position?.z || 0) / 1000}
+        
+        MsgBox "Exploded view created"
+        swAssy.ShowExploded2 True
+    End If
+End Sub`
+            };
+            return operations[args.operation] || 'Operation not supported';
+        }
+    },
+    {
+        name: 'vba_assembly_analysis',
+        description: 'Generate VBA for assembly analysis',
+        inputSchema: z.object({
+            analysisType: z.enum([
+                'interference', 'clearance', 'collision', 'mass_properties',
+                'hole_alignment', 'assembly_statistics', 'bom_export'
+            ]),
+            components: z.array(z.string()).optional().describe('Components to analyze'),
+            outputPath: z.string().optional().describe('Path for results export'),
+            includeSubassemblies: z.boolean().optional().default(true),
+            treatCoincidentAsInterference: z.boolean().optional().default(false)
+        }),
+        handler: (args) => {
+            const analyses = {
+                interference: `
+Sub CheckInterference()
+    Dim swApp As SldWorks.SldWorks
+    Dim swAssy As SldWorks.AssemblyDoc
+    Dim swIntMgr As SldWorks.InterferenceDetectionMgr
+    Dim vInts As Variant
+    Dim i As Integer
+    Dim swInt As SldWorks.Interference
+    Dim vol As Double
+    
+    Set swApp = Application.SldWorks
+    Set swAssy = swApp.ActiveDoc
+    
+    If swAssy Is Nothing Then
+        MsgBox "Please open an assembly"
+        Exit Sub
+    End If
+    
+    Set swIntMgr = swAssy.InterferenceDetectionManager
+    
+    ' Configure interference detection
+    swIntMgr.TreatCoincidenceAsInterference = ${args.treatCoincidentAsInterference ? 'True' : 'False'}
+    swIntMgr.TreatSubAssembliesAsComponents = ${args.includeSubassemblies ? 'False' : 'True'}
+    swIntMgr.IncludeMultibodyPartInterferences = True
+    swIntMgr.MakeInterferingPartsTransparent = True
+    
+    ${args.components && args.components.length > 0 ? `
+    ' Select specific components
+    ${args.components.map((comp) => `
+    swAssy.Extension.SelectByID2 "${comp}", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0`).join('')}` : ''}
+    
+    ' Run interference detection
+    vInts = swIntMgr.GetInterferences
+    swIntMgr.Done
+    
+    If Not IsEmpty(vInts) Then
+        MsgBox "Found " & UBound(vInts) + 1 & " interference(s)"
+        
+        ' Process each interference
+        For i = 0 To UBound(vInts)
+            Set swInt = vInts(i)
+            vol = swInt.Volume * 1000000000 ' Convert to mm³
+            
+            Debug.Print "Interference " & i + 1 & ":"
+            Debug.Print "  Component 1: " & swInt.Component1.Name2
+            Debug.Print "  Component 2: " & swInt.Component2.Name2
+            Debug.Print "  Volume: " & Format(vol, "0.00") & " mm³"
+        Next i
+        
+        ${args.outputPath ? `
+        ' Export results
+        Dim fso As Object, file As Object
+        Set fso = CreateObject("Scripting.FileSystemObject")
+        Set file = fso.CreateTextFile("${args.outputPath}", True)
+        
+        file.WriteLine "Interference Detection Report"
+        file.WriteLine "============================="
+        file.WriteLine "Total Interferences: " & UBound(vInts) + 1
+        file.WriteLine ""
+        
+        For i = 0 To UBound(vInts)
+            Set swInt = vInts(i)
+            file.WriteLine "Interference " & i + 1 & ":"
+            file.WriteLine "  Component 1: " & swInt.Component1.Name2
+            file.WriteLine "  Component 2: " & swInt.Component2.Name2
+            file.WriteLine "  Volume: " & Format(swInt.Volume * 1000000000, "0.00") & " mm³"
+            file.WriteLine ""
+        Next i
+        
+        file.Close
+        MsgBox "Report exported to: " & "${args.outputPath}"` : ''}
+    Else
+        MsgBox "No interferences found"
+    End If
+End Sub`,
+                mass_properties: `
+Sub CalculateMassProperties()
+    Dim swApp As SldWorks.SldWorks
+    Dim swAssy As SldWorks.AssemblyDoc
+    Dim swMass As SldWorks.MassProperty
+    Dim vCOG As Variant
+    Dim vMOI As Variant
+    Dim mass As Double
+    
+    Set swApp = Application.SldWorks
+    Set swAssy = swApp.ActiveDoc
+    
+    If swAssy Is Nothing Then Exit Sub
+    
+    Set swMass = swAssy.Extension.CreateMassProperty
+    
+    ${args.components && args.components.length > 0 ? `
+    ' Select specific components
+    swAssy.ClearSelection2 True
+    ${args.components.map((comp) => `
+    swAssy.Extension.SelectByID2 "${comp}", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0`).join('')}
+    
+    ' Calculate for selected components
+    swMass.UseSelectedOnly = True` : ''}
+    
+    mass = swMass.Mass * 1000 ' Convert to grams
+    vCOG = swMass.CenterOfMass
+    vMOI = swMass.GetMomentOfInertia(0) ' At COG
+    
+    ' Display results
+    MsgBox "Mass Properties:" & vbCrLf & _
+           "Mass: " & Format(mass, "0.00") & " g" & vbCrLf & _
+           "Volume: " & Format(swMass.Volume * 1000000000, "0.00") & " mm³" & vbCrLf & _
+           "Density: " & Format(swMass.Density, "0.00") & " kg/m³" & vbCrLf & _
+           "Surface Area: " & Format(swMass.SurfaceArea * 1000000, "0.00") & " mm²" & vbCrLf & vbCrLf & _
+           "Center of Gravity:" & vbCrLf & _
+           "X: " & Format(vCOG(0) * 1000, "0.00") & " mm" & vbCrLf & _
+           "Y: " & Format(vCOG(1) * 1000, "0.00") & " mm" & vbCrLf & _
+           "Z: " & Format(vCOG(2) * 1000, "0.00") & " mm"
+    
+    ${args.outputPath ? `
+    ' Export to file
+    Dim fso As Object, file As Object
+    Set fso = CreateObject("Scripting.FileSystemObject")
+    Set file = fso.CreateTextFile("${args.outputPath}", True)
+    
+    file.WriteLine "Mass Properties Report"
+    file.WriteLine "====================="
+    file.WriteLine "Mass: " & Format(mass, "0.00") & " g"
+    file.WriteLine "Volume: " & Format(swMass.Volume * 1000000000, "0.00") & " mm³"
+    file.WriteLine "Density: " & Format(swMass.Density, "0.00") & " kg/m³"
+    file.WriteLine "Surface Area: " & Format(swMass.SurfaceArea * 1000000, "0.00") & " mm²"
+    file.WriteLine ""
+    file.WriteLine "Center of Gravity:"
+    file.WriteLine "  X: " & Format(vCOG(0) * 1000, "0.00") & " mm"
+    file.WriteLine "  Y: " & Format(vCOG(1) * 1000, "0.00") & " mm"
+    file.WriteLine "  Z: " & Format(vCOG(2) * 1000, "0.00") & " mm"
+    file.WriteLine ""
+    file.WriteLine "Moments of Inertia (at COG):"
+    file.WriteLine "  Ixx: " & Format(vMOI(0), "0.0000") & " kg·m²"
+    file.WriteLine "  Iyy: " & Format(vMOI(1), "0.0000") & " kg·m²"
+    file.WriteLine "  Izz: " & Format(vMOI(2), "0.0000") & " kg·m²"
+    
+    file.Close
+    MsgBox "Report saved to: " & "${args.outputPath}"` : ''}
+End Sub`,
+                bom_export: `
+Sub ExportBOM()
+    Dim swApp As SldWorks.SldWorks
+    Dim swAssy As SldWorks.AssemblyDoc
+    Dim swBOMAnnotation As SldWorks.BomTableAnnotation
+    Dim swBOMFeature As SldWorks.BomFeature
+    Dim swTable As SldWorks.TableAnnotation
+    Dim i As Integer, j As Integer
+    Dim rowCount As Long, colCount As Long
+    
+    Set swApp = Application.SldWorks
+    Set swAssy = swApp.ActiveDoc
+    
+    If swAssy Is Nothing Then Exit Sub
+    
+    ' Create BOM
+    Set swBOMFeature = swAssy.FeatureManager.InsertBomTable3( _
+        "", "${args.outputPath || 'C:\\Temp\\BOM.xlsx'}", _
+        swBomType_e.swBomType_PartsOnly, _
+        "", _
+        swBOMConfigurationAnchorType_e.swBOMConfigurationAnchor_ActiveConfiguration, _
+        swBomStandard_e.swBomStandard_BomTable, _
+        False)
+    
+    If Not swBOMFeature Is Nothing Then
+        Set swBOMAnnotation = swBOMFeature.GetTableAnnotations(0)
+        Set swTable = swBOMAnnotation
+        
+        rowCount = swTable.RowCount
+        colCount = swTable.ColumnCount
+        
+        ' Export to Excel
+        Dim xlApp As Object
+        Dim xlBook As Object
+        Dim xlSheet As Object
+        
+        Set xlApp = CreateObject("Excel.Application")
+        Set xlBook = xlApp.Workbooks.Add
+        Set xlSheet = xlBook.Sheets(1)
+        
+        xlApp.Visible = True
+        
+        ' Write headers
+        For j = 0 To colCount - 1
+            xlSheet.Cells(1, j + 1).Value = swTable.GetColumnTitle(j)
+        Next j
+        
+        ' Write data
+        For i = 1 To rowCount - 1
+            For j = 0 To colCount - 1
+                xlSheet.Cells(i + 1, j + 1).Value = swTable.Text(i, j)
+            Next j
+        Next i
+        
+        ' Format
+        xlSheet.Range("A1").CurrentRegion.Columns.AutoFit
+        xlSheet.Range("A1").CurrentRegion.Borders.LineStyle = 1
+        
+        ${args.outputPath ? `
+        xlBook.SaveAs "${args.outputPath}"
+        MsgBox "BOM exported to: ${args.outputPath}"` : ''}
+    End If
+End Sub`
+            };
+            return analyses[args.analysisType] || 'Analysis type not supported';
+        }
+    },
+    {
+        name: 'vba_assembly_configurations',
+        description: 'Generate VBA for managing assembly configurations',
+        inputSchema: z.object({
+            operation: z.enum(['create', 'modify', 'suppress', 'delete', 'copy']),
+            configName: z.string(),
+            parentConfig: z.string().optional(),
+            componentsToSuppress: z.array(z.string()).optional(),
+            properties: z.record(z.string()).optional(),
+            displayStates: z.array(z.string()).optional()
+        }),
+        handler: (args) => {
+            return `
+Sub ManageConfiguration_${args.operation}()
+    Dim swApp As SldWorks.SldWorks
+    Dim swAssy As SldWorks.AssemblyDoc
+    Dim swConfig As SldWorks.Configuration
+    Dim swConfigMgr As SldWorks.ConfigurationManager
+    Dim bRet As Boolean
+    
+    Set swApp = Application.SldWorks
+    Set swAssy = swApp.ActiveDoc
+    
+    If swAssy Is Nothing Then
+        MsgBox "Please open an assembly"
+        Exit Sub
+    End If
+    
+    Set swConfigMgr = swAssy.ConfigurationManager
+    
+    ${args.operation === 'create' ? `
+    ' Create new configuration
+    Set swConfig = swAssy.AddConfiguration3( _
+        "${args.configName}", _
+        "Configuration created by VBA", _
+        "", _
+        swConfigurationOptions2_e.swConfigOption_LinkToParent + _
+        swConfigurationOptions2_e.swConfigOption_InheritProperties, _
+        "${args.parentConfig || ''}")
+    
+    If Not swConfig Is Nothing Then
+        ' Activate new configuration
+        swAssy.ShowConfiguration2 "${args.configName}"
+        
+        ${args.componentsToSuppress && args.componentsToSuppress.length > 0 ? `
+        ' Suppress components
+        ${args.componentsToSuppress.map((comp) => `
+        swAssy.Extension.SelectByID2 "${comp}", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0`).join('')}
+        swAssy.EditSuppress2` : ''}
+        
+        ${args.properties ? `
+        ' Set custom properties
+        ${Object.entries(args.properties || {}).map(([key, value]) => `
+        swConfig.CustomPropertyManager.Add3 "${key}", swCustomInfoType_e.swCustomInfoText, "${value}", _
+            swCustomPropertyAddOption_e.swCustomPropertyReplaceValue`).join('')}` : ''}
+        
+        MsgBox "Configuration '${args.configName}' created"
+    End If` : ''}
+    
+    ${args.operation === 'modify' ? `
+    ' Get configuration
+    Set swConfig = swAssy.GetConfigurationByName("${args.configName}")
+    
+    If Not swConfig Is Nothing Then
+        ' Activate configuration
+        swAssy.ShowConfiguration2 "${args.configName}"
+        
+        ${args.componentsToSuppress && args.componentsToSuppress.length > 0 ? `
+        ' Modify suppression state
+        ${args.componentsToSuppress.map((comp) => `
+        swAssy.Extension.SelectByID2 "${comp}", "COMPONENT", 0, 0, 0, True, 0, Nothing, 0`).join('')}
+        swAssy.EditSuppress2` : ''}
+        
+        MsgBox "Configuration '${args.configName}' modified"
+    Else
+        MsgBox "Configuration not found"
+    End If` : ''}
+    
+    ${args.operation === 'delete' ? `
+    ' Delete configuration
+    bRet = swAssy.DeleteConfiguration2("${args.configName}")
+    
+    If bRet Then
+        MsgBox "Configuration '${args.configName}' deleted"
+    Else
+        MsgBox "Failed to delete configuration"
+    End If` : ''}
+    
+    swAssy.EditRebuild3
+End Sub`;
+        }
+    }
+];
+//# sourceMappingURL=vba-assembly.js.map

package/dist/tools/vba-assembly.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"vba-assembly.js","sourceRoot":"","sources":["../../src/tools/vba-assembly.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,CAAC,EAAE,MAAM,KAAK,CAAC;AAGxB;;;GAGG;AAEH,MAAM,CAAC,MAAM,gBAAgB,GAAG;IAC9B;QACE,IAAI,EAAE,oBAAoB;QAC1B,WAAW,EAAE,0CAA0C;QACvD,WAAW,EAAE,CAAC,CAAC,MAAM,CAAC;YACpB,QAAQ,EAAE,CAAC,CAAC,IAAI,CAAC;gBACf,YAAY,EAAE,UAAU,EAAE,eAAe,EAAE,SAAS,EAAE,YAAY;gBAClE,UAAU,EAAE,OAAO,EAAE,WAAW,EAAE,OAAO,EAAE,MAAM,EAAE,gBAAgB;gBACnE,KAAK,EAAE,MAAM,EAAE,aAAa,EAAE,OAAO,EAAE,iBAAiB;aACzD,CAAC;YACF,UAAU,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,CAAC,sBAAsB,CAAC;YACvD,KAAK,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,CAAC,qCAAqC,CAAC;YACjE,UAAU,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,CAAC,uBAAuB,CAAC;YACxD,KAAK,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,CAAC,sCAAsC,CAAC;YAClE,QAAQ,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE,CAAC,QAAQ,CAAC,kCAAkC,CAAC;YAC5E,KAAK,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE,CAAC,QAAQ,CAAC,iCAAiC,CAAC;YACxE,IAAI,EAAE,CAAC,CAAC,OAAO,EAAE,CAAC,QAAQ,EAAE;YAC5B,aAAa,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,SAAS,EAAE,cAAc,EAAE,SAAS,CAAC,CAAC,CAAC,QAAQ,EAAE;SACzE,CAAC;QACF,OAAO,EAAE,CAAC,IAAS,EAAE,EAAE;YACrB,MAAM,aAAa,GAA2B;gBAC5C,UAAU,EAAE,kBAAkB;gBAC9B,QAAQ,EAAE,gBAAgB;gBAC1B,aAAa,EAAE,qBAAqB;gBACpC,OAAO,EAAE,eAAe;gBACxB,UAAU,EAAE,kBAAkB;gBAC9B,QAAQ,EAAE,gBAAgB;gBAC1B,KAAK,EAAE,aAAa;gBACpB,SAAS,EAAE,iBAAiB;gBAC5B,GAAG,EAAE,mBAAmB;gBACxB,IAAI,EAAE,YAAY;gBAClB,WAAW,EAAE,kBAAkB;gBAC/B,KAAK,EAAE,aAAa;aACrB,CAAC;YAEF,OAAO;yBACY,IAAI,CAAC,QAAQ;;;;;;;;;;;;;;;;;;;;;oCAqBF,IAAI,CAAC,KAAK,IAAI,IAAI,CAAC,UAAU;;;oCAG7B,IAAI,CAAC,KAAK,IAAI,IAAI,CAAC,UAAU;;;MAG3D,IAAI,CAAC,QAAQ,KAAK,UAAU,CAAC,CAAC,CAAC;;UAE3B,aAAa,CAAC,IAAI,CAAC,QAAQ,CAAC;UAC5B,IAAI,CAAC,aAAa,KAAK,cAAc,CAAC,CAAC,CAAC,yBAAyB,CAAC,CAAC,CAAC,oBAAoB;UACxF,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO;UAC5B,IAAI,CAAC,QAAQ,GAAG,IAAI;oCACM,CAAC,CAAC,CAAC,EAAE;;MAEnC,IAAI,CAAC,QAAQ,KAAK,OAAO,CAAC,CAAC,CAAC;;UAExB,aAAa,CAAC,IAAI,CAAC,QAAQ,CAAC;UAC5B,IAAI,CAAC,aAAa,KAAK,cAAc,CAAC,CAAC,CAAC,yBAAyB,CAAC,CAAC,CAAC,oBAAoB;UACxF,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO;aACzB,IAAI,CAAC,KAAK,GAAG,IAAI,CAAC,EAAE,GAAG,GAAG;oCACH,CAAC,CAAC,CAAC,EAAE;;MAEnC,CAAC,CAAC,UAAU,EAAE,OAAO,CAAC,CAAC,QAAQ,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC;;UAE7C,aAAa,CAAC,IAAI,CAAC,QAAQ,CAAC;UAC5B,IAAI,CAAC,aAAa,KAAK,cAAc,CAAC,CAAC,CAAC,yBAAyB,CAAC,CAAC,CAAC,oBAAoB;UACxF,IAAI,CAAC,IAAI,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO;;oCAEF,CAAC,CAAC,CAAC,EAAE;;;kBAGvB,IAAI,CAAC,QAAQ;;;;;;;QAOvB,CAAC;QACL,CAAC;KACF;IAED;QACE,IAAI,EAAE,yBAAyB;QAC/B,WAAW,EAAE,oDAAoD;QACjE,WAAW,EAAE,CAAC,CAAC,MAAM,CAAC;YACpB,SAAS,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,QAAQ,EAAE,SAAS,EAAE,SAAS,EAAE,QAAQ,EAAE,SAAS,EAAE,UAAU,CAAC,CAAC;YACpF,aAAa,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE,CAAC,QAAQ,CAAC,wBAAwB,CAAC;YACvE,aAAa,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE,CAAC,QAAQ,CAAC,4BAA4B,CAAC;YAC3E,iBAAiB,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE;YACxC,QAAQ,EAAE,CAAC,CAAC,MAAM,CAAC;gBACjB,CAAC,EAAE,CAAC,CAAC,MAAM,EAAE;gBACb,CAAC,EAAE,CAAC,CAAC,MAAM,EAAE;gBACb,CAAC,EAAE,CAAC,CAAC,MAAM,EAAE;aACd,CAAC,CAAC,QAAQ,EAAE;YACb,QAAQ,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE;YAC/B,WAAW,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,QAAQ,EAAE,UAAU,CAAC,CAAC,CAAC,QAAQ,EAAE;YACtD,OAAO,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE,CAAC,QAAQ,CAAC,eAAe,CAAC;SACzD,CAAC;QACF,OAAO,EAAE,CAAC,IAAS,EAAE,EAAE;YACrB,MAAM,UAAU,GAA2B;gBACzC,MAAM,EAAE;;;;;;;;;;;;;;;;;;;;;;;yBAuBS,IAAI,CAAC,QAAQ,EAAE,CAAC,IAAI,CAAC;0BACpB,IAAI,CAAC,QAAQ,EAAE,CAAC,IAAI,CAAC;0BACrB,IAAI,CAAC,QAAQ,EAAE,CAAC,IAAI,CAAC;;;;;;;WAOpC,IAAI,CAAC,aAAa;;WAElB,IAAI,CAAC,iBAAiB,IAAI,EAAE;;UAE7B,IAAI,CAAC,QAAQ,EAAE,CAAC,IAAI,CAAC;UACrB,IAAI,CAAC,QAAQ,EAAE,CAAC,IAAI,CAAC;UACrB,IAAI,CAAC,QAAQ,EAAE,CAAC,IAAI,CAAC;;;;;;;;QAQvB;gBACA,OAAO,EAAE;;;;;;;;;;;;;oCAamB,IAAI,CAAC,aAAa;;;;;kCAKpB,IAAI,CAAC,aAAa,OAAO,IAAI,CAAC,iBAAiB,IAAI,EAAE;;;;;;;;;QAS/E;gBACA,OAAO,EAAE;;;;;;;;;;;;;oCAamB,IAAI,CAAC,aAAa;;MAEhD,IAAI,CAAC,WAAW,KAAK,QAAQ,CAAC,CAAC,CAAC;;;;;;UAM5B,IAAI,CAAC,QAAQ,IAAI,CAAC,KAAK,CAAC,IAAI,CAAC,OAAO,IAAI,EAAE,CAAC,GAAG,IAAI;;;0CAGlB,CAAC,CAAC,CAAC,EAAE;;MAEzC,IAAI,CAAC,WAAW,KAAK,UAAU,CAAC,CAAC,CAAC;;;;;;UAM9B,IAAI,CAAC,QAAQ,IAAI,CAAC,KAAK,CAAC,GAAG,IAAI,CAAC,EAAE,GAAG,CAAC,IAAI,CAAC,QAAQ,IAAI,CAAC,CAAC;kDACjB,CAAC,CAAC,CAAC,EAAE;;;;;;QAM/C;gBACA,OAAO,EAAE;;;;;;;;;;;;;;;qEAeoD,IAAI,CAAC,GAAG,EAAE;;;;wCAIvC,IAAI,CAAC,aAAa;;;;cAI5C,CAAC,IAAI,CAAC,QAAQ,EAAE,CAAC,IAAI,GAAG,CAAC,GAAG,IAAI;cAChC,CAAC,IAAI,CAAC,QAAQ,EAAE,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI;cAC9B,CAAC,IAAI,CAAC,QAAQ,EAAE,CAAC,IAAI,CAAC,CAAC,GAAG,IAAI;;;;;QAKpC;aACD,CAAC;YAEF,OAAO,UAAU,CAAC,IAAI,CAAC,SAAS,CAAC,IAAI,yBAAyB,CAAC;QACjE,CAAC;KACF;IAED;QACE,IAAI,EAAE,uBAAuB;QAC7B,WAAW,EAAE,oCAAoC;QACjD,WAAW,EAAE,CAAC,CAAC,MAAM,CAAC;YACpB,YAAY,EAAE,CAAC,CAAC,IAAI,CAAC;gBACnB,cAAc,EAAE,WAAW,EAAE,WAAW,EAAE,iBAAiB;gBAC3D,gBAAgB,EAAE,qBAAqB,EAAE,YAAY;aACtD,CAAC;YACF,UAAU,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,EAAE,CAAC,CAAC,QAAQ,EAAE,CAAC,QAAQ,CAAC,uBAAuB,CAAC;YAC5E,UAAU,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE,CAAC,QAAQ,CAAC,yBAAyB,CAAC;YACrE,oBAAoB,EAAE,CAAC,CAAC,OAAO,EAAE,CAAC,QAAQ,EAAE,CAAC,OAAO,CAAC,IAAI,CAAC;YAC1D,6BAA6B,EAAE,CAAC,CAAC,OAAO,EAAE,CAAC,QAAQ,EAAE,CAAC,OAAO,CAAC,KAAK,CAAC;SACrE,CAAC;QACF,OAAO,EAAE,CAAC,IAAS,EAAE,EAAE;YACrB,MAAM,QAAQ,GAA2B;gBACvC,YAAY,EAAE;;;;;;;;;;;;;;;;;;;;;gDAqB0B,IAAI,CAAC,6BAA6B,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO;gDACrD,IAAI,CAAC,oBAAoB,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,MAAM;;;;MAItF,IAAI,CAAC,UAAU,IAAI,IAAI,CAAC,UAAU,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC;;MAEhD,IAAI,CAAC,UAAU,CAAC,GAAG,CAAC,CAAC,IAAY,EAAE,EAAE,CAAC;oCACR,IAAI,8CAA8C,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE;;;;;;;;;;;;;;;;;;;;UAoB7F,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC;;;;yCAIa,IAAI,CAAC,UAAU;;;;;;;;;;;;;;;;;2CAiBb,IAAI,CAAC,UAAU,GAAG,CAAC,CAAC,CAAC,EAAE;;;;QAI1D;gBACA,eAAe,EAAE;;;;;;;;;;;;;;;;MAgBnB,IAAI,CAAC,UAAU,IAAI,IAAI,CAAC,UAAU,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC;;;MAGhD,IAAI,CAAC,UAAU,CAAC,GAAG,CAAC,CAAC,IAAY,EAAE,EAAE,CAAC;oCACR,IAAI,8CAA8C,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC;;;kCAG9D,CAAC,CAAC,CAAC,EAAE;;;;;;;;;;;;;;;;;MAiBjC,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC;;;;qCAIa,IAAI,CAAC,UAAU;;;;;;;;;;;;;;;;;;;;oCAoBhB,IAAI,CAAC,UAAU,GAAG,CAAC,CAAC,CAAC,EAAE;QACnD;gBACA,UAAU,EAAE;;;;;;;;;;;;;;;;;eAiBL,IAAI,CAAC,UAAU,IAAI,oBAAoB;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;UAyC5C,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC;yBACH,IAAI,CAAC,UAAU;mCACL,IAAI,CAAC,UAAU,GAAG,CAAC,CAAC,CAAC,EAAE;;QAElD;aACD,CAAC;YAEF,OAAO,QAAQ,CAAC,IAAI,CAAC,YAAY,CAAC,IAAI,6BAA6B,CAAC;QACtE,CAAC;KACF;IAED;QACE,IAAI,EAAE,6BAA6B;QACnC,WAAW,EAAE,mDAAmD;QAChE,WAAW,EAAE,CAAC,CAAC,MAAM,CAAC;YACpB,SAAS,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,QAAQ,EAAE,QAAQ,EAAE,UAAU,EAAE,QAAQ,EAAE,MAAM,CAAC,CAAC;YACrE,UAAU,EAAE,CAAC,CAAC,MAAM,EAAE;YACtB,YAAY,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE;YACnC,oBAAoB,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,EAAE,CAAC,CAAC,QAAQ,EAAE;YACpD,UAAU,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,MAAM,EAAE,CAAC,CAAC,QAAQ,EAAE;YAC3C,aAAa,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,EAAE,CAAC,CAAC,QAAQ,EAAE;SAC9C,CAAC;QACF,OAAO,EAAE,CAAC,IAAS,EAAE,EAAE;YACrB,OAAO;0BACa,IAAI,CAAC,SAAS;;;;;;;;;;;;;;;;;MAiBlC,IAAI,CAAC,SAAS,KAAK,QAAQ,CAAC,CAAC,CAAC;;;WAGzB,IAAI,CAAC,UAAU;;;;;WAKf,IAAI,CAAC,YAAY,IAAI,EAAE;;;;qCAIG,IAAI,CAAC,UAAU;;UAE1C,IAAI,CAAC,oBAAoB,IAAI,IAAI,CAAC,oBAAoB,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC;;UAEpE,IAAI,CAAC,oBAAoB,CAAC,GAAG,CAAC,CAAC,IAAY,EAAE,EAAE,CAAC;wCAClB,IAAI,8CAA8C,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC;6BACvE,CAAC,CAAC,CAAC,EAAE;;UAExB,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC;;UAElB,MAAM,CAAC,OAAO,CAAC,IAAI,CAAC,UAAU,IAAI,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,EAAE,KAAK,CAAC,EAAE,EAAE,CAAC;+CACvB,GAAG,4CAA4C,KAAK;qEAC9B,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE;;iCAErD,IAAI,CAAC,UAAU;WACrC,CAAC,CAAC,CAAC,EAAE;;MAEV,IAAI,CAAC,SAAS,KAAK,QAAQ,CAAC,CAAC,CAAC;;oDAEgB,IAAI,CAAC,UAAU;;;;qCAI9B,IAAI,CAAC,UAAU;;UAE1C,IAAI,CAAC,oBAAoB,IAAI,IAAI,CAAC,oBAAoB,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC;;UAEpE,IAAI,CAAC,oBAAoB,CAAC,GAAG,CAAC,CAAC,IAAY,EAAE,EAAE,CAAC;wCAClB,IAAI,8CAA8C,CAAC,CAAC,IAAI,CAAC,EAAE,CAAC;6BACvE,CAAC,CAAC,CAAC,EAAE;;iCAED,IAAI,CAAC,UAAU;;;WAGrC,CAAC,CAAC,CAAC,EAAE;;MAEV,IAAI,CAAC,SAAS,KAAK,QAAQ,CAAC,CAAC,CAAC;;0CAEM,IAAI,CAAC,UAAU;;;iCAGxB,IAAI,CAAC,UAAU;;;WAGrC,CAAC,CAAC,CAAC,EAAE;;;QAGR,CAAC;QACL,CAAC;KACF;CACF,CAAC"}