mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
32 lines
572 B
Plaintext
Executable File
32 lines
572 B
Plaintext
Executable File
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"
|
|
}
|
|
|