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

admin

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

+ a, j+ C8 C0 B/ R! m$ a[mw_shl_code=c,true]
, n& j& t8 C  @& a% l        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
        CATDocument *pDoc = pEditor->GetDocument();
        CATIContainerOfDocument_var spConOfDoc = pDoc;
        if (spConOfDoc == NULL_var)
9 J. o, ^8 G" N0 z        {
) b6 R$ v( c6 x& W# N                popUpNotifyDialog("No spConainer of document");
" s" o( Z# e7 q6 j3 _: v  R        }
        CATIContainer *pCon = NULL;
        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);

        //get GSM factory
6 j' f" `  v; H- P
- R4 M4 s( }8 [% ~    CATMathPoint p1,p2;
  n' b$ C7 }1 i9 }        p1.SetCoord(0,0,0);
* C' K! N' X. ]/ o7 Z  h        p2.SetCoord(10,10,10);
/ k9 {7 l- H; p       
; _( y6 q5 ~( s
     CATIGSMFactory_var spGSMFactory = pCon;
1 U$ H) i$ n: j& b1 k; _! y  
         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
/ y. ~$ z) X; h/ a; e- d4 E' `         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);
5 ~3 n* @8 ^: d/ w% X' P
1 N9 s* D9 Y) b/ f9 N  CATISpecObject_var spSpecObject = spLine;
  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;

; r& L( E# F& K& y% L2 _0 u" k  spGSMProceduralView->InsertInProceduralView();
( R) [1 l6 W$ o$ R1 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();