mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-10 11:34:06 +03:00
22 lines
319 B
Plaintext
Executable File
22 lines
319 B
Plaintext
Executable File
puts "==========="
|
|
puts "BUC60862"
|
|
puts "==========="
|
|
|
|
pload QAcommands
|
|
|
|
NewDocument D MDTV-Standard
|
|
UndoLimit D 100
|
|
|
|
NewCommand D
|
|
|
|
vertex V1 10 20 0
|
|
vertex V2 20 10 0
|
|
|
|
catch {edge Shape ${V1} ${V2}}
|
|
catch {set ResultError [BUC60862 D $Shape]}
|
|
|
|
if { ${ResultError} != 0 } {
|
|
puts "BUC60862: Error = $ResultError"
|
|
}
|
|
|