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

admin

CATIA二次开发入门教程---19 创建一条线
# K9 O3 F! J+ U" Q/ {4 @
[mw_shl_code=c,true]
3 ~5 W3 j1 i& l2 z0 f2 m/ U" a        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
( E# ]" K# D. ^+ y6 u, F0 R5 `( y        CATDocument *pDoc = pEditor->GetDocument();
        CATIContainerOfDocument_var spConOfDoc = pDoc;
1 g9 h, ]1 G; y9 h0 z1 \        if (spConOfDoc == NULL_var)
" ~$ W$ W' }6 j# ]        {
                popUpNotifyDialog("No spConainer of document");
        }
9 I( |0 ~! e" q, }        CATIContainer *pCon = NULL;
        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);

7 W% W7 M9 ^' M; }9 a, `        //get GSM factory

    CATMathPoint p1,p2;
        p1.SetCoord(0,0,0);
        p2.SetCoord(10,10,10);
6 }6 p  c9 m9 H. K8 }% f$ M$ K       
% ]4 l: }' L* g9 K& |! @& B" L8 ~- D
     CATIGSMFactory_var spGSMFactory = pCon;
4 R% `# \7 s" R+ o2 W9 H( a6 Q  
1 f; C- p6 J& g7 w; A$ ^4 |         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
0 ~; f" O! U7 {4 n' r/ k3 N  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);
; h5 ^$ E2 {0 c* k4 }9 L
  CATISpecObject_var spSpecObject = spLine;
  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;
7 T& X+ P. ?" a8 k: e% _6 J
  spGSMProceduralView->InsertInProceduralView();
' g$ i5 M; u4 h
  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();

  u' N1 r3 z6 u) ?