CATIA二次开发实例

本节就以绘制翼肋为例，简要介绍CATIA的二次开发过程。动手编程之前还有几项准备工作：（1）要求将CATIA的环境语言设置为英语。（2）要准备一个翼型数据文件，要求先生成翼型的CAD模型。准备工作做好后我们就可以开始了。首先是初始化COM库。具体方法是在VB中新建一个标准工程，在VB编程环境中选择Project/References打开对象库功能，选择相关的CATIA对象库，如图2.6所示。注意CATIA提供的对象库大约有90多个，在选择对象库的时候，尽量选择我们所需的，若在分不清楚的情况下，可以将其全选上来保证对象的可引用性，但这会造成不必要的系统开支。然后删除窗体（Form），加入一个模块（AddModule），开始编程。程序如下，程序中“’”符号后的文字均为注释。SubMain()’程序开始OnErrorResumeNext’错误控制语句，发生错误执行下一句SetCATIA=GetObject(,CATIA.Application)’用GetObject连接CATIAIfErr.Number0ThenSetCATIA=CreateObject(CATIA.Application)’用CreateObject启动CATIACATIA.Visible=True’将CATIA界面设为可见EndIf’以上程序实现在CATIA处于开启状态时就连接到CATIA，否则执行启动’CATIA。程序中CATIA是Application的根对象，关键词“Set”用于对象操作'－－－－－－－－－－－－－－－－创建一个product文档加载外形－－－－－－－－－Setdocuments1=CATIA.Documents’加入Documents对象SetproductDocument1=documents1.Add(Product)’用Add函数加入Document对象，’Add函数的参数可以是Part、Product、Drawing三种，分别对应零件文档、产’品文档和工程图文档Setproduct1=productDocument1.Product’进入产品文档Setproducts1=product1.Products’通过对象的层层继承关系，最后创建了Product对象DimarrayOfVariantOfBSTR1(0)’定义一个CAD文档的引用arrayOfVariantOfBSTR1(0)=F:\wurenji\li\waixing.CATPart’用绝对路径打开外形CAD文件products1.AddComponentsFromFilesarrayOfVariantOfBSTR1,All’将waixing.CATPart加入’该Product对象Setproduct2=products1.AddNewComponent(Part,)’在该Product文档中生成新的’PartBody'------------------------------引入参考面与线----------------------------SetproductDocument1=CATIA.ActiveDocument’确定该Product文档为当前文档Setselection1=productDocument1.Selection’选择该Product文档Setdocuments1=CATIA.Documents’加入Documents对象SetpartDocument1=documents1.Item(waixing.CATPart)’加入waixing.CATPart为Part文档Setpart1=partDocument1.PartSetbodies1=part1.BodiesSetbody1=bodies1.Item(PartBody)’定义当前对象的层层继承关系SethybridShapes1=body1.HybridShapes’进入创成式曲面设计工作台SethybridShapeRotate1=hybridShapes1.Item(Rotate.2)’选择曲面造型Rotate.2selection1.AddhybridShapeRotate1selection1.Copy’复制曲面造型Rotate.2SetpartDocument2=documents1.Item(Part1.CATPart)Setpart2=partDocument2.PartSetbodies2=part1.BodiesSetbody2=bodies2.Item(PartBody)’重新选择PartBody对象，选择新建的PartBody文档为当前文档，定义当前对象的层层继’承关系selection2.Addpart2selection2.PasteSpecialCATPrtResultWithOutLink’作为结果不关联引用粘贴曲面造型’Rotate.2SetproductDocument1=CATIA.ActiveDocumentSetselection1=productDocument1.Selectionselection1.Clear’清除选择内容………………………………………………………………………………………………’其它的引用与以上类似，省略介绍'---------------生成基准平面----------------------Setreference7=part1.CreateReferenceFromObject(hybridShapePointOnCurve3)Setreference8=part1.CreateReferenceFromObject(hybridShapePointOnCurve4)SethybridShapeLinePtPt2=hybridShapeFactory1.AddNewLinePtPt(reference7,reference8)body1.InsertHybridShapehybridShapeLinePtPt2part1.InWorkObject=hybridShapeLinePtPt2part1.UpdateSetdocuments1=CATIA.DocumentsSetpartDocument1=documents1.Item(Part1.CATPart)Setpart1=partDocument1.PartSetbodies1=part1.BodiesSetbody1=bodies1.Item(PartBody)SethybridShapes1=body1.HybridShapesSethybridShapeLinePtPt1=hybridShapes1.Item(Line.1)Setreference1=part1.CreateReferenceFromObject(hybridShapeLinePtPt1)SethybridShapeFactory1=part1.HybridShapeFactorySethybridShapePointOnCurve1=hybridShapeFactory1.AddNewPointOnCurveFromDistance(reference1,P1#,False)’P1为基准’面位置参数hybridShapePointOnCurve1.DistanceType=1body1.InsertHybridShapehybridShapePointOnCurve1part1.InWorkObject=hybridShapePointOnCurve1part1.Update'－－－－－－－－－－－－－－－－－－－生成交线－－缩放图形与padpocket－－－－Setreference12=part1.CreateReferenceFromName()Setpocket1=shapeFactory1.AddNewPocketFromRef(reference12,35#)Setreference13=part1.CreateReferenceFromObject(hybridShapeCurvePar2)pocket1.SetProfileElementreference13Setreference14=part1.CreateReferenceFromObject(hybridShapeCurvePar2)pocket1.SetProfileElementreference14pocket1.DirectionOrientation=catRegularOrientationSetlimit2=pocket1.FirstLimitSetlength2=limit2.Dimensionlength2.Value=25#’控制弯边长度part1.UpdateObjectpocket1length2.Value=20#’控制下陷的深度part1.Update'------------------－－－－－－－－－-改文件名－－－－－－－－－－－－－－－－－－－Setdocuments1=CATIA.DocumentsSetpartDocument1=documents1.Item(Part1.CATPart)Setproduct1=partDocument1.GetItem(Part1)product1.PartNumber=le6SetproductDocument1=CATIA.ActiveDocumentSetproduct2=productDocument1.ProductSetproducts1=product2.ProductsSetproduct3=products1.Item(Part1.1)product3.Name=yile运行上述程序，便可在CATIA环境里自动绘制出翼肋的CAD模型，并保存为yile.CATPart文件，翼肋的CAD模型如图2.7所示。