b55bd023 |
1 | puts "============" |
6ca1c746 |
2 | puts "OCC27325" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## [Regression to 6.9.1] geom/revolution_00/A1: BOPTools_AlgoTools2D::AttachExistingPCurve doesn't work |
7 | ############################### |
8 | |
9 | restore [locate_data_file bug27325_edge.brep] en |
10 | restore [locate_data_file bug27325_face.brep] f |
11 | explode f e |
12 | attachpcurve f_3 en f |
13 | |
14 | #Check attached p-curve |
15 | pcurve result en f |
16 | #whatis result |
17 | set ind [string first "2d curve" [whatis result]] |
18 | if {${ind} < 0} { |
19 | puts "Error: PCurve has not been attached" |
20 | } else { |
21 | dump result |
22 | } |