如何从CATVBA运行桌面已有VB脚本？尝试代码未成功

问题概述 #

尝试通过CATVBA遍历产品组件，逐个打开并执行外部CADXX.catvbs脚本，但多种执行方式均失败，已尝试的代码包括使用CATIA.SystemService.ExecuteFile、Shell调用wscript.exe以及CATIA.SystemService.ExecuteScript。

已尝试的代码 #

主遍历脚本

Sub Atuoamtion6()
    Dim CATIA As Object
    Set CATIA = CreateObject("CATIA.Application")

    Dim productDocument As Object
    Set productDocument = CATIA.ActiveDocument

    Dim product As Object
    Set product = productDocument.product

    Dim components As Object
    Set components = product.Products

    Dim component As Object
    Dim componentName As String

    Dim macroPath As String
    macroPath = "C:\Users\mvinot22\Desktop\PPM\CADXX.catvbs" ' Update with your actual macro path

    On Error GoTo HandleError ' Add error handling

    For Each component In components
        ' Get the name of the component
        componentName = component.Name

        ' Clear the selection
        productDocument.Selection.Clear

        ' Select the current component
        productDocument.Selection.Add component

        ' Open the component in a new window
        CATIA.StartCommand "Open in New Window"

        ' Execute the CATIA macro using ExecuteFile method
        CATIA.SystemService.ExecuteFile macroPath

        ' Close the new window
        CATIA.ActiveWindow.Close
    Next component

Exit Sub

HandleError:
    MsgBox "Error executing script: " & Err.Description
    Resume Next ' Continue to the next component or exit the loop
End Sub

其他尝试的执行代码片段

' Execute the CATVBS script using Shell
Shell "wscript.exe " & scriptPath

' Execute the CATVBS script
Dim scriptPathVariant As Variant
scriptPathVariant = CStr(scriptPath) ' Ensure it's a string
CATIA.SystemService.ExecuteScript scriptPathVariant, Null

常见问题排查与解决方案 #

• 脚本路径与权限问题
  确保macroPath中的路径无空格，若有空格需用双引号包裹：

  macroPath = """C:\Users\mvinot22\Desktop\PPM\CADXX.catvbs"""
  

  检查脚本所在文件夹的读写权限，确保CATIA进程有访问权限。

• ExecuteFile的使用限制
  CATIA.SystemService.ExecuteFile适用于执行CATIA认可的宏文件，但需注意：

  • 脚本需是合法的CATVBS格式，开头必须包含Sub CATMain()入口（CATIA宏默认执行入口）。
  • 执行时需确保目标组件窗口完全加载，可添加延迟等待：

    CATIA.StartCommand "Open in New Window"
    ' 等待窗口激活，可根据实际情况调整延迟时长
    Application.Wait Now + TimeValue("00:00:02")
    ' 确认当前激活文档是组件文档
    If Not CATIA.ActiveDocument.Type = "Part" And Not CATIA.ActiveDocument.Type = "Product" Then
        MsgBox "组件窗口打开失败"
        GoTo SkipComponent
    End If
    CATIA.SystemService.ExecuteFile macroPath
    SkipComponent:
    

• Shell调用的问题
  用wscript.exe执行CATVBS会脱离CATIA进程，无法直接操作CATIA对象，需改用cscript.exe，同时外部脚本要正确连接CATIA：

  Shell "cscript.exe //nologo " & macroPath, vbNormalFocus
  

  外部CATVBS脚本开头需添加连接代码：

  Dim CATIA
  Set CATIA = GetObject(, "CATIA.Application")
  If Err.Number <> 0 Then
      Set CATIA = CreateObject("CATIA.Application")
      CATIA.Visible = True
  End If
  
  Sub CATMain()
      ' 你的脚本逻辑
  End Sub
  

• ExecuteScript的正确用法
  ExecuteScript需传入脚本内容而非文件路径，若要执行外部文件，需先读取脚本内容再传入：

  Dim fs As Object, scriptContent As String
  Set fs = CreateObject("Scripting.FileSystemObject")
  scriptContent = fs.OpenTextFile(macroPath, 1).ReadAll
  CATIA.SystemService.ExecuteScript scriptContent, "VBScript"
  

• 错误处理优化
  原错误处理仅弹出基础提示，可增加组件名称、错误代码等详细信息，甚至写入日志：

  HandleError:
      Dim errorMsg As String
      errorMsg = "组件：" & componentName & vbCrLf & "错误代码：" & Err.Number & vbCrLf & "描述：" & Err.Description
      MsgBox errorMsg
      ' 可选：写入错误日志
      fs.OpenTextFile("C:\CATIA_Macro_Errors.log", 8, True).WriteLine Now & " | " & errorMsg
      Resume Next
  

内容的提问来源于stack exchange，提问作者Vino Kumar