vb连接catia

二次开发技术 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