catia二次开发招标_CATIA二次开发

CATIA二次开发demo项目：打开Microsoft Visual Studio 新建项目双击击Form1开始我们的CATIA二次开发的第一次神奇旅行。

'声明CATIA COM对象

Dim CATIA As INFITF.Application

Try

'获取CATIA COM 对象

CATIA = GetObject(, "CATIA.Application")

Catch ex As Exception

'未打开CATI提示打开CATIA

MsgBox("请启动一个CATIA 应用程序。")

End

End Try

'声明对象【Doc】为【INFITF.Document】对象，并等CATIA文档

Dim Doc As INFITF.Document = CATIA.ActiveDocument

'获取当前文档的名字

Dim DocName As String = Doc.Name

'弹窗显示名字

MsgBox(Doc.Name)

运行结果成功弹出当前打开的CATIA文档名字，即我们控制着CATIA，可以为所欲为了。