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

admin

CATIA二次开发入门教程---19 创建一条线
: c" Z! ?8 X' c. ]6 f! A
[mw_shl_code=c,true]
+ _8 t4 J8 l# F; D# K7 O2 C        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
        CATDocument *pDoc = pEditor->GetDocument();
# _, O$ Q; p$ Z" v$ {$ {        CATIContainerOfDocument_var spConOfDoc = pDoc;
        if (spConOfDoc == NULL_var)
6 y. [, x0 v: P9 z' q6 s        {
                popUpNotifyDialog("No spConainer of document");
3 V& Y. M: G- h- T7 Q  [" E+ W        }
        CATIContainer *pCon = NULL;
, O9 |& f0 U0 Z# @- E        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);

, l: N( d" k) ?# E5 g: J        //get GSM factory

  X5 h* A8 Z8 l" u    CATMathPoint p1,p2;
6 [4 [* O2 [$ i2 n2 u/ @        p1.SetCoord(0,0,0);
# q1 `3 _1 ?8 d% c( B! X        p2.SetCoord(10,10,10);
       
$ L  r- N* c2 [; \
     CATIGSMFactory_var spGSMFactory = pCon;
, }* f1 o  z) f8 }% J' `, }  
' N6 |- Z- F1 [6 U         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);
  a. L' p1 B- J7 S8 c: \* F$ w
0 W  w- ?( X) n# A9 W" r  CATISpecObject_var spSpecObject = spLine;
  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;
( p  X# p$ G! q  Y( [; w% Y8 L
  spGSMProceduralView->InsertInProceduralView();

6 j( R  _: ~& ]3 V3 m+ 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();

: }1 e4 L% Y. q; W1 a