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

admin

CATIA二次开发入门教程---19 创建一条线
7 u+ }" P6 a1 Q% z% @
[mw_shl_code=c,true]
2 b4 z$ G' I$ B5 y( a- @5 A        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
. ^" A, l, a! y! w2 E+ h        CATDocument *pDoc = pEditor->GetDocument();
( K, q6 D) s' u4 p. f        CATIContainerOfDocument_var spConOfDoc = pDoc;
  G9 R8 Z0 M1 Y, ]* @2 U/ R        if (spConOfDoc == NULL_var)
        {
' N: P: q) {5 F+ K                popUpNotifyDialog("No spConainer of document");
        }
        CATIContainer *pCon = NULL;
1 l9 w# _5 S. ~0 R5 O, x0 _        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);

        //get GSM factory

, A3 Q: P* w( u' H% W! o! U$ k, O0 |    CATMathPoint p1,p2;
2 s8 Q6 ^3 q9 K. u0 ]' e& [        p1.SetCoord(0,0,0);
        p2.SetCoord(10,10,10);
; J, j0 _$ H( i, O8 n+ ~       
9 W2 s* ?% ?! Q' y2 c( {" b
4 D/ G- m8 s* [9 L* |$ d4 \6 h  j- @     CATIGSMFactory_var spGSMFactory = pCon;
1 i6 {" @. c- I% }  
1 q2 J. T# D7 _8 _         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
, x  E4 x- D3 G9 O) P& O! c- V     
& S4 |# ?7 a- y( F9 w% j  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);
. t! q& J( ~4 g- H  Q. Y$ B
2 w# f2 r! V( Z7 g5 J0 \! d  CATISpecObject_var spSpecObject = spLine;
  \' V( Q+ Y  y) V3 g5 c  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;

  spGSMProceduralView->InsertInProceduralView();
; c7 a* _1 r5 K" n. ?0 L$ u
  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();