mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 10:10:56 +08:00
15 lines
232 B
Plaintext
Executable File
15 lines
232 B
Plaintext
Executable File
puts "============="
|
|
puts "BUC60727"
|
|
puts "============="
|
|
|
|
pload QAcommands
|
|
|
|
set start [BUC60727]
|
|
set n [llength $start]
|
|
set end [lindex $start [expr $n-1]]
|
|
|
|
if { $end != 3} {
|
|
puts "Faulty : Incorrect converting of the unit"
|
|
}
|
|
|