CATIA Automation 编程初探

来源：互联网发布：算法 benchmark 编辑：程序博客网时间：2024/05/02 01:14

最近开始对 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);        buffer.vt = VT_DISPATCH;        buffer.pdispVal = result.pdispVal;        IDispatch *partDocument = buffer.pdispVal;        //        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD, &result, partDocument, L"Part", 0);        buffer.vt = VT_DISPATCH;        buffer.pdispVal = result.pdispVal;        IDispatch *part = buffer.pdispVal;        //        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD, &result, part, L"Bodies", 0);        buffer.vt = VT_DISPATCH;        buffer.pdispVal = result.pdispVal;        IDispatch *bodies = buffer.pdispVal;        //        VARIANT arg;        VariantInit(&arg);        arg.vt = VT_BSTR;        arg.bstrVal = ::SysAllocString(L"PartBody");        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD, &result, bodies, L"Item", 1, arg);        buffer.vt = VT_DISPATCH;        buffer.pdispVal = result.pdispVal;        IDispatch *body = buffer.pdispVal;        //        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD, &result, body, L"Sketches", 0);        buffer.vt = VT_DISPATCH;        buffer.pdispVal = result.pdispVal;        IDispatch *sketches1 = buffer.pdispVal;        //        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD, &result, part, L"OriginElements", 0);        buffer.vt = VT_DISPATCH;        buffer.pdispVal = result.pdispVal;        IDispatch *originElements = buffer.pdispVal;        //        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD, &result, originElements, L"PlaneXY", 0);        buffer.vt = VT_DISPATCH;        buffer.pdispVal = result.pdispVal;        IDispatch *reference1 = buffer.pdispVal;        //        VARIANT arg3;        VariantInit(&arg3);        arg3.vt = VT_DISPATCH;        arg3.pdispVal = reference1;        hr = AutoWrap(DISPATCH_METHOD, &result, sketches1, L"Add", 1, arg3);        buffer.vt = VT_DISPATCH;        buffer.pdispVal = result.pdispVal;        IDispatch *sketch1 = buffer.pdispVal;        ////        //SAFEARRAY * psa;        //SAFEARRAYBOUND rgsabound[1];        //rgsabound[0].lLbound = 0;        //rgsabound[0].cElements = 9;        //psa = SafeArrayCreate(VT_VARIANT, 1, rgsabound);        //        //hr = SafeArrayAccessData(psa);        //hr = SafeArrayUnaccessData(psa);        //VARIANT array;        //VariantInit(&array);        //array.vt = VT_ARRAY;        //array.pparray = &psa;        //        //hr = AutoWrap(DISPATCH_METHOD, &result, sketch1, L"SetAbsoluteAxisData", 1, array);        VARIANT arg4;        VariantInit(&arg4);        arg4.vt = VT_DISPATCH;        arg4.pdispVal = sketch1;        hr = AutoWrap(DISPATCH_PROPERTYPUT|DISPATCH_METHOD, &result, part, L"InWorkObject", 1, arg4);        //buffer.vt = VT_DISPATCH;        //buffer.pdispVal = result.pdispVal;        //IDispatch *sketch1 = buffer.pdispVal;        //        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD, &result, sketch1, L"OpenEdition", 0);        buffer.vt = VT_DISPATCH;        buffer.pdispVal = result.pdispVal;        IDispatch *factory2D1 = buffer.pdispVal;        //        VARIANT a1, a2, a3;        VariantInit(&a1);        VariantInit(&a2);        VariantInit(&a3);        a1.vt = VT_R4;a1.fltVal = 50.f;        a2.vt = VT_R4;a2.fltVal = 0.f;        a3.vt = VT_R4;a3.fltVal = 0.f;        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD, &result, factory2D1, L"CreateClosedCircle", 3, a1, a2, a3);        //hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD, &result, sketch1, L"CloseEdition", 0);//hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD, &result, part, L"Update", 0);       if (pApp) pApp->Release();       ::CoUninitialize();

2 利用CATIA自带的TLB转化成 tlh/tli 来编程

先用VC的 #import 功能进行转化，主要的几个 TLB 为：

InfTypeLib.tlb

KweTypeLib.tlb

PSTypeLib.tlb

MecModTypeLib.tlb

CATGitTypeLib.tlb

试验的 CATIA V5 R18 版本在转换之后有些小错误，之后就可以方便地写代码了。VC6的话，需要把转换后的UTF8编码文件转换成ANSI。

int main(int argc, char* argv[]){    ::CoInitialize(NULL);    ApplicationPtr catia;    HRESULT hr = S_OK;    hr = catia.GetActiveObject("CATIA.Application");    if (FAILED(hr))    {        hr = catia.CreateInstance("CATIA.Application");    }    catia->PutVisible(VARIANT_TRUE);    //    DocumentsPtr documents;    documents = catia->GetDocuments();    BSTR AddPart = _com_util::ConvertStringToBSTR("Part");    PartDocumentPtr partDocument;    partDocument = documents->Add(&AddPart);    PartPtr part = partDocument->GetPart();     BodiesPtr bodies = part->GetBodies();     BodyPtr body = part->GetMainBody();     HybridBodiesPtr hybridBodies = part->GetHybridBodies();    FactoryPtr shapeFactory = part->GetShapeFactory();     HybridShapeFactoryPtr hybridShapeFactory = part->GetHybridShapeFactory();    SketchesPtr sketches = body->GetSketches();    OriginElementsPtr originElements = part->GetOriginElements();    AnyObjectPtr planeXY = originElements->GetPlaneXY();    ReferencePtr r1 = part->CreateReferenceFromObject(planeXY);    SketchPtr sketch = sketches->Add(r1);    part->PutInWorkObject(sketch);    Factory2DPtr factory2D = sketch->OpenEdition();    factory2D->CreateClosedCircle(0.0, 0.0, 50.0);    sketch->CloseEdition();    part->Update();    ::CoUninitialize();    return 0;}

3 利用 CAA

还没有找到CAA安装程序，以后再续