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

admin

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

[mw_shl_code=c,true]
: m/ ]! e8 V/ a" e5 l1 O6 Z9 f4 f        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
( t) p+ R  |9 d- y* p2 X; P9 m        CATDocument *pDoc = pEditor->GetDocument();
) D6 B3 t0 z4 d+ \8 R1 I5 a9 L, x        CATIContainerOfDocument_var spConOfDoc = pDoc;
        if (spConOfDoc == NULL_var)
        {
                popUpNotifyDialog("No spConainer of document");
        }
        CATIContainer *pCon = NULL;
3 ]4 \& @, _! |( {9 B        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);
" x! r* V, R" C2 N3 G" G% k5 t
% m" P" ]4 ^" ?8 d        //get GSM factory

0 t# r# R$ }' h, _. p    CATMathPoint p1,p2;
        p1.SetCoord(0,0,0);
        p2.SetCoord(10,10,10);
& _0 O  [& t( g8 Y. ]7 e# Q- s; M% t  g7 ^       
* K1 h# M4 K- C' M( [2 l3 T
! c- H* s1 h/ Z* O5 i" M     CATIGSMFactory_var spGSMFactory = pCon;
  
         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
+ c! i0 |$ k6 G  g9 w1 v. F6 G  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);
  z/ p9 u2 O! l
& ?( l  O- R2 p" B$ I  CATISpecObject_var spSpecObject = spLine;
  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;

( a/ ]  \9 m- b5 |  C! q. ^) x  spGSMProceduralView->InsertInProceduralView();

' f8 Y4 H# b+ ~9 O" d7 G  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();