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

admin

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

[mw_shl_code=c,true]
5 w' `& {, z0 E( o' A        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
) Z1 Y- P7 H* V& [  y7 R- J% b, n        CATDocument *pDoc = pEditor->GetDocument();
* y: r: j9 j! I7 I1 U+ Y        CATIContainerOfDocument_var spConOfDoc = pDoc;
        if (spConOfDoc == NULL_var)
4 e8 \0 x  S# @1 j7 j        {
                popUpNotifyDialog("No spConainer of document");
        }
        CATIContainer *pCon = NULL;
        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);

        //get GSM factory
. {4 O. n  p" A  v
$ S- u% E9 Y0 }  f$ ~    CATMathPoint p1,p2;
6 ?9 w( z; r4 g7 d6 R/ e4 L        p1.SetCoord(0,0,0);
        p2.SetCoord(10,10,10);
7 u2 l/ Q. P( C3 p       
# I2 l5 M9 a- q$ p' `  p& C6 M8 L
     CATIGSMFactory_var spGSMFactory = pCon;
  
6 ?  w# T+ R( p( P$ Z# R8 y* @+ r         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
+ _5 c4 c+ n! W+ s# o8 @         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
1 U* V& E5 P" P) e7 J+ D0 ^7 G6 b     
$ j7 ~1 `  g% `/ e& u' P  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);
' Y$ r6 P: g. d
* [. D. T/ z; }9 |( L  CATISpecObject_var spSpecObject = spLine;
8 E7 x3 b. K6 ?' c! A# E9 ]  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;

  spGSMProceduralView->InsertInProceduralView();
* h# `+ O$ R. O1 Q8 k* U% J
- z7 b4 [7 |& l2 g$ Q  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();

' W2 ?: h/ v, A4 J# g1 f4 q