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

admin

获得零件指针
5 b" ~+ l$ u8 Y" R% I; z// 获得文件指针
CATDocument * pDoc= NULL;
CATFrmEditor * _pEditor = CATFrmEditor::GeTCurrentEditor();
& h% e* t' v; F' y& apDoc = _pEditor->GetDocument();//这里得到了PART 环境下的文档指针
CATInit_var spInitOnDoc(pDoc);
// 得到零件根容器

5 _0 M6 s# g8 W! aCATIPrtContainer * piPrtCont =
(CATIPrtContainer*) spInitOnDoc->GetRootContainer("CATIPrtContainer");
( l- x: w3 ]( g/ P* G// 得到零件指针
CATIPrtPart_var spPart = piPrtCont->GetPart();

创建草图
  _5 l: v* @7 I. i" i6 U//初始化草图工厂
' Z+ L2 t5 t; [# j  T1 B4 u9 xCATISketchFactory_var spSketchFactory(piPrtCont);
: _9 S5 a  E2 P0 h( ]//在XY plane 上创建草图
CATISketch_var spSketch = spSketchFactory->CreateSketch(spRefPlanes[1]));

" _/ K1 R3 O2 {4 P/ R) d3 I创建草图几何
//首先声明编辑草图
. y# M. g( R7 `3 T+ AspSketch->OpenEdition();
CATI2DWFFactory_var sp2DFactory(spSketch);
  M4 |/ Z" y" H& M$ y- F//这里表示圆心点
double iPoint[2] = {0.,0.};
//下面创建圆圈
8 C; E" d1 I: s2 n+ k' tCATISpecObject_var spLine = spSketch ->CreateCircle(iPoint,_Editor003->GetFloatValue());
CATI2DCurve_var spCurveOnLine(spLine);
; ^: |( h# v% c6 G- {8 NspCurveOnLine->GetStartPoint();
spCurveOnLine->GetEndPoint();
//然后退出草图：
spSketch->CloseEdition();


  B6 e0 i) K" Z- f# o  y2 _' \& A创建约束
CATI2DConstraintFactory_var spConstraint2DFactory(spSketch);
% l6 J& `7 a7 r/ i5 X5 [, p//定义spLine1 的半径约束
spConstraint2DFactory->CreateConstraint(spLine, NULL, NULL, NULL, NULL, NULL,
NULL, Cst2DType_Radius, 0, 0 );
//定义spLine1 与坐标原点的同心约束
CATI2DAxis_var spSupport = NULL_var;
spSketch->GetAbsolute2DAxis(spSupport);
7 Q& [" Q" }9 u( E( J" @
spConstraint2DFactory->CreateConstraint(spLine, NULL, spSupport->GetOriginPoint(),
NULL, NULL, NULL, NULL, Cst2DType_Concentric, 0, 0 );
3 W) s2 G4 A1 E! ?! y

创建凸台
: ]# p# g: z' C! _1 t/ G// 从编辑框中获得援助的高度
double firstLimit = _Editor004->GetFloatValue();
double secondLimit = 0.;
//圆柱的轴向方向为Z 轴方向
CATMathDirection dirZ(0., 0., 1.);
//初始化零件工厂
7 w; c1 V: X) d: F8 y8 iCATIPrtFactory_var spPrtFactOnPrtCont(piPrtCont);
//创建凸台
. P- M; F2 Y$ {5 b) A# Z5 _CATISpecObject_var spSpecObj = spPrtFactOnPrtCont->CreatePad(spSketch);
CATIPad_var spPadOnSpecObj(spSpecObj);
9 k/ j$ b0 O7 r; j2 |//设置拉伸方向
% R) M/ ?4 `& p4 R- b  GspPadOnSpecObj->ModifyDirection(dirZ);
//设置凸台第一限制类型
. r3 F# P0 r# u2 ^9 rspPadOnSpecObj->ModifyEndType(catOffsetLimit);
//设置凸台的高度
spPadOnSpecObj->ModifyEndOffset(firstLimit);
9 R5 t1 C  X5 \2 }9 y4 i3 N) |0 H//设置凸台第二限制类型
( k  X1 ~0 N/ U, o4 a: T7 n# SspPadOnSpecObj->ModifyStartType(catOffsetLimit);
spPadOnSpecObj->ModifyStartOffset(secondLimit);
9 E$ X: L7 z# U1 c4 W- I6 [//将凸台添加在结构树中
  O  X% i! d1 }# R  O1 bspSpecObj->Update();
: _) g# ~1 ?2 s9 i: gCATIGSMProceduralView_var ispProcView = spSpecObj;
if (NULL_var != ispProcView ) {HResult rc = ispProcView ->InsertInProceduralView();}