vb连接catia

【文件属性】：

文件名称：vb连接catia

文件大小：3KB

文件格式：FRM

更新时间：2015-04-09 15:38:40

vb

二次开发技术 n Error Resume Next Set CATIA = GetObject(, "CATIA.Application") If Err.Number <> 0 Then Set CATIA = CreateObject("CATIA.Application") CATIA.Visible = True End If On Error GoTo 0