最近开始对 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安装程序，以后再续
