CATIAV5AutomationDetailedSteps(基于VB的catia二次开发代码)

CATIATrainingCOPYRIGHTDASSAULTSYSTEMES2002Version5Release9June2002EDU-CAT-E-VBA-FS-V5R9CCAATTIIAAVV55AAuuttoommaattiioonnDDeettaaiilleeddSStteeppssCATIAV5AutomationDetailedStepsCOPYRIGHTDASSAULTSYSTEMES20022TableofContentsViews.vbp......................................................................................................................................................3PartDesign.vbp..............................................................................................................................................5ShapeDesign.vbp..........................................................................................................................................8Assembly.vbp..............................................................................................................................................12Drafting.vbp.................................................................................................................................................15GetPoint.vbp...............................................................................................................................................18TestSelections.vbp......................................................................................................................................20CATIAV5AutomationDetailedStepsCOPYRIGHTDASSAULTSYSTEMES20023Views.vbpOptionExplicitDimCATIAAsINFITF.ApplicationDimmyDocAsPartDocumentPrivateSubCommand1_Click()OnErrorResumeNextSetCATIA=GetObject(,CATIA.Application)IfErr.Number0ThenSetCATIA=CreateObject(CATIA.Application)CATIA.Visible=TrueEndIfOnErrorGoTo0'OpeningBolt.CATPartDimmyDirAsStringmyDir=App.PathSetmyDoc=CATIA.Documents.Open(myDir&\Bolt.CATPart)DimmyViewer3AsViewer3DDimmyViewPointAsViewpoint3D'GettingtheactiveViewerSetmyViewer3=CATIA.ActiveWindow.ActiveViewermyViewer3.RenderingMode=catRenderShadingDimmyCam3dAsCamera3DDimiAsInteger'Displaythenumberofdefinedcameras.MsgBoxmyDoc.Cameras.CountCATIAV5AutomationDetailedStepsCOPYRIGHTDASSAULTSYSTEMES20024'ScaningallthecamerasofthedocumentFori=1TomyDoc.Cameras.CountSetmyCam3d=myDoc.Cameras.Item(i)'ModifyingtheViewpoint3DoftheactiveviewermyViewer3.Viewpoint3D=myCam3d.Viewpoint3DmyViewer3.ReframemyViewer3.ZoomInmyViewer3.UpdateMsgBoxmyCam3d.NameNext'SelectingthefrontcameraSetmyCam3d=myDoc.Cameras.Item(*front)myViewer3.Viewpoint3D=myCam3d.Viewpoint3D'SavingthedocumentIfMsgBox(SaveBolt2,vbOKCancel)=vbOKThenOnErrorResumeNextKill(myDir&\Bolt2.CATPart)CallmyDoc.SaveAs(myDir&\Bolt2.CATPart)CallmyDoc.CloseOnErrorGoTo0EndIfEndSubCATIAV5AutomationDetailedStepsCOPYRIGHTDASSAULTSYSTEMES20025PartDesign.vbpOptionExplicitDimCATIAAsINFITF.ApplicationPrivateSubCommand1_Click()OnErrorResumeNextSetCATIA=GetObject(,CATIA.Application)IfErr.Number0ThenSetCATIA=CreateObject(CATIA.Application)CATIA.Visible=TrueEndIfOnErrorGoTo0'CreatinganewPartDimMyDocAsPartDocumentSetMyDoc=CATIA.Documents.Add(Part)'GettingthedefaultBodycalledMechanicalTool.1(internalname)DimmyBodyAsBodySetmyBody=MyDoc.Part.Bodies.Item(MechanicalTool.1)'ActivatingthebodyastheInWorkObjectMyDoc.Part.InWorkObject=myBody'CreatingareferenceonXYplaneDimReferencePlaneAsReferenceSetReferencePlane=MyDoc.Part.CreateReferenceFromGeometry(MyDoc.Part.OriginElements.PlaneXY)'CreatingmySketch1onXYPlaneDimmySketch1AsSketchSetmySketch1=myBody.Sketches.Add(ReferencePlane)CATIAV5AutomationDetailedStepsCOPYRIGHTDASSAULTSYSTEMES20026'OpeningmySketch1andgettingthefactoryDimMyFactory1AsFactory2DSetMyFactory1=mySketch1.OpenEdition()'Creating4linesDiml1AsLine2DDiml2AsLine2DDiml3AsLine2DDiml4AsLine2DSetl1=MyFactory1.CreateLine(10#,10#,10#,30#)Setl2=MyFactory1.CreateLine(10#,30#,40#,30#)Setl3=MyFactory1.CreateLine(40#,30#,40#,10#)Setl4=MyFactory1.CreateLine(40#,10#,10#,10#)mySketch1.CloseEdition'CreatingmySketch2onXYPlaneDimmySketch2AsSketchSetmySketch2=myBody.Sketches.Add(ReferencePlane)'OpeningmySketch2andgettingthefactoryDimMyFactory2AsFactory2DSetMyFactory2=mySketch2.OpenEdition()'Creating1CircleDimc1AsCircle2DSetc1=MyFactory2.CreateClosedCircle(40#,30#,10#)mySketch2.CloseEdition'GettingtheshapeFactoryDimMyFactAsShapeFactorySetMyFact=MyDoc.Part.ShapeFactoryCATIAV5AutomationDetailedStepsCOPYRIGHTDASSAULTSYSTEMES20027'CreatingapadDimmyPadAsPadSetmyPad=MyFact.AddNewPad(mySketch1,20)'CreatingaPocketDimmyPokAsPocketSetmyPok=MyFact.AddNewPocket(mySketch2,-20)MyDoc.Part.Update'ReframingthewindowonthepartCATIA.ActiveWindow.ActiveViewer.ReframeEndSubCATIAV5AutomationDetailedStepsCOPYRIGHTDASSAULTSYSTEMES20028ShapeDesign.vbpOptionExplicitDimCATIAAsINFITF.ApplicationPrivateSubCommand1_Click()OnErrorResumeNextSetCATIA=GetObject(,CATIA.Application)IfErr.Number0ThenSetCATIA=CreateObject(CATIA.Application)CATIA.Visible=TrueEndIfOnErrorGoTo0DimmyPartDocumentAsPartDocumentSetmyPartDocument=CATIA.Documents.Add(Part)DimmyPartAsPartSetmyPart=myPartDocument.Part'CreatinganOpen_bodyifnotalreadyexistingOnErrorResumeNextDimmyHybridBodyAsHybridBodySetmyHybridBody=myPart.HybridBodies.Item(Open_body.1)IfmyHybridBody