[occt.git] / tests / bugs / step / bug30362

puts "=========="
puts "OCC30362"
puts "=========="
puts ""
#########################################################
# Writing dimensions with inches produced invalid file
#########################################################

pload DCAF

ReadStep D [locate_data_file bug26689_nist_ctc_01_asme1_ap242.stp]
param write.step.unit 1
param write.step.schema 5
WriteStep D $imagedir/${casename}.stp

Close D
file delete $imagedir/${casename}.stp

# return default values
param write.step.unit 2
param write.step.schema 4
Commit	Line	Data
5290fb10	1	puts "=========="
	2	puts "OCC30362"
	3	puts "=========="
	4	puts ""
	5	#########################################################
	6	# Writing dimensions with inches produced invalid file
	7	#########################################################
	8
	9	pload DCAF
	10
	11	ReadStep D [locate_data_file bug26689_nist_ctc_01_asme1_ap242.stp]
	12	param write.step.unit 1
	13	param write.step.schema 5
	14	WriteStep D $imagedir/${casename}.stp
	15
	16	Close D
	17	file delete $imagedir/${casename}.stp
	18
	19	# return default values
	20	param write.step.unit 2
	21	param write.step.schema 4