b92d758f |
1 | puts "==========" |
2 | puts "OCC21707" |
3 | puts "==========" |
4 | puts "" |
5 | ############################################################## |
6 | # Selection of Vertex returns Compound of vertexes |
7 | ############################################################## |
8 | |
9 | NewDocument D MDTV-Standard |
10 | isos 12 |
11 | NewCommand D |
12 | AddDriver D PntXYZ PntRLT Line3D Attach |
13 | set Pnt1 [AddPoint D 0 0 0] |
14 | ComputeFun D $Pnt1:1 |
15 | GetShape D $Pnt1:1:2 P1 |
16 | |
17 | set Pnt2 [AddPoint D 0 200 0] |
18 | ComputeFun D $Pnt2:1 |
19 | set Pnt3 [AddPoint D 200 200 0] |
20 | ComputeFun D $Pnt3:1 |
21 | set Pnt4 [AddPoint D 200 0 0] |
22 | ComputeFun D $Pnt4:1 |
23 | GetShape D $Pnt2:1:2 P2 |
24 | GetShape D $Pnt3:1:2 P3 |
25 | GetShape D $Pnt4:1:2 P4 |
26 | |
27 | NewCommand D |
28 | set Lin2 [ AddLine3D D 1 $Pnt1 $Pnt2 $Pnt3 $Pnt4] |
29 | ComputeFun D $Lin2:1 |
30 | GetShape D $Lin2:1:2 L1 |
31 | |
32 | NewCommand D |
33 | AddDriver D Prism Box PTxyz |
34 | set Prism [AddPrism D $Lin2 300 0] |
35 | ComputeFun D $Prism:1 |
36 | GetShape D $Prism:1:2 Pr |
37 | |
38 | NewCommand D |
39 | set B1 [AddBox D 400 140 600] |
40 | ComputeFun D $B1:1 |
41 | GetShape D $B1:1:2 Box |
42 | |
43 | NewCommand D |
44 | set FTr1 [PTranslateDXYZ D $B1 -100 -20 -100] |
45 | ComputeFun D $FTr1 |
46 | GetShape D $B1:2:2 Box |
47 | |
48 | NewCommand D |
49 | AddDriver D Comm Cut Fuse |
50 | set Com1 [AddCommon D $Prism $B1] |
51 | ComputeFun D $Com1 |
52 | GetShape D $Com1:2 Pr |
53 | |
54 | NewCommand D |
55 | explode Pr E |
56 | AddDriver D Attach Cyl |
57 | set Sel1 [AttachShape D Pr_6 ${Prism} ${Prism} 0] |
58 | set Cyl [AddCyl D 70 515 ${Sel1}] |
59 | ComputeFun D $Cyl:1 |
60 | GetShape D $Cyl:1:2 CylS |
61 | |
62 | NewCommand D |
63 | set FTr1 [PTranslateDXYZ D $Cyl -100 200 170] |
64 | ComputeFun D $FTr1 |
65 | GetShape D $Cyl:2:2 CylS |
66 | |
67 | set Cut1 [AddCut D $Prism $Cyl] |
68 | ComputeFun D $Cut1 |
69 | GetShape D $Cut1:2 Pr |
70 | don Pr |
71 | explode Pr V |
72 | don Pr |
73 | set Sel8 [AttachShape D Pr_8 ${Prism} ${Prism} 0] |
74 | set Sel11 [AttachShape D Pr_10 ${Prism} ${Prism} 0] |
75 | |
76 | GetShape D $Cut1:2 result |
77 | |
78 | set nb_v_good 10 |
79 | set 2dviewer 0 |
80 | |