You don't need to save the information returned by [.central.s info conditions ...],
This information of condition values applied to entities is saved and restored by GiD when you save/read the model.
You only need to save the data that you manage at tcl level (the tcl variables that you want to restore and GiD can't provide)
When you do
.central.s info conditions PointLoad mesh
This information is returned as a tcl list (obtained from the internal GiD database), but is not saved anywhere if you don't store it in a tcl variable.
When you open the model, can ask GiD again about its internal data
set x [.central.s info conditions PointLoad mesh]
Enrique
----- Original Message -----
From:
ascosta at portugalmail.pt
To:
gidlist at gid.cimne.upc.es
Sent: Monday, February 06, 2006 5:51 PM
Subject: [GiDlist] Entities - Array
Hi GID team!
In my procedure:
proc SaveGIDProject {filespd} {
global DadosPoint DadosCrack rc_array DadosFunction DadosSurf
global ProblemTypePriv Tab Found_point totcrack totsurf outfunc
if {$rc_array!=""} {
#0
append rc_listP ""
append rc_listP [.central.s info conditions PointLoad mesh]
append rc_listP " "
append rc_listP [lindex $rc_array 0]
} else {
#0
set rc_listP [.central.s info conditions PointLoad mesh]
}
#1
set rc_listD [.central.s info conditions Displacement mesh]
#2
set rc_listF [.central.s info conditions FaceLoad mesh]
#3
set rc_listV [.central.s info conditions Initial_Velocity mesh]
#4
set rc_listBound [.central.s info conditions Boundary_Conditions mesh]
#5
set rc_listGNodes [.central.s info conditions Group_of_Nodes mesh]
#6
set rc_listElems [.central.s info conditions Group_of_Elements mesh]
#7
set rc_listElemType [.central.s info conditions element mesh]
#8
set rc_listLaxes [.central.s info conditions Localaxes mesh]
#9
set rc_listNodal [.central.s info conditions Nodalvalues mesh]
#10
set rc_listRigid [.central.s info conditions RigidBody mesh]
#11
set rc_listDummy [.central.s info conditions Dummy_elements mesh]
set fp [open $filespd w]
if {$fp!=""} {
puts $fp $rc_listP
puts $fp $rc_listD
puts $fp $rc_listF
puts $fp $rc_listV
puts $fp $rc_listBound
puts $fp $rc_listGNodes
puts $fp $rc_listElems
puts $fp $rc_listElemType
puts $fp $rc_listLaxes
puts $fp $rc_listNodal
puts $fp $rc_listRigid
puts $fp $rc_listDummy
#12
set rc_PDados ""
if {$DadosPoint!=""} {
set rc_PDados $DadosPoint
}
puts $fp $rc_PDados
#13
set rc_CDados ""
if {$rc_array!=""} {
if {$totcrack!=0} {
append rc_CDados ""
append rc_CDados $DadosCrack
} else {
append rc_CDados ""
append rc_CDados [lindex $rc_array 13]
}
} else {
if {$totcrack!=0} {
set rc_CDados ""
set rc_CDados $DadosCrack
}
}
puts $fp $rc_CDados
#14
set rc_FDados ""
if {$rc_array!=""} {
if {$outfunc!=0} {
foreach k $Tab {
lappend rc_FDados $ProblemTypePriv($k,func)
WarnWin "FDados $rc_FDados"
}
} else {
append rc_FDados ""
append rc_FDados [lindex $rc_array 14]
}
} else {
if {$outfunc!=0} {
foreach k $Tab {
WarnWin "Tabela $k"
lappend rc_FDados $ProblemTypePriv($k,func)
}
}
}
puts $fp $rc_FDados
#15
set rc_SDados ""
if {$rc_array!=""} {
if {$totsurf!=0} {
append rc_SDados ""
append rc_SDados $DadosSurf
} else {
append rc_SDados ""
append rc_SDados [lindex $rc_array 15]
}
} else {
if {$totsurf!=0} {
set rc_SDados ""
set rc_SDados $DadosSurf
}
}
puts $fp $rc_SDados
close $fp
}
set Found_point 0
}
I save all informations of conditions mesh.
How can i put this information in Entities, when i open the saved project?
When we do
.central.s info conditions PointLoad mesh
This information were saved in which array?
When i open the saved project i must know what nodes or elements are assigned for all conditions.
Best regards.
-------------- next part --------------
An HTML attachment was scrubbed...
URL:
http://listas.cimne.upc.edu/pipermail/gidlist/attachments/20060208/f3183a44/attachment.htm
