mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
57 lines
1.1 KiB
Plaintext
Executable File
57 lines
1.1 KiB
Plaintext
Executable File
AddDriver D Box Cyl Sph Attach XAttach PTxyz PTALine PRLine PMirr Cut Fuse Prism FulRevol SecRevol Fillet
|
|
#1 Box creation
|
|
NewCommand D
|
|
set B2 [AddObject D]; ## add object
|
|
set F2 [AddFunction D $B2 Box]; ## add function
|
|
BoxDX D $B2 190; ## set arguments of this function
|
|
BoxDY D $B2 290
|
|
BoxDZ D $B2 390
|
|
InitLogBook D; ## initialize (clean) internal maps of labels
|
|
ComputeFun D $F2; ## compute the function
|
|
GetShape D $F2:2 Box2; ## check result
|
|
whatis Box2
|
|
GetReference D $B2
|
|
|
|
#2 Box creation
|
|
NewCommand D
|
|
set B1 [AddBox D 120 140 150];
|
|
ComputeFun D $B1:1;
|
|
GetShape D $B1:1:2 Box;
|
|
whatis Box
|
|
|
|
#3 Translate Box1
|
|
NewCommand D
|
|
set FTr1 [PTranslateDXYZ D $B1 150 -40 270]
|
|
ComputeFun D $FTr1
|
|
GetShape D $B1:2:2 Box
|
|
|
|
#4 Cut B2 B1
|
|
NewCommand D
|
|
set CS [AddCut D $B2 $B1]
|
|
ComputeFun D $CS
|
|
erase
|
|
GetShape D $CS:2 S
|
|
NewCommand D
|
|
|
|
#5 test Naming
|
|
set SL [TestSingleSelection D $B2 1]
|
|
set SL2 [TestMultipleSelection D $B2 0]
|
|
|
|
#6 Modification
|
|
NewCommand D
|
|
BoxDX D $B2 220
|
|
|
|
#7 recompute
|
|
NewCommand D
|
|
InitLogBook D
|
|
ComputeFun D $F2
|
|
ComputeFun D $B1:1
|
|
ComputeFun D $FTr1
|
|
ComputeFun D $CS
|
|
erase
|
|
GetShape D $CS:2 S
|
|
don S
|
|
SolveFlatFrom D $SL
|
|
NewCommand D
|
|
|