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

admin

获得零件指针
) V4 b2 |! c# J5 x! k, f* `// 获得文件指针
CATDocument * pDoc= NULL;
# S$ [, F- Y: k: V0 ^% g  t5 lCATFrmEditor * _pEditor = CATFrmEditor::GeTCurrentEditor();
1 I  q& P% q3 o" b% ~pDoc = _pEditor->GetDocument();//这里得到了PART 环境下的文档指针
+ q  W4 C; e! g6 w' l2 QCATInit_var spInitOnDoc(pDoc);
// 得到零件根容器

CATIPrtContainer * piPrtCont =
$ @2 i3 ~6 J& c" J% J, Q. x$ I6 w(CATIPrtContainer*) spInitOnDoc->GetRootContainer("CATIPrtContainer");
// 得到零件指针
CATIPrtPart_var spPart = piPrtCont->GetPart();

创建草图
//初始化草图工厂
' d" E4 X% D' s$ ~CATISketchFactory_var spSketchFactory(piPrtCont);
( R# Q6 c( Z4 e( c0 m/ ]//在XY plane 上创建草图
CATISketch_var spSketch = spSketchFactory->CreateSketch(spRefPlanes[1]));

创建草图几何
//首先声明编辑草图
! M- V  t) ?+ M0 u/ S" xspSketch->OpenEdition();
9 R- q8 N& z& h, ACATI2DWFFactory_var sp2DFactory(spSketch);
# T1 b  T* ~) Z7 B) R! q+ B//这里表示圆心点
7 `2 p) ~9 v8 |8 }0 Kdouble iPoint[2] = {0.,0.};
//下面创建圆圈
CATISpecObject_var spLine = spSketch ->CreateCircle(iPoint,_Editor003->GetFloatValue());
CATI2DCurve_var spCurveOnLine(spLine);
spCurveOnLine->GetStartPoint();
! l% m, |  f  N$ `( z  {spCurveOnLine->GetEndPoint();
( T; ]2 z8 t9 i# @& r  t6 C//然后退出草图：
5 p- M3 i$ g: [( XspSketch->CloseEdition();
8 X/ ~' y# ~1 f: B3 S- l2 d) t; `
( d$ Q8 H  s8 n* `6 W) D6 _% E( o
创建约束
- t( y: c8 X* w' y2 {0 SCATI2DConstraintFactory_var spConstraint2DFactory(spSketch);
  W3 w. b0 d+ T9 W//定义spLine1 的半径约束
2 Y  ~1 Y! }1 x0 K* BspConstraint2DFactory->CreateConstraint(spLine, NULL, NULL, NULL, NULL, NULL,
NULL, Cst2DType_Radius, 0, 0 );
//定义spLine1 与坐标原点的同心约束
CATI2DAxis_var spSupport = NULL_var;
spSketch->GetAbsolute2DAxis(spSupport);
/ j( y8 ?# w& C. r  L( ?
spConstraint2DFactory->CreateConstraint(spLine, NULL, spSupport->GetOriginPoint(),
" b: Y. }0 l% e$ j, WNULL, NULL, NULL, NULL, Cst2DType_Concentric, 0, 0 );

& S$ B* o6 O- Z2 J3 i. Z& N
/ u4 N% ?3 V& \创建凸台
8 M1 p( I% v* W& w4 t- |// 从编辑框中获得援助的高度
double firstLimit = _Editor004->GetFloatValue();
double secondLimit = 0.;
0 v" L7 L% k( k; E- J$ D2 j, c//圆柱的轴向方向为Z 轴方向
CATMathDirection dirZ(0., 0., 1.);
//初始化零件工厂
- ^. T( G9 W6 S6 FCATIPrtFactory_var spPrtFactOnPrtCont(piPrtCont);
# _! E: _0 x3 R  C//创建凸台
CATISpecObject_var spSpecObj = spPrtFactOnPrtCont->CreatePad(spSketch);
- P  J$ Z  s# lCATIPad_var spPadOnSpecObj(spSpecObj);
//设置拉伸方向
spPadOnSpecObj->ModifyDirection(dirZ);
//设置凸台第一限制类型
spPadOnSpecObj->ModifyEndType(catOffsetLimit);
//设置凸台的高度
3 a( i5 [1 T' H7 m% R8 PspPadOnSpecObj->ModifyEndOffset(firstLimit);
//设置凸台第二限制类型
spPadOnSpecObj->ModifyStartType(catOffsetLimit);
' Q1 U% ]6 \4 L4 C/ }! R6 m- h+ CspPadOnSpecObj->ModifyStartOffset(secondLimit);
//将凸台添加在结构树中
! K, i! S1 C+ @$ o: zspSpecObj->Update();
CATIGSMProceduralView_var ispProcView = spSpecObj;
' T$ w5 i- _0 k/ f5 Yif (NULL_var != ispProcView ) {HResult rc = ispProcView ->InsertInProceduralView();}
3 Z5 ^' F! V* t0 \; H' o