mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-31 11:15:31 +03:00
18 lines
304 B
Plaintext
18 lines
304 B
Plaintext
#box b -15 -15 -15 15 30 30
|
|
#polyline w 0 0 0 10 -10 0
|
|
#circle p 0 0 0 1 0 0 12
|
|
#mkedge p p
|
|
#wire p p
|
|
#mkplane p p
|
|
#pipe s1 w p
|
|
#fuse s s1 b
|
|
|
|
restore 6_H1234.draw s
|
|
tscale s 0 0 0 SCALE2
|
|
explode s E
|
|
mkevol result s
|
|
updatevol s_14 0 3*SCALE2 1 5*SCALE2 2 6*SCALE2 3 2*SCALE2
|
|
buildevol
|
|
|
|
set square 4339.75
|