[lytemar]

Hi,
I couldn't seem to find an answer to this particular type of problem. So here goes...
In a Fluent Journal, I would like to define a string constant that contains the root name of the case file so that I can use the same string in other TUI commands, e.g., setting the root name for auto-save, etc.. This is what I did:

; define the case/data file name root
(define casedatfileroot "./mdl-name-shell-cond-transient")
; define the case file path
(define casefilepath (string-append casedatfileroot ".cas.gz"))

These variables are defined, but when I try to read in the case file, using this command,

/file/read-case (rpgetvar 'casefilepath)

I get the errors:
Error: File "(rpgetvar" not found!
Error Object: #f
invalid command ['casefilepath)]

This is using Fluent 2019R3. Can someone please help me? The ANSYS documentation is essentially non-existent for this.

[LuckyTran]

Filenames are not evaluated in the text prompt system, they are the only exception.

Originally Posted by lytemar

/file/read-case (rpgetvar 'casefilepath)
I get the errors:
Error: File "(rpgetvar" not found!
Error Object: #f
invalid command ['casefilepath)]

Fluent is looking for a file named (rpgetvar because this text is not being evaluated.


Here is a link to the non-existent documentation.

[lytemar]

Thanks, so this is not possible? That's a bummer.

[p.b+cfd]

For the record

First option using scheme variable (only valid during the current session of Fluent):

(define casedatfileroot "./mdl-name-shell-cond-transient")
(define casefilepath (string-append casedatfileroot ".cas.gz"))

; Quoted
(ti-menu-load-string (format #f "/file/read-case ~s") casefilepath)

; Un-quoted
; (ti-menu-load-string (format #f "/file/read-case ~a") casefilepath)

Second option using rp-variables (will be stored with the case):

(rp-var-define 'casedatfileroot "./mdl-name-shell-cond-transient" 'string #f)
(rp-var-define 'casefilepath (format #f "~s" (string-append (rpgetvar casedatfileroot) ".cas.gz")) 'string #f)

; Quoted
(ti-menu-load-string (format #f "/file/read-case ~s") (rpgetvar 'casefilepath))
; Un-quoted
; (ti-menu-load-string (format #f "/file/read-case ~a") (rpgetvar 'casefilepath))

To avoid typing these insanely long macros

(format #f "format string ~s" variable)
(ti-menu-load-string (format #f "format string ~s" variable))

all over the place I'd strongly recommend some global definitions like:

(define (fmt . args) (apply format (append (list #f) args)))
(define (tui . args) (ti-menu-load-string (apply fmt args)))

With these little macros defined, the first example could be reduced to

(define casedatfileroot "./mdl-name-shell-cond-transient")
(define casefilepath (string-append casedatfileroot ".cas.gz"))

; Quoted
(tui "/file/read-case ~s" casefilepath)

; Un-quoted
; (tui "/file/read-case ~a" casefilepath)

,

while the second example could be simplified to

(rp-var-define 'casedatfileroot "./mdl-name-shell-cond-transient" 'string #f)
(rp-var-define 'casefilepath (fmt "~s" (string-append (rpgetvar casedatfileroot) ".cas.gz")) 'string #f)

; Quoted
(tui "/file/read-case ~s" (rpgetvar 'casefilepath))

; Un-quoted
; (tui "/file/read-case ~a" (rpgetvar 'casefilepath))

[sfernaferna]

Hi, thanks for your contribution. My first time quoting, I hope to do it correctly.

For me, the format command (rpgetvar option) worked only if I include the (rpgetvar 'variable) inside the parentheses of the format command. I am referring to the lines:

Originally Posted by p.b+cfd

Second option using rp-variables (will be stored with the case):

(rp-var-define 'casedatfileroot "./mdl-name-shell-cond-transient" 'string #f)
(rp-var-define 'casefilepath (format #f "~s" (string-append (rpgetvar casedatfileroot) ".cas.gz")) 'string #f)

; Quoted
(ti-menu-load-string (format #f "/file/read-case ~s") (rpgetvar 'casefilepath))
; Un-quoted
; (ti-menu-load-string (format #f "/file/read-case ~a") (rpgetvar 'casefilepath))

As an example, here are my own commands, where I put the rpgetvar inside the format parenthesis:

(ti-menu-load-string (format #f "report/dpm-extended-summary yes casename_~a yes no" (rpgetvar 'flow-time)))

DID WORK .

However, the following DID NOT WORK:

(ti-menu-load-string (format #f "report/dpm-extended-summary yes casename_~a yes no") (rpgetvar 'flow-time))

With the error:
Error: CAR: invalid argument [1]: wrong type [not a pair]
Error Object: ()

Hope it helps! If it was a typo then I'm happy to have helped. If it wasn't I would be very grateful to receive some explanation on why it worked for me.

[AlexanderZ]

that was typo