Problem do loop using Scheme commands
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) ) |
All times are GMT -4. The time now is 19:52. |