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);

       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();

        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;
}

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安装程序，以后再续