Hi GiD-Team,
I am writing the template file for a problem type and I have a problem about data storing. I store some values (the user inputs them through a window which is created with a tcl procedure within the tcl file of the problem type) in global variables during the preprocess and I need to temporarily store these values in variables in the template file, so as to decide by these values which data in the configuration files I have to access to write the input file.
I tried the *tcl command of the bas file to get the values of the global variables in the tcl file, but the problem with this command is the fact that I cannot store these values but only write them directly into the input file.
Next is what I have written in the bas file:
*tcl(Belastungsart)
That corresponds to a procedure in the tcl file:
proc Belastungsart { } {
global VoreinstellungPriv
if { $VoreinstellungPriv(Belastungsart) == " schlaffe_Last " } {
return { 1 } }
if { $VoreinstellungPriv(Belastungsart) == " starre_Platte " } {
return { 2 } }
if { $VoreinstellungPriv(Belastungsart) == " elastische_Platte " } {
return { 3 } }
}
What I would need to do is to store the value I get from the tcl procedure with the *tcl command in a variable in the bas file; something like this:
*Set var belastungsart=*tcl(Belastungsart)
...
*if(belastungsart==2)
...
*endif
That does not work because the *tcl command is not an arithmetic expression. Is there a possibility to store other data in a variable in the bas file?
If not, how can I get to temporarily store some gobal variables of the tcl file in the bas file?
thaks for response,
Andreas Friedberg
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listas.cimne.upc.edu/pipermail/gidlist/attachments/20030209/8a0196c8/attachment.htm
[GiDlist] problem with bas file
Moderator: GiD Team
-
Enrique Escolano
[GiDlist] problem with bas file
Now the *tcl writes directly to the output file, but it not returns any value to the "bas" file.
You can write the conditional data also from tcl.
It is possible also some "dark" trick, for example, use a general data field in the *.prb file (can be hidden) to pass
the value between tcl and the bas file:
*.prb file
QUESTION:Belastungsart:#CB#(schlaffe_Last,starre_Platte,elastische_Platte)
VALUE: schlaffe_Last
STATE: HIDDEN
*.tcl file
proc Belastungsart { } {
global VoreinstellungPriv
.central.s process escape escape escape data problemdata singlefield \
Belastungsart $VoreinstellungPriv(Belastungsart)
return
}
*.bas file
*tcl(Belastungsart)
*if(strcmp(GenData(Belastungsart),"schlaffe_Last")==0)
...
In fact, you can make the problemdata field visible, and it is not necessary a special tcl window to
input this data, and the aditional tcl proc Belastungsart.
Enrique Escolano
----- Original Message -----
From: Andreas Friedberg
To: GiD mailinglist
Sent: Sunday, February 09, 2003 10:52 PM
Subject: [GiDlist] problem with bas file
Hi GiD-Team,
I am writing the template file for a problem type and I have a problem about data storing. I store some values (the user inputs them through a window which is created with a tcl procedure within the tcl file of the problem type) in global variables during the preprocess and I need to temporarily store these values in variables in the template file, so as to decide by these values which data in the configuration files I have to access to write the input file.
I tried the *tcl command of the bas file to get the values of the global variables in the tcl file, but the problem with this command is the fact that I cannot store these values but only write them directly into the input file.
Next is what I have written in the bas file:
*tcl(Belastungsart)
That corresponds to a procedure in the tcl file:
proc Belastungsart { } {
global VoreinstellungPriv
if { $VoreinstellungPriv(Belastungsart) == " schlaffe_Last " } {
return { 1 } }
if { $VoreinstellungPriv(Belastungsart) == " starre_Platte " } {
return { 2 } }
if { $VoreinstellungPriv(Belastungsart) == " elastische_Platte " } {
return { 3 } }
}
What I would need to do is to store the value I get from the tcl procedure with the *tcl command in a variable in the bas file; something like this:
*Set var belastungsart=*tcl(Belastungsart)
...
*if(belastungsart==2)
...
*endif
That does not work because the *tcl command is not an arithmetic expression. Is there a possibility to store other data in a variable in the bas file?
If not, how can I get to temporarily store some gobal variables of the tcl file in the bas file?
thaks for response,
Andreas Friedberg
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listas.cimne.upc.edu/pipermail/gidlist/attachments/20030210/4ba7e5eb/attachment.htm
You can write the conditional data also from tcl.
It is possible also some "dark" trick, for example, use a general data field in the *.prb file (can be hidden) to pass
the value between tcl and the bas file:
*.prb file
QUESTION:Belastungsart:#CB#(schlaffe_Last,starre_Platte,elastische_Platte)
VALUE: schlaffe_Last
STATE: HIDDEN
*.tcl file
proc Belastungsart { } {
global VoreinstellungPriv
.central.s process escape escape escape data problemdata singlefield \
Belastungsart $VoreinstellungPriv(Belastungsart)
return
}
*.bas file
*tcl(Belastungsart)
*if(strcmp(GenData(Belastungsart),"schlaffe_Last")==0)
...
In fact, you can make the problemdata field visible, and it is not necessary a special tcl window to
input this data, and the aditional tcl proc Belastungsart.
Enrique Escolano
----- Original Message -----
From: Andreas Friedberg
To: GiD mailinglist
Sent: Sunday, February 09, 2003 10:52 PM
Subject: [GiDlist] problem with bas file
Hi GiD-Team,
I am writing the template file for a problem type and I have a problem about data storing. I store some values (the user inputs them through a window which is created with a tcl procedure within the tcl file of the problem type) in global variables during the preprocess and I need to temporarily store these values in variables in the template file, so as to decide by these values which data in the configuration files I have to access to write the input file.
I tried the *tcl command of the bas file to get the values of the global variables in the tcl file, but the problem with this command is the fact that I cannot store these values but only write them directly into the input file.
Next is what I have written in the bas file:
*tcl(Belastungsart)
That corresponds to a procedure in the tcl file:
proc Belastungsart { } {
global VoreinstellungPriv
if { $VoreinstellungPriv(Belastungsart) == " schlaffe_Last " } {
return { 1 } }
if { $VoreinstellungPriv(Belastungsart) == " starre_Platte " } {
return { 2 } }
if { $VoreinstellungPriv(Belastungsart) == " elastische_Platte " } {
return { 3 } }
}
What I would need to do is to store the value I get from the tcl procedure with the *tcl command in a variable in the bas file; something like this:
*Set var belastungsart=*tcl(Belastungsart)
...
*if(belastungsart==2)
...
*endif
That does not work because the *tcl command is not an arithmetic expression. Is there a possibility to store other data in a variable in the bas file?
If not, how can I get to temporarily store some gobal variables of the tcl file in the bas file?
thaks for response,
Andreas Friedberg
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listas.cimne.upc.edu/pipermail/gidlist/attachments/20030210/4ba7e5eb/attachment.htm
-
ieea
[GiDlist] problem with bas file
Dear all,
I am using now the fonction given by Enrique in the last message. This
is very easy to do.
Nevertheless, I noticed a problem to transfert names with blank inside
from Tcl windows to GID template files.
For example, I wrote:
in a Tcl file associated to a user's window in GID
proc AntPatToData {} {
global ANTENNA_DIAGRAMME
set longueur [string length $ANTENNA_DIAGRAMME]
set name [string range $ANTENNA_DIAGRAMME 0 $longueur]
.central.s process escape escape escape data problemdata
singlefield \
AntennaPattern $name
}
The name is here C:\Program Files\GiD\GiD7.1\test\pattern.txt, with a
blank space
between "Program" and "Files".
Then, in my *.bas, there is:
...
*if(strcmp(GenData(Ponctual),"YES")==0)
#EmissionPoint
*GenData(AntennaPattern)
...
and in my *.prb, ther is:
...
QUESTION: AntennaPattern
VALUE: none
...
This is the way given in the last message.
But, when I do that, I cannot obtain the right file name.
The name transfered is actually C:\Program instead of
C:\Program Files\GiD\GiD7.1\test\pattern.txt !
Could you give me a good way to solve this problem.
Thank you for your response
G.W.R.Geis
Enrique Escolano a écrit :
Now the *tcl writes directly to the output file, but it not returns
any value to the "bas" file. You can write the conditional data also
from tcl. It is possible also some "dark" trick, for example, use a
general data field in the *.prb file (can be hidden) to passthe value
between tcl and the bas file: *.prb
fileQUESTION:Belastungsart:#CB#(schlaffe_Last,starre_Platte,elastische_Platte)VALUE:
schlaffe_LastSTATE: HIDDEN *.tcl fileproc Belastungsart { } {
global VoreinstellungPriv .central.s process escape escape escape
data problemdata singlefield \ Belastungsart
$VoreinstellungPriv(Belastungsart) return} *.bas
file*tcl(Belastungsart)*if(strcmp(GenData(Belastungsart),"schlaffe_Last")==0)...
In fact, you can make the problemdata field visible, and it is not
necessary a special tcl window toinput this data, and the aditional
tcl proc Belastungsart. Enrique Escolano
----- Original Message -----
From:Andreas Friedberg
To: GiD mailinglist
Sent: Sunday, February 09, 2003 10:52 PM
Subject: [GiDlist] problem with bas file
Hi GiD-Team, I am writing the template file for a problem
type and I have a problem about data storing. I store some
values (the user inputs them through a window which is
created with a tcl procedure within the tcl file of the
problem type) in global variables during the preprocess and
I need to temporarily store these values in variables in the
template file, so as to decide by these values which data
in the configuration files I have to access to write the
input file.I tried the *tcl command of the bas file to get
the values of the global variables in the tcl file, but the
problem with this command is the fact that I cannot store
these values but only write them directly into the input
file. Next is what I have written in the bas file:
*tcl(Belastungsart) That corresponds to a procedure in the
tcl file: proc Belastungsart { } { global
VoreinstellungPriv if {
$VoreinstellungPriv(Belastungsart) == " schlaffe_Last " } {
return { 1 } }
if { $VoreinstellungPriv(Belastungsart) == "
starre_Platte " } {
return { 2 } }
if { $VoreinstellungPriv(Belastungsart) == "
elastische_Platte " } {
return { 3 } }
} What I would need to do is to store the value I get
from the tcl procedure with the *tcl command in a variable
in the bas file; something like this: *Set var
belastungsart=*tcl(Belastungsart)...*if(belastungsart==2)...*endifThat
does not work because the *tcl command is not an arithmetic
expression. Is there a possibility to store other data in a
variable in the bas file?If not, how can I get to
temporarily store some gobal variables of the tcl file in
the bas file? thaks for response, Andreas Friedberg
I am using now the fonction given by Enrique in the last message. This
is very easy to do.
Nevertheless, I noticed a problem to transfert names with blank inside
from Tcl windows to GID template files.
For example, I wrote:
in a Tcl file associated to a user's window in GID
proc AntPatToData {} {
global ANTENNA_DIAGRAMME
set longueur [string length $ANTENNA_DIAGRAMME]
set name [string range $ANTENNA_DIAGRAMME 0 $longueur]
.central.s process escape escape escape data problemdata
singlefield \
AntennaPattern $name
}
The name is here C:\Program Files\GiD\GiD7.1\test\pattern.txt, with a
blank space
between "Program" and "Files".
Then, in my *.bas, there is:
...
*if(strcmp(GenData(Ponctual),"YES")==0)
#EmissionPoint
*GenData(AntennaPattern)
...
and in my *.prb, ther is:
...
QUESTION: AntennaPattern
VALUE: none
...
This is the way given in the last message.
But, when I do that, I cannot obtain the right file name.
The name transfered is actually C:\Program instead of
C:\Program Files\GiD\GiD7.1\test\pattern.txt !
Could you give me a good way to solve this problem.
Thank you for your response
G.W.R.Geis
Enrique Escolano a écrit :
Now the *tcl writes directly to the output file, but it not returns
any value to the "bas" file. You can write the conditional data also
from tcl. It is possible also some "dark" trick, for example, use a
general data field in the *.prb file (can be hidden) to passthe value
between tcl and the bas file: *.prb
fileQUESTION:Belastungsart:#CB#(schlaffe_Last,starre_Platte,elastische_Platte)VALUE:
schlaffe_LastSTATE: HIDDEN *.tcl fileproc Belastungsart { } {
global VoreinstellungPriv .central.s process escape escape escape
data problemdata singlefield \ Belastungsart
$VoreinstellungPriv(Belastungsart) return} *.bas
file*tcl(Belastungsart)*if(strcmp(GenData(Belastungsart),"schlaffe_Last")==0)...
In fact, you can make the problemdata field visible, and it is not
necessary a special tcl window toinput this data, and the aditional
tcl proc Belastungsart. Enrique Escolano
----- Original Message -----
From:Andreas Friedberg
To: GiD mailinglist
Sent: Sunday, February 09, 2003 10:52 PM
Subject: [GiDlist] problem with bas file
Hi GiD-Team, I am writing the template file for a problem
type and I have a problem about data storing. I store some
values (the user inputs them through a window which is
created with a tcl procedure within the tcl file of the
problem type) in global variables during the preprocess and
I need to temporarily store these values in variables in the
template file, so as to decide by these values which data
in the configuration files I have to access to write the
input file.I tried the *tcl command of the bas file to get
the values of the global variables in the tcl file, but the
problem with this command is the fact that I cannot store
these values but only write them directly into the input
file. Next is what I have written in the bas file:
*tcl(Belastungsart) That corresponds to a procedure in the
tcl file: proc Belastungsart { } { global
VoreinstellungPriv if {
$VoreinstellungPriv(Belastungsart) == " schlaffe_Last " } {
return { 1 } }
if { $VoreinstellungPriv(Belastungsart) == "
starre_Platte " } {
return { 2 } }
if { $VoreinstellungPriv(Belastungsart) == "
elastische_Platte " } {
return { 3 } }
} What I would need to do is to store the value I get
from the tcl procedure with the *tcl command in a variable
in the bas file; something like this: *Set var
belastungsart=*tcl(Belastungsart)...*if(belastungsart==2)...*endifThat
does not work because the *tcl command is not an arithmetic
expression. Is there a possibility to store other data in a
variable in the bas file?If not, how can I get to
temporarily store some gobal variables of the tcl file in
the bas file? thaks for response, Andreas Friedberg
-
Jorge Suit Perez Ronda
[GiDlist] problem with bas file
You should enclose the path , returned in the last sentence of
AntPatToData, in a tcl list, like this:
list [.central.s process escape escape escape data problemdata singlefield \
AntennaPattern $name]
best regards
Jorge Suit
ieea wrote:
Dear all,
I am using now the fonction given by Enrique in the last message. This
is very easy to do.
Nevertheless, I noticed a problem to transfert names with blank inside
from Tcl windows to GID template files.
For example, I wrote:
in a Tcl file associated to a user's window in GID
proc AntPatToData {} {
global ANTENNA_DIAGRAMME
set longueur [string length $ANTENNA_DIAGRAMME]
set name [string range $ANTENNA_DIAGRAMME 0 $longueur]
.central.s process escape escape escape data problemdata
singlefield \
AntennaPattern $name
}
The name is here C:\Program Files\GiD\GiD7.1\test\pattern.txt, with a
blank space
between "Program" and "Files".
Then, in my *.bas, there is:
...
*if(strcmp(GenData(Ponctual),"YES")==0)
#EmissionPoint
*GenData(AntennaPattern)
...
and in my *.prb, ther is:
...
QUESTION: AntennaPattern
VALUE: none
...
This is the way given in the last message.
But, when I do that, I cannot obtain the right file name.
The name transfered is actually C:\Program instead of
C:\Program Files\GiD\GiD7.1\test\pattern.txt !
Could you give me a good way to solve this problem.
Thank you for your response
G.W.R.Geis
Enrique Escolano a écrit :
Now the *tcl writes directly to the output file, but it not returns
any value to the "bas" file. You can write the conditional data also
from tcl. It is possible also some "dark" trick, for example, use a
general data field in the *.prb file (can be hidden) to passthe value
between tcl and the bas file: *.prb
fileQUESTION:Belastungsart:#CB#(schlaffe_Last,starre_Platte,elastische_Platte)VALUE:
schlaffe_LastSTATE: HIDDEN *.tcl fileproc Belastungsart { } {
global VoreinstellungPriv .central.s process escape escape escape
data problemdata singlefield \ Belastungsart
$VoreinstellungPriv(Belastungsart) return} *.bas
file*tcl(Belastungsart)*if(strcmp(GenData(Belastungsart),"schlaffe_Last")==0)...
In fact, you can make the problemdata field visible, and it is not
necessary a special tcl window toinput this data, and the aditional
tcl proc Belastungsart. Enrique Escolano
----- Original Message -----
From:Andreas Friedberg
To: GiD mailinglist
Sent: Sunday, February 09, 2003 10:52 PM
Subject: [GiDlist] problem with bas file
Hi GiD-Team, I am writing the template file for a problem
type and I have a problem about data storing. I store some
values (the user inputs them through a window which is
created with a tcl procedure within the tcl file of the
problem type) in global variables during the preprocess and
I need to temporarily store these values in variables in the
template file, so as to decide by these values which data
in the configuration files I have to access to write the
input file.I tried the *tcl command of the bas file to get
the values of the global variables in the tcl file, but the
problem with this command is the fact that I cannot store
these values but only write them directly into the input
file. Next is what I have written in the bas file:
*tcl(Belastungsart) That corresponds to a procedure in the
tcl file: proc Belastungsart { } { global
VoreinstellungPriv if {
$VoreinstellungPriv(Belastungsart) == " schlaffe_Last " } {
return { 1 } }
if { $VoreinstellungPriv(Belastungsart) == "
starre_Platte " } {
return { 2 } }
if { $VoreinstellungPriv(Belastungsart) == "
elastische_Platte " } {
return { 3 } }
} What I would need to do is to store the value I get
from the tcl procedure with the *tcl command in a variable
in the bas file; something like this: *Set var
belastungsart=*tcl(Belastungsart)...*if(belastungsart==2)...*endifThat
does not work because the *tcl command is not an arithmetic
expression. Is there a possibility to store other data in a
variable in the bas file?If not, how can I get to
temporarily store some gobal variables of the tcl file in
the bas file? thaks for response, Andreas Friedberg
_______________________________________________
GiDlist mailing list
GiDlist at gid.cimne.upc.es
http://gid.cimne.upc.es/mailman/listinfo/gidlist
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listas.cimne.upc.edu/pipermail/gidlist/attachments/20030220/72266960/attachment.htm
AntPatToData, in a tcl list, like this:
list [.central.s process escape escape escape data problemdata singlefield \
AntennaPattern $name]
best regards
Jorge Suit
ieea wrote:
Dear all,
I am using now the fonction given by Enrique in the last message. This
is very easy to do.
Nevertheless, I noticed a problem to transfert names with blank inside
from Tcl windows to GID template files.
For example, I wrote:
in a Tcl file associated to a user's window in GID
proc AntPatToData {} {
global ANTENNA_DIAGRAMME
set longueur [string length $ANTENNA_DIAGRAMME]
set name [string range $ANTENNA_DIAGRAMME 0 $longueur]
.central.s process escape escape escape data problemdata
singlefield \
AntennaPattern $name
}
The name is here C:\Program Files\GiD\GiD7.1\test\pattern.txt, with a
blank space
between "Program" and "Files".
Then, in my *.bas, there is:
...
*if(strcmp(GenData(Ponctual),"YES")==0)
#EmissionPoint
*GenData(AntennaPattern)
...
and in my *.prb, ther is:
...
QUESTION: AntennaPattern
VALUE: none
...
This is the way given in the last message.
But, when I do that, I cannot obtain the right file name.
The name transfered is actually C:\Program instead of
C:\Program Files\GiD\GiD7.1\test\pattern.txt !
Could you give me a good way to solve this problem.
Thank you for your response
G.W.R.Geis
Enrique Escolano a écrit :
Now the *tcl writes directly to the output file, but it not returns
any value to the "bas" file. You can write the conditional data also
from tcl. It is possible also some "dark" trick, for example, use a
general data field in the *.prb file (can be hidden) to passthe value
between tcl and the bas file: *.prb
fileQUESTION:Belastungsart:#CB#(schlaffe_Last,starre_Platte,elastische_Platte)VALUE:
schlaffe_LastSTATE: HIDDEN *.tcl fileproc Belastungsart { } {
global VoreinstellungPriv .central.s process escape escape escape
data problemdata singlefield \ Belastungsart
$VoreinstellungPriv(Belastungsart) return} *.bas
file*tcl(Belastungsart)*if(strcmp(GenData(Belastungsart),"schlaffe_Last")==0)...
In fact, you can make the problemdata field visible, and it is not
necessary a special tcl window toinput this data, and the aditional
tcl proc Belastungsart. Enrique Escolano
----- Original Message -----
From:Andreas Friedberg
To: GiD mailinglist
Sent: Sunday, February 09, 2003 10:52 PM
Subject: [GiDlist] problem with bas file
Hi GiD-Team, I am writing the template file for a problem
type and I have a problem about data storing. I store some
values (the user inputs them through a window which is
created with a tcl procedure within the tcl file of the
problem type) in global variables during the preprocess and
I need to temporarily store these values in variables in the
template file, so as to decide by these values which data
in the configuration files I have to access to write the
input file.I tried the *tcl command of the bas file to get
the values of the global variables in the tcl file, but the
problem with this command is the fact that I cannot store
these values but only write them directly into the input
file. Next is what I have written in the bas file:
*tcl(Belastungsart) That corresponds to a procedure in the
tcl file: proc Belastungsart { } { global
VoreinstellungPriv if {
$VoreinstellungPriv(Belastungsart) == " schlaffe_Last " } {
return { 1 } }
if { $VoreinstellungPriv(Belastungsart) == "
starre_Platte " } {
return { 2 } }
if { $VoreinstellungPriv(Belastungsart) == "
elastische_Platte " } {
return { 3 } }
} What I would need to do is to store the value I get
from the tcl procedure with the *tcl command in a variable
in the bas file; something like this: *Set var
belastungsart=*tcl(Belastungsart)...*if(belastungsart==2)...*endifThat
does not work because the *tcl command is not an arithmetic
expression. Is there a possibility to store other data in a
variable in the bas file?If not, how can I get to
temporarily store some gobal variables of the tcl file in
the bas file? thaks for response, Andreas Friedberg
_______________________________________________
GiDlist mailing list
GiDlist at gid.cimne.upc.es
http://gid.cimne.upc.es/mailman/listinfo/gidlist
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listas.cimne.upc.edu/pipermail/gidlist/attachments/20030220/72266960/attachment.htm
-
Enrique Escolano
[GiDlist] problem with bas file
Enclose the name in quotes:
.central.s process escape escape escape data problemdata singlefield
AntennaPattern \"$name\"
Enrique
----- Original Message -----
From: "ieea" ieea at club-internet.fr
To: gidlist at gatxan.cimne.upc.es
Sent: Thursday, February 20, 2003 10:57 AM
Subject: Re: [GiDlist] problem with bas file
Dear all,
I am using now the fonction given by Enrique in the last message. This
is very easy to do.
Nevertheless, I noticed a problem to transfert names with blank inside
from Tcl windows to GID template files.
For example, I wrote:
in a Tcl file associated to a user's window in GID
proc AntPatToData {} {
global ANTENNA_DIAGRAMME
set longueur [string length $ANTENNA_DIAGRAMME]
set name [string range $ANTENNA_DIAGRAMME 0 $longueur]
.central.s process escape escape escape data problemdata
singlefield \
AntennaPattern $name
}
The name is here C:\Program Files\GiD\GiD7.1\test\pattern.txt, with a
blank space
between "Program" and "Files".
Then, in my *.bas, there is:
...
*if(strcmp(GenData(Ponctual),"YES")==0)
#EmissionPoint
*GenData(AntennaPattern)
...
and in my *.prb, ther is:
...
QUESTION: AntennaPattern
VALUE: none
...
This is the way given in the last message.
But, when I do that, I cannot obtain the right file name.
The name transfered is actually C:\Program instead of
C:\Program Files\GiD\GiD7.1\test\pattern.txt !
Could you give me a good way to solve this problem.
Thank you for your response
G.W.R.Geis
Enrique Escolano a écrit :
Now the *tcl writes directly to the output file, but it not returns
any value to the "bas" file. You can write the conditional data also
from tcl. It is possible also some "dark" trick, for example, use a
general data field in the *.prb file (can be hidden) to passthe value
between tcl and the bas file: *.prb
fileQUESTION:Belastungsart:#CB#(schlaffe_Last,starre_Platte,elastische_Platt
e)VALUE:
schlaffe_LastSTATE: HIDDEN *.tcl fileproc Belastungsart { } {
global VoreinstellungPriv .central.s process escape escape escape
data problemdata singlefield \ Belastungsart
$VoreinstellungPriv(Belastungsart) return} *.bas
file*tcl(Belastungsart)*if(strcmp(GenData(Belastungsart),"schlaffe_Last")==0
)...
In fact, you can make the problemdata field visible, and it is not
necessary a special tcl window toinput this data, and the aditional
tcl proc Belastungsart. Enrique Escolano
----- Original Message -----
From:Andreas Friedberg
To: GiD mailinglist
Sent: Sunday, February 09, 2003 10:52 PM
Subject: [GiDlist] problem with bas file
Hi GiD-Team, I am writing the template file for a problem
type and I have a problem about data storing. I store some
values (the user inputs them through a window which is
created with a tcl procedure within the tcl file of the
problem type) in global variables during the preprocess and
I need to temporarily store these values in variables in the
template file, so as to decide by these values which data
in the configuration files I have to access to write the
input file.I tried the *tcl command of the bas file to get
the values of the global variables in the tcl file, but the
problem with this command is the fact that I cannot store
these values but only write them directly into the input
file. Next is what I have written in the bas file:
*tcl(Belastungsart) That corresponds to a procedure in the
tcl file: proc Belastungsart { } { global
VoreinstellungPriv if {
$VoreinstellungPriv(Belastungsart) == " schlaffe_Last " } {
return { 1 } }
if { $VoreinstellungPriv(Belastungsart) == "
starre_Platte " } {
return { 2 } }
if { $VoreinstellungPriv(Belastungsart) == "
elastische_Platte " } {
return { 3 } }
} What I would need to do is to store the value I get
from the tcl procedure with the *tcl command in a variable
in the bas file; something like this: *Set var
belastungsart=*tcl(Belastungsart)...*if(belastungsart==2)...*endifThat
does not work because the *tcl command is not an arithmetic
expression. Is there a possibility to store other data in a
variable in the bas file?If not, how can I get to
temporarily store some gobal variables of the tcl file in
the bas file? thaks for response, Andreas Friedberg
_______________________________________________
GiDlist mailing list
GiDlist at gid.cimne.upc.es
http://gid.cimne.upc.es/mailman/listinfo/gidlist
.central.s process escape escape escape data problemdata singlefield
AntennaPattern \"$name\"
Enrique
----- Original Message -----
From: "ieea" ieea at club-internet.fr
To: gidlist at gatxan.cimne.upc.es
Sent: Thursday, February 20, 2003 10:57 AM
Subject: Re: [GiDlist] problem with bas file
Dear all,
I am using now the fonction given by Enrique in the last message. This
is very easy to do.
Nevertheless, I noticed a problem to transfert names with blank inside
from Tcl windows to GID template files.
For example, I wrote:
in a Tcl file associated to a user's window in GID
proc AntPatToData {} {
global ANTENNA_DIAGRAMME
set longueur [string length $ANTENNA_DIAGRAMME]
set name [string range $ANTENNA_DIAGRAMME 0 $longueur]
.central.s process escape escape escape data problemdata
singlefield \
AntennaPattern $name
}
The name is here C:\Program Files\GiD\GiD7.1\test\pattern.txt, with a
blank space
between "Program" and "Files".
Then, in my *.bas, there is:
...
*if(strcmp(GenData(Ponctual),"YES")==0)
#EmissionPoint
*GenData(AntennaPattern)
...
and in my *.prb, ther is:
...
QUESTION: AntennaPattern
VALUE: none
...
This is the way given in the last message.
But, when I do that, I cannot obtain the right file name.
The name transfered is actually C:\Program instead of
C:\Program Files\GiD\GiD7.1\test\pattern.txt !
Could you give me a good way to solve this problem.
Thank you for your response
G.W.R.Geis
Enrique Escolano a écrit :
Now the *tcl writes directly to the output file, but it not returns
any value to the "bas" file. You can write the conditional data also
from tcl. It is possible also some "dark" trick, for example, use a
general data field in the *.prb file (can be hidden) to passthe value
between tcl and the bas file: *.prb
fileQUESTION:Belastungsart:#CB#(schlaffe_Last,starre_Platte,elastische_Platt
e)VALUE:
schlaffe_LastSTATE: HIDDEN *.tcl fileproc Belastungsart { } {
global VoreinstellungPriv .central.s process escape escape escape
data problemdata singlefield \ Belastungsart
$VoreinstellungPriv(Belastungsart) return} *.bas
file*tcl(Belastungsart)*if(strcmp(GenData(Belastungsart),"schlaffe_Last")==0
)...
In fact, you can make the problemdata field visible, and it is not
necessary a special tcl window toinput this data, and the aditional
tcl proc Belastungsart. Enrique Escolano
----- Original Message -----
From:Andreas Friedberg
To: GiD mailinglist
Sent: Sunday, February 09, 2003 10:52 PM
Subject: [GiDlist] problem with bas file
Hi GiD-Team, I am writing the template file for a problem
type and I have a problem about data storing. I store some
values (the user inputs them through a window which is
created with a tcl procedure within the tcl file of the
problem type) in global variables during the preprocess and
I need to temporarily store these values in variables in the
template file, so as to decide by these values which data
in the configuration files I have to access to write the
input file.I tried the *tcl command of the bas file to get
the values of the global variables in the tcl file, but the
problem with this command is the fact that I cannot store
these values but only write them directly into the input
file. Next is what I have written in the bas file:
*tcl(Belastungsart) That corresponds to a procedure in the
tcl file: proc Belastungsart { } { global
VoreinstellungPriv if {
$VoreinstellungPriv(Belastungsart) == " schlaffe_Last " } {
return { 1 } }
if { $VoreinstellungPriv(Belastungsart) == "
starre_Platte " } {
return { 2 } }
if { $VoreinstellungPriv(Belastungsart) == "
elastische_Platte " } {
return { 3 } }
} What I would need to do is to store the value I get
from the tcl procedure with the *tcl command in a variable
in the bas file; something like this: *Set var
belastungsart=*tcl(Belastungsart)...*if(belastungsart==2)...*endifThat
does not work because the *tcl command is not an arithmetic
expression. Is there a possibility to store other data in a
variable in the bas file?If not, how can I get to
temporarily store some gobal variables of the tcl file in
the bas file? thaks for response, Andreas Friedberg
_______________________________________________
GiDlist mailing list
GiDlist at gid.cimne.upc.es
http://gid.cimne.upc.es/mailman/listinfo/gidlist
-
Jorge Suit Perez Ronda
[GiDlist] problem with bas file
Forget this email, there is a big mistake in it. Sorry!!!
Jorge Suit
Jorge Suit Perez Ronda wrote:
You should enclose the path , returned in the last sentence of
AntPatToData, in a tcl list, like this:
list [.central.s process escape escape escape data problemdata
singlefield \
AntennaPattern $name]
best regards
Jorge Suit
ieea wrote:
Dear all,
I am using now the fonction given by Enrique in the last message. This
is very easy to do.
Nevertheless, I noticed a problem to transfert names with blank inside
from Tcl windows to GID template files.
For example, I wrote:
in a Tcl file associated to a user's window in GID
proc AntPatToData {} {
global ANTENNA_DIAGRAMME
set longueur [string length $ANTENNA_DIAGRAMME]
set name [string range $ANTENNA_DIAGRAMME 0 $longueur]
.central.s process escape escape escape data problemdata
singlefield \
AntennaPattern $name
}
The name is here C:\Program Files\GiD\GiD7.1\test\pattern.txt, with a
blank space
between "Program" and "Files".
Then, in my *.bas, there is:
...
*if(strcmp(GenData(Ponctual),"YES")==0)
#EmissionPoint
*GenData(AntennaPattern)
...
and in my *.prb, ther is:
...
QUESTION: AntennaPattern
VALUE: none
...
This is the way given in the last message.
But, when I do that, I cannot obtain the right file name.
The name transfered is actually C:\Program instead of
C:\Program Files\GiD\GiD7.1\test\pattern.txt !
Could you give me a good way to solve this problem.
Thank you for your response
G.W.R.Geis
Enrique Escolano a écrit :
Now the *tcl writes directly to the output file, but it not returns
any value to the "bas" file. You can write the conditional data also
from tcl. It is possible also some "dark" trick, for example, use a
general data field in the *.prb file (can be hidden) to passthe value
between tcl and the bas file: *.prb
fileQUESTION:Belastungsart:#CB#(schlaffe_Last,starre_Platte,elastische_Platte)VALUE:
schlaffe_LastSTATE: HIDDEN *.tcl fileproc Belastungsart { } {
global VoreinstellungPriv .central.s process escape escape escape
data problemdata singlefield \ Belastungsart
$VoreinstellungPriv(Belastungsart) return} *.bas
file*tcl(Belastungsart)*if(strcmp(GenData(Belastungsart),"schlaffe_Last")==0)...
In fact, you can make the problemdata field visible, and it is not
necessary a special tcl window toinput this data, and the aditional
tcl proc Belastungsart. Enrique Escolano
----- Original Message -----
From:Andreas Friedberg
To: GiD mailinglist
Sent: Sunday, February 09, 2003 10:52 PM
Subject: [GiDlist] problem with bas file
Hi GiD-Team, I am writing the template file for a problem
type and I have a problem about data storing. I store some
values (the user inputs them through a window which is
created with a tcl procedure within the tcl file of the
problem type) in global variables during the preprocess and
I need to temporarily store these values in variables in the
template file, so as to decide by these values which data
in the configuration files I have to access to write the
input file.I tried the *tcl command of the bas file to get
the values of the global variables in the tcl file, but the
problem with this command is the fact that I cannot store
these values but only write them directly into the input
file. Next is what I have written in the bas file:
*tcl(Belastungsart) That corresponds to a procedure in the
tcl file: proc Belastungsart { } { global
VoreinstellungPriv if {
$VoreinstellungPriv(Belastungsart) == " schlaffe_Last " } {
return { 1 } }
if { $VoreinstellungPriv(Belastungsart) == "
starre_Platte " } {
return { 2 } }
if { $VoreinstellungPriv(Belastungsart) == "
elastische_Platte " } {
return { 3 } }
} What I would need to do is to store the value I get
from the tcl procedure with the *tcl command in a variable
in the bas file; something like this: *Set var
belastungsart=*tcl(Belastungsart)...*if(belastungsart==2)...*endifThat
does not work because the *tcl command is not an arithmetic
expression. Is there a possibility to store other data in a
variable in the bas file?If not, how can I get to
temporarily store some gobal variables of the tcl file in
the bas file? thaks for response, Andreas Friedberg
_______________________________________________
GiDlist mailing list
GiDlist at gid.cimne.upc.es
http://gid.cimne.upc.es/mailman/listinfo/gidlist
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listas.cimne.upc.edu/pipermail/gidlist/attachments/20030220/d08e3476/attachment.htm
Jorge Suit
Jorge Suit Perez Ronda wrote:
You should enclose the path , returned in the last sentence of
AntPatToData, in a tcl list, like this:
list [.central.s process escape escape escape data problemdata
singlefield \
AntennaPattern $name]
best regards
Jorge Suit
ieea wrote:
Dear all,
I am using now the fonction given by Enrique in the last message. This
is very easy to do.
Nevertheless, I noticed a problem to transfert names with blank inside
from Tcl windows to GID template files.
For example, I wrote:
in a Tcl file associated to a user's window in GID
proc AntPatToData {} {
global ANTENNA_DIAGRAMME
set longueur [string length $ANTENNA_DIAGRAMME]
set name [string range $ANTENNA_DIAGRAMME 0 $longueur]
.central.s process escape escape escape data problemdata
singlefield \
AntennaPattern $name
}
The name is here C:\Program Files\GiD\GiD7.1\test\pattern.txt, with a
blank space
between "Program" and "Files".
Then, in my *.bas, there is:
...
*if(strcmp(GenData(Ponctual),"YES")==0)
#EmissionPoint
*GenData(AntennaPattern)
...
and in my *.prb, ther is:
...
QUESTION: AntennaPattern
VALUE: none
...
This is the way given in the last message.
But, when I do that, I cannot obtain the right file name.
The name transfered is actually C:\Program instead of
C:\Program Files\GiD\GiD7.1\test\pattern.txt !
Could you give me a good way to solve this problem.
Thank you for your response
G.W.R.Geis
Enrique Escolano a écrit :
Now the *tcl writes directly to the output file, but it not returns
any value to the "bas" file. You can write the conditional data also
from tcl. It is possible also some "dark" trick, for example, use a
general data field in the *.prb file (can be hidden) to passthe value
between tcl and the bas file: *.prb
fileQUESTION:Belastungsart:#CB#(schlaffe_Last,starre_Platte,elastische_Platte)VALUE:
schlaffe_LastSTATE: HIDDEN *.tcl fileproc Belastungsart { } {
global VoreinstellungPriv .central.s process escape escape escape
data problemdata singlefield \ Belastungsart
$VoreinstellungPriv(Belastungsart) return} *.bas
file*tcl(Belastungsart)*if(strcmp(GenData(Belastungsart),"schlaffe_Last")==0)...
In fact, you can make the problemdata field visible, and it is not
necessary a special tcl window toinput this data, and the aditional
tcl proc Belastungsart. Enrique Escolano
----- Original Message -----
From:Andreas Friedberg
To: GiD mailinglist
Sent: Sunday, February 09, 2003 10:52 PM
Subject: [GiDlist] problem with bas file
Hi GiD-Team, I am writing the template file for a problem
type and I have a problem about data storing. I store some
values (the user inputs them through a window which is
created with a tcl procedure within the tcl file of the
problem type) in global variables during the preprocess and
I need to temporarily store these values in variables in the
template file, so as to decide by these values which data
in the configuration files I have to access to write the
input file.I tried the *tcl command of the bas file to get
the values of the global variables in the tcl file, but the
problem with this command is the fact that I cannot store
these values but only write them directly into the input
file. Next is what I have written in the bas file:
*tcl(Belastungsart) That corresponds to a procedure in the
tcl file: proc Belastungsart { } { global
VoreinstellungPriv if {
$VoreinstellungPriv(Belastungsart) == " schlaffe_Last " } {
return { 1 } }
if { $VoreinstellungPriv(Belastungsart) == "
starre_Platte " } {
return { 2 } }
if { $VoreinstellungPriv(Belastungsart) == "
elastische_Platte " } {
return { 3 } }
} What I would need to do is to store the value I get
from the tcl procedure with the *tcl command in a variable
in the bas file; something like this: *Set var
belastungsart=*tcl(Belastungsart)...*if(belastungsart==2)...*endifThat
does not work because the *tcl command is not an arithmetic
expression. Is there a possibility to store other data in a
variable in the bas file?If not, how can I get to
temporarily store some gobal variables of the tcl file in
the bas file? thaks for response, Andreas Friedberg
_______________________________________________
GiDlist mailing list
GiDlist at gid.cimne.upc.es
http://gid.cimne.upc.es/mailman/listinfo/gidlist
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listas.cimne.upc.edu/pipermail/gidlist/attachments/20030220/d08e3476/attachment.htm
-
ieea
[GiDlist] problem with bas file
Thank you very much to Jorge and Enrique...
One problem less !!
G.W.R.Geis
Enrique Escolano a écrit :
Enclose the name in quotes:
..central.s process escape escape escape data problemdata singlefield
AntennaPattern \"$name\"
Enrique
----- Original Message -----
From: "ieea" ieea at club-internet.fr
To: gidlist at gatxan.cimne.upc.es
Sent: Thursday, February 20, 2003 10:57 AM
Subject: Re: [GiDlist] problem with bas file
Dear all,
I am using now the fonction given by Enrique in the last message. This
is very easy to do.
Nevertheless, I noticed a problem to transfert names with blank inside
from Tcl windows to GID template files.
For example, I wrote:
in a Tcl file associated to a user's window in GID
proc AntPatToData {} {
global ANTENNA_DIAGRAMME
set longueur [string length $ANTENNA_DIAGRAMME]
set name [string range $ANTENNA_DIAGRAMME 0 $longueur]
.central.s process escape escape escape data problemdata
singlefield \
AntennaPattern $name
}
The name is here C:\Program Files\GiD\GiD7.1\test\pattern.txt, with a
blank space
between "Program" and "Files".
Then, in my *.bas, there is:
...
*if(strcmp(GenData(Ponctual),"YES")==0)
#EmissionPoint
*GenData(AntennaPattern)
...
and in my *.prb, ther is:
...
QUESTION: AntennaPattern
VALUE: none
...
This is the way given in the last message.
But, when I do that, I cannot obtain the right file name.
The name transfered is actually C:\Program instead of
C:\Program Files\GiD\GiD7.1\test\pattern.txt !
Could you give me a good way to solve this problem.
Thank you for your response
G.W.R.Geis
Enrique Escolano a écrit :
Now the *tcl writes directly to the output file, but it not returns
any value to the "bas" file. You can write the conditional data also
from tcl. It is possible also some "dark" trick, for example, use a
general data field in the *.prb file (can be hidden) to passthe value
between tcl and the bas file: *.prb
fileQUESTION:Belastungsart:#CB#(schlaffe_Last,starre_Platte,elastische_Platt
e)VALUE:
schlaffe_LastSTATE: HIDDEN *.tcl fileproc Belastungsart { } {
global VoreinstellungPriv .central.s process escape escape escape
data problemdata singlefield \ Belastungsart
$VoreinstellungPriv(Belastungsart) return} *.bas
file*tcl(Belastungsart)*if(strcmp(GenData(Belastungsart),"schlaffe_Last")==0
)...
In fact, you can make the problemdata field visible, and it is not
necessary a special tcl window toinput this data, and the aditional
tcl proc Belastungsart. Enrique Escolano
----- Original Message -----
From:Andreas Friedberg
To: GiD mailinglist
Sent: Sunday, February 09, 2003 10:52 PM
Subject: [GiDlist] problem with bas file
Hi GiD-Team, I am writing the template file for a problem
type and I have a problem about data storing. I store some
values (the user inputs them through a window which is
created with a tcl procedure within the tcl file of the
problem type) in global variables during the preprocess and
I need to temporarily store these values in variables in the
template file, so as to decide by these values which data
in the configuration files I have to access to write the
input file.I tried the *tcl command of the bas file to get
the values of the global variables in the tcl file, but the
problem with this command is the fact that I cannot store
these values but only write them directly into the input
file. Next is what I have written in the bas file:
*tcl(Belastungsart) That corresponds to a procedure in the
tcl file: proc Belastungsart { } { global
VoreinstellungPriv if {
$VoreinstellungPriv(Belastungsart) == " schlaffe_Last " } {
return { 1 } }
if { $VoreinstellungPriv(Belastungsart) == "
starre_Platte " } {
return { 2 } }
if { $VoreinstellungPriv(Belastungsart) == "
elastische_Platte " } {
return { 3 } }
} What I would need to do is to store the value I get
from the tcl procedure with the *tcl command in a variable
in the bas file; something like this: *Set var
belastungsart=*tcl(Belastungsart)...*if(belastungsart==2)...*endifThat
does not work because the *tcl command is not an arithmetic
expression. Is there a possibility to store other data in a
variable in the bas file?If not, how can I get to
temporarily store some gobal variables of the tcl file in
the bas file? thaks for response, Andreas Friedberg
_______________________________________________
GiDlist mailing list
GiDlist at gid.cimne.upc.es
http://gid.cimne.upc.es/mailman/listinfo/gidlist
_______________________________________________
GiDlist mailing list
GiDlist at gid.cimne.upc.es
http://gid.cimne.upc.es/mailman/listinfo/gidlist
One problem less !!
G.W.R.Geis
Enrique Escolano a écrit :
Enclose the name in quotes:
..central.s process escape escape escape data problemdata singlefield
AntennaPattern \"$name\"
Enrique
----- Original Message -----
From: "ieea" ieea at club-internet.fr
To: gidlist at gatxan.cimne.upc.es
Sent: Thursday, February 20, 2003 10:57 AM
Subject: Re: [GiDlist] problem with bas file
Dear all,
I am using now the fonction given by Enrique in the last message. This
is very easy to do.
Nevertheless, I noticed a problem to transfert names with blank inside
from Tcl windows to GID template files.
For example, I wrote:
in a Tcl file associated to a user's window in GID
proc AntPatToData {} {
global ANTENNA_DIAGRAMME
set longueur [string length $ANTENNA_DIAGRAMME]
set name [string range $ANTENNA_DIAGRAMME 0 $longueur]
.central.s process escape escape escape data problemdata
singlefield \
AntennaPattern $name
}
The name is here C:\Program Files\GiD\GiD7.1\test\pattern.txt, with a
blank space
between "Program" and "Files".
Then, in my *.bas, there is:
...
*if(strcmp(GenData(Ponctual),"YES")==0)
#EmissionPoint
*GenData(AntennaPattern)
...
and in my *.prb, ther is:
...
QUESTION: AntennaPattern
VALUE: none
...
This is the way given in the last message.
But, when I do that, I cannot obtain the right file name.
The name transfered is actually C:\Program instead of
C:\Program Files\GiD\GiD7.1\test\pattern.txt !
Could you give me a good way to solve this problem.
Thank you for your response
G.W.R.Geis
Enrique Escolano a écrit :
Now the *tcl writes directly to the output file, but it not returns
any value to the "bas" file. You can write the conditional data also
from tcl. It is possible also some "dark" trick, for example, use a
general data field in the *.prb file (can be hidden) to passthe value
between tcl and the bas file: *.prb
fileQUESTION:Belastungsart:#CB#(schlaffe_Last,starre_Platte,elastische_Platt
e)VALUE:
schlaffe_LastSTATE: HIDDEN *.tcl fileproc Belastungsart { } {
global VoreinstellungPriv .central.s process escape escape escape
data problemdata singlefield \ Belastungsart
$VoreinstellungPriv(Belastungsart) return} *.bas
file*tcl(Belastungsart)*if(strcmp(GenData(Belastungsart),"schlaffe_Last")==0
)...
In fact, you can make the problemdata field visible, and it is not
necessary a special tcl window toinput this data, and the aditional
tcl proc Belastungsart. Enrique Escolano
----- Original Message -----
From:Andreas Friedberg
To: GiD mailinglist
Sent: Sunday, February 09, 2003 10:52 PM
Subject: [GiDlist] problem with bas file
Hi GiD-Team, I am writing the template file for a problem
type and I have a problem about data storing. I store some
values (the user inputs them through a window which is
created with a tcl procedure within the tcl file of the
problem type) in global variables during the preprocess and
I need to temporarily store these values in variables in the
template file, so as to decide by these values which data
in the configuration files I have to access to write the
input file.I tried the *tcl command of the bas file to get
the values of the global variables in the tcl file, but the
problem with this command is the fact that I cannot store
these values but only write them directly into the input
file. Next is what I have written in the bas file:
*tcl(Belastungsart) That corresponds to a procedure in the
tcl file: proc Belastungsart { } { global
VoreinstellungPriv if {
$VoreinstellungPriv(Belastungsart) == " schlaffe_Last " } {
return { 1 } }
if { $VoreinstellungPriv(Belastungsart) == "
starre_Platte " } {
return { 2 } }
if { $VoreinstellungPriv(Belastungsart) == "
elastische_Platte " } {
return { 3 } }
} What I would need to do is to store the value I get
from the tcl procedure with the *tcl command in a variable
in the bas file; something like this: *Set var
belastungsart=*tcl(Belastungsart)...*if(belastungsart==2)...*endifThat
does not work because the *tcl command is not an arithmetic
expression. Is there a possibility to store other data in a
variable in the bas file?If not, how can I get to
temporarily store some gobal variables of the tcl file in
the bas file? thaks for response, Andreas Friedberg
_______________________________________________
GiDlist mailing list
GiDlist at gid.cimne.upc.es
http://gid.cimne.upc.es/mailman/listinfo/gidlist
_______________________________________________
GiDlist mailing list
GiDlist at gid.cimne.upc.es
http://gid.cimne.upc.es/mailman/listinfo/gidlist