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

admin

CATIA二次开发入门教程---19 创建一条线
# [. R- Q3 K% O+ R! ~
: A- \1 K9 U9 V' K7 b/ K$ v, M[mw_shl_code=c,true]
  E- R/ V* J9 Q1 R7 y8 A) H        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
        CATDocument *pDoc = pEditor->GetDocument();
        CATIContainerOfDocument_var spConOfDoc = pDoc;
' H6 K: p; c0 N& u3 ?$ T        if (spConOfDoc == NULL_var)
        {
1 t; [+ I1 P  H, D2 \" l# G                popUpNotifyDialog("No spConainer of document");
/ d. R8 a2 S( T$ I8 d9 S! E        }
        CATIContainer *pCon = NULL;
0 c7 E2 p# q$ t# M        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);

& S$ K/ Z2 c4 k1 J        //get GSM factory

- L0 Z; f6 |, ~+ T$ u# S! X) Q    CATMathPoint p1,p2;
* q" u; k6 D" ]% t0 Q        p1.SetCoord(0,0,0);
        p2.SetCoord(10,10,10);
       
$ U1 t0 R; ~7 G1 p/ L, L# K0 X  ~
     CATIGSMFactory_var spGSMFactory = pCon;
  
* L& b; p% u9 a1 ~0 q3 k         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
  q. y" m" e' R* F  O         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
/ Z% `* Q* _3 {0 |& I  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);
) N; k) r9 D9 }( J' J5 o
3 z$ e' X3 l0 s: `6 @  CATISpecObject_var spSpecObject = spLine;
/ }9 H9 X& g  q9 Q+ C  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;
' H5 ~5 X+ }, N1 L6 c
  spGSMProceduralView->InsertInProceduralView();

: P) q6 h& z) @/ y  A5 G3 @8 E  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();