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

admin

CATIA二次开发入门教程---19 创建一条线
8 ?9 m$ G: @6 ]* b9 v
1 l: T  z# J* {' g2 _. [[mw_shl_code=c,true]
        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
1 Z- P% ^. c) L) E4 h; \        CATDocument *pDoc = pEditor->GetDocument();
        CATIContainerOfDocument_var spConOfDoc = pDoc;
        if (spConOfDoc == NULL_var)
  q" x$ }* e/ q        {
                popUpNotifyDialog("No spConainer of document");
        }
1 ?- i1 Y0 a. l# D6 ~) O9 V6 V        CATIContainer *pCon = NULL;
        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);
! [+ o: p/ |" x, B1 Z& h2 R0 f0 G
+ t# N3 |  n. F! u+ n        //get GSM factory
& v! e7 X  \4 p9 e/ A7 i, r, x
    CATMathPoint p1,p2;
  n& }9 N7 X$ F. m/ ~6 L        p1.SetCoord(0,0,0);
8 @1 a* N- V" w) @2 {8 G2 \' E. d9 x        p2.SetCoord(10,10,10);
3 l/ X! L* p, e2 W7 U       

     CATIGSMFactory_var spGSMFactory = pCon;
  
         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
- z/ X9 \7 @1 l8 V) u         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);
+ t1 l3 o$ ?  b
  CATISpecObject_var spSpecObject = spLine;
; s1 r& e$ |3 \1 S' O5 d  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;

5 y9 \5 S! L4 J+ ^0 _  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();