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

admin

获得零件指针
/ E' `" ~' ^1 y// 获得文件指针
CATDocument * pDoc= NULL;
CATFrmEditor * _pEditor = CATFrmEditor::GeTCurrentEditor();
pDoc = _pEditor->GetDocument();//这里得到了PART 环境下的文档指针
CATInit_var spInitOnDoc(pDoc);
3 s3 r* D8 V, y; |# l// 得到零件根容器

, S9 e+ Z) Y3 YCATIPrtContainer * piPrtCont =
(CATIPrtContainer*) spInitOnDoc->GetRootContainer("CATIPrtContainer");
' R& o+ Y( j* E. ?8 S0 T9 v3 N// 得到零件指针
CATIPrtPart_var spPart = piPrtCont->GetPart();
# x4 v3 f  t: t- T( s7 `2 \. s1 a
/ N+ a5 a6 h! o0 p1 L7 K" X' k创建草图
//初始化草图工厂
- H6 R. n$ X& DCATISketchFactory_var spSketchFactory(piPrtCont);
3 }- K& Z& d, y8 q( V( B4 k//在XY plane 上创建草图
# R; t% G* ~6 z0 m) ^CATISketch_var spSketch = spSketchFactory->CreateSketch(spRefPlanes[1]));

* P- @/ ]6 w% N% z8 `创建草图几何
/ l5 M8 Q- w# J! g1 X+ A//首先声明编辑草图
% J5 A+ p; A  o- |  @& E$ B# h. yspSketch->OpenEdition();
CATI2DWFFactory_var sp2DFactory(spSketch);
//这里表示圆心点
double iPoint[2] = {0.,0.};
# ~9 O  L( G" Z: N5 v' W" t7 r. G//下面创建圆圈
CATISpecObject_var spLine = spSketch ->CreateCircle(iPoint,_Editor003->GetFloatValue());
CATI2DCurve_var spCurveOnLine(spLine);
% C6 }6 ]& \. \- T6 d, VspCurveOnLine->GetStartPoint();
" @, L* ^" C5 w1 `spCurveOnLine->GetEndPoint();
//然后退出草图：
: x# I4 R! Q. b( M( mspSketch->CloseEdition();
) {/ v: }5 k* w+ t8 H* a& Q
' E. }; U# j* {# r" p
+ z; K; h7 h& m1 ~: K& u创建约束
CATI2DConstraintFactory_var spConstraint2DFactory(spSketch);
//定义spLine1 的半径约束
8 _& ^- v& }" N. K" E  T: N0 u! I4 hspConstraint2DFactory->CreateConstraint(spLine, NULL, NULL, NULL, NULL, NULL,
NULL, Cst2DType_Radius, 0, 0 );
//定义spLine1 与坐标原点的同心约束
! r: E/ m. c  T3 U$ DCATI2DAxis_var spSupport = NULL_var;
spSketch->GetAbsolute2DAxis(spSupport);

# t/ S8 J0 W5 [% M: kspConstraint2DFactory->CreateConstraint(spLine, NULL, spSupport->GetOriginPoint(),
NULL, NULL, NULL, NULL, Cst2DType_Concentric, 0, 0 );

% p+ R6 ?- X4 y% p# {+ x7 Q
创建凸台
// 从编辑框中获得援助的高度
double firstLimit = _Editor004->GetFloatValue();
# O/ G4 V9 D. v: _double secondLimit = 0.;
: s$ E2 K4 V0 |, ]3 n. L, R//圆柱的轴向方向为Z 轴方向
CATMathDirection dirZ(0., 0., 1.);
//初始化零件工厂
CATIPrtFactory_var spPrtFactOnPrtCont(piPrtCont);
  V0 h6 }. m; }; m//创建凸台
CATISpecObject_var spSpecObj = spPrtFactOnPrtCont->CreatePad(spSketch);
/ ~' Z3 y7 x  |: Y: bCATIPad_var spPadOnSpecObj(spSpecObj);
# O( Y  }& V: Q6 b+ j//设置拉伸方向
spPadOnSpecObj->ModifyDirection(dirZ);
3 p! B. Q" `0 }" Z- o* u: h//设置凸台第一限制类型
; K3 `  y' x* `! A- \spPadOnSpecObj->ModifyEndType(catOffsetLimit);
//设置凸台的高度
5 e. [4 m% n* ~' N7 u1 dspPadOnSpecObj->ModifyEndOffset(firstLimit);
//设置凸台第二限制类型
) j) `7 _- Y" f! K. }6 R! OspPadOnSpecObj->ModifyStartType(catOffsetLimit);
% }. T6 k( \% {0 k3 FspPadOnSpecObj->ModifyStartOffset(secondLimit);
+ B" h& c* ^; c( a//将凸台添加在结构树中
spSpecObj->Update();
' b9 \* o3 ]; U, l, b' B# QCATIGSMProceduralView_var ispProcView = spSpecObj;
5 p( b  P7 p9 Q. L7 ?. Dif (NULL_var != ispProcView ) {HResult rc = ispProcView ->InsertInProceduralView();}