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

admin

获得零件指针
3 W8 t6 d+ s6 v  q// 获得文件指针
' b# H) L  ?; p3 i: V2 a' l$ xCATDocument * pDoc= NULL;
CATFrmEditor * _pEditor = CATFrmEditor::GeTCurrentEditor();
pDoc = _pEditor->GetDocument();//这里得到了PART 环境下的文档指针
CATInit_var spInitOnDoc(pDoc);
// 得到零件根容器

CATIPrtContainer * piPrtCont =
(CATIPrtContainer*) spInitOnDoc->GetRootContainer("CATIPrtContainer");
// 得到零件指针
CATIPrtPart_var spPart = piPrtCont->GetPart();
' v( g; L- F% g% o5 U
创建草图
//初始化草图工厂
0 [% ?+ R/ G  ^% J! l0 FCATISketchFactory_var spSketchFactory(piPrtCont);
+ u! [$ |/ V! a" f+ f//在XY plane 上创建草图
; f$ y. ?8 C' XCATISketch_var spSketch = spSketchFactory->CreateSketch(spRefPlanes[1]));

+ a% b5 B1 y% {9 t创建草图几何
//首先声明编辑草图
spSketch->OpenEdition();
CATI2DWFFactory_var sp2DFactory(spSketch);
* K# x$ R" Q& E! c8 ]# h//这里表示圆心点
double iPoint[2] = {0.,0.};
- O6 r4 f/ E; M% y* E, L. u& ~2 x//下面创建圆圈
CATISpecObject_var spLine = spSketch ->CreateCircle(iPoint,_Editor003->GetFloatValue());
CATI2DCurve_var spCurveOnLine(spLine);
spCurveOnLine->GetStartPoint();
) ]! @! M  B7 O) ^spCurveOnLine->GetEndPoint();
$ ^  F7 a. O5 ~8 e5 m- _9 E! h( S//然后退出草图：
! L+ c6 R3 J" ^/ \spSketch->CloseEdition();
: y5 Z1 }- u8 ?4 M0 J
. @* r7 N, @4 {
创建约束
CATI2DConstraintFactory_var spConstraint2DFactory(spSketch);
8 R7 \! J6 ], r6 Y0 _, Q8 ~//定义spLine1 的半径约束
! U1 g3 P1 G2 d0 l! aspConstraint2DFactory->CreateConstraint(spLine, NULL, NULL, NULL, NULL, NULL,
NULL, Cst2DType_Radius, 0, 0 );
0 P5 N6 e3 f! Q; a//定义spLine1 与坐标原点的同心约束
/ m8 @/ m+ L1 @( t6 r3 FCATI2DAxis_var spSupport = NULL_var;
spSketch->GetAbsolute2DAxis(spSupport);
) @2 U& K& d% H' h! h( N
spConstraint2DFactory->CreateConstraint(spLine, NULL, spSupport->GetOriginPoint(),
* `8 M& B9 x# }* x2 S/ A+ N, eNULL, NULL, NULL, NULL, Cst2DType_Concentric, 0, 0 );


, b! Z% I1 U! E! O$ z创建凸台
// 从编辑框中获得援助的高度
double firstLimit = _Editor004->GetFloatValue();
double secondLimit = 0.;
5 l% ?1 D4 f, l# V. a+ w//圆柱的轴向方向为Z 轴方向
CATMathDirection dirZ(0., 0., 1.);
0 j# j- G/ w( S( \6 r- ?  N//初始化零件工厂
CATIPrtFactory_var spPrtFactOnPrtCont(piPrtCont);
9 N2 ]0 W8 P: b# {, G//创建凸台
CATISpecObject_var spSpecObj = spPrtFactOnPrtCont->CreatePad(spSketch);
* `' P* S: H# x4 g4 S) pCATIPad_var spPadOnSpecObj(spSpecObj);
//设置拉伸方向
. h+ D1 Z* k# {) q6 |7 A# Q) espPadOnSpecObj->ModifyDirection(dirZ);
//设置凸台第一限制类型
spPadOnSpecObj->ModifyEndType(catOffsetLimit);
//设置凸台的高度
# c- s$ Y! u7 x: w  p' J0 \spPadOnSpecObj->ModifyEndOffset(firstLimit);
//设置凸台第二限制类型
" r( x$ N4 g( pspPadOnSpecObj->ModifyStartType(catOffsetLimit);
spPadOnSpecObj->ModifyStartOffset(secondLimit);
//将凸台添加在结构树中
spSpecObj->Update();
7 d6 ?  _, E4 ~CATIGSMProceduralView_var ispProcView = spSpecObj;
$ A% D5 K  x) Lif (NULL_var != ispProcView ) {HResult rc = ispProcView ->InsertInProceduralView();}
' E2 M7 |" {9 C% Y, `% l8 |