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

admin

CATIA二次开发入门教程---19 创建一条线
2 m! ^% i" r- A$ a
+ c  H( e  @8 D; K( l) j/ y' m[mw_shl_code=c,true]
1 V, W# B+ [+ ]& ?$ ~) K        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
        CATDocument *pDoc = pEditor->GetDocument();
        CATIContainerOfDocument_var spConOfDoc = pDoc;
# ~; b! j% E0 P$ r% d3 J) D/ r- y        if (spConOfDoc == NULL_var)
0 b  K; o, v6 c& j4 Y: [4 F        {
8 g& j. h. C6 ^$ W. g+ m$ F, p                popUpNotifyDialog("No spConainer of document");
        }
7 x0 W+ s( e& h" D0 n1 K$ A4 _        CATIContainer *pCon = NULL;
) Z, z) p- U" `5 R6 H        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);

- A2 w/ f* S5 T7 c5 ?        //get GSM factory

    CATMathPoint p1,p2;
        p1.SetCoord(0,0,0);
        p2.SetCoord(10,10,10);
( B4 s3 O6 n8 Z4 I8 l       
# D1 I. x0 ~$ E' H4 A+ _( S
6 D. N; f7 {6 D* @+ n8 C     CATIGSMFactory_var spGSMFactory = pCon;
  
7 w8 n! b8 ~3 D/ r( \6 I         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
4 F) k5 n' G8 J9 @% O         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
, x2 {& y( q7 @, g7 Q& [: Q6 D  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);

7 ]% A. \: g3 }  CATISpecObject_var spSpecObject = spLine;
  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;

  spGSMProceduralView->InsertInProceduralView();

2 x2 ?6 e9 T9 I# R  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();