Commit | Line | Data |
---|---|---|
a87752f3 | 1 | puts "===========" |
2 | puts "OCC282" | |
3 | puts "===========" | |
4 | ||
5 | pload QAcommands | |
6 | ||
7 | NewDocument D MDTV-Standard | |
8 | ||
9 | circle acirc 0 0 0 20 | |
10 | mkedge anEdge acirc | |
11 | wire aWire anEdge | |
12 | ||
13 | plane pl 0 0 1 | |
14 | mkface aface pl aWire | |
15 | ||
16 | NameImportShape D 0:1 aface | |
17 | ||
18 | if [catch { CheckNaming D 0:2 1 Label 0:1 1 1 1 } res] { | |
19 | puts "OCC282: Error" | |
20 | } | |
21 |