CATIA CAA 二次开发详细教程 第九讲：创建圆角三角形

叶秋

（1）创建三个点(参见教程5)  
（2）将点连成线(参见教程6)  
（3）通过三点创建一个参考平面，后面进行圆弧倒角时要用到该平面。  
        CATIGSMPlane3Points_var Supportplane = spGSMFactory->CreatePlane(spPoint1, spPoint2,spPoint3);
        CATISpecObject_var spSupportplane = Supportplane;  
（4）创建倒角半径的参数：  
        CATICkeParm_var Radius1 = NULL_var;
        CATICkeMagnitude_var spRadMag = spParamDictionary->FindMagnitude("LENGTH"); CATUnicodeString name("Radius 1");
        Radius1 = spParmFactory->CreateDimension(spRadMag,name, .01);  
（5） 创建倒角：
        CATIGSMCorner_var Corner1 = spGSMFactory->CreateCorner(spLine1,  spLine2,  spSupportplane,
        Radius1,  
        CATGSMSameOrientation,  CATGSMSameOrientation,  FALSE);
        CATISpecObject_var spCorner1 = Corner1;
（6）裁剪去多余的线和点：  
        CATIGSMSplit_var Split1 = spGSMFactory->CreateSplit(spLine1,  spRadius1,  
        CATGSMSameOrientation);
        CATISpecObject_var spSplit1 = Split1;
        CATIGSMSplit_var Split1a = spGSMFactory->CreateSplit(spSplit1,  spRadius3,
        CATGSMInvertOrientation);
        CATISpecObject_var spSplit1a = Split1a;
（7）将线和圆弧依次连接起来，创建一个序列：  CATLISTV(CATISpecObject_var) joincurves; joincurves.Append(spSplit1a); joincurves.Append(spSplit2a); joincurves.Append(spSplit3a);           joincurves.Append(spRadius1); joincurves.Append(spRadius2); joincurves.Append(spRadius3);
（8）在讲序列连接起来之前，需要创建一个最小的结合距离：
        CATICkeParm_var Mergedist = NULL_var;
        CATICkeMagnitude_var spMergedist = spParamDictionary->FindMagnitude("LENGTH"); CATUnicodeString mergename("Merge Distance");
        Mergedist = spParmFactory->CreateDimension(spMergedist, mergename, .0001);
（9）连接起来并插入到视图中：  
        Now we can join this list of objects into a single shape and insert it into the part.  
        CATIGSMAssemble_var CurveAssy = spGSMFactory->CreateAssemble(joincurves,  Mergedist,  FALSE);
        CATISpecObject_var spCurveAssy = CurveAssy;
        spCurveAssy->Update();
        CATIGSMProceduralView_var spCurObj = Curveassembly; spCurObj->InsertInProceduralView();