Bodies und Openbodies (Geometrical Sets)
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 |
|