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

admin

CATIA二次开发入门教程---19 创建一条线
* z1 i/ A2 N! o% j( B) P7 C
% K; @, y$ ]; h: Q[mw_shl_code=c,true]
; g  k9 |1 r$ p( F- W7 |; B        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
        CATDocument *pDoc = pEditor->GetDocument();
        CATIContainerOfDocument_var spConOfDoc = pDoc;
: j/ r. s: z9 J) a        if (spConOfDoc == NULL_var)
' _( S1 [/ z% k5 T  G4 |0 [/ p        {
                popUpNotifyDialog("No spConainer of document");
1 E- |, }8 y# t( ^5 l, Y/ j        }
( S& V4 w3 x* H* x! m- j6 g  p. W        CATIContainer *pCon = NULL;
+ d6 g5 K# n4 m; d8 f' t: a        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);

        //get GSM factory

1 b5 G: k) e  d: U$ r    CATMathPoint p1,p2;
        p1.SetCoord(0,0,0);
3 I; z- W# l2 _8 N& Y3 w        p2.SetCoord(10,10,10);
5 w4 m/ |0 ?. h$ x# h  m       

     CATIGSMFactory_var spGSMFactory = pCon;
  
' M- k2 B1 g7 K% l- m         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
+ H* C% Y, ~4 z4 U/ H         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
' I2 X( K/ q; E- c# ]     
5 B6 }$ m' d& V" Q7 D$ B4 W  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);

  CATISpecObject_var spSpecObject = spLine;
8 l/ X& {! |1 v8 `" i% c* R1 _  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;
! Z; K; c% D+ X7 P5 m
$ @* d1 t# z- |7 T  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();