CATIA VBA从目录实例化舱室报错：pspAppFactory获取失败求助

针对你在Set pspFactory = mainDoc.product.pspAppFactory行遇到的错误，可按以下步骤排查修复：

• 确认文档类型合法性
  mainDoc必须是Product类型文档，Part或Drawing文档无法调用Product属性。添加类型校验：

  If mainDoc.Type <> "Product" Then
      MsgBox "当前激活文档不是Product类型，请切换后重试"
      Exit Sub
  End If
  

• 引用PSP类型库
  pspAppFactory和PspGroup属于CATIA Process Specification and Publication（PSP）模块对象，需在VBA编辑器中手动引用对应库：

  1. 打开VBA编辑器，点击「工具」→「引用」
  2. 勾选CATIA Process Specification and Publication 5.x Object Library；若未找到，手动浏览CATIA安装目录intel_a\code\bin下的PSPInterfaces.tlb文件添加引用

• 修正对象调用路径
  显式声明Product变量，确保对象层级正确：

  Dim mainProduct As Product
  Set mainProduct = mainDoc.Product
  Set pspFactory = mainProduct.pspAppFactory
  

• 修复GetCompartment调用逻辑
  原代码中mainDoc.GetCompartment是错误用法，该方法属于pspAppFactory对象，正确调用方式：

  Set compartment = pspFactory.GetCompartment(mainProduct, compartmentID)
  

• 添加错误调试逻辑
  通过错误捕获获取具体错误信息，便于定位问题：

  On Error Resume Next
  Set pspFactory = mainProduct.pspAppFactory
  If Err.Number <> 0 Then
      MsgBox "获取pspAppFactory失败：" & Err.Description & " 错误代码：" & Err.Number
      Exit Sub
  End If
  On Error GoTo 0
  

修正后完整代码 #

Dim catia As Object
Set catia = GetObject(, "CATIA.Application")

' 校验激活文档类型
Dim mainDoc As Document
Set mainDoc = catia.ActiveDocument
If mainDoc.Type <> "Product" Then
    MsgBox "当前激活文档不是Product类型，请切换后重试"
    Exit Sub
End If

Dim mainProduct As Product
Set mainProduct = mainDoc.Product

' 定义目录组件ID
Dim compartmentID As String
compartmentID = "FICT-EQ-00002"

' 获取PSP工厂接口
Dim pspFactory As pspAppFactory
On Error Resume Next
Set pspFactory = mainProduct.pspAppFactory
If Err.Number <> 0 Then
    MsgBox "获取pspAppFactory失败：" & Err.Description & " 错误代码：" & Err.Number
    Exit Sub
End If
On Error GoTo 0

' 实例化组件到当前Product
Dim compartment As PspGroup
Set compartment = pspFactory.GetCompartment(mainProduct, compartmentID)

内容的提问来源于stack exchange，提问作者charan tej