a87752f3 |
1 | puts "===========" |
2 | puts "OCC355" |
3 | puts "===========" |
4 | |
5 | pload QAcommands |
6 | |
7 | NewDocument D MDTV-Standard |
8 | |
9 | NameCylinder D 0:1 20 100 0 Solid |
10 | NamePrism D 0:2 0:1:2 50 0 0 1 |
11 | |
12 | if [catch { CheckNaming D 0:3 1 Label 0:2 1 1 1 } res] { |
13 | puts "OCC355: Error" |
14 | } |
15 | |