Sub CATMain() CATIA.DisplayFileAlerts = False Set oproduct = CATIA.ActiveDocument.Selection.Item(1).Value Set opartdocument = oproduct.ReferenceProduct.Parent CATIA.Documents.Open (opartdocument.FullName) End Sub |
Sub CATmain() CATIA.StartCommand ("在新窗口中打开") End Sub |