1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-10 18:51:21 +03:00
2012-12-05 17:17:05 +04:00

70 lines
1.8 KiB
Plaintext
Executable File

#by apn on master-master 03.12.2012
#puts "TODO OCC12345 ALL: An exception was caught"
#puts "TODO OCC12345 ALL: \\*\\* Exception *\\*\\*.*"
#puts "TODO OCC12345 ALL: TEST INCOMPLETE"
puts "================"
puts "OCC293"
puts "================"
puts ""
restore [locate_data_file OCC293.brep] a
tclean a
puts [checkshape a]
vinit
#vdisplay a
#vfit
renamevar a edge
explode edge e
renamevar edge face
explode face f
chamf result1 face edge_26 face_5 A 1 45
puts [checkshape result1]
chamf result2 face edge_30 face_5 A 1 45
puts [checkshape result2]
chamf result3 face edge_34 face_5 A 1 45
puts [checkshape result3]
chamf result4 face edge_39 face_5 A 1 45
puts [checkshape result4]
chamf result5 face edge_35 face_5 A 1 45
puts [checkshape result5]
chamf result6 face edge_31 face_5 A 1 45
puts [checkshape result6]
chamf result7 face edge_27 face_5 A 1 45
puts [checkshape result7]
chamf result8 face edge_24 face_5 A 1 45
puts [checkshape result8]
# all contour is :
#chamf result face edge_26 face_5 A 1 45 edge_28 face_5 A 1 45 edge_30 face_5 A 1 45 edge_32 face_5 A 1 45 edge_34 face_5 A 1 45 edge_36 face_5 A 1 45 edge_38 face_5 A 1 45 edge_40 face_5 A 1 45 edge_13 face_5 A 1 45 edge_14 face_5 A 1 45 edge_39 face_5 A 1 45 edge_37 face_5 A 1 45 edge_35 face_5 A 1 45 edge_33 face_5 A 1 45 edge_31 face_5 A 1 45 edge_29 face_5 A 1 45 edge_27 face_5 A 1 45 edge_6 face_5 A 1 45 edge_4 face_5 A 1 45 edge_19 face_5 A 1 45 edge_22 face_5 A 1 45 edge_23 face_5 A 1 45 edge_24 face_5 A 1 45 edge_25 face_5 A 1 45 edge_26 face_5 A 1 45
#checkshape result
vclear
#vdisplay result1
#vdisplay result2
#vdisplay result3
#vdisplay result4
#vdisplay result5
#vdisplay result6
#vdisplay result7
#vdisplay result8
compound result1 result2 result3 result4 result5 result6 result7 result8 result
vdisplay result
vfit
set square 9.80214e+06
set only_screen 1