[occt.git] / tests / caf / begin

# File : begin

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
Commit	Line	Data
40093367	1	# File : begin
40093367	2
40093367	3	if { [array get Draw_Groups "DF basic commands"] == "" } {
	4	pload DCAF
	5	}
	6
	7	chrono qat start
	8	# Create a new document and set UndoLimit
	9	NewDocument D MDTV-Standard
	10
	11	#NewDocument D
	12	cpulimit 300
	13	UndoLimit D 100
	14
	15	# Open a transaction
	16	NewCommand D