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

admin

CATIA二次开发入门教程---19 创建一条线
% p1 M+ }: _9 ?* Z7 W* \
1 C' D2 Z: U+ m1 C5 j5 u[mw_shl_code=c,true]
) x* T# O* |/ o8 P: C4 e        CATFrmEditor *pEditor = CATFrmEditor::GeTCurrentEditor();
        CATDocument *pDoc = pEditor->GetDocument();
* Y  ]6 \1 M" c, @- ~        CATIContainerOfDocument_var spConOfDoc = pDoc;
" U+ G8 a3 N- s' w        if (spConOfDoc == NULL_var)
        {
                popUpNotifyDialog("No spConainer of document");
        }
/ @! u" ?% E; k3 n        CATIContainer *pCon = NULL;
5 J4 j+ l" k# e( D6 [0 y7 S        HRESULT hr = spConOfDoc->GetSpecContainer(pCon);
+ B& f% J9 O; s( M* V( }$ I: V
# \# f5 }, e" v) a  R4 J* A        //get GSM factory
( E  \) _$ f8 n. {- {9 k8 E4 S
    CATMathPoint p1,p2;
        p1.SetCoord(0,0,0);
        p2.SetCoord(10,10,10);
       
5 p1 ]' b2 O( I. x
     CATIGSMFactory_var spGSMFactory = pCon;
$ S" N2 {: h+ ~; |  
         CATIGSMPoint_var  spP1 = spGSMFactory->CreatePoint(p1,"");
         CATIGSMPoint_var  spP2 = spGSMFactory->CreatePoint(p2,"");
     
# q7 s; c3 _; B' q" P4 A( b  `3 m  CATIGSMLinePtPt_var spLine =  spGSMFactory->CreateLine(spP1,spP2,NULL_var);
3 \/ p# f" F7 K% W
# k- B2 ~& L2 e( f7 \7 e  CATISpecObject_var spSpecObject = spLine;
  CATIGSMProceduralView_var spGSMProceduralView = spSpecObject;
) C& e) ~: z/ d. d* l1 b* k& H
( B; p- D& X+ |1 a5 W& @  spGSMProceduralView->InsertInProceduralView();

2 a4 j! c( n9 P+ E* O7 S! Q  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();