Tech-Ecke / CATScript/VBS Inhalt / Bodies und Openbodies (Geometrical Sets)

 

Bodies und Openbodies (Geometrical Sets)

Seiteninhalt:  
  Body erzeugen
  OpenBody erzeugen (Geometrical Set)
  PartBody (MainBody) ermitteln
  Alle Bodys eines Parts ermitteln
  Einen bestimmten Body über seinen Namen ermitteln


 

Body erzeugen

Dieses Makro bezieht sich auf ein einzelnes separates Part (ohne Product). Der Body wird direkt in die Root des Baumes gesetzt, darum entfällt die Auswahl des Zielbodys.

  Sub CATMain()

set partDocument1 = CATIA.ActiveDocument
set PartBody = partDocument1.Part.Bodies
set NeuerPartBody = PartBody.Add()

NeuerPartBody.Name = "BodyName"          ' Optional -> Namen angeben

End Sub
 


 

OpenBody erzeugen (Geometrical Set)

Dieses Makro bezieht sich auf ein einzelnes separates Part (ohne Product). Das Geometrical Set wird direkt in die Root des Baumes gesetzt, darum entfällt die Auswahl des Ziel-Geometrical Sets.

 

  Sub CATMain()

set partDocument1 = CATIA.ActiveDocument
set OpenBody = partDocument1.Part.HybridBodies
set NeuerOpenBody = OpenBody.Add

NeuerOpenBody.Name = "GeoSetName"          ' Optional -> Namen angeben

End Sub
 


 

PartBody (MainBody) ermitteln

Dieses Makro bezieht sich auf ein einzelnes separates Part (ohne Product).

  Sub CATMain()

set HauptKoerper = CATIA.ActiveDocument.Part.MainBody
MsgBox HauptKoerper.Name

End Sub
 


 

Alle Bodys eines Parts ermitteln

Dieses Makro bezieht sich auf ein einzelnes separates Part (ohne Product).

  Sub CATMain()

set AlleKoerper = CATIA.ActiveDocument.Part.Bodies

MsgBox "Anzahl der Körper = " &AlleKoerper.Count

for i = 1 to AlleKoerper.Count
   set Koerper = AlleKoerper.Item(i)
   MsgBox Koerper.Name
next

End Sub
 


 

Einen bestimmten Body über seinen Namen ermitteln

Dieses Makro bezieht sich auf ein einzelnes separates Part (ohne Product).

  Sub CATMain()

set body1 = CATIA.ActiveDocument.Part.Bodies.Item("BodyName")

End Sub
 

"Die Option Drucken funktioniert erst ab Netscape V4.0 bzw. I-Explorer 5.0 !"

[letzte Aktualisierung 20.02.2016]