' Vytvori GS s nazvami - GS,WIN,Extracts,Work

Sub CATMain()



On Error GoTo ErrHandler

Dim oDoc As Document

Set oDoc = CATIA.ActiveDocument



Dim oPart As Part

Set oPart = oDoc.Part





Dim HBs As HybridBodies

Set HBs = oPart.HybridBodies









Dim HBWRK, HBIN, HBNAZOV, HBINPUTS, HBExtracts As HybridBody

Dim nazov As String

nazov = InputBox("Zadaj nazov GEometrickeho Setu")

 If nazov = "" Then Exit Sub



' Natsav GS kde si aktvny

Dim kde As HybridBodies

Set kde = oPart.InWorkObject



'Set Hbs = Hbs.Item(CStr(Kde))



Set HBNAZOV = kde.Add

HBNAZOV.Name = CStr(nazov)





Set HBs = kde.Item(CStr(nazov))

Set HBIN = HBs.Add

HBIN.Name = "IN"



Dim IN2 As HybridBodies

Set IN2 = HBs.Item("IN")

Set Extracts = IN2.Add

Extracts.Name = "Extracts "





Set HBWRK = HBs.Add

HBWRK.Name = "WORK"





oPart.InWorkObject = Extracts



Exit Sub



'Error handler

ErrHandler:

 MsgBox "Sry,kamo - Musis si otvorit part zvlast a nie pracovat v Assemly"

 

 End Sub