不等式数组绘制的3D区域内，又随机生成3D点，如何将这些3D点画到该3D区域内

Question

IntersectionArea=50881/2500-x<=0&&260200273802772766010984136377131/792281625142643375935439503360000+(2239963949444545 x)/9007199254740992-(4340331066137927 y)/4503599627370496-(3483228077671661 z)/36028797018963968>=0&&-(8141360841902080110424563614022869/792281625142643375935439503360000)+(2239963949444545 x)/9007199254740992+(4340331066137927 y)/4503599627370496+(3483228077671661 z)/36028797018963968>=0&&-(26416902306365906752185319913999/40564819207303340847894502572032)+(4490788811778835 x)/18014398509481984+(6966648543618857 y)/72057594037927936-(2169814157187433 z)/2251799813685248>=0&&-(236298204228711824126122304466170683/25353012004564588029934064107520000)+(2245394405889417 x)/9007199254740992-(6966648543618869 y)/72057594037927936+(4339628314374865 z)/4503599627370496>=0&&8109491111517697/281474976710656-x>=0&&19.6992`<=x<=29.0632`&&2.52266`<=y<=15.2189`&&1.55964`<=z<=7.7577`;
Head[IntersectionArea];
R2=ImplicitRegion[IntersectionArea,{x,y,z}];
a=RegionPlot3D[R2,PlotPoints -> 100,Axes->True];
pts=RandomPoint[R2,15];

试过很多方法，就是不能将生成的pts画到区域a中，以表示这些生成的点属于该区域，先跪谢各位大神了

Answer 1

a = RegionPlot3D[R2, PlotPoints -> 100, Axes -> True, 
   PlotStyle -> Opacity[0.4]];
Show[a, Graphics3D[{Blue, PointSize[0.02], Point[pts]}]]