solidworks-mcp-server 2.0.1 → 2.2.0

package/dist/tools/vba-file-management.js

@@ -0,0 +1,655 @@
+import { z } from 'zod';
+/**
+ * VBA Generation for File Management and PDM Operations
+ * Comprehensive file operations, batch processing, and PDM integration
+ */
+export const fileManagementVBATools = [
+    {
+        name: 'vba_batch_operations',
+        description: 'Generate VBA for batch file operations',
+        inputSchema: z.object({
+            operation: z.enum([
+                'open_all', 'save_all', 'export_all', 'convert_format',
+                'update_references', 'pack_and_go', 'rename_files'
+            ]),
+            sourcePath: z.string().describe('Source folder path'),
+            destinationPath: z.string().optional().describe('Destination folder path'),
+            fileFilter: z.string().optional().describe('File filter (e.g., "*.sldprt")'),
+            exportFormat: z.enum(['step', 'iges', 'stl', 'pdf', 'dwg', 'parasolid']).optional(),
+            includeSubfolders: z.boolean().optional().default(false),
+            options: z.record(z.any()).optional()
+        }),
+        handler: (args) => {
+            const operations = {
+                open_all: `
+Sub BatchOpenFiles()
+    Dim swApp As SldWorks.SldWorks
+    Dim swModel As SldWorks.ModelDoc2
+    Dim fso As Object
+    Dim folder As Object
+    Dim file As Object
+    Dim filePath As String
+    Dim errors As Long, warnings As Long
+    Dim processedCount As Integer
+    
+    Set swApp = Application.SldWorks
+    Set fso = CreateObject("Scripting.FileSystemObject")
+    Set folder = fso.GetFolder("${args.sourcePath}")
+    
+    processedCount = 0
+    
+    ' Process each file
+    For Each file In folder.Files
+        If file.Name Like "${args.fileFilter || '*.sld*'}" Then
+            filePath = file.Path
+            
+            ' Open file
+            Set swModel = swApp.OpenDoc6( _
+                filePath, _
+                GetDocumentType(filePath), _
+                swOpenDocOptions_e.swOpenDocOptions_Silent, _
+                "", errors, warnings)
+            
+            If Not swModel Is Nothing Then
+                processedCount = processedCount + 1
+                Debug.Print "Opened: " & file.Name
+            End If
+        End If
+    Next file
+    
+    ${args.includeSubfolders ? `
+    ' Process subfolders
+    Dim subfolder As Object
+    For Each subfolder In folder.SubFolders
+        ' Recursive call for subfolders
+        ' Add recursive processing logic here
+    Next subfolder` : ''}
+    
+    MsgBox "Batch open complete. Processed " & processedCount & " files"
+End Sub
+
+Function GetDocumentType(filePath As String) As Integer
+    Dim ext As String
+    ext = LCase(Right(filePath, 6))
+    
+    If InStr(ext, "sldprt") > 0 Then
+        GetDocumentType = swDocumentTypes_e.swDocPART
+    ElseIf InStr(ext, "sldasm") > 0 Then
+        GetDocumentType = swDocumentTypes_e.swDocASSEMBLY
+    ElseIf InStr(ext, "slddrw") > 0 Then
+        GetDocumentType = swDocumentTypes_e.swDocDRAWING
+    Else
+        GetDocumentType = swDocumentTypes_e.swDocNONE
+    End If
+End Function`,
+                export_all: `
+Sub BatchExportFiles()
+    Dim swApp As SldWorks.SldWorks
+    Dim swModel As SldWorks.ModelDoc2
+    Dim fso As Object
+    Dim folder As Object
+    Dim file As Object
+    Dim filePath As String
+    Dim exportPath As String
+    Dim errors As Long, warnings As Long
+    Dim exportCount As Integer
+    
+    Set swApp = Application.SldWorks
+    Set fso = CreateObject("Scripting.FileSystemObject")
+    Set folder = fso.GetFolder("${args.sourcePath}")
+    
+    ' Create destination folder if needed
+    If Not fso.FolderExists("${args.destinationPath || args.sourcePath + '\\Exported'}") Then
+        fso.CreateFolder("${args.destinationPath || args.sourcePath + '\\Exported'}")
+    End If
+    
+    exportCount = 0
+    
+    For Each file In folder.Files
+        If file.Name Like "${args.fileFilter || '*.sld*'}" Then
+            filePath = file.Path
+            
+            ' Open file
+            Set swModel = swApp.OpenDoc6( _
+                filePath, GetDocumentType(filePath), _
+                swOpenDocOptions_e.swOpenDocOptions_Silent, _
+                "", errors, warnings)
+            
+            If Not swModel Is Nothing Then
+                ' Generate export path
+                exportPath = "${args.destinationPath || args.sourcePath + '\\Exported'}\\" & _
+                    fso.GetBaseName(file.Name) & ".${args.exportFormat || 'step'}"
+                
+                ' Export based on format
+                ${args.exportFormat === 'step' ? `
+                swModel.Extension.SaveAs3 exportPath, 0, _
+                    swSaveAsOptions_e.swSaveAsOptions_Silent, _
+                    Nothing, Nothing, errors, warnings` : ''}
+                ${args.exportFormat === 'stl' ? `
+                swModel.Extension.SaveAs3 exportPath, 0, _
+                    swSaveAsOptions_e.swSaveAsOptions_Silent, _
+                    Nothing, Nothing, errors, warnings` : ''}
+                ${args.exportFormat === 'pdf' ? `
+                Dim swExportPDFData As SldWorks.ExportPdfData
+                Set swExportPDFData = swApp.GetExportFileData(swExportDataFileType_e.swExportPdfData)
+                swModel.Extension.SaveAs3 exportPath, 0, _
+                    swSaveAsOptions_e.swSaveAsOptions_Silent, _
+                    swExportPDFData, Nothing, errors, warnings` : ''}
+                
+                exportCount = exportCount + 1
+                Debug.Print "Exported: " & exportPath
+                
+                ' Close file
+                swApp.CloseDoc swModel.GetPathName
+            End If
+        End If
+    Next file
+    
+    MsgBox "Batch export complete. Exported " & exportCount & " files"
+End Sub`,
+                pack_and_go: `
+Sub BatchPackAndGo()
+    Dim swApp As SldWorks.SldWorks
+    Dim swModel As SldWorks.ModelDoc2
+    Dim swPackAndGo As SldWorks.PackAndGo
+    Dim fso As Object
+    Dim folder As Object
+    Dim file As Object
+    Dim filePath As String
+    Dim errors As Long, warnings As Long
+    Dim packCount As Integer
+    
+    Set swApp = Application.SldWorks
+    Set fso = CreateObject("Scripting.FileSystemObject")
+    Set folder = fso.GetFolder("${args.sourcePath}")
+    
+    packCount = 0
+    
+    For Each file In folder.Files
+        If file.Name Like "${args.fileFilter || '*.sldasm'}" Then
+            filePath = file.Path
+            
+            ' Open assembly
+            Set swModel = swApp.OpenDoc6( _
+                filePath, swDocumentTypes_e.swDocASSEMBLY, _
+                swOpenDocOptions_e.swOpenDocOptions_Silent, _
+                "", errors, warnings)
+            
+            If Not swModel Is Nothing Then
+                ' Get Pack and Go
+                Set swPackAndGo = swModel.Extension.GetPackAndGo
+                
+                ' Configure Pack and Go
+                swPackAndGo.IncludeDrawings = ${args.options?.includeDrawings ? 'True' : 'False'}
+                swPackAndGo.IncludeSimulationResults = ${args.options?.includeSimulation ? 'True' : 'False'}
+                swPackAndGo.IncludeToolboxComponents = ${args.options?.includeToolbox ? 'True' : 'False'}
+                swPackAndGo.FlattenToSingleFolder = ${args.options?.flattenFolders ? 'True' : 'False'}
+                
+                ' Set destination
+                Dim destFolder As String
+                destFolder = "${args.destinationPath || args.sourcePath + '\\PackAndGo'}\\" & _
+                    fso.GetBaseName(file.Name)
+                
+                If Not fso.FolderExists(destFolder) Then
+                    fso.CreateFolder(destFolder)
+                End If
+                
+                swPackAndGo.SetSaveToName True, destFolder
+                
+                ' Execute Pack and Go
+                Dim pgStatus As Long
+                pgStatus = swModel.Extension.SavePackAndGo(swPackAndGo)
+                
+                If pgStatus = 0 Then
+                    packCount = packCount + 1
+                    Debug.Print "Packed: " & file.Name & " to " & destFolder
+                End If
+                
+                swApp.CloseDoc swModel.GetPathName
+            End If
+        End If
+    Next file
+    
+    MsgBox "Pack and Go complete. Processed " & packCount & " assemblies"
+End Sub`
+            };
+            return operations[args.operation] || operations.open_all;
+        }
+    },
+    {
+        name: 'vba_custom_properties',
+        description: 'Generate VBA for managing custom properties',
+        inputSchema: z.object({
+            operation: z.enum(['add', 'modify', 'delete', 'copy', 'export', 'import']),
+            properties: z.array(z.object({
+                name: z.string(),
+                value: z.string(),
+                type: z.enum(['text', 'date', 'number', 'yesno']).optional(),
+                configuration: z.string().optional()
+            })).optional(),
+            sourcePath: z.string().optional(),
+            templatePath: z.string().optional(),
+            exportFormat: z.enum(['excel', 'csv', 'xml']).optional()
+        }),
+        handler: (args) => {
+            return `
+Sub ManageCustomProperties_${args.operation}()
+    Dim swApp As SldWorks.SldWorks
+    Dim swModel As SldWorks.ModelDoc2
+    Dim swCustPropMgr As SldWorks.CustomPropertyManager
+    Dim propType As Long
+    Dim propValue As String
+    Dim evalValue As String
+    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
+    
+    ${args.operation === 'add' || args.operation === 'modify' ? `
+    ' Add/Modify properties
+    ${args.properties ? args.properties.map((prop) => `
+    ' Get property manager for configuration
+    Set swCustPropMgr = swModel.Extension.CustomPropertyManager("${prop.configuration || ''}")
+    
+    ' Determine property type
+    ${prop.type === 'date' ? 'propType = swCustomInfoType_e.swCustomInfoDate' :
+                prop.type === 'number' ? 'propType = swCustomInfoType_e.swCustomInfoNumber' :
+                    prop.type === 'yesno' ? 'propType = swCustomInfoType_e.swCustomInfoYesOrNo' :
+                        'propType = swCustomInfoType_e.swCustomInfoText'}
+    
+    ' Add or modify property
+    bRet = swCustPropMgr.Add3( _
+        "${prop.name}", _
+        propType, _
+        "${prop.value}", _
+        swCustomPropertyAddOption_e.swCustomPropertyReplaceValue)
+    
+    If bRet Then
+        Debug.Print "${args.operation === 'add' ? 'Added' : 'Modified'} property: ${prop.name} = ${prop.value}"
+    End If`).join('\n    ') : ''}
+    
+    MsgBox "Properties ${args.operation === 'add' ? 'added' : 'modified'} successfully"` : ''}
+    
+    ${args.operation === 'delete' ? `
+    ' Delete properties
+    Set swCustPropMgr = swModel.Extension.CustomPropertyManager("")
+    
+    ${args.properties ? args.properties.map((prop) => `
+    bRet = swCustPropMgr.Delete2("${prop.name}")
+    If bRet Then
+        Debug.Print "Deleted property: ${prop.name}"
+    End If`).join('\n    ') : ''}
+    
+    MsgBox "Properties deleted"` : ''}
+    
+    ${args.operation === 'export' ? `
+    ' Export properties to Excel
+    Dim xlApp As Object
+    Dim xlBook As Object
+    Dim xlSheet As Object
+    Dim propNames As Variant
+    Dim i As Integer
+    
+    Set xlApp = CreateObject("Excel.Application")
+    Set xlBook = xlApp.Workbooks.Add
+    Set xlSheet = xlBook.Sheets(1)
+    xlApp.Visible = True
+    
+    ' Headers
+    xlSheet.Cells(1, 1).Value = "Property Name"
+    xlSheet.Cells(1, 2).Value = "Value"
+    xlSheet.Cells(1, 3).Value = "Evaluated Value"
+    xlSheet.Cells(1, 4).Value = "Type"
+    
+    ' Get all properties
+    Set swCustPropMgr = swModel.Extension.CustomPropertyManager("")
+    propNames = swCustPropMgr.GetNames
+    
+    If Not IsEmpty(propNames) Then
+        For i = 0 To UBound(propNames)
+            swCustPropMgr.Get4 propNames(i), False, propValue, evalValue
+            
+            xlSheet.Cells(i + 2, 1).Value = propNames(i)
+            xlSheet.Cells(i + 2, 2).Value = propValue
+            xlSheet.Cells(i + 2, 3).Value = evalValue
+            xlSheet.Cells(i + 2, 4).Value = swCustPropMgr.GetType2(propNames(i))
+        Next i
+    End If
+    
+    xlSheet.Columns.AutoFit
+    
+    ${args.sourcePath ? `
+    xlBook.SaveAs "${args.sourcePath}"
+    MsgBox "Properties exported to: ${args.sourcePath}"` : ''}` : ''}
+    
+    ${args.operation === 'copy' ? `
+    ' Copy properties from another file
+    Dim swSourceModel As SldWorks.ModelDoc2
+    Dim swSourceCustPropMgr As SldWorks.CustomPropertyManager
+    Dim errors As Long, warnings As Long
+    
+    ' Open source file
+    Set swSourceModel = swApp.OpenDoc6( _
+        "${args.sourcePath}", _
+        GetDocumentType("${args.sourcePath}"), _
+        swOpenDocOptions_e.swOpenDocOptions_Silent, _
+        "", errors, warnings)
+    
+    If Not swSourceModel Is Nothing Then
+        Set swSourceCustPropMgr = swSourceModel.Extension.CustomPropertyManager("")
+        Set swCustPropMgr = swModel.Extension.CustomPropertyManager("")
+        
+        propNames = swSourceCustPropMgr.GetNames
+        
+        If Not IsEmpty(propNames) Then
+            For i = 0 To UBound(propNames)
+                swSourceCustPropMgr.Get4 propNames(i), False, propValue, evalValue
+                propType = swSourceCustPropMgr.GetType2(propNames(i))
+                
+                swCustPropMgr.Add3 propNames(i), propType, propValue, _
+                    swCustomPropertyAddOption_e.swCustomPropertyReplaceValue
+                    
+                Debug.Print "Copied property: " & propNames(i)
+            Next i
+        End If
+        
+        swApp.CloseDoc swSourceModel.GetPathName
+        MsgBox "Properties copied from source file"
+    End If` : ''}
+End Sub`;
+        }
+    },
+    {
+        name: 'vba_pdm_operations',
+        description: 'Generate VBA for PDM vault operations',
+        inputSchema: z.object({
+            operation: z.enum([
+                'check_in', 'check_out', 'get_latest', 'add_file',
+                'change_state', 'search', 'copy_tree'
+            ]),
+            vaultName: z.string(),
+            filePath: z.string().optional(),
+            comment: z.string().optional(),
+            stateName: z.string().optional(),
+            searchCriteria: z.record(z.string()).optional(),
+            includeChildren: z.boolean().optional().default(true)
+        }),
+        handler: (args) => {
+            return `
+Sub PDMOperation_${args.operation}()
+    Dim pdmVault As Object ' EdmVault5
+    Dim pdmFile As Object ' IEdmFile5
+    Dim pdmFolder As Object ' IEdmFolder5
+    Dim pdmSearch As Object ' IEdmSearch5
+    Dim pdmSearchResult As Object ' IEdmSearchResult5
+    Dim bRet As Boolean
+    
+    ' Create PDM vault object
+    Set pdmVault = CreateObject("ConisioLib.EdmVault")
+    
+    ' Login to vault
+    pdmVault.LoginAuto "${args.vaultName}", 0
+    
+    If Not pdmVault.IsLoggedIn Then
+        MsgBox "Failed to login to PDM vault: ${args.vaultName}"
+        Exit Sub
+    End If
+    
+    ${args.operation === 'check_out' ? `
+    ' Check out file
+    Set pdmFolder = pdmVault.GetFolderFromPath(Left("${args.filePath}", InStrRev("${args.filePath}", "\\")))
+    Set pdmFile = pdmFolder.GetFile(Mid("${args.filePath}", InStrRev("${args.filePath}", "\\") + 1))
+    
+    If Not pdmFile Is Nothing Then
+        ' Check if already checked out
+        If Not pdmFile.IsLocked Then
+            pdmFile.LockFile pdmFolder.ID, 0
+            MsgBox "File checked out: " & pdmFile.Name
+        Else
+            MsgBox "File is already checked out"
+        End If
+    Else
+        MsgBox "File not found in vault"
+    End If` : ''}
+    
+    ${args.operation === 'check_in' ? `
+    ' Check in file
+    Set pdmFolder = pdmVault.GetFolderFromPath(Left("${args.filePath}", InStrRev("${args.filePath}", "\\")))
+    Set pdmFile = pdmFolder.GetFile(Mid("${args.filePath}", InStrRev("${args.filePath}", "\\") + 1))
+    
+    If Not pdmFile Is Nothing Then
+        If pdmFile.IsLocked Then
+            ' Check in with comment
+            pdmFile.UnlockFile 0, "${args.comment || 'Checked in via VBA'}", _
+                ${args.includeChildren ? '1' : '0'}
+            MsgBox "File checked in: " & pdmFile.Name
+        Else
+            MsgBox "File is not checked out"
+        End If
+    End If` : ''}
+    
+    ${args.operation === 'get_latest' ? `
+    ' Get latest version
+    Set pdmFolder = pdmVault.GetFolderFromPath(Left("${args.filePath}", InStrRev("${args.filePath}", "\\")))
+    Set pdmFile = pdmFolder.GetFile(Mid("${args.filePath}", InStrRev("${args.filePath}", "\\") + 1))
+    
+    If Not pdmFile Is Nothing Then
+        pdmFile.GetFileCopy 0
+        MsgBox "Got latest version of: " & pdmFile.Name
+    End If` : ''}
+    
+    ${args.operation === 'change_state' ? `
+    ' Change workflow state
+    Set pdmFolder = pdmVault.GetFolderFromPath(Left("${args.filePath}", InStrRev("${args.filePath}", "\\")))
+    Set pdmFile = pdmFolder.GetFile(Mid("${args.filePath}", InStrRev("${args.filePath}", "\\") + 1))
+    
+    If Not pdmFile Is Nothing Then
+        Dim pdmStateMgr As Object
+        Set pdmStateMgr = pdmFile.GetNextState("${args.stateName}")
+        
+        If Not pdmStateMgr Is Nothing Then
+            pdmFile.ChangeState pdmStateMgr.ID, pdmFolder.ID, _
+                "${args.comment || 'State changed via VBA'}", 0, 0
+            MsgBox "State changed to: ${args.stateName}"
+        Else
+            MsgBox "State not found: ${args.stateName}"
+        End If
+    End If` : ''}
+    
+    ${args.operation === 'search' ? `
+    ' Search vault
+    Set pdmSearch = pdmVault.CreateSearch
+    
+    ' Set search criteria
+    ${args.searchCriteria ? Object.entries(args.searchCriteria).map(([key, value]) => `
+    pdmSearch.SetToken EdmSearchToken_e.${key}, "${value}"`).join('\n    ') : ''}
+    
+    ' Execute search
+    Set pdmSearchResult = pdmSearch.GetFirstResult
+    
+    Dim results As String
+    results = "Search Results:" & vbCrLf
+    
+    While Not pdmSearchResult Is Nothing
+        results = results & pdmSearchResult.Path & vbCrLf
+        Set pdmSearchResult = pdmSearch.GetNextResult
+    Wend
+    
+    MsgBox results` : ''}
+    
+    ' Logout
+    pdmVault.Logout
+End Sub
+
+' Helper function for file type
+Private Function GetDocumentType(filePath As String) As Integer
+    Dim ext As String
+    ext = LCase(Right(filePath, 6))
+    
+    If InStr(ext, "sldprt") > 0 Then
+        GetDocumentType = 1 ' Part
+    ElseIf InStr(ext, "sldasm") > 0 Then
+        GetDocumentType = 2 ' Assembly
+    ElseIf InStr(ext, "slddrw") > 0 Then
+        GetDocumentType = 3 ' Drawing
+    Else
+        GetDocumentType = 0 ' Unknown
+    End If
+End Function`;
+        }
+    },
+    {
+        name: 'vba_design_table',
+        description: 'Generate VBA for creating and managing design tables',
+        inputSchema: z.object({
+            operation: z.enum(['create', 'update', 'export', 'import', 'link_excel']),
+            tableName: z.string(),
+            parameters: z.array(z.object({
+                name: z.string(),
+                type: z.enum(['dimension', 'feature', 'component', 'custom_property']),
+                configurations: z.record(z.any()).optional()
+            })).optional(),
+            excelPath: z.string().optional(),
+            linkToExternal: z.boolean().optional()
+        }),
+        handler: (args) => {
+            return `
+Sub ManageDesignTable_${args.operation}()
+    Dim swApp As SldWorks.SldWorks
+    Dim swModel As SldWorks.ModelDoc2
+    Dim swDesignTable As SldWorks.DesignTable
+    Dim swFeature As SldWorks.Feature
+    Dim xlApp As Object
+    Dim xlBook As Object
+    Dim xlSheet As Object
+    Dim i As Integer, j As Integer
+    
+    Set swApp = Application.SldWorks
+    Set swModel = swApp.ActiveDoc
+    
+    If swModel Is Nothing Then
+        MsgBox "No active document"
+        Exit Sub
+    End If
+    
+    ${args.operation === 'create' ? `
+    ' Create design table
+    Set xlApp = CreateObject("Excel.Application")
+    Set xlBook = xlApp.Workbooks.Add
+    Set xlSheet = xlBook.Sheets(1)
+    
+    ' Set up headers
+    xlSheet.Cells(1, 1).Value = "Configuration"
+    
+    ${args.parameters ? args.parameters.map((param, i) => `
+    ' Add parameter header
+    xlSheet.Cells(1, ${i + 2}).Value = "${param.name}@${param.type === 'dimension' ? 'Sketch1' : param.type === 'feature' ? 'Feature' : 'CustomProperty'}"
+    
+    ' Add configuration values
+    ${param.configurations ? Object.entries(param.configurations).map(([config, value], j) => `
+    xlSheet.Cells(${j + 2}, 1).Value = "${config}"
+    xlSheet.Cells(${j + 2}, ${i + 2}).Value = "${value}"`).join('\n    ') : ''}`).join('\n    ') : ''}
+    
+    ' Save Excel file
+    Dim tempPath As String
+    tempPath = Environ("TEMP") & "\\DesignTable_${args.tableName}.xlsx"
+    xlBook.SaveAs tempPath
+    xlApp.Quit
+    
+    ' Insert design table
+    Set swDesignTable = swModel.InsertDesignTable( _
+        ${args.linkToExternal ? 'True' : 'False'}, _
+        ${args.linkToExternal ? 'True' : 'False'}, _
+        ${args.linkToExternal ? '2' : '1'}, _
+        tempPath)
+    
+    If Not swDesignTable Is Nothing Then
+        MsgBox "Design table created: ${args.tableName}"
+    End If` : ''}
+    
+    ${args.operation === 'update' ? `
+    ' Update existing design table
+    Set swDesignTable = swModel.GetDesignTable
+    
+    If Not swDesignTable Is Nothing Then
+        ' Edit design table
+        swDesignTable.Edit
+        
+        ' Get Excel object
+        Set xlApp = GetObject(, "Excel.Application")
+        Set xlBook = xlApp.ActiveWorkbook
+        Set xlSheet = xlBook.ActiveSheet
+        
+        ' Update values
+        ${args.parameters ? args.parameters.map((param) => `
+        ' Find and update parameter column
+        For j = 1 To xlSheet.UsedRange.Columns.Count
+            If xlSheet.Cells(1, j).Value = "${param.name}@Sketch1" Then
+                ${param.configurations ? Object.entries(param.configurations).map(([config, value], i) => `
+                ' Update configuration value
+                For i = 2 To xlSheet.UsedRange.Rows.Count
+                    If xlSheet.Cells(i, 1).Value = "${config}" Then
+                        xlSheet.Cells(i, j).Value = "${value}"
+                    End If
+                Next i`).join('\n                ') : ''}
+            End If
+        Next j`).join('\n        ') : ''}
+        
+        ' Close design table
+        swDesignTable.UpdateModel swDesignTableUpdateOptions_e.swUpdateDesignTableAll
+        
+        MsgBox "Design table updated"
+    Else
+        MsgBox "No design table found"
+    End If` : ''}
+    
+    ${args.operation === 'export' ? `
+    ' Export design table
+    Set swDesignTable = swModel.GetDesignTable
+    
+    If Not swDesignTable Is Nothing Then
+        ' Edit to access Excel
+        swDesignTable.Edit
+        
+        Set xlApp = GetObject(, "Excel.Application")
+        Set xlBook = xlApp.ActiveWorkbook
+        
+        ' Save to new location
+        xlBook.SaveAs "${args.excelPath || 'C:\\Temp\\ExportedDesignTable.xlsx'}"
+        
+        ' Close design table
+        swDesignTable.UpdateModel swDesignTableUpdateOptions_e.swUpdateDesignTableAll
+        
+        MsgBox "Design table exported to: ${args.excelPath || 'C:\\Temp\\ExportedDesignTable.xlsx'}"
+    End If` : ''}
+    
+    ${args.operation === 'link_excel' ? `
+    ' Link to external Excel file
+    Set swDesignTable = swModel.GetDesignTable
+    
+    If Not swDesignTable Is Nothing Then
+        ' Delete existing table
+        Set swFeature = swDesignTable
+        swFeature.Select2 False, 0
+        swModel.EditDelete
+    End If
+    
+    ' Insert linked design table
+    Set swDesignTable = swModel.InsertDesignTable( _
+        True, True, 2, "${args.excelPath}")
+    
+    If Not swDesignTable Is Nothing Then
+        MsgBox "Design table linked to: ${args.excelPath}"
+    End If` : ''}
+    
+    swModel.EditRebuild3
+End Sub`;
+        }
+    }
+];
+//# sourceMappingURL=vba-file-management.js.map

