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

admin

CATIA二次开发入门教程---19 创建一条线
2 ]1 o1 B3 C7 D. g: d. C
" x5 D' k6 ^- M9 N7 m/ ~[mw_shl_code=c,true]
" w) J. ?4 S% i. z* l7 K        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
        CATDocument *pDoc = pEditor->GetDocument();
- T: ^! K& W8 O1 n0 r9 m( f$ b" C        CATIContainerOfDocument_var spConOfDoc = pDoc;
        if (spConOfDoc == NULL_var)
$ }5 R' i- ^0 U; V3 _, l5 ]        {
5 t$ d" F7 y2 e1 T) O! |5 X                popUpNotifyDialog("No spConainer of document");
6 P1 S& o# f3 e2 r, s* V' F& H        }
        CATIContainer *pCon = NULL;
        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);

6 u$ J' @7 v6 x        //get GSM factory

    CATMathPoint p1,p2;
        p1.SetCoord(0,0,0);
, n/ K1 {6 r9 `( Q, ?        p2.SetCoord(10,10,10);
7 C; ?8 e7 ~' o       

     CATIGSMFactory_var spGSMFactory = pCon;
9 r  K6 S! @& J* g4 C  
         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
  T% U- E/ R) G/ W1 a5 _         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
0 ]9 C4 J7 a2 }' \" @     
9 |1 Y  \' @, y) p8 |$ d  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);

: s4 Q2 _6 K, b2 X+ ]1 [  CATISpecObject_var spSpecObject = spLine;
  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;
0 H4 x* o+ o2 l" d
  spGSMProceduralView->InsertInProceduralView();

  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();