CATIA二次开发入门教程---19 创建一条线

admin

CATIA二次开发入门教程---19 创建一条线

[mw_shl_code=c,true]
1 E5 ?+ S7 }5 k. E1 |, N0 H( f        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
0 J5 u2 @; f/ \' w% @+ n8 H6 q3 I        CATDocument *pDoc = pEditor->GetDocument();
5 H$ \' L9 v7 Z4 R; n        CATIContainerOfDocument_var spConOfDoc = pDoc;
        if (spConOfDoc == NULL_var)
        {
# P0 f& k( P! ]$ {- d6 ?  g                popUpNotifyDialog("No spConainer of document");
! J2 ]: [) J5 K' v        }
        CATIContainer *pCon = NULL;
' m& Z$ A3 C8 K  ?        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);

8 x9 _% O' O: m* [4 ^8 N. V        //get GSM factory
4 K$ ], u* f% y: I0 B* j1 @
    CATMathPoint p1,p2;
$ V* e1 B2 w0 k( T' ~* L2 y# e        p1.SetCoord(0,0,0);
        p2.SetCoord(10,10,10);
3 h) J! v5 X8 ~5 t3 R       

; u+ \4 C% d( q& L     CATIGSMFactory_var spGSMFactory = pCon;
  
         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
3 g* G! Z/ P' C; b  w/ |$ K/ t+ D     
: C5 _( y0 e4 g) h/ i  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);

  CATISpecObject_var spSpecObject = spLine;
/ f4 O! o2 s- S# B7 j; P$ q  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;
7 Q; U" d7 H8 C/ }; e
" J5 Z& E, l4 n; k/ P' u  spGSMProceduralView->InsertInProceduralView();
* z  T0 h0 g% H+ f2 D: m8 Z  h: `
  spSpecObject->Update();[/mw_shl_code]

admin

在此基础上，创建线的步骤如下：

1)创建两个点并将其转换为CATISpecObjects。

double Coords[3];

Coords[0] = 0;

Coords[1] = 0;

Coords[2] = 0;

CATIGSMPoint_var spPoint1 = spGSMFactory->CreatePoint(Coords); CATISpecObject_var spSpecPoint1 = spPoint1;                  

Coords[0] = 8;

Coords[1] = 6;

Coords[2] = 7;

CATIGSMPoint_var spPoint2 = spGSMFactory->CreatePoint(Coords);

CATISpecObject_var spSpecPoint2 = spPoint2;

2) 利用创建的点创建一条线，并将其转换为CATISpecObject

CATISpecObject_var  spSupport = NULL_var;

CATIGSMLinePtPt_var spLine1 = spGSMFactory->CreateLine(spSpecPoint1, spSpecPoint2, spSupport);

CATISpecObject_var spSpecLine1 = spLine1;

3) 更新创建的线，并将其添加到视图中。

spSpecLine1->Update();

CATIGSMProceduralView_var spCurObj = spLine1;

spCurObj->InsertInProceduralView();

  r9 N0 [: A# R5 t