Language="VBSCRIPT"

'Makro zur automatischen Erzeugung von Blechdicken mit dem Befehl "Thick Surface"
'mit automatischer Zuordnung des Parameters der Blechdicke (aufgrund gleicher Benennung)

Sub CATMain()

'_______________________________Funktioniert auch ohne Festlegung von Variablen
'Dim partDocument1 'As Document
'Dim part1 'As Part
'Dim shapeFactory1 'As Factory
'Dim thickSurface1 As ThickSurface
'Dim length1 As Length
'Dim relations1 As Relations
'Dim formula1 As Formula
'Dim hybridBodies1 As HybridBodies
'Dim hybridBody1 As HybridBody
'Dim hybridBodies2 As HybridBodies
'Dim hybridBody2 As HybridBody
'Dim hybridShapes1 As HybridShapes
'Dim hybridShapeSplit1 As HybridShape
'Dim reference2 As Reference
'_______________________________


Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set shapeFactory1 = part1.ShapeFactory
Set reference1 = part1.CreateReferenceFromName("")

for i = 250042 to 250062 step 10

	Set thickSurface1 = shapeFactory1.AddNewThickSurface(reference1, 0, 1.000000, 0.000000)

	MsgBox(i)

	Set length1 = thickSurface1.TopOffset
	Set relations1 = part1.Relations
	Set formula1 = relations1.CreateFormula("Formula." & i, "", length1, "`External Parameters\" & i & "` ")
	formula1.Rename "Formula." & i
	Set hybridBodies1 = part1.HybridBodies
	Set hybridBody1 = hybridBodies1.Item("Frames")
	Set hybridBodies2 = hybridBody1.HybridBodies
	Set hybridBody2 = hybridBodies2.Item("Frame Plateaus C25")
	Set hybridShapes1 = hybridBody2.HybridShapes
	Set hybridShapeSplit1 = hybridShapes1.Item("" & i)      'will vermutlich Ziffernfolge haben daher "" + Zähler i
	Set reference2 = part1.CreateReferenceFromObject(hybridShapeSplit1)
	thickSurface1.Surface = reference2

	thickSurface1.swap_OffsetSide  		'Flächenaufdickung in andere Richtung

next

part1.Update 

End Sub