CATIA V5 Automation Detailed Steps(基于VB的catia二次开发代码).doc

CATIA V5 Automation Detailed StepsTable of Contents Views.vbp 3 PartDesign.vbp 5 ShapeDesign.vbp 8 Assembly.vbp 12 Drafting.vbp 15 GetPoint.vbp 18 TestSelections.vbp 20 Views.vbp Option Explicit Dim CATIA As INFITF.Application Dim myDoc As PartDocument Private Sub Command1_Click() On Error Resume Next Set CATIA = GetObject(, CATIA.Application) If Err.Number 0 Then Set CATIA = CreateObject(CATIA.Application) CATIA.Visible = True End If On Error GoTo 0 Opening Bolt.CATPart Dim myDir As String myDir = App.Path Set myDoc = CATIA.Documents.Open(myDir \Bolt.CATPart) Dim myViewer3 As Viewer3D Dim myViewPoint As Viewpoint3D Getting the active Viewer Set myViewer3 = CATIA.ActiveWindow.ActiveViewer myViewer3.RenderingMode = catRenderShading Dim myCam3d As Camera3D Dim i As Integer Display the number of defined cameras. MsgBox myDoc.Cameras.Count  Scaning all the cameras of the document For i = 1 To myDoc.Cameras.Count Set myCam3d = myDoc.Cameras.Item(i) Modifying the Viewpoint3D of the active viewer myViewer3.Viewpoint3D = myCam3d.Viewpoint3D myViewer3.Reframe myViewer3.ZoomIn myViewer3.Update MsgBox myCam3d.Name Next Selecting the front camera Set myCam3d = myDoc.Cameras.Item(* front) myViewer3.Viewpoint3D = myCam3d.Viewpoint3D Saving the document If MsgBox(Save Bolt2, vbOKCancel) = vbOK Then On Error Resume Next Kill (myDir \Bolt2.CATPart) Call myDoc.SaveAs(myDir \Bolt2.CATPart) Call myDoc.Close On Error GoTo 0 End If End Sub PartDesign.vbp Option Explicit Dim CATIA As INFITF.Application Private Sub Command1_Click() On Error Resume Next Set CATIA = GetObject(, CATIA.Application) If Err.Number 0 Then Set CATIA = CreateObject(CATIA.Application) CATIA.Visible = True End If On Error GoTo 0 Creating a new Part Dim MyDoc As PartDocument Set MyDoc = CATIA.Documents.Add(Part) Getting the default Body called MechanicalTool.1 (internal name) Dim myBody As Body Set myBody = MyDoc.Part.Bodies.Item(MechanicalTool.1) Activating