CATIA Automation 编程初探

前端之家收集整理的这篇文章主要介绍了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,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,documents,L"Add",arg1);

        buffer.vt = VT_DISPATCH;
        buffer.pdispVal = result.pdispVal;
        IDispatch *partDocument = buffer.pdispVal;

        //
        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD,partDocument,L"Part",0);
        buffer.vt = VT_DISPATCH;
        buffer.pdispVal = result.pdispVal;
        IDispatch *part = buffer.pdispVal;

        //
        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD,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,bodies,L"Item",arg);
        buffer.vt = VT_DISPATCH;
        buffer.pdispVal = result.pdispVal;
        IDispatch *body = buffer.pdispVal;

        //
        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD,body,L"Sketches",0);
        buffer.vt = VT_DISPATCH;
        buffer.pdispVal = result.pdispVal;
        IDispatch *sketches1 = buffer.pdispVal;

        //
        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD,L"OriginElements",0);
        buffer.vt = VT_DISPATCH;
        buffer.pdispVal = result.pdispVal;
        IDispatch *originElements = buffer.pdispVal;

        //
        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD,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,sketches1,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,rgsabound);
        //


        //hr = SafeArrayAccessData(psa);


        //hr = SafeArrayUnaccessData(psa);

        //VARIANT array;
        //VariantInit(&array);
        //array.vt = VT_ARRAY;
        //array.pparray = &psa;
        //
        //hr = AutoWrap(DISPATCH_METHOD,sketch1,L"SetAbsoluteAxisData",array);
        VARIANT arg4;
        VariantInit(&arg4);
        arg4.vt = VT_DISPATCH;
        arg4.pdispVal = sketch1;
        hr = AutoWrap(DISPATCH_PROPERTYPUT|DISPATCH_METHOD,L"InWorkObject",arg4);
        //buffer.vt = VT_DISPATCH;
        //buffer.pdispVal = result.pdispVal;
        //IDispatch *sketch1 = buffer.pdispVal;

        //
        hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD,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,factory2D1,L"CreateClosedCircle",3,a1,a3);
		
        //
	hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD,L"CloseEdition",0);
		
	//
	hr = AutoWrap(DISPATCH_PROPERTYGET|DISPATCH_METHOD,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安装程序,以后再续

猜你在找的VB相关文章