mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
12 lines
254 B
Plaintext
12 lines
254 B
Plaintext
puts [DT_ShapeConvert result a 1 1]
|
|
set d [statshape result]
|
|
puts $d
|
|
|
|
set bspsur 0
|
|
|
|
set rx [regexp "(\[0-9\]+)\\s+bspsur *: *BSplineSurface" $d full bspsur]
|
|
|
|
if { $bspsur != 0 } {
|
|
puts "Error: $bspsur BSplineSurface after DT_ShapeConvert operation."
|
|
}
|