5 ##############################################################
6 # Selection of Vertex returns Compound of vertexes
7 ##############################################################
12 AddDriver D PntXYZ PntRLT Line3D Attach
13 set Pnt1 [AddPoint D 0 0 0]
15 GetShape D $Pnt1:1:2 P1
17 set Pnt2 [AddPoint D 0 200 0]
19 set Pnt3 [AddPoint D 200 200 0]
21 set Pnt4 [AddPoint D 200 0 0]
23 GetShape D $Pnt2:1:2 P2
24 GetShape D $Pnt3:1:2 P3
25 GetShape D $Pnt4:1:2 P4
28 set Lin2 [ AddLine3D D 1 $Pnt1 $Pnt2 $Pnt3 $Pnt4]
30 GetShape D $Lin2:1:2 L1
33 AddDriver D Prism Box PTxyz
34 set Prism [AddPrism D $Lin2 300 1]
36 GetShape D $Prism:1:2 Pr
39 set B1 [AddBox D 400 140 600]
41 GetShape D $B1:1:2 Box
44 set FTr1 [PTranslateDXYZ D $B1 -100 -20 -100]
46 GetShape D $B1:2:2 Box
49 AddDriver D Comm Cut Fuse
50 set Com1 [AddCommon D $Prism $B1]
56 AddDriver D Attach Cyl
57 set Sel1 [AttachShape D Pr_6 ${Prism} ${Prism} 0]
58 set Cyl [AddCyl D 70 515 ${Sel1}]
60 GetShape D $Cyl:1:2 CylS
63 set FTr1 [PTranslateDXYZ D $Cyl -100 200 170]
65 GetShape D $Cyl:2:2 CylS
67 set Cut1 [AddCut D $Prism $Cyl]
73 set Sel8 [AttachShape D Pr_8 ${Prism} ${Prism} 0]
74 set Sel11 [AttachShape D Pr_10 ${Prism} ${Prism} 0]
76 GetShape D $Cut1:2 result
78 checknbshapes result -vertex 10