|
[Sponsors] |
Get Zone-ID and Change the B.C. with a Journal File |
![]() |
|
LinkBack | Thread Tools | Search this Thread | Display Modes |
![]() |
![]() |
#1 |
New Member
Ataberk
Join Date: Nov 2019
Posts: 14
Rep Power: 6 ![]() |
Hello guys,
I have difficulty to import the zone-ids ![]() Here is my code: (define flowVector (vector "ch_channel_alt" "ch_channel_ust" "ch_plate_alt" "ch_plate_ust" "dhw_channel_alt" "dhw_channel_ust" "dhw_plate1_alt" "dhw_plate1_ust" "dhw_plate2_alt" "dhw_plate2_ust")) (define length (vector-length flowVector)) (do ((f 0 (+ f 1))) ((> f length)) (begin (define fV (vector-ref flowVector f)) (define c1 (zone-name->id 'fV)) /define/boundary-conditions/modify-zones/zone-type c1 interface)) And also here is my output: Error: eval: unbound variable Error Object: /define/boundary-conditions/modify-zones/zone-type Error: eval: invalid function Error Object: 10 Thanks! |
|
![]() |
![]() |
![]() |
![]() |
#2 |
Senior Member
Join Date: Nov 2013
Posts: 1,965
Rep Power: 26 ![]() |
You are mixing journal file and scheme.
The line where you modify the zone should also be in scheme. There is a Fluent-specific scheme command to send text to the TUI, I forgot the name but it is in the help. Use that one. |
|
![]() |
![]() |
![]() |
![]() |
#3 | |
New Member
Ataberk
Join Date: Nov 2019
Posts: 14
Rep Power: 6 ![]() |
Quote:
I tried to write this code instead of using /define/boundary... (ti-menu-load-string (format #f "/define/boundary-conditions/modify-zones/zone-type ~a" c1)) Probably, I have some mistakes in this code. But, I am not sure where they are. |
||
![]() |
![]() |
![]() |
![]() |
#4 |
Senior Member
Alexander
Join Date: Apr 2013
Posts: 2,363
Rep Power: 34 ![]() ![]() |
looks like, there is no operations with "vector" in fluent compilation
Code:
(define (make-new-rpvar name default type)(rp-var-define name default type #f)) (make-new-rpvar 'flowVector '(ch_channel_alt ch_channel_ust ch_plate_alt ch_plate_ust dhw_channel_alt dhw_channel_ust dhw_plate1_alt dhw_plate1_ust dhw_plate2_alt dhw_plate2_ust) 'string-list) (do ((i 0 (1+ i)) (j (rpgetvar 'flowVector) (cdr j))) ((null? j)) ; if j is '(), just end the loop (begin (ti-menu-load-string (format #f "define boundary-conditions modify-zones zone-type ~a\n" (zone-name->id (car j))) ) ) )
__________________
best regards ****************************** press LIKE if this message was helpful |
|
![]() |
![]() |
![]() |
Tags |
ansys, fluent, journal, scheme, zone-id |
|
|