mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-10 16:16:54 +08:00
19 lines
261 B
Plaintext
Executable File
19 lines
261 B
Plaintext
Executable File
puts "==========="
|
|
puts "BUC60847"
|
|
puts "==========="
|
|
|
|
pload QAcommands
|
|
|
|
NewDocument D MDTV-Standard
|
|
UndoLimit D 100
|
|
|
|
NewCommand D
|
|
|
|
box Shape 10 20 30
|
|
|
|
set ResultError [BUC60847 D Shape]
|
|
if { ${ResultError} != 0 } {
|
|
puts "BUC60847: Error = $ResultError"
|
|
}
|
|
|