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

admin

CATIA二次开发入门教程---19 创建一条线
1 R1 V6 u4 G# g8 n, C) ~5 A
1 I2 Z& A1 A5 I; A9 q" q8 U[mw_shl_code=c,true]
        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
        CATDocument *pDoc = pEditor->GetDocument();
        CATIContainerOfDocument_var spConOfDoc = pDoc;
) A3 M: }2 d6 C4 }  e        if (spConOfDoc == NULL_var)
        {
1 K4 z0 H8 m8 O0 J- G# }                popUpNotifyDialog("No spConainer of document");
  @5 x% N6 I- W        }
        CATIContainer *pCon = NULL;
6 ?( _, S# _3 ?* _( d5 w- i& Q0 n% ^        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);
* e, U0 ?8 \' w2 ^0 D' v
* S  |* J4 V5 n, c: D2 e" d        //get GSM factory

; [& p4 y# D% v$ a1 [% L4 U% q1 F    CATMathPoint p1,p2;
" h% O$ r% ]7 C% \        p1.SetCoord(0,0,0);
        p2.SetCoord(10,10,10);
2 P0 Q" s# E; C- b; n/ X- n       
1 Y+ K* ]- s* d% a3 u$ p
6 m- ~+ I) ]* N4 w/ a     CATIGSMFactory_var spGSMFactory = pCon;
  
) z$ t3 y$ i. h) R% [# q# [, W         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
/ g3 M- X/ s/ l0 l" k6 ^  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);

  CATISpecObject_var spSpecObject = spLine;
  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;

  spGSMProceduralView->InsertInProceduralView();
, c2 s" ?1 q4 p. [& [; [! Y
( r1 Y3 b" ^2 p8 \& n  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();