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

admin

获得零件指针
// 获得文件指针
CATDocument * pDoc= NULL;
# m5 s: r+ |& H- J3 g4 ~5 X7 OCATFrmEditor * _pEditor = CATFrmEditor::GeTCurrentEditor();
9 y2 w7 o% v* @pDoc = _pEditor->GetDocument();//这里得到了PART 环境下的文档指针
CATInit_var spInitOnDoc(pDoc);
) @6 Y. ~5 v% N$ e' v5 s' O4 M6 M// 得到零件根容器

CATIPrtContainer * piPrtCont =
(CATIPrtContainer*) spInitOnDoc->GetRootContainer("CATIPrtContainer");
6 k* K. x3 c0 a# [! s0 i" n// 得到零件指针
7 c; q  q, ?' a5 g" x. G; gCATIPrtPart_var spPart = piPrtCont->GetPart();

创建草图
9 t' q, h& G, a8 H" n7 U0 ^4 n//初始化草图工厂
& J+ v9 W7 b" ?% G8 ACATISketchFactory_var spSketchFactory(piPrtCont);
//在XY plane 上创建草图
CATISketch_var spSketch = spSketchFactory->CreateSketch(spRefPlanes[1]));

$ G2 [2 c. j: j3 f创建草图几何
+ Q: g5 @8 T! L+ m//首先声明编辑草图
) Y2 r! O/ i3 h; o9 j) |" Q- m" TspSketch->OpenEdition();
* o* Z( v8 X" g# v$ e1 b# S% bCATI2DWFFactory_var sp2DFactory(spSketch);
//这里表示圆心点
. v* U. j# F3 m+ N5 F% ?. Ydouble iPoint[2] = {0.,0.};
//下面创建圆圈
CATISpecObject_var spLine = spSketch ->CreateCircle(iPoint,_Editor003->GetFloatValue());
6 k8 _  D# G& xCATI2DCurve_var spCurveOnLine(spLine);
, U  m/ l& I  ^& V) e5 V, F# ]spCurveOnLine->GetStartPoint();
. i0 D- e* z2 Y; zspCurveOnLine->GetEndPoint();
, J5 o4 }! O7 r; t8 F$ m$ m( B//然后退出草图：
5 y. A: v6 }0 N. x4 c( S& H' yspSketch->CloseEdition();
- P: ~/ H- v# Z9 F" `. L( m1 E

创建约束
CATI2DConstraintFactory_var spConstraint2DFactory(spSketch);
! T8 Z( p" \' e% Z' \7 F  ]//定义spLine1 的半径约束
4 o5 U9 g2 v7 W3 m4 `spConstraint2DFactory->CreateConstraint(spLine, NULL, NULL, NULL, NULL, NULL,
NULL, Cst2DType_Radius, 0, 0 );
( j/ M- b! U9 a# b# Y7 w//定义spLine1 与坐标原点的同心约束
CATI2DAxis_var spSupport = NULL_var;
: T0 t* j, f! E$ n- D! lspSketch->GetAbsolute2DAxis(spSupport);

spConstraint2DFactory->CreateConstraint(spLine, NULL, spSupport->GetOriginPoint(),
NULL, NULL, NULL, NULL, Cst2DType_Concentric, 0, 0 );


创建凸台
// 从编辑框中获得援助的高度
double firstLimit = _Editor004->GetFloatValue();
6 n% }- ^; y5 _/ o" G4 `$ ldouble secondLimit = 0.;
4 I- @% d- y9 L  K//圆柱的轴向方向为Z 轴方向
CATMathDirection dirZ(0., 0., 1.);
//初始化零件工厂
! w9 V0 G* P' b1 [/ N3 n, h4 qCATIPrtFactory_var spPrtFactOnPrtCont(piPrtCont);
5 Q" t' P1 c. P' L# y//创建凸台
# }9 ~8 i1 F9 ?3 X1 G' f# C5 e6 NCATISpecObject_var spSpecObj = spPrtFactOnPrtCont->CreatePad(spSketch);
CATIPad_var spPadOnSpecObj(spSpecObj);
7 g4 r5 H( R7 g1 {3 N//设置拉伸方向
2 u# i) U8 F3 {0 K7 PspPadOnSpecObj->ModifyDirection(dirZ);
% S9 v9 k% K7 e- g& Z, R//设置凸台第一限制类型
+ }* y3 X. p3 O" G! `  s' W; T* XspPadOnSpecObj->ModifyEndType(catOffsetLimit);
! n9 |8 i9 g8 L5 u4 l+ N4 ?& z//设置凸台的高度
spPadOnSpecObj->ModifyEndOffset(firstLimit);
, e: n+ B% Q/ ~6 m3 j//设置凸台第二限制类型
" N4 K$ M$ [- ]. {( JspPadOnSpecObj->ModifyStartType(catOffsetLimit);
* k0 J5 d8 @: G9 zspPadOnSpecObj->ModifyStartOffset(secondLimit);
//将凸台添加在结构树中
spSpecObj->Update();
* h. ^" G$ j6 N" r% P9 eCATIGSMProceduralView_var ispProcView = spSpecObj;
9 @  ?5 Y2 G  v+ uif (NULL_var != ispProcView ) {HResult rc = ispProcView ->InsertInProceduralView();}
  e0 A, J( {  {