mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 18:32:35 +08: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."
|
|
}
|