CATIA CAA二次开发源码分享：拓扑转特征过程--线

admin

. T  U$ l1 F( O9 s5 B" k8 g- V- fCATIA CAA二次开发源码分享：拓扑转特征过程

% c( d5 e* r7 D( D( m$ [
6 M: n, `  _: v
' N& Q! ]4 e1 j5 }7 M( M) O[mw_shl_code=c,true] CATTopVertex       *pTopVertex = NULL;
   CATBody               *pPtBody1   = NULL;
   CATBody               *pPtBody2   = NULL;
' i6 `) n! |* k  d5 O9 C   CATBody               *pLineBody  = NULL;
   CATSoftwareConfiguration *pConfig = new CATSoftwareConfiguration ( );
   CATTopData TopData ( pConfig );
7 p4 F$ ~% D0 r   //pPoint = piGeomFactory->CreateCartesianPoint ( Point1 );
   pTopVertex = CATCreateTopVertex ( piGeomFactory, &TopData, Point1 );

   pTopVertex->Run ( );

   pPtBody1 = pTopVertex->GetResult ( );
& M7 e1 n  z( w4 d4 `3 x   //pPoint = piGeomFactory->CreateCartesianPoint ( Point2 );
   pTopVertex = CATCreateTopVertex ( piGeomFactory, &TopData, Point2 );
   pTopVertex->Run ( );
* _, K  e1 V# v4 t' t   pPtBody2 = pTopVertex->GetResult ( );
( ~' ?" V- {, n: [   pLineBody = ::CATCreateTopLineFromPoints ( piGeomFactory, &TopData, pPtBody1, pPtBody2 );
///////////////实例化
$ k6 b' Y: ?7 }   CATIDatumFactory_var spDatum=NULL_var;
% z( \/ \# y# J! H                                        CATISpecObject * piDatumFeature=NULL;
! C- T0 \6 y; _//CATISpecObject_var spOutDatumFeature=NULL_var;
$ T8 a% D% Y1 |9 |3 {rc=piRootContainer->QueryInterface(IID_CATIDatumFactory, (void**) &spDatum);
if(SUCCEEDED(rc))
{
$ Z! {6 t. m) ~: ]1 y/ W     ::MessageBox(NULL,(CString)("IID_CATIDatumFactory成功"),_T("提示"),MB_OK|MB_ICONWARNING);
' m: E8 B+ F. u}
                rc=spDatum->InstanciateDatum(pLineBody,piDatumFeature);
8 R7 m' Z% `6 m0 Z                if(SUCCEEDED(rc))
{
     ::MessageBox(NULL,(CString)("实例化成功"),_T("提示"),MB_OK|MB_ICONWARNING);
}else
{
9 z+ G  ]% C% F$ A/ D2 |3 t     ::MessageBox(NULL,(CString)("实例化不成功"),_T("提示"),MB_OK|MB_ICONWARNING);
}
- p4 f& o. b# U0 MCATISpecObject_var spObjectFromBody=piDatumFeature;
                spObjectFromBody->Update();      

* X% w+ r& B  q               
0 A0 e' x1 m5 M3 G$ m                CATIGSMProceduralView_var spPntObj=NULL_var;
                spPntObj = spObjectFromBody;
3 ?% J, l  _$ w' i: e9 y                spPntObj->InsertInProceduralView();
$ ]$ s$ e+ [, l[/mw_shl_code]
' \' U: x) F1 a