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

admin

创建参数和公式
1．创建参数
//初始化CATICkeParmFactory 工厂
7 W# ?1 G9 ?& l& bCATICkeParmFactory_var spParmFactory = spContainer;
CATICkeParm_var spParam1 = spParmFactory->CreateLength("Base",0.1);
  D4 l0 b: |* LCATICkeParm_var spParam2 = spParmFactory->CreateLength("Width",0.15);//长度单位为米
CATICkeParm_var spParam3 = spParmFactory->CreateLength("Height",0.2);//创建长度参数
// CATIParmPublisher 与CATICkeFunctionFactory 功能为将所有参数显示在结构树中
CATIParmPublisher_var spParmPublisher = NULL_var;
5 D5 |9 x+ N' _( h, }3 D  K3 J$ ^CATICkeFunctionFactory_var spFuncFactory =CATCkeGlobalFunctions::GetFunctionFactory();
+ x* U: V0 D, \9 |spParmPublisher=
spFuncFactory->GetCurrentSet(CATICkeFunctionFactory:arameter,spPrtPart,CATCke::True);
) D9 G' K# O( N6 MspParmPublisher.Append(spParam1);
spParmPublisher.Append(spParam2);
spParmPublisher.Append(spParam3);
2 z+ e# \) C/ V) M4 b6 {2．创建公式
$ c0 K, }8 Q, j$ m. V; U//创建参数列表
$ R& h5 }* M/ I* j) t, DCATCkeListOfParm pList;
$ K% p: W0 T) m9 ~- t# l6 n1 wpList->Append (spParam1);
pList->Append (spParam2);
4 r  ^0 T5 n# M3 q3 o, xpList->Append (spParam3);
  X, M# p& N- @//创建公式Height = Width + Base
CATICkeRelation_var spFormula1 = spParmFactory->CreateFormula("Formula","","",
spParam3, pList, "Width+Base", spParmPublisher, CATCke::True);
6 y! k+ ]$ @1 d% g% H+ [" V! p1 ?: }spFuncFactory->AddToCurrentRelationSet(spFormula1, spParmPublisher);
2 ]8 ^5 m2 P# P//修改参数进行测试
spParam1->Valuate(0.5);
8 ]4 F% D2 |& J$ O7 J
8 x: [7 |7 |( x9 J- b. r
7 ?7 A# N8 H, R/ w: v. ?