Problem do loop using Scheme commands

kris

I tested a very simple under source

My model is unsteady problem and I want to export techplot data every time step.

but syntax including "pressure-%t.dat" was not executed

what is the problems?

------------------------------------------------------

(do ((x 1 (+ x 1))) ((> x 3)(display "Done.\n"))

(display x)(cx-gui-do cx-activate-item "MenuBar*FileMenu*Export...")(newline)

(display x)(cx-gui-do cx-set-toggle-button "Export*Frame1(File Type)*ToggleBox1(File Type)*RadTherm" #f)(newline)

(display x)(cx-gui-do cx-activate-item "Export*Frame1(File Type)*ToggleBox1(File Type)*RadTherm")(newline)

(display x)(cx-gui-do cx-set-position "Export" '(x 128 y 581))(newline)

(display x)(cx-gui-do cx-set-toggle-button "Export*Frame1(File Type)*ToggleBox1(File Type)*Tecplot" #f)(newline)

(display x)(cx-gui-do cx-activate-item "Export*Frame1(File Type)*ToggleBox1(File Type)*Tecplot")(newline)

(display x)(cx-gui-do cx-set-list-selections "Export*Frame2*Table2*Frame1*Table1*Frame5*List5(F unctions to Write)" '( 19))(newline)

(display x)(cx-gui-do cx-activate-item "Export*Frame2*Table2*Frame1*Table1*Frame5*List5(F unctions to Write)")(newline)

(display x)(cx-gui-do cx-activate-item "Export*PanelButtons*PushButton1(OK)")(newline )

(display x)(cx-gui-do cx-set-text-entry "Select File*Text" "pressure-%t.dat")(newline)

(display x)(cx-gui-do cx-activate-item "Select File*OK")(newline)

(display x)(cx-gui-do cx-activate-item "Export*PanelButtons*PushButton2(Cancel)")(newline )

(display x)(cx-gui-do cx-activate-item "Iterate*PanelButtons*PushButton1(OK)")(newlin e)

)