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

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