package/dist/tools/vba-file-management.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"vba-file-management.js","sourceRoot":"","sources":["../../src/tools/vba-file-management.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,CAAC,EAAE,MAAM,KAAK,CAAC;AAGxB;;;GAGG;AAEH,MAAM,CAAC,MAAM,sBAAsB,GAAG;IACpC;QACE,IAAI,EAAE,sBAAsB;QAC5B,WAAW,EAAE,wCAAwC;QACrD,WAAW,EAAE,CAAC,CAAC,MAAM,CAAC;YACpB,SAAS,EAAE,CAAC,CAAC,IAAI,CAAC;gBAChB,UAAU,EAAE,UAAU,EAAE,YAAY,EAAE,gBAAgB;gBACtD,mBAAmB,EAAE,aAAa,EAAE,cAAc;aACnD,CAAC;YACF,UAAU,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,CAAC,oBAAoB,CAAC;YACrD,eAAe,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE,CAAC,QAAQ,CAAC,yBAAyB,CAAC;YAC1E,UAAU,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE,CAAC,QAAQ,CAAC,gCAAgC,CAAC;YAC5E,YAAY,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,MAAM,EAAE,KAAK,EAAE,KAAK,EAAE,KAAK,EAAE,WAAW,CAAC,CAAC,CAAC,QAAQ,EAAE;YACnF,iBAAiB,EAAE,CAAC,CAAC,OAAO,EAAE,CAAC,QAAQ,EAAE,CAAC,OAAO,CAAC,KAAK,CAAC;YACxD,OAAO,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,QAAQ,EAAE;SACtC,CAAC;QACF,OAAO,EAAE,CAAC,IAAS,EAAE,EAAE;YACrB,MAAM,UAAU,GAA2B;gBACzC,QAAQ,EAAE;;;;;;;;;;;;;kCAagB,IAAI,CAAC,UAAU;;;;;;6BAMpB,IAAI,CAAC,UAAU,IAAI,QAAQ;;;;;;;;;;;;;;;;;MAiBlD,IAAI,CAAC,iBAAiB,CAAC,CAAC,CAAC;;;;;;mBAMZ,CAAC,CAAC,CAAC,EAAE;;;;;;;;;;;;;;;;;;aAkBX;gBACL,UAAU,EAAE;;;;;;;;;;;;;;kCAcc,IAAI,CAAC,UAAU;;;+BAGlB,IAAI,CAAC,eAAe,IAAI,IAAI,CAAC,UAAU,GAAG,YAAY;4BACzD,IAAI,CAAC,eAAe,IAAI,IAAI,CAAC,UAAU,GAAG,YAAY;;;;;;6BAMrD,IAAI,CAAC,UAAU,IAAI,QAAQ;;;;;;;;;;;gCAWxB,IAAI,CAAC,eAAe,IAAI,IAAI,CAAC,UAAU,GAAG,YAAY;qDACjC,IAAI,CAAC,YAAY,IAAI,MAAM;;;kBAG9D,IAAI,CAAC,YAAY,KAAK,MAAM,CAAC,CAAC,CAAC;;;uDAGM,CAAC,CAAC,CAAC,EAAE;kBAC1C,IAAI,CAAC,YAAY,KAAK,KAAK,CAAC,CAAC,CAAC;;;uDAGO,CAAC,CAAC,CAAC,EAAE;kBAC1C,IAAI,CAAC,YAAY,KAAK,KAAK,CAAC,CAAC,CAAC;;;;;+DAKe,CAAC,CAAC,CAAC,EAAE;;;;;;;;;;;;QAY5D;gBACA,WAAW,EAAE;;;;;;;;;;;;;;kCAca,IAAI,CAAC,UAAU;;;;;6BAKpB,IAAI,CAAC,UAAU,IAAI,UAAU;;;;;;;;;;;;;;gDAcV,IAAI,CAAC,OAAO,EAAE,eAAe,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO;yDACvC,IAAI,CAAC,OAAO,EAAE,iBAAiB,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO;yDAClD,IAAI,CAAC,OAAO,EAAE,cAAc,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO;sDAClD,IAAI,CAAC,OAAO,EAAE,cAAc,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO;;;;gCAIrE,IAAI,CAAC,eAAe,IAAI,IAAI,CAAC,UAAU,GAAG,aAAa;;;;;;;;;;;;;;;;;;;;;;;;QAwB/E;aACD,CAAC;YAEF,OAAO,UAAU,CAAC,IAAI,CAAC,SAAS,CAAC,IAAI,UAAU,CAAC,QAAQ,CAAC;QAC3D,CAAC;KACF;IAED;QACE,IAAI,EAAE,uBAAuB;QAC7B,WAAW,EAAE,6CAA6C;QAC1D,WAAW,EAAE,CAAC,CAAC,MAAM,CAAC;YACpB,SAAS,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,KAAK,EAAE,QAAQ,EAAE,QAAQ,EAAE,MAAM,EAAE,QAAQ,EAAE,QAAQ,CAAC,CAAC;YAC1E,UAAU,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC;gBAC3B,IAAI,EAAE,CAAC,CAAC,MAAM,EAAE;gBAChB,KAAK,EAAE,CAAC,CAAC,MAAM,EAAE;gBACjB,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,MAAM,EAAE,MAAM,EAAE,QAAQ,EAAE,OAAO,CAAC,CAAC,CAAC,QAAQ,EAAE;gBAC5D,aAAa,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE;aACrC,CAAC,CAAC,CAAC,QAAQ,EAAE;YACd,UAAU,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE;YACjC,YAAY,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE;YACnC,YAAY,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,OAAO,EAAE,KAAK,EAAE,KAAK,CAAC,CAAC,CAAC,QAAQ,EAAE;SACzD,CAAC;QACF,OAAO,EAAE,CAAC,IAAS,EAAE,EAAE;YACrB,OAAO;6BACgB,IAAI,CAAC,SAAS;;;;;;;;;;;;;;;;;MAiBrC,IAAI,CAAC,SAAS,KAAK,KAAK,IAAI,IAAI,CAAC,SAAS,KAAK,QAAQ,CAAC,CAAC,CAAC;;MAE1D,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,IAAI,CAAC,UAAU,CAAC,GAAG,CAAC,CAAC,IAAS,EAAE,EAAE,CAAC;;mEAEQ,IAAI,CAAC,aAAa,IAAI,EAAE;;;MAGrF,IAAI,CAAC,IAAI,KAAK,MAAM,CAAC,CAAC,CAAC,gDAAgD,CAAC,CAAC;gBACzE,IAAI,CAAC,IAAI,KAAK,QAAQ,CAAC,CAAC,CAAC,kDAAkD,CAAC,CAAC;oBAC7E,IAAI,CAAC,IAAI,KAAK,OAAO,CAAC,CAAC,CAAC,mDAAmD,CAAC,CAAC;wBAC7E,gDAAgD;;;;WAI3C,IAAI,CAAC,IAAI;;WAET,IAAI,CAAC,KAAK;;;;uBAIE,IAAI,CAAC,SAAS,KAAK,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,UAAU,cAAc,IAAI,CAAC,IAAI,MAAM,IAAI,CAAC,KAAK;WAClG,CAAC,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,EAAE;;yBAEP,IAAI,CAAC,SAAS,KAAK,KAAK,CAAC,CAAC,CAAC,OAAO,CAAC,CAAC,CAAC,UAAU,gBAAgB,CAAC,CAAC,CAAC,EAAE;;MAEvF,IAAI,CAAC,SAAS,KAAK,QAAQ,CAAC,CAAC,CAAC;;;;MAI9B,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,IAAI,CAAC,UAAU,CAAC,GAAG,CAAC,CAAC,IAAS,EAAE,EAAE,CAAC;oCACvB,IAAI,CAAC,IAAI;;yCAEJ,IAAI,CAAC,IAAI;WACvC,CAAC,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,EAAE;;gCAEA,CAAC,CAAC,CAAC,EAAE;;MAE/B,IAAI,CAAC,SAAS,KAAK,QAAQ,CAAC,CAAC,CAAC;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;MAoC9B,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC;qBACH,IAAI,CAAC,UAAU;sCACE,IAAI,CAAC,UAAU,GAAG,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,EAAE;;MAE9D,IAAI,CAAC,SAAS,KAAK,MAAM,CAAC,CAAC,CAAC;;;;;;;;WAQvB,IAAI,CAAC,UAAU;2BACC,IAAI,CAAC,UAAU;;;;;;;;;;;;;;;;;;;;;;;;WAwB/B,CAAC,CAAC,CAAC,EAAE;QACR,CAAC;QACL,CAAC;KACF;IAED;QACE,IAAI,EAAE,oBAAoB;QAC1B,WAAW,EAAE,uCAAuC;QACpD,WAAW,EAAE,CAAC,CAAC,MAAM,CAAC;YACpB,SAAS,EAAE,CAAC,CAAC,IAAI,CAAC;gBAChB,UAAU,EAAE,WAAW,EAAE,YAAY,EAAE,UAAU;gBACjD,cAAc,EAAE,QAAQ,EAAE,WAAW;aACtC,CAAC;YACF,SAAS,EAAE,CAAC,CAAC,MAAM,EAAE;YACrB,QAAQ,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE;YAC/B,OAAO,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE;YAC9B,SAAS,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE;YAChC,cAAc,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,MAAM,EAAE,CAAC,CAAC,QAAQ,EAAE;YAC/C,eAAe,EAAE,CAAC,CAAC,OAAO,EAAE,CAAC,QAAQ,EAAE,CAAC,OAAO,CAAC,IAAI,CAAC;SACtD,CAAC;QACF,OAAO,EAAE,CAAC,IAAS,EAAE,EAAE;YACrB,OAAO;mBACM,IAAI,CAAC,SAAS;;;;;;;;;;;;0BAYP,IAAI,CAAC,SAAS;;;gDAGQ,IAAI,CAAC,SAAS;;;;MAIxD,IAAI,CAAC,SAAS,KAAK,WAAW,CAAC,CAAC,CAAC;;uDAEgB,IAAI,CAAC,QAAQ,gBAAgB,IAAI,CAAC,QAAQ;2CACtD,IAAI,CAAC,QAAQ,gBAAgB,IAAI,CAAC,QAAQ;;;;;;;;;;;;WAY1E,CAAC,CAAC,CAAC,EAAE;;MAEV,IAAI,CAAC,SAAS,KAAK,UAAU,CAAC,CAAC,CAAC;;uDAEiB,IAAI,CAAC,QAAQ,gBAAgB,IAAI,CAAC,QAAQ;2CACtD,IAAI,CAAC,QAAQ,gBAAgB,IAAI,CAAC,QAAQ;;;;;qCAKhD,IAAI,CAAC,OAAO,IAAI,oBAAoB;kBACvD,IAAI,CAAC,eAAe,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG;;;;;WAKvC,CAAC,CAAC,CAAC,EAAE;;MAEV,IAAI,CAAC,SAAS,KAAK,YAAY,CAAC,CAAC,CAAC;;uDAEe,IAAI,CAAC,QAAQ,gBAAgB,IAAI,CAAC,QAAQ;2CACtD,IAAI,CAAC,QAAQ,gBAAgB,IAAI,CAAC,QAAQ;;;;;WAK1E,CAAC,CAAC,CAAC,EAAE;;MAEV,IAAI,CAAC,SAAS,KAAK,cAAc,CAAC,CAAC,CAAC;;uDAEa,IAAI,CAAC,QAAQ,gBAAgB,IAAI,CAAC,QAAQ;2CACtD,IAAI,CAAC,QAAQ,gBAAgB,IAAI,CAAC,QAAQ;;;;kDAInC,IAAI,CAAC,SAAS;;;;mBAI7C,IAAI,CAAC,OAAO,IAAI,uBAAuB;wCAClB,IAAI,CAAC,SAAS;;uCAEf,IAAI,CAAC,SAAS;;WAE1C,CAAC,CAAC,CAAC,EAAE;;MAEV,IAAI,CAAC,SAAS,KAAK,QAAQ,CAAC,CAAC,CAAC;;;;;MAK9B,IAAI,CAAC,cAAc,CAAC,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,IAAI,CAAC,cAAc,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,EAAE,KAAK,CAAC,EAAE,EAAE,CAAC;0CAC5C,GAAG,MAAM,KAAK,GAAG,CAAC,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,EAAE;;;;;;;;;;;;;mBAa7D,CAAC,CAAC,CAAC,EAAE;;;;;;;;;;;;;;;;;;;;aAoBX,CAAC;QACV,CAAC;KACF;IAED;QACE,IAAI,EAAE,kBAAkB;QACxB,WAAW,EAAE,sDAAsD;QACnE,WAAW,EAAE,CAAC,CAAC,MAAM,CAAC;YACpB,SAAS,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,QAAQ,EAAE,QAAQ,EAAE,QAAQ,EAAE,QAAQ,EAAE,YAAY,CAAC,CAAC;YACzE,SAAS,EAAE,CAAC,CAAC,MAAM,EAAE;YACrB,UAAU,EAAE,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,MAAM,CAAC;gBAC3B,IAAI,EAAE,CAAC,CAAC,MAAM,EAAE;gBAChB,IAAI,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,WAAW,EAAE,SAAS,EAAE,WAAW,EAAE,iBAAiB,CAAC,CAAC;gBACtE,cAAc,EAAE,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,QAAQ,EAAE;aAC7C,CAAC,CAAC,CAAC,QAAQ,EAAE;YACd,SAAS,EAAE,CAAC,CAAC,MAAM,EAAE,CAAC,QAAQ,EAAE;YAChC,cAAc,EAAE,CAAC,CAAC,OAAO,EAAE,CAAC,QAAQ,EAAE;SACvC,CAAC;QACF,OAAO,EAAE,CAAC,IAAS,EAAE,EAAE;YACrB,OAAO;wBACW,IAAI,CAAC,SAAS;;;;;;;;;;;;;;;;;;MAkBhC,IAAI,CAAC,SAAS,KAAK,QAAQ,CAAC,CAAC,CAAC;;;;;;;;;MAS9B,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,IAAI,CAAC,UAAU,CAAC,GAAG,CAAC,CAAC,KAAU,EAAE,CAAS,EAAE,EAAE,CAAC;;uBAEhD,CAAC,GAAG,CAAC,cAAc,KAAK,CAAC,IAAI,IAAI,KAAK,CAAC,IAAI,KAAK,WAAW,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,KAAK,CAAC,IAAI,KAAK,SAAS,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,gBAAgB;;;MAGlJ,KAAK,CAAC,cAAc,CAAC,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,KAAK,CAAC,cAAc,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,MAAM,EAAE,KAAK,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;oBAC1E,CAAC,GAAG,CAAC,iBAAiB,MAAM;oBAC5B,CAAC,GAAG,CAAC,KAAK,CAAC,GAAG,CAAC,cAAc,KAAK,GAAG,CAAC,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,CAAC,EAAE;;;;kDAInD,IAAI,CAAC,SAAS;;;;;;UAMtD,IAAI,CAAC,cAAc,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO;UACtC,IAAI,CAAC,cAAc,CAAC,CAAC,CAAC,MAAM,CAAC,CAAC,CAAC,OAAO;UACtC,IAAI,CAAC,cAAc,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG;;;;wCAID,IAAI,CAAC,SAAS;WAC3C,CAAC,CAAC,CAAC,EAAE;;MAEV,IAAI,CAAC,SAAS,KAAK,QAAQ,CAAC,CAAC,CAAC;;;;;;;;;;;;;;UAc1B,IAAI,CAAC,UAAU,CAAC,CAAC,CAAC,IAAI,CAAC,UAAU,CAAC,GAAG,CAAC,CAAC,KAAU,EAAE,EAAE,CAAC;;;8CAGlB,KAAK,CAAC,IAAI;kBACtC,KAAK,CAAC,cAAc,CAAC,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,KAAK,CAAC,cAAc,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,MAAM,EAAE,KAAK,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;;;sDAGpD,MAAM;uDACL,KAAK;;uBAErC,CAAC,CAAC,IAAI,CAAC,oBAAoB,CAAC,CAAC,CAAC,CAAC,EAAE;;eAEzC,CAAC,CAAC,IAAI,CAAC,YAAY,CAAC,CAAC,CAAC,CAAC,EAAE;;;;;;;;WAQ7B,CAAC,CAAC,CAAC,EAAE;;MAEV,IAAI,CAAC,SAAS,KAAK,QAAQ,CAAC,CAAC,CAAC;;;;;;;;;;;;yBAYX,IAAI,CAAC,SAAS,IAAI,oCAAoC;;;;;4CAKnC,IAAI,CAAC,SAAS,IAAI,oCAAoC;WACvF,CAAC,CAAC,CAAC,EAAE;;MAEV,IAAI,CAAC,SAAS,KAAK,YAAY,CAAC,CAAC,CAAC;;;;;;;;;;;;;0BAad,IAAI,CAAC,SAAS;;;0CAGE,IAAI,CAAC,SAAS;WAC7C,CAAC,CAAC,CAAC,EAAE;;;QAGR,CAAC;QACL,CAAC;KACF;CACF,CAAC"}