Commit | Line | Data |
---|---|---|
a87752f3 | 1 | |
2 | puts "========================" | |
3 | puts "BUC60585" | |
4 | puts "========================" | |
5 | ||
6 | restore [locate_data_file buc60585a.brep] s | |
352ffd73 | 7 | checkshape s |
a87752f3 | 8 | plane ps 2036.25 -97.5 -1460.499755859375 0.0 -0.75103523489975432 -0.66026212668838646 1.0 0.0 0.0 |
9 | ||
10 | psection result s ps | |
11 | ||
12 | set length 117.81 | |
13 | set 2dviewer 0 | |
14 | ||
15 | ## set num [lindex [checksection res] 4] | |
16 | # if { $num != 0 } { | |
17 | # puts " Faulty : Result shape is Unclosed !!! " | |
18 | # } |