Language="VBSCRIPT"

Sub CATMain()
Dim FittingWorkbench0 As Workbench
Set FittingWorkbench0 = CATIA.ActiveDocument.GetWorkbench  ( "FittingWorkbench" ) 

Dim PathFinder1 As PathFinder
Set PathFinder1 = FittingWorkbench0.PathFinders.Add  ( "PathFinder" ) 

PathFinder1.set_SimulationByName "Simulation.1"

PathFinder1.set_DoubleParameter "Accuracy", 14.758000

PathFinder1.set_DoubleParameter "TranslationStep", 14.758000

PathFinder1.set_DoubleParameter "RotationGain", 2.000000

PathFinder1.set_IntegerParameter "Repulse", 5790

PathFinder1.set_BoxParameter "Box", -205.110550, -1115.599648, -341.661041, 918.198769, 460.187050, 694.402138

PathFinder1.Compute 

PathFinder1.Smooth 

PathFinder1.FillSimulation 

FittingWorkbench0.PathFinders.RemovePathFinder PathFinder1


End Sub