1

我需要创建代码，将一些文件加载​​到 ANSYS Fluent 软件中，然后创建一个表面，然后 - 计算该表面上的中等压力。这三个动作必须重复 100 次。我写了一个 do 循环，你可以在下面看到它，但它不适用于这三个动作。它仅适用于一个动作（这三个中的任何一个）。请告诉我我的错误在哪里，以及如何更改代码。甚至有可能在 do 循环中创建多个命令吗？

问候

(Do ((x 1 (+ x 1))) ((> x 100))
(Ti-menu-load-string (format #f "file read-case-data K:\USERS\mnowak\artykulzautosavemnaprawa\postprocessing\caseanddatadoanalizy\Fluentmesh14-58-0000~a.cas.gz" x))
(Ti-menu-load-string (format #f "surface plane-surf-aligned ooooo~a outlet2 -0.0291707 -0.0056188 0.13" x))
(Ti-menu-load-string (format #f "report surface-integrals area-weighted-avg ooooo~a () pressure y pressure1" x))
)
4

1 回答 1

0

可能有点晚了，但对于任何有同样问题的人

尝试将您的命令包装在里面（开始 ....）

(Do ((x 1 (+ x 1))) ((> x 100))
(begin 
    (Ti-menu-load-string (format #f "file read-case-data K:\USERS\mnowak\artykulzautosavemnaprawa\postprocessing\caseanddatadoanalizy\Fluentmesh14-58-0000~a.cas.gz" x))
    (Ti-menu-load-string (format #f "surface plane-surf-aligned ooooo~a outlet2 -0.0291707 -0.0056188 0.13" x))
    (Ti-menu-load-string (format #f "report surface-integrals area-weighted-avg ooooo~a () pressure y pressure1" x))
))

这应该行得通

于 2020-01-28T16:38:17.580 回答