1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
puts "==========="
puts "OCC350"
puts "==========="
pload QAcommands
NewDocument D MDTV-Standard
vertex v1 0 0 -50
vertex v2 0 100 -50
vertex v3 100 0 -50
line l1 0 0 -50 0 1 0
line l2 0 100 -50 1 -1 0
line l3 100 0 -50 -1 0 0
mkedge e1 l1 v1 v2
mkedge e2 l2 v2 v3
mkedge e3 l3 v3 v1
wire w e1 e2 e3
plane pl 0 0 -50 0 0 1
mkface f pl w
NameImportShape D 0:1 f
NamePrism D 0:2 0:1 250 0 0 1
NameBox D 0:3 150 150 150
GetShape D 0:2 aPrism
GetShape D 0:3 aBox
NameCut D 0:4 aPrism aBox
if [catch { CheckNaming D 0:9 1 Label 0:4 1 1 1 } res] {
puts "OCC350: Error"
}
|
