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

admin

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

: i3 f% B" {9 k" y- A[mw_shl_code=c,true]
5 s0 p; j2 ~' C  X% j( b2 G        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
        CATDocument *pDoc = pEditor->GetDocument();
        CATIContainerOfDocument_var spConOfDoc = pDoc;
! P# ]& I$ O" i( Z9 ]        if (spConOfDoc == NULL_var)
        {
+ ]$ X6 [( g: l4 @# u                popUpNotifyDialog("No spConainer of document");
        }
' x: }/ K' F+ D) q& N" }; f8 c3 g8 }. J        CATIContainer *pCon = NULL;
        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);
9 c7 @, q- m  J: |6 P( ~! ?
        //get GSM factory
- g6 `0 i; g7 ?# O3 {9 m' e
    CATMathPoint p1,p2;
5 i; r8 J2 h, W" u& }8 |        p1.SetCoord(0,0,0);
        p2.SetCoord(10,10,10);
$ z. d7 p1 |: Q8 _       

     CATIGSMFactory_var spGSMFactory = pCon;
7 o  l) }& ^( U  
         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
4 J8 D( D3 U  b  u6 G         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);
' a3 r* G: G- n/ k8 {
5 W% k4 V- s# B- y  CATISpecObject_var spSpecObject = spLine;
; H8 v& b7 e9 A* F1 n  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;

  spGSMProceduralView->InsertInProceduralView();
( [/ y8 ]( H0 L7 F- v
& G& m- L2 s4 d: n+ W" B  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();

" r! L* G* o4 |8 f3 {