Code:
Language="VBSCRIPT"
Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
'Parameter erzeugen ------------------------------------------------------------------------------------
Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
Dim Wert as double
Wert = InputBox("Bitte den Abstand der Ebene angeben")
Dim length1 As Dimension
Set length1 = parameters1.CreateDimension("Abstand_Ebene", "LENGTH", Wert)
'Ebene erzeugen ------------------------------------------------------------------------------------
Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = part1.HybridShapeFactory
'XY Ebene als Referenz zuweisen------------------------------------------------------------------
Dim originElements1 As OriginElements
Set originElements1 = part1.OriginElements
Dim hybridShapePlaneExplicit1 As AnyObject
Set hybridShapePlaneExplicit1 = originElements1.PlaneXY
Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapePlaneExplicit1)
'----------------------------------------------------------------------------------------------------------
Dim hybridShapePlaneOffset1 As HybridShapePlaneOffset
Set hybridShapePlaneOffset1 = hybridShapeFactory1.AddNewPlaneOffset(reference1, length1.Value, False)
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")
hybridBody1.AppendHybridShape hybridShapePlaneOffset1
part1.InWorkObject = hybridShapePlaneOffset1
'Formel erzeugen--------------------------------------------------------------------------------------------------------------
Dim Formeln as Relations
Dim Formel as Formula
Dim Verkn_1
Set Formeln = part1.Relations
Set Verkn_1 = hybridShapePlaneOffset1.Offset
Set Formel = Formeln.CreateFormula("Formel_Ebene", "",Verkn_1 ,"Abstand_Ebene")
part1.Update
End Sub