Language="VBSCRIPT"

Sub CATMain( ThisBeh, ExtObj )

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument


Dim product1 As Product
Set product1 = productDocument1.Product

Dim relations1 As Relations
Set relations1 = product1.Relations

Dim documents1 As Documents
Set documents1 = CATIA.Documents


'******** Behavior == VBScriptImplementation
' NO error 
'On Error Resume Next

Dim CurSelection As Selection
set CurSelection = productDocument1.Selection

Dim VBScriptBeh  As Behavior
set VBScriptBeh = ThisBeh

'msgbox " OK pour recuperer le behavior" 
'******** Start 


if VBScriptBeh Is Nothing then
    MsgBox "Not Started From A Behavior"
else
	VBScriptBeh.Start 

Dim partDocument1 As Document
Set partDocument1 = documents1.Item("Driver_Part1.CATPart")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters


' create formulas in order to pilot geometry
Dim angle1 As Parameter
Set angle1 = parameters1.Item("L40")
msgbox "L40 valeur = " & angle1.Name
Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("Formula.1", "", angle1, "`Driver (Driver_Part1.1)\L40`")

formula1.Rename "L40_Formula"

Dim length1 As Parameter
Set length1 = parameters1.Item("Driver_Z_Position")

Dim formula2 As Formula
Set formula2 = relations1.CreateFormula("Formula.2", "", length1, "`Driver (Driver_Part1.1)\ZPosition`")

formula2.Rename "Driver_Z_Position_Formula"


Set length2= parameters1.Item("Driver_Y_Position")

Dim formula3 As Formula
Set formula3 = relations1.CreateFormula("Formula.3", "", length2, "`Driver (Driver_Part1.1)\YPosition`")

formula3.Rename "Driver_Y_Position_Formula"


Set length3= parameters1.Item("Driver_X_Position")

Dim formula4 As Formula
Set formula4 = relations1.CreateFormula("Formula.4", "", length3,"`Driver (Driver_Part1.1)\XPosition`")

formula4.Rename "Driver_X_Position_Formula"



' create formulas in order to report values
Dim relations2 As Relations
Set relations2 = product1.Relations

Dim ProdDriver As Product
Set ProdDriver = ExtObj

Dim parameters2 As Parameters
Set parameters2 = ProdDriver.Parameters

Dim angle5 As Parameter
Set angle5 = parameters2.Item("`Driver (Driver_Part1.1)\AnkleAngle`")

Dim formula10 As Formula
Set formula10 = relations2.CreateFormula("Formula.10", "", angle5, "Driver_Part\Ankle_Angle")

formula10.Rename "Ankle_Formula"


Dim angle6 As Parameter
Set angle6 = parameters2.Item("`Driver (Driver_Part1.1)\KneeAngle`")

Dim formula11 As Formula
Set formula11 = relations2.CreateFormula("Formula.11", "", angle6, "Driver_Part\Knee_Angle")

formula11.Rename "Knee_Formula"



Dim angle7 As Parameter
Set angle7 = parameters2.Item("`Driver (Driver_Part1.1)\HipAngle`")

Dim formula12 As Formula
Set formula12 = relations2.CreateFormula("Formula.12", "", angle7, "Driver_Part\Hip_Angle")

formula12.Rename "Hip_Formula"



Dim length20 As Parameter
Set length20 = parameters2.Item("`Driver (Driver_Part1.1)\HeelHipDistance`")

Dim formula20 As Formula
Set formula20 = relations2.CreateFormula("Formula.20", "", length20, "Driver_Part\Heel_Hip_Distance")

formula20.Rename "Heel_Hip_Formula"

	VBScriptBeh.Done

end if 

End Sub