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

admin

CATIA二次开发入门教程---19 创建一条线
6 f! ^) ^' m; O3 F; D4 B
[mw_shl_code=c,true]
% t' b% U2 S9 ^/ ?5 ~5 X8 |        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
        CATDocument *pDoc = pEditor->GetDocument();
        CATIContainerOfDocument_var spConOfDoc = pDoc;
4 I. w( H% e, b3 T        if (spConOfDoc == NULL_var)
* O, K2 y; N/ F$ N* Q* B        {
                popUpNotifyDialog("No spConainer of document");
8 x) h. s' G' l4 r$ c        }
$ t( N& R4 f; B, P        CATIContainer *pCon = NULL;
: [3 m- O! y) Z( P& h1 O        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);
4 ]2 t, D* g/ f) P) g
  v: ]7 _/ L; L4 s2 f/ G: }* w        //get GSM factory
1 g8 V/ J. T$ s5 z+ }
! `9 g. c+ s* x" ~, r    CATMathPoint p1,p2;
( I  f' W; l( i/ ?/ z& I( d        p1.SetCoord(0,0,0);
( K) b: j9 P( F( Z9 }: @* s* w( y        p2.SetCoord(10,10,10);
! N, ]8 a" z# N2 A       

+ @& m! S5 b7 \3 C0 R5 [3 \- ]     CATIGSMFactory_var spGSMFactory = pCon;
  
         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
7 D9 c- i  c4 u' D7 m5 l  p         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);

% R' L7 z1 P7 J* A. {  CATISpecObject_var spSpecObject = spLine;
  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;
& e7 B+ ^& `* X* q6 H0 X
  A9 a/ |" ~% Q/ C# h  H& L9 I" O5 w5 v  spGSMProceduralView->InsertInProceduralView();
% ~4 r3 H3 U( ^3 z. n  |( Y
  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();

0 E8 F0 r, p' o  a/ t! P# Q