Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim Document1 As Document
Set Document1 = CATIA.ActiveDocument


'******** Behavior == VBScriptImplementation

Dim CurSelection As Selection
set CurSelection = Document1.Selection

Dim VBScriptBeh As Behavior
set VBScriptBeh = CurSelection.FindObject("CATIABehaviorVBScript")


if VBScriptBeh Is Nothing then
       MsgBox "Not Started From A Behavior"
else
	'vbscript is started 
	VBScriptBeh.Start 
End if

Dim ratio As Parameter
Dim IN_Ratio
IN_Ratio= VBScriptBeh.TestInput("Ratio")
if( IN_Ratio)then 
	Set ratio = VBScriptBeh.GetInput("Ratio")
End if


Dim nextRatio As Parameter
Dim IN_NRatio
IN_NRatio= VBScriptBeh.TestInput("NextRatio")
if( IN_NRatio)then 
	Set nextRatio = VBScriptBeh.GetInput("NextRatio")
End if

Dim iteration As Parameter
Dim IN_Iter
IN_Iter= VBScriptBeh.TestInput("Iteration")
if( IN_Iter)then 
	Set iteration = VBScriptBeh.GetInput("Iteration")
End if


message = "The instantiation of dominoes will stop at iteration " & iteration.Value & " for the current point ratio on curve is " &ratio.Value & " and the next one will be " & nextratio.Value

Dim MyBox
MyBox = MsgBox (message , vbInformation)

VBScriptBeh.Done

End Sub