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

admin

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

[mw_shl_code=c,true]
        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
        CATDocument *pDoc = pEditor->GetDocument();
6 ^3 C, f" g# G- U: A4 [( {5 a  u# W% y        CATIContainerOfDocument_var spConOfDoc = pDoc;
7 t8 ]: ~  X, P% U        if (spConOfDoc == NULL_var)
        {
                popUpNotifyDialog("No spConainer of document");
1 c' a$ ^- |" h8 t  H        }
        CATIContainer *pCon = NULL;
& }4 e. I  q# }9 P6 u* {6 L8 f3 |% }        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);
9 U, g5 Y" d5 B3 [9 e" f+ t
9 H1 u  q# b* k* X( _/ C! Y        //get GSM factory

    CATMathPoint p1,p2;
5 D% n- Z; V" v$ z, \) v3 ^; D        p1.SetCoord(0,0,0);
        p2.SetCoord(10,10,10);
' k  _+ z2 K- J) l- T+ A       

     CATIGSMFactory_var spGSMFactory = pCon;
  
         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
& V& h, D+ Q; Z0 [) M" r     
; E( [8 h6 E; h4 C# B& W  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);
& x. e2 ~3 {. ?" W; l
' w$ C& _. ^% r) y7 v. E  CATISpecObject_var spSpecObject = spLine;
  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;
& l& f9 Q& X% C) E( f% c' E5 ^
6 D. T. W$ L+ n0 P* U( V" r  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();