mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
d99f0355e3
Draw_Interpretor, CommandCmd() - catched exceptions and messages put into Tcl string result before throwing a Tcl exception (return 1) are now print in intense red (using Message::SendFail()). Duplication of exception message in std::cout and Tcl output has been removed. Draw Harness plugins have been updated to use either Message::SendFail() or theDI instead of std::cout/std::cerr for printing colored error message before throwing a Tcl exception.
26 lines
588 B
Plaintext
Executable File
26 lines
588 B
Plaintext
Executable File
puts "TODO ?OCC24909 ALL: An exception was caught"
|
|
puts "TODO ?OCC24909 ALL: TEST INCOMPLETE"
|
|
puts "TODO ?OCC24909 ALL: Tcl Exception: Buildsweep : Not Done"
|
|
|
|
puts "========"
|
|
puts "0024909: S I G S E G V in buildsweep"
|
|
puts "========"
|
|
puts ""
|
|
|
|
circle c1 0 0 0 40
|
|
mkedge e1 c1
|
|
wire w1 e1
|
|
tcopy w1 Sketch002
|
|
tcopy w1 Sketch001
|
|
renamevar w1 Sketch
|
|
trotate Sketch 0 0 0 0. 1. 0. 90
|
|
ttranslate Sketch 0. 0. 75.
|
|
trotate Sketch001 0 0 0 0. 1. 0. 90
|
|
ttranslate Sketch001 0. 0. -75.
|
|
ttranslate Sketch002 50. 0. 0.
|
|
mksweep Sketch002
|
|
setsweep -CF
|
|
addsweep Sketch001
|
|
addsweep Sketch
|
|
buildsweep Sweep
|