用VC启动CATIA

有两种方法来操纵CATIA，楼上的朋友介绍过的方法：1.CAA C++ ;2.COM技术，组件服务器程序。下面给出实例代码：

1.COM技术

::CoInitialize(NULL);

ApplicationPtr myCatiaApp;
HRESULT Result=NOERROR;  
CLSID AppClsid;
IUnknown *pAppUnk=NULL;
Result = ::CLSIDFromProgID (L"CATIA.Application", &AppClsid);
  
Result = ::GetActiveObject (AppClsid, NULL, &pAppUnk);
if (FAILED (Result))
{
  if ((CoCreateInstance(AppClsid,NULL,CLSCTX_SERVER ,IID_IUnknown,(void**)&pAppUnk)) != S_OK)
   return;
}

Result = pAppUnk->QueryInterface (__uuidof(Application), (void **) &myCatiaApp);
pAppUnk->Release();
pAppUnk = NULL;
   
myCatiaApp.GetInterfacePtr();
myCatiaApp->put_Visible(TRUE);
//Cleanup COM...
CoUninitialize();

2.CAA C++环境

// Opens a session
  CATSession * pSampleSession = NULL;
  Create_Session("SampleSession",pSampleSession);

  // Opens a CATPart document and initializes the data
  CATDocument * pDoc= NULL;
  CATDocumentServices::New("CATPart",pDoc);
  if(NULL == pDoc) return 2;

  CATInit_var spInitOnDoc(pDoc);
  if(NULL_var == spInitOnDoc) return 2;

...................

...................

// Closes the session   
:elete_Session("SampleSession");

众里寻她千百度

众里寻她千百度

众里寻她千百度