[GiDlist] entities references
Posted: Fri Mar 15, 2002 6:52 pm
I am using GID for Boundary Element Analysis and
I tried to associate each mesh element of the boundary (surface elements) to
the defined volume. exemple : surface element number x belongs to the
volume number y...
I tried to use the example from Advanced course documentation A2-Problem
type details.doc,
see the chapter 5. "INSTRUCTION *tcl IN THE .bas FILE" for my own problem.
I create a projectname.tcl file :
proc InitGIDProject { dir } {
}
proc EndGIDProject {} {
}
proc NumVolumes { } {
set a [.central.s info list_entities Status]
regexp -nocase {number of volumes: ([0-9]+)} $a none num
return $num
}
proc WriteAllVolumesInfo { } {
return [.central.s info list_entities Volumes 1:[NumVolumes]]
}
proc WriteVolumeInfo { num } {
return [.central.s info list_entities Volumes $num]
}
a condition in the projectname.cnd file :
NUMBER: 1 CONDITION: Volume_Id
CONDTYPE: over surfaces
CONDMESHTYPE: over face elems
QUESTION: Num_Entity#FUNC#(NumEntity)
VALUE: 0
STATE: HIDDEN
END CONDITION
and instructions in the projectname.bas file :
*set cond Volume_Id *elems *CanRepeat
*loop elems *OnlyInCond
*elemsnum *elemsconec *Cond(Num_Entity,int)
*end elemsn
Can you tell me what is wrong... because it does not work !!!
Thank you for your help.
Zoubir Khatir,
Laboratoire des Technologies Nouvelles (LTN)
INRETS, 2. Av. Malleret-Joinville, 94114 Arcueil Cedex
Tel: (33).01.47.40.73.34 Fax:(33).01.45.47.56.06 mail: khatir at inrets.fr
web: www.inrets.fr
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listas.cimne.upc.edu/pipermail/gidlist/attachments/20020315/6eb54235/attachment.htm
I tried to associate each mesh element of the boundary (surface elements) to
the defined volume. exemple : surface element number x belongs to the
volume number y...
I tried to use the example from Advanced course documentation A2-Problem
type details.doc,
see the chapter 5. "INSTRUCTION *tcl IN THE .bas FILE" for my own problem.
I create a projectname.tcl file :
proc InitGIDProject { dir } {
}
proc EndGIDProject {} {
}
proc NumVolumes { } {
set a [.central.s info list_entities Status]
regexp -nocase {number of volumes: ([0-9]+)} $a none num
return $num
}
proc WriteAllVolumesInfo { } {
return [.central.s info list_entities Volumes 1:[NumVolumes]]
}
proc WriteVolumeInfo { num } {
return [.central.s info list_entities Volumes $num]
}
a condition in the projectname.cnd file :
NUMBER: 1 CONDITION: Volume_Id
CONDTYPE: over surfaces
CONDMESHTYPE: over face elems
QUESTION: Num_Entity#FUNC#(NumEntity)
VALUE: 0
STATE: HIDDEN
END CONDITION
and instructions in the projectname.bas file :
*set cond Volume_Id *elems *CanRepeat
*loop elems *OnlyInCond
*elemsnum *elemsconec *Cond(Num_Entity,int)
*end elemsn
Can you tell me what is wrong... because it does not work !!!
Thank you for your help.
Zoubir Khatir,
Laboratoire des Technologies Nouvelles (LTN)
INRETS, 2. Av. Malleret-Joinville, 94114 Arcueil Cedex
Tel: (33).01.47.40.73.34 Fax:(33).01.45.47.56.06 mail: khatir at inrets.fr
web: www.inrets.fr
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listas.cimne.upc.edu/pipermail/gidlist/attachments/20020315/6eb54235/attachment.htm