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

admin

CATIA二次开发入门教程---19 创建一条线
' L5 [! i, U" ~
[mw_shl_code=c,true]
; N7 R  i% ]4 |9 V# {( |; }        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
) z, t" V8 c! V7 u+ O$ w' @/ O        CATDocument *pDoc = pEditor->GetDocument();
5 u5 l  [! g  r1 X        CATIContainerOfDocument_var spConOfDoc = pDoc;
        if (spConOfDoc == NULL_var)
  B0 h4 I8 M! a" S+ Q        {
                popUpNotifyDialog("No spConainer of document");
        }
        CATIContainer *pCon = NULL;
        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);

' R% ^, I9 H- B" L" L+ ?        //get GSM factory
0 k4 x- y. m  b* v
' U8 W  M7 c1 \6 f0 ~! Z    CATMathPoint p1,p2;
& u, l0 \9 |% K5 Y5 z% ~: {        p1.SetCoord(0,0,0);
* [0 z! m4 f% t- U' ]. N7 \% g        p2.SetCoord(10,10,10);
/ U' Y" v+ r; C, P8 `) X       

     CATIGSMFactory_var spGSMFactory = pCon;
  
         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);
5 j; K8 S* W" m: f) R% A& k9 X7 n
3 z+ x9 |: {$ h& M5 ~5 [  CATISpecObject_var spSpecObject = spLine;
& \+ t. V! G, [& z1 h8 m  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;
) g' C) {) l" Z* r# ~, i8 I3 x0 y
( x1 }2 I2 _  k; ~8 `  spGSMProceduralView->InsertInProceduralView();

! B& q3 R2 }9 Q% s4 `: w# X  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();