A-A+
CATIA二次开发：利用VBA或VBS启动CATIA并获取应用程序对象
利用VBA对CATIA进行二次开发，第一步就是要获取CATIA的应用程序对象（Application Object）。
如果是在VBA内部，直接用GetObject函数即可，CATIA Automation 对象的类名为CATIA.Application，代码如下所示：
- Function GetCATIA() As Object
- Dim CATIA As Object
- Set CATIA = GetObject(, "CATIA.Application")
- If CATIA Is Nothing Then
- Set CATIA = CreateObject("CATIA.Application")
- CATIA.Visible = True
- End If
- Set GetCATIA = CATIA
- End Function
如果是在外部用VBS启动CATIA并获取CATIA Automation 对象，则可以使用Windows脚本宿主对象Wscript，加上容错考虑相应代码如下：
- Dim CATIA
- On Error Resume Next
- Set CATIA = Wscript.GetObject(,"CATIA.Application")
- If Err.Number <> 0 Then
- Set CATIA = Wscript.CreateObject("CATIA.Application")
- CATIA.Visible = True
- End If
- On Error GoTo 0
