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

admin

CATIA二次开发入门教程---19 创建一条线
* }) z) p8 C1 e% G& c! ?3 i( G% T
[mw_shl_code=c,true]
: o: V- e* @, ?$ P, z        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
        CATDocument *pDoc = pEditor->GetDocument();
; T7 y5 |/ ]4 d3 {        CATIContainerOfDocument_var spConOfDoc = pDoc;
        if (spConOfDoc == NULL_var)
8 J. S9 f* z) j2 D        {
                popUpNotifyDialog("No spConainer of document");
        }
2 B' U' q( T# K% Y+ J* `$ Y/ F        CATIContainer *pCon = NULL;
! A/ {$ Q2 H3 ^; c4 Q# Z        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);

        //get GSM factory

! ]: ~; d1 u3 O8 a0 u    CATMathPoint p1,p2;
3 n1 ]( B3 U6 g: f1 S5 R& g        p1.SetCoord(0,0,0);
9 i6 [4 j- r/ q/ L        p2.SetCoord(10,10,10);
       
$ f5 M, S; `  S  T, F
     CATIGSMFactory_var spGSMFactory = pCon;
  
         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
1 ]3 F8 t- ]- [1 g) N  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);

+ R1 \, g4 Q* v4 ?) X- E) o  CATISpecObject_var spSpecObject = spLine;
  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;
0 @. h' w1 \; ^: U* @
$ x, f- B! P' k7 @  spGSMProceduralView->InsertInProceduralView();

; ~) [* N1 i4 L  l* w3 p- h) ^2 g) r  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();