[dhimans]

Hi ,

I have a scheme code with which I can add a custom tab in FLUENT for inputting my GLOBAL variables for an automation code (again in Scheme).

The Tab works fine in GUI but I get junk values of those global variables when I try to retrieve them.

I want to be able to access the values of those global variables at all times.

The Code is -----------------------------------------------------------------------

 
 
;------------ Create RPVARS for Input parameters---------------------- 
(if (not (rp-var-object 'c_1))(rp-var-define 'c_1 550 'real #f))        ;corresponds to default mainstream gas temp 
(if (not (rp-var-object 'c_2))(rp-var-define 'c_2 60 'real #f))         ;corresponds to default mainstream velocity 
(if (not (rp-var-object 'c_3))(rp-var-define 'c_3 1.5 'real #f))        ;corresponds to default turbulent intensity 
(if (not (rp-var-object 'c_4))(rp-var-define 'c_4 300 'real #f))        ;corresponds to default coolant gas temp  
;------------------------------------------------------------------------------- 
 
(define Tgas)          ; 4 Global variables                     
(define Vgas) 
(define I) 
(define Tcool) 
 
;-------------------------------------------------------------------------------- 
(define gui-icht                            
     
  (let ((panel #f)) 
   
          (define (update-cb  args)           ;update panel fields 
   (cx-set-real-entry Tgas (rpgetvar 'c_1)) 
   (cx-set-real-entry Vgas (rpgetvar 'c_2)) 
   (cx-set-real-entry I (rpgetvar 'c_3)) 
   (cx-set-real-entry Tcool (rpgetvar 'c_4)) 
          ) 
   
       (define (apply-cb  args) 
   (rpsetvar 'c_1 (cx-show-real-entry Tgas)) 
   (rpsetvar 'c_2 (cx-show-real-entry Vgas)) 
   (rpsetvar 'c_3 (cx-show-real-entry I)) 
   (rpsetvar 'c_4 (cx-show-real-entry Tcool))  
         ) 
       
             
   
       (lambda (args) 
          
(if (not panel)   
     
(let ((table) (form))  
(set! panel (cx-create-panel "ICHT PANEL" apply-cb update-cb)) 
(set! table (cx-create-table panel "" 'border #f 'below 0 'right-of 0)) 
(set! form (cx-create-frame table "" 'border #f)) 
(set! Tgas (cx-create-real-entry table "Tg" 'width 14 'row 1 'col 0 )) 
(set! Vgas (cx-create-real-entry table "Vg" 'width 14 'row 2 'col 0 )) 
(set! I (cx-create-real-entry table "Tu%" 'width 14 'row 3 'col 0 )) 
(set! Tcool (cx-create-real-entry table "Tc" 'width 14 'row 4 'col 0)) 
)  
 
(set! *cx-exit-on-error* #f) 
) 
   
(cx-show-panel panel)) 
   
    ); END OF LET SCOPE 
 
); END OF FUNCTION DEFINITION  
 
 
(let ((menu (cx-add-menu "ICHT-GUI-Beta" #\U ))); end of let list  
       
      (cx-add-item menu "PARAMATERS"  #\U #f cx-client? gui-icht) 
      (cx-add-item menu "START PROGRAM" #\O #f and (lambda ()(load "main.scm"))); Starts the main automation code  
 
      (set! *cx-exit-on-error* #f) 
 ) 
 
 
(set! *cx-exit-on-error* #f)

;-----------------------------------------------------------------------------

I wish to load the custom tab ... Update the values .. and Retrieve the values anywhere in the main program. But when I try doing that get a Junk Value.
;-----------------------------------------------------------------------------

Please help me out with this

Regards
Dhiman