#pload FULL #source dftree.tcl #source DDataStd_TreeBrowser.tcl erase Close D unset D NewDocument D MDTV-Standard 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 argumets 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