mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
40 lines
892 B
Plaintext
40 lines
892 B
Plaintext
# in tests expression "set AddToDocument ASSEMBLY_C_L" means creating assembly and initializing colors and layers
|
|
# and expression "set AddToDocument COLORS_LAYERS" means initializing colors and layers
|
|
#
|
|
if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } {
|
|
pload DCAF
|
|
pload TOPTEST
|
|
pload XDE
|
|
}
|
|
|
|
cpulimit 1000
|
|
|
|
set ErrorCode 0
|
|
##############
|
|
### ErrorCode means :
|
|
### 0 - Success
|
|
### 1 - Warning
|
|
### 2 - Error
|
|
###############
|
|
|
|
#if {[string compare [datadir] "."] == 0} {
|
|
# datadir [file dirname [info script]]/data
|
|
#}
|
|
|
|
if { [info exists imagedir] == 0 } {
|
|
set imagedir .
|
|
}
|
|
|
|
#set WorkDirectory "$env(TmpDir)"
|
|
set WorkDirectory $imagedir
|
|
|
|
|
|
if {![file exists $WorkDirectory]} {
|
|
catch {[file mkdir $WorkDirectory]}
|
|
} else {
|
|
if {![file isdirectory $WorkDirectory]} {
|
|
puts "The assigned work directory $WorkDirectory is not directory! Exit ..."
|
|
exit
|
|
}
|
|
}
|