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