solidworks-mcp-server 3.0.8 → 3.1.3

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

@@ -9,499 +9,546 @@ export const fileManagementVBATools = [
         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'
+                '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()
+            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
+                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"
+                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`,
-                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({
+            properties: z
+                .array(z.object({
                 name: z.string(),
                 value: z.string(),
                 type: z.enum(['text', 'date', 'number', 'yesno']).optional(),
-                configuration: z.string().optional()
-            })).optional(),
+                configuration: z.string().optional(),
+            }))
+                .optional(),
             sourcePath: z.string().optional(),
             templatePath: z.string().optional(),
-            exportFormat: z.enum(['excel', 'csv', 'xml']).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` : ''}
+            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'
-            ]),
+            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)
+            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
+            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',
@@ -509,147 +556,173 @@ End Function`;
         inputSchema: z.object({
             operation: z.enum(['create', 'update', 'export', 'import', 'link_excel']),
             tableName: z.string(),
-            parameters: z.array(z.object({
+            parameters: z
+                .array(z.object({
                 name: z.string(),
                 type: z.enum(['dimension', 'feature', 'component', 'custom_property']),
-                configurations: z.record(z.any()).optional()
-            })).optional(),
+                configurations: z.record(z.any()).optional(),
+            }))
+                .optional(),
             excelPath: z.string().optional(),
-            linkToExternal: z.boolean().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
+            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