mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
38 lines
742 B
Plaintext
Executable File
38 lines
742 B
Plaintext
Executable File
puts "TODO OCC12345 ALL: Faulty : Present script does not work currently !!! SKETCH application is missing"
|
|
puts "TODO OCC12345 ALL: Tcl Exception"
|
|
puts "TODO OCC12345 ALL: TEST INCOMPLETE"
|
|
|
|
puts "==========="
|
|
puts "BUC60846"
|
|
puts "==========="
|
|
|
|
puts "Faulty : Present script does not work currently !!! SKETCH application is missing"
|
|
##############################################################
|
|
|
|
NewDocument D MDTV-Standard
|
|
UndoLimit D 100
|
|
|
|
NewCommand D
|
|
|
|
Label D 0:3
|
|
NewSketch D 0:3 0 0 0 1 0 0
|
|
Point D 0:3 10 20
|
|
Point D 0:3 11 20
|
|
Segment D 0:3 0:3:2:3 0:3:2:4
|
|
|
|
Point D 0:3 10 21
|
|
Point D 0:3 11 21
|
|
Segment D 0:3 0:3:2:9 0:3:2:10
|
|
|
|
Distance D 0:3 0:3:2:5 0:3:2:11
|
|
|
|
AISInitViewer D
|
|
|
|
AISSet D 0:3:2:15 C
|
|
|
|
AISDisplay D 0:3:2:15
|
|
|
|
NewCommand D
|
|
|
|
|