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

admin

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

5 ~/ L  k8 Y4 K1 _; K[mw_shl_code=c,true]
; Y: j9 G* K2 K3 }9 n) i. W        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
' h3 x, ^( p5 K; J5 [4 L. |        CATDocument *pDoc = pEditor->GetDocument();
" E" F7 Y# }" ]3 ]        CATIContainerOfDocument_var spConOfDoc = pDoc;
& d4 H+ D9 Z5 ?6 h4 J        if (spConOfDoc == NULL_var)
$ z6 s- X& r# U, L, e) y8 ^        {
- U5 R3 ^/ c9 Q5 c+ E6 o3 _5 J                popUpNotifyDialog("No spConainer of document");
' |) C* W5 x/ S* ~* k; F        }
        CATIContainer *pCon = NULL;
        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);

& I; q. q% _- W        //get GSM factory
" G1 d) Q# L, \. t3 F
    CATMathPoint p1,p2;
        p1.SetCoord(0,0,0);
        p2.SetCoord(10,10,10);
$ {/ k( A, g: q0 T       

     CATIGSMFactory_var spGSMFactory = pCon;
6 U5 }$ m2 ]" Z; i. \) A4 D" a$ N  
         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
9 e1 c* F0 `% T0 J) G         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
& M+ d* n( y1 E     
  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);

  CATISpecObject_var spSpecObject = spLine;
  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;
; C$ J, H. S' r/ b7 s
8 A7 K0 L/ N" F9 O  O, s! _* o9 R) q  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();