Catia二次开发源码分享：创建参数和公式

admin

创建参数和公式
1．创建参数
//初始化CATICkeParmFactory 工厂
" n8 o0 k3 K$ A8 l. uCATICkeParmFactory_var spParmFactory = spContainer;
CATICkeParm_var spParam1 = spParmFactory->CreateLength("Base",0.1);
% D. C, D8 p' C0 w2 VCATICkeParm_var spParam2 = spParmFactory->CreateLength("Width",0.15);//长度单位为米
CATICkeParm_var spParam3 = spParmFactory->CreateLength("Height",0.2);//创建长度参数
// CATIParmPublisher 与CATICkeFunctionFactory 功能为将所有参数显示在结构树中
CATIParmPublisher_var spParmPublisher = NULL_var;
' B4 w* o1 _$ `CATICkeFunctionFactory_var spFuncFactory =CATCkeGlobalFunctions::GetFunctionFactory();
. C+ v2 e% T  sspParmPublisher=
spFuncFactory->GetCurrentSet(CATICkeFunctionFactory:arameter,spPrtPart,CATCke::True);
spParmPublisher.Append(spParam1);
spParmPublisher.Append(spParam2);
8 `5 S. G, x% U  u  lspParmPublisher.Append(spParam3);
2．创建公式
//创建参数列表
CATCkeListOfParm pList;
pList->Append (spParam1);
pList->Append (spParam2);
pList->Append (spParam3);
4 q; s! o0 i1 h0 {) D//创建公式Height = Width + Base
CATICkeRelation_var spFormula1 = spParmFactory->CreateFormula("Formula","","",
' K& |% p! \4 _2 ?: N% xspParam3, pList, "Width+Base", spParmPublisher, CATCke::True);
: u0 ]% }- h2 i) GspFuncFactory->AddToCurrentRelationSet(spFormula1, spParmPublisher);
1 }5 ?# |, ]- k//修改参数进行测试
) f  y) ~" e: M; x9 wspParam1->Valuate(0.5);


) |4 q9 M3 P  V9 [+ e/ ~3 D