Being able to specify automatically a naming convention based on type+ID for all the zones in a case file

In a case file with a large number of zones, the task of enforcing a certain naming
convention based on each zone type and ID, would be daunting if done manually.
Hence, provide an automatical / journal-friendly method to name ALL the zones
in a given case file based on zone type (interior, fluid, solid, velocity-inlet, etc.)
and zone ID. For example, all the pressure-inlets will be named
and all the walls will be named
Use the Scheme function showed below.

;; Scheme function to enforce a naming convention
;; for zones based on their type and their ID
;; Usage
;; 1) Read case file
;; 2) Load the file "naming.scm" through File>Read>Scheme or
;; through (load "naming.scm")
;; 3) use the function through a command of the form
;; (scramble type)
;; where type is a symbol for the type of the face / cell zones
;; you want affected by the naming convention
;; For example, if you would like to set the names for ALL the
;; walls to a generic wall-N, where N is the ID of that zone,
;; type the command
;; (scramble 'wall)
;; Do not change below this line without calling for support
(define scramble
(lambda (type)
(let ((scr))
(set! scr
(lambda (t typ)
(let ((tname)(tid))
(set! tname (thread-name t))
(set! tid (thread-id t))
(ti-menu-load-string (string-append "/def/bc/mo-zo/zo-na " (number->string tid)
" " (symbol->string typ) "-" (number->string tid))))))
(lambda (t)
(scr t type))
(get-threads-of-type type)))))

Show Form
No comments yet. Be the first to add a comment!