CATIA VBA: 在另一个窗口中打开子装配

Sub CATMain()

   Dim InputObjectType(0)

   InputObjectType(0) = "Product"

   Dim oProductDoc

   Set oProductDoc = CATIA.ActiveDocument

   Dim oSelection

   Set oSelection = oProductDoc.Selection

   oSelection.Clear

   Dim aSel

   aSel = oSelection.SelectElement2(InputObjectType, "Select the part to open in a new window", False)

   oSelection.Clear

   If aSel = "Normal" Then

       CATIA.StartCommand "Open in New Window"

   Else

       'Take some other action...

   End If

End Sub

As long as an instance is selected, this command will open the part in it's own window. I added a check to be sure the selection was successful before calling because if nothing is selected CATIA just ignores the command plus you might want to take some other action...

武汉格发信息技术有限公司，格发许可优化管理系统可以帮你评估贵公司软件许可的真实需求，再低成本合规性管理软件许可,帮助贵司提高软件投资回报率，为软件采购、使用提供科学决策依据。支持的软件有: CAD,CAE,PDM,PLM,Catia,Ugnx, AutoCAD, Pro/E, Solidworks ,Hyperworks, Protel,CAXA,OpenWorks LandMark,MATLAB,Enovia,Winchill,TeamCenter,MathCAD,Ansys, Abaqus,ls-dyna, Fluent, MSC,Bentley,License,UG,ug,catia,Dassault Systèmes,AutoDesk,Altair,autocad,PTC,SolidWorks,Ansys,Siemens PLM Software,Paradigm,Mathworks,Borland,AVEVA,ESRI,hP,Solibri,Progman,Leica,Cadence,IBM,SIMULIA,Citrix,Sybase,Schlumberger,MSC Products...