CATIA Automation 编程初探

最新推荐文章于 2026-04-08 09:43:38 发布

最新推荐文章于 2026-04-08 09:43:38 发布 · 644 阅读

标签

#sketch #c/c++

本文介绍了如何使用C++通过IDispatch接口、CATIA自带的TLB转化以及CAA来实现CATIA的自动化开发，以画圆为例详细展示了开发过程，并提供了相关代码实例。

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

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

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

1 利用 IDispatch 接口来编程

[cpp] view plain copy print ?

HRESULThr;
CLSIDAppClsid;
IDispatch*pApp;
::CoInitialize(NULL);
//
::CLSIDFromProgID(L"CATIA.Application",&AppClsid);//gettheuniqueidofCATIA
//
hr=CoCreateInstance(AppClsid,NULL,CLSCTX_LOCAL_SERVER,IID_IDispatch,(void**)&pApp);
VARIANTresult,buffer;
VariantInit(&result);
VARIANTarg2;
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);//herethereisnoargument,soweput0
buffer.vt=VT_DISPATCH;
buffer.pdispVal=result.pdispVal;
IDispatch*documents=buffer.pdispVal;
VARIANTarg1;
VariantInit(&arg1);
arg1.vt=VT_BSTR;
arg1.bstrVal=::SysAllocString(L"Part");
//VARIANTresult,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;
//
VARIANTarg;
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;
//
VARIANTarg3;
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;
//SAFEARRAYBOUNDrgsabound[1];
//rgsabound[0].lLbound=0;
//rgsabound[0].cElements=9;
//psa=SafeArrayCreate(VT_VARIANT,1,rgsabound);
//
//hr=SafeArrayAccessData(psa);
//hr=SafeArrayUnaccessData(psa);
//VARIANTarray;
//VariantInit(&array);
//array.vt=VT_ARRAY;
//array.pparray=&psa;
//
//hr=AutoWrap(DISPATCH_METHOD,&result,sketch1,L"SetAbsoluteAxisData",1,array);
VARIANTarg4;
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;
//
VARIANTa1,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。

[cpp] view plain copy print ?

intmain(intargc,char*argv[])
{
::CoInitialize(NULL);
ApplicationPtrcatia;
HRESULThr=S_OK;
hr=catia.GetActiveObject("CATIA.Application");
if(FAILED(hr))
{
hr=catia.CreateInstance("CATIA.Application");
}
catia->PutVisible(VARIANT_TRUE);
//
DocumentsPtrdocuments;
documents=catia->GetDocuments();
BSTRAddPart=_com_util::ConvertStringToBSTR("Part");
PartDocumentPtrpartDocument;
partDocument=documents->Add(&AddPart);
PartPtrpart=partDocument->GetPart();
BodiesPtrbodies=part->GetBodies();
BodyPtrbody=part->GetMainBody();
HybridBodiesPtrhybridBodies=part->GetHybridBodies();
FactoryPtrshapeFactory=part->GetShapeFactory();
HybridShapeFactoryPtrhybridShapeFactory=part->GetHybridShapeFactory();
SketchesPtrsketches=body->GetSketches();
OriginElementsPtroriginElements=part->GetOriginElements();
AnyObjectPtrplaneXY=originElements->GetPlaneXY();
ReferencePtrr1=part->CreateReferenceFromObject(planeXY);
SketchPtrsketch=sketches->Add(r1);
part->PutInWorkObject(sketch);
Factory2DPtrfactory2D=sketch->OpenEdition();
factory2D->CreateClosedCircle(0.0,0.0,50.0);
sketch->CloseEdition();
part->Update();
::CoUninitialize();
return0;
}

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

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

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

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

1 利用 IDispatch 接口来编程

[cpp] view plain copy print ?

HRESULThr;
CLSIDAppClsid;
IDispatch*pApp;
::CoInitialize(NULL);
//
::CLSIDFromProgID(L"CATIA.Application",&AppClsid);//gettheuniqueidofCATIA
//
hr=CoCreateInstance(AppClsid,NULL,CLSCTX_LOCAL_SERVER,IID_IDispatch,(void**)&pApp);
VARIANTresult,buffer;
VariantInit(&result);
VARIANTarg2;
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);//herethereisnoargument,soweput0
buffer.vt=VT_DISPATCH;
buffer.pdispVal=result.pdispVal;
IDispatch*documents=buffer.pdispVal;
VARIANTarg1;
VariantInit(&arg1);
arg1.vt=VT_BSTR;
arg1.bstrVal=::SysAllocString(L"Part");
//VARIANTresult,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;
//
VARIANTarg;
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;
//
VARIANTarg3;
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;
//SAFEARRAYBOUNDrgsabound[1];
//rgsabound[0].lLbound=0;
//rgsabound[0].cElements=9;
//psa=SafeArrayCreate(VT_VARIANT,1,rgsabound);
//
//hr=SafeArrayAccessData(psa);
//hr=SafeArrayUnaccessData(psa);
//VARIANTarray;
//VariantInit(&array);
//array.vt=VT_ARRAY;
//array.pparray=&psa;
//
//hr=AutoWrap(DISPATCH_METHOD,&result,sketch1,L"SetAbsoluteAxisData",1,array);
VARIANTarg4;
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;
//
VARIANTa1,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。

[cpp] view plain copy print ?

intmain(intargc,char*argv[])
{
::CoInitialize(NULL);
ApplicationPtrcatia;
HRESULThr=S_OK;
hr=catia.GetActiveObject("CATIA.Application");
if(FAILED(hr))
{
hr=catia.CreateInstance("CATIA.Application");
}
catia->PutVisible(VARIANT_TRUE);
//
DocumentsPtrdocuments;
documents=catia->GetDocuments();
BSTRAddPart=_com_util::ConvertStringToBSTR("Part");
PartDocumentPtrpartDocument;
partDocument=documents->Add(&AddPart);
PartPtrpart=partDocument->GetPart();
BodiesPtrbodies=part->GetBodies();
BodyPtrbody=part->GetMainBody();
HybridBodiesPtrhybridBodies=part->GetHybridBodies();
FactoryPtrshapeFactory=part->GetShapeFactory();
HybridShapeFactoryPtrhybridShapeFactory=part->GetHybridShapeFactory();
SketchesPtrsketches=body->GetSketches();
OriginElementsPtroriginElements=part->GetOriginElements();
AnyObjectPtrplaneXY=originElements->GetPlaneXY();
ReferencePtrr1=part->CreateReferenceFromObject(planeXY);
SketchPtrsketch=sketches->Add(r1);
part->PutInWorkObject(sketch);
Factory2DPtrfactory2D=sketch->OpenEdition();
factory2D->CreateClosedCircle(0.0,0.0,50.0);
sketch->CloseEdition();
part->Update();
::CoUninitialize();
return0;
}

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