如何用fluent的scheme脚本，输出多data中的多个面上的静压值？

谢谢smart222，我已知道原因了，语句没错，是我给的面有问题，是条线，可能fluent输出时认为其上无压力值

smart222好，data文件我已能读进去了，但输出压力又有问题，fluent提示：
no pressure q nofile export ascii xicylinder-5-00350-cy05.dat (zcy05)
Error: GENERAL-CAR-CDR: invalid argument [1]: improper list
Error Object: #f
请帮我看下，谢谢。
以下是我修改的文件：
(define prefix "xicylinder-5-00")
(define tstart 100)
(define timestep 50)
(define steps 2)
(ti-menu-load-string
(format #f "/file/rc xicylinder-5 "))
;; make postfix part of filename
(define postfix
(lambda (n)
(let ((flonum-unparser-cutoff '(absolute 6 scientific)))
(number->string (+ tstart (* timestep n))))))
;; loop over all cas/dat to output pressure at boundary "wall-top" and "wall-bottom"
(define loop
(lambda (x y)
(if (<= x y)
(begin
(define fname (string-append prefix (postfix x)))

(ti-menu-load-string
(format #f "file read-data ~a" fname))
(ti-menu-load-string (string-append "file export ascii "
(string-append fname "-cy02.dat")
" (zcy02) no pressure q no"));; 问题出在这

(set! x (+ x 1))
(loop x y)))))
(loop 0 steps)

沉下去了，请smart222帮下忙，谢了

不是非要用scheme，日志文件也行。问题是日志文件我也不会，没用过。
象我这种情况：算的是三维非常流动，只有一个只用case文件，要读取多个data文件（按时间步保存的）中某一面上的静压值，要怎样写日志文件啊？请帮忙，谢了

干嘛非用脚本呢？日志文件不行吗？脚本我也不是太熟。

不好意思，是我前面没说清楚，你给的两个命令是对的。
不过放到我的脚本里，因我的data命令方式问题，fluent报错：
/file/rd fname
Error: File "fname" not found!
Error Object: #f
file export ascii xicylinder-5-00100-cy02.dat (zcy02)
Error: GENERAL-CAR-CDR: invalid argument [1]: improper list
错误出在8楼我用红色标出的部分，请smart222帮我看一下8楼的scheme脚本，应怎样改？谢了
顺便说一下，我用的是ANSYS FLUENT 14版本。

亲测，能用。

smart222 好，我试过了，用你给的命令case能读，但data读不出。应该是我的scheme脚本的文件命令方式的问题。我是据网上的资料修改的，文件命令方式是用前、后缀形式写的，把我的sheme文件贴上，帮我看一下吧，谢谢。
(define prefix "xicylinder-5-00")
(define tstart 100)
(define timestep 50)
(define steps 10)
(ti-menu-load-string
(format #f "/file/rc xicylinder-5 ")) ;;xicylinder-5是case文件名
;; make postfix part of filename
(define postfix
(lambda (n)
(let ((flonum-unparser-cutoff '(absolute 6 scientific)))
(number->string (+ tstart (* timestep n))))))
;; loop over all cas/dat to output pressure at boundary "wall-top" and "wall-bottom"
(define loop
(lambda (x y)
(if (<= x y)
(begin
(define fname (string-append prefix (postfix x))) ;;利用前、后缀命名data文件名为fname
(ti-menu-load-string
(format #f "/file/rd fname ")) ;; 读进fluent后，显示说无fname这个文件。
(ti-menu-load-string (string-append "file export ascii "
(string-append fname "-cy02.dat")
" (zcy02) no pressure q no"))

(set! x (+ x 1))
(loop x y)))))
(loop 0 steps)

谢谢了，我先试一下，有问题再请教。

(ti-menu-load-string
(format #f "/file/rc wer "))
(ti-menu-load-string
(format #f "/file/rd wer2 "))
wer wer2是文件名。