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

admin

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

$ `7 q' K+ d3 ]: O- H3 K2 p6 j[mw_shl_code=c,true]
. b  E: q/ r* n6 F. q% f        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
        CATDocument *pDoc = pEditor->GetDocument();
        CATIContainerOfDocument_var spConOfDoc = pDoc;
' C9 J' M7 G8 \/ P. Z6 q% J        if (spConOfDoc == NULL_var)
/ T+ o$ ]& c) _4 p1 R. Q( q        {
                popUpNotifyDialog("No spConainer of document");
3 p! D  r# f2 T6 T) w. P  v- z+ n        }
/ i+ Y. V  l( v, S/ `1 V        CATIContainer *pCon = NULL;
        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);
4 l% {$ z; ?/ {& D
        //get GSM factory
4 d  f9 u6 K/ ^6 d! b+ y
7 e& W) q) T2 J    CATMathPoint p1,p2;
        p1.SetCoord(0,0,0);
+ F% {8 H' M! z( P3 H        p2.SetCoord(10,10,10);
       
) E9 z  S* W0 I& Y
! _# R! C0 r, Q/ ?  \     CATIGSMFactory_var spGSMFactory = pCon;
0 \8 f" O* D7 D3 o/ X! o  
         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
* o9 N. r+ Q. T  f! L1 h' ?% `5 v         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
, v+ a8 n# X& Q# v! G0 e  o. _  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);
+ |2 a$ A. u% K+ _  g5 ?) X
9 Z" i+ x4 y! h  d, @- X  CATISpecObject_var spSpecObject = spLine;
" d8 [6 Z: w) r' d  r8 c0 U) {, e. i  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;
3 \; X5 E- X/ o3 K4 ?
- b4 [4 W% h& }  spGSMProceduralView->InsertInProceduralView();
& B$ \6 n% p. Z, t% l. o9 r
+ H$ j' q6 _& d) J  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();

3 T- s$ b$ v' e  \9 `. o