Catia二次开发源码分享：创建圆柱体实例

admin

获得零件指针
2 T9 R2 H  a) u+ i" k// 获得文件指针
$ }; P) c. U- bCATDocument * pDoc= NULL;
CATFrmEditor * _pEditor = CATFrmEditor::GeTCurrentEditor();
pDoc = _pEditor->GetDocument();//这里得到了PART 环境下的文档指针
5 i9 A6 J3 m9 S0 T! aCATInit_var spInitOnDoc(pDoc);
. `7 l# ], Z2 f" F3 ]// 得到零件根容器

& p% F" n  ~* \& s* GCATIPrtContainer * piPrtCont =
8 S. d  P. n% g) K$ m3 w1 @(CATIPrtContainer*) spInitOnDoc->GetRootContainer("CATIPrtContainer");
// 得到零件指针
CATIPrtPart_var spPart = piPrtCont->GetPart();

创建草图
' p2 a9 I; G: }- H+ ?" E7 ?//初始化草图工厂
& `- P; \6 K: V" F# L0 h0 sCATISketchFactory_var spSketchFactory(piPrtCont);
//在XY plane 上创建草图
3 X; e9 d; F, Z4 @6 Q3 V6 X5 ECATISketch_var spSketch = spSketchFactory->CreateSketch(spRefPlanes[1]));

1 J+ ^. k+ p3 G3 R: f% p创建草图几何
//首先声明编辑草图
spSketch->OpenEdition();
CATI2DWFFactory_var sp2DFactory(spSketch);
% @2 P1 f9 W3 s8 Q2 Z5 ?, L9 f$ `//这里表示圆心点
double iPoint[2] = {0.,0.};
//下面创建圆圈
! H$ q$ v1 x" ^3 D/ \CATISpecObject_var spLine = spSketch ->CreateCircle(iPoint,_Editor003->GetFloatValue());
CATI2DCurve_var spCurveOnLine(spLine);
spCurveOnLine->GetStartPoint();
8 ^" k: W, S9 Q1 \5 s" r* @spCurveOnLine->GetEndPoint();
//然后退出草图：
spSketch->CloseEdition();


+ p8 Y. G0 a0 s8 @创建约束
' @( d6 |/ @) @$ I+ N8 i0 cCATI2DConstraintFactory_var spConstraint2DFactory(spSketch);
' R: A: N- |2 P# l$ g! y$ T, l& N//定义spLine1 的半径约束
3 C+ o! i5 B2 H/ p. T/ ]spConstraint2DFactory->CreateConstraint(spLine, NULL, NULL, NULL, NULL, NULL,
NULL, Cst2DType_Radius, 0, 0 );
* m+ B. A' B; ?+ b& ^; \+ n: K//定义spLine1 与坐标原点的同心约束
CATI2DAxis_var spSupport = NULL_var;
4 B& D+ @4 t$ r+ o. yspSketch->GetAbsolute2DAxis(spSupport);

spConstraint2DFactory->CreateConstraint(spLine, NULL, spSupport->GetOriginPoint(),
  _, o! w# M% a; XNULL, NULL, NULL, NULL, Cst2DType_Concentric, 0, 0 );


; D* e' U/ H7 ^; O/ B( x' |& d: d创建凸台
5 q4 f2 V6 w: C0 J3 Q5 j2 _" w// 从编辑框中获得援助的高度
+ |; \. y' l4 Z) L( v, cdouble firstLimit = _Editor004->GetFloatValue();
double secondLimit = 0.;
//圆柱的轴向方向为Z 轴方向
+ Q0 B. S7 s/ [5 ?0 r& `4 U, Z3 i3 \CATMathDirection dirZ(0., 0., 1.);
( k# ]! L) F( l! F; f//初始化零件工厂
3 t/ o. e+ q' q9 o4 _* j9 xCATIPrtFactory_var spPrtFactOnPrtCont(piPrtCont);
//创建凸台
" V, x" R- K& m# _  E* RCATISpecObject_var spSpecObj = spPrtFactOnPrtCont->CreatePad(spSketch);
CATIPad_var spPadOnSpecObj(spSpecObj);
7 _% x# t6 x, M//设置拉伸方向
spPadOnSpecObj->ModifyDirection(dirZ);
//设置凸台第一限制类型
( J! K* a5 e! r6 s) g1 o/ [) RspPadOnSpecObj->ModifyEndType(catOffsetLimit);
//设置凸台的高度
spPadOnSpecObj->ModifyEndOffset(firstLimit);
//设置凸台第二限制类型
6 `$ d# q8 Y' f! u- f0 A" J, NspPadOnSpecObj->ModifyStartType(catOffsetLimit);
6 T9 m- ^& m" B# g' M/ ]spPadOnSpecObj->ModifyStartOffset(secondLimit);
8 g5 m" }5 \8 k* o' _# H9 f( g//将凸台添加在结构树中
spSpecObj->Update();
CATIGSMProceduralView_var ispProcView = spSpecObj;
if (NULL_var != ispProcView ) {HResult rc = ispProcView ->InsertInProceduralView();}