Código VB especialmente pegado de desarrollo secundario de CATIA

Sub CATMain()

'Ingresar a la interfaz CATIA******************

Atenuar partDocument1 como PartDocument

Establecer partDocument1 = CATIA.ActiveDocument

'Ingresar a la interfaz de part1******************

Atenuar part1 Como parte

Establecer part1 = partDocument1.Part

'Selección de inicialización******************

Atenuar selección1 Como Selección

Establecer selección1 = partDocument1.Selection

selection1.Clear

'Definir conjunto de geometría (cualquiera)********** * ****

Dim hybridBodies1 As HybridBodies

Establecer hybridBodies1 = part1.HybridBodies

'Crear un conjunto de geometría (específico)****** *********

Dim hybridBody1 As HybridBody

'Set hybridBody1 = hybridBodies1.Add()

'Conjunto de geometría (acoplamiento) * ***************

Establecer hybridBody1 = hybridBodies1.Item("Geometry Set.1")

Atenuar hybridShapes1 como HybridShapes

Establecer hybridShapes1 = hybridBody1.HybridShapes

Atenuar hybridShapeLinePtPt1 como HybridShapeLinePtPt

Establecer hybridShapeLinePtPt1 = hybridShapes1.Item("Straight line.4")

selección1 .Add hybridShapeLinePtPt1

'Seleccionar copiar******************

selección1.Copiar

'Seleccionar pegar * ***************

selection1.PasteSpecial ("CATPrtResultWithOutLink")

'Seleccionar versión********** ** *******

selección1.Borrar

parte1.Actualizar

Fin Sub