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