a87752f3 |
1 | puts "TODO OCC12345 ALL: Faulty : Present script does not work currently !!! SKETCH application is missing" |
2 | puts "TODO OCC12345 ALL: Tcl Exception" |
3 | puts "TODO OCC12345 ALL: TEST INCOMPLETE" |
4 | |
5 | puts "===========" |
6 | puts "BUC60846" |
7 | puts "===========" |
8 | |
9 | puts "Faulty : Present script does not work currently !!! SKETCH application is missing" |
10 | ############################################################## |
11 | |
12 | NewDocument D MDTV-Standard |
13 | UndoLimit D 100 |
14 | |
15 | NewCommand D |
16 | |
17 | Label D 0:3 |
18 | NewSketch D 0:3 0 0 0 1 0 0 |
19 | Point D 0:3 10 20 |
20 | Point D 0:3 11 20 |
21 | Segment D 0:3 0:3:2:3 0:3:2:4 |
22 | |
23 | Point D 0:3 10 21 |
24 | Point D 0:3 11 21 |
25 | Segment D 0:3 0:3:2:9 0:3:2:10 |
26 | |
27 | Distance D 0:3 0:3:2:5 0:3:2:11 |
28 | |
29 | AISInitViewer D |
30 | |
31 | AISSet D 0:3:2:15 C |
32 | |
33 | AISDisplay D 0:3:2:15 |
34 | |
35 | NewCommand D |
36 | |
37 | |