catia caa二次開發(fā)詳細(xì)教程9創(chuàng)建圓角三角形

1、CATIA CAA 二次開發(fā) 詳細(xì)（9）創(chuàng)建圓角三角形創(chuàng)建三個點(參見將點連成線(參見5)6)3) 通過三點創(chuàng)建一個參考平面，后面進(jìn)行圓弧倒角時要用到該平面。CATIGSMPlane3PoCreatePlane(spPos_var Supportplane = spGSMFactory-1, spPo2,spPo3);CATISpecObject_var spSupportplane = Supportplane;4) 創(chuàng)建倒角半徑的參數(shù)：CATICkeParm_var Radius1 = NULL_var; CATICkeMagnitude_var spRadMag = spParamDic

2、tionary-FindMagnitude(LENGTH);CATUnicodeString name(Radius 1);Radius1 = spParmFactory-CreateDimen5) 創(chuàng)建倒角：:(spRadMag,name, .01);CATIGSMCorner_var Corner1 = spGSMFactory-CreateCorner(spLine1,spLine2, spSupportplane,Radius1,CATGSMSameOrienCATGSMSameOrienFALSE);ion,ion,CATISpecObject_var spCorner1 = Cor

3、ner1;6) 裁剪去多余的線和點：CATIGSMSplit_var Split1 = spGSMFactory-CreateSplit(spLine1,spRadius1,CATGSMSameOrienion);CATISpecObject_var spSplit1 = Split1;CATIGSMSplit_var Split1a = spGSMFactory-CreateSplit(spSplit1,spRadius3,CATGSMInvertOrienion);CATISpecObject_var spSplit1a = Split1a;7) 將線和圓弧依次連接起來，創(chuàng)建一個序列：CI

4、STV(CATISpecObject_var) joincurves;joincurves.Append(spSplit1a);joincurves.Append(spSplit2a); joincurves.Append(spSplit3a); joincurves.Append(spRadius1); joincurves.Append(spRadius2); joincurves.Append(spRadius3);8)在講序列連接起來之前，需要創(chuàng)建一個最小的結(jié)合距離： CATICkeParm_var Mergedist = NULL_var; CATICkeMagnitude_var

5、spMergedist = spParamDictionary-FindMagnitude(LENGTH);CATUnicodeString mergename(Merge Distance);Mergedist = spParmFactory-CreateDimenmergename,.0001);9)連接起來并到視圖中：(spMergedist,Now we can jothe part.his list of objectso a single shand insert itoCATIGSMAssemble_var CurveAssy = spGSMFactory-CreateAssemble(joincurves, Mergedist,FALSE);CATISpecObject_var spCurveAssy = CurveAssy;spCurveAssy-Update();C