CATIA Automation 编程初探

最近开始对 CATIA 进行一些自动化的开发，本来想找 CAA 来进行研究，可惜一直没时间和机会去找，暂时就利用 CATIA  Automation 来开发了。

 

由于利用 VB 或 VB.NET 将CATIA 脚本转化为程序确实方便，不过利用C++来操作更适合于我这种开发者。

 

方法有好多种，这里以画圆作为一个简单例子。

 

1 利用 IDispatch 接口来编程

 

 

        HRESULT hr;
        CLSID AppClsid;
        IDispatch *pApp;

        ::CoInitialize(NULL);
        
	//
	::CLSIDFromProgID (L"CATIA.Application", &AppClsid); //get the unique id of CATIA
        
		
	//
	hr = CoCreateInstance(AppClsid,NULL,CLSCTX_LOCAL_SERVER, IID_IDispatch, (void**)&pApp);


        VARIANT result, buffer;
        VariantInit(&result);


        VARIANT arg2;
        VariantInit(&arg2);
        arg2.vt = VT_BOOL;
        arg2.boolVal = TRUE;
        hr = AutoWrap(DISPATCH_PROPERTYPUT|DISPATCH_METHOD, &result, pApp, L"Visible", 1, arg2);


        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD, &result, pApp, L"Documents", 0);//here there is no argument, so we put 0
        buffer.vt = VT_DISPATCH;
        buffer.pdispVal = result.pdispVal;
        IDispatch *documents = buffer.pdispVal;

        VARIANT arg1;
        VariantInit(&arg1);
        arg1.vt = VT_BSTR;
        arg1.bstrVal = ::SysAllocString(L"Part");
        //VARIANT result, buffer;
        VariantInit(&result);
        hr = AutoWrap(DISPATCH_METHOD, &result, documents, L"Add", 1 , arg1);

        buf