mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-22 12:48:37 +08:00
24 lines
411 B
Plaintext
Executable File
24 lines
411 B
Plaintext
Executable File
# File : begin
|
|
|
|
if { [info exists WorkDirectory] == 0 } {
|
|
set WorkDirectory "/tmp"
|
|
if { [array get env TEMP] != "" } {
|
|
set WorkDirectory "$env(TEMP)"
|
|
}
|
|
}
|
|
|
|
if { [array get Draw_Groups "DF basic commands"] == "" } {
|
|
pload DCAF
|
|
}
|
|
|
|
chrono qat start
|
|
# Create a new document and set UndoLimit
|
|
NewDocument D MDTV-Standard
|
|
|
|
#NewDocument D
|
|
cpulimit 300
|
|
UndoLimit D 100
|
|
|
|
# Open a transaction
|
|
NewCommand D
|