
I built a magic 8 ball using iLogic, utilising the random number generator to create a random answer. You are probably wondering why… Well the answer is, why not! I got the idea while stuck in traffic, and it was really quick and easy to knock together, so I thought I would share it here.
The animated GIF below shows the magic 8 ball in action:

The iLogic code works by generating a random number between 0 and 19, which is mapped to one of the potential answers. This answer is then written to a user parameter called “answer”. The user parameter is used in a sketch, which is extruded to form the answer on the model.

I put this together in Inventor 2020, and have shared the model below.
Download the Inventor 2020 file here:
Here is the iLogic code:
'iLogic code by @ClintBrown3D, originally posted at https://clintbrown.co.uk/magic-8-ball-in-inventor-with-ilogic 'It's not pretty, but it works 🙂 'Generate a Random Number 0-19 and assign an answer to each value RANDOMISER = Round(Rnd * 19) If RANDOMISER = 0 Then RANDOMISER = "Reply hazy, Try again" Else If RANDOMISER = 1 Then RANDOMISER = "It Is certain" Else If RANDOMISER = 2 Then RANDOMISER = "It Is decidedly so" Else If RANDOMISER = 3 Then RANDOMISER = "Without a doubt" Else If RANDOMISER = 4 Then RANDOMISER = "Yes - definitely" Else If RANDOMISER = 5 Then RANDOMISER = "You may rely On it" Else If RANDOMISER = 6 Then RANDOMISER = "As I see it, yes" Else If RANDOMISER = 7 Then RANDOMISER = "Most likely" Else If RANDOMISER = 8 Then RANDOMISER = "Outlook good" Else If RANDOMISER = 9 Then RANDOMISER = "Yes" Else If RANDOMISER = 10 Then RANDOMISER = "Signs Point To yes" Else If RANDOMISER = 11 Then RANDOMISER = "Reply hazy, Try again" Else If RANDOMISER = 12 Then RANDOMISER = "Ask again later" Else If RANDOMISER = 13 Then RANDOMISER = "Cannot predict Now" Else If RANDOMISER = 14 Then RANDOMISER = "Concentrate And ask again" Else If RANDOMISER = 15 Then RANDOMISER = "Don't count on it" Else If RANDOMISER = 16 Then RANDOMISER = "My reply Is no" Else If RANDOMISER = 17 Then RANDOMISER = "My sources say no" Else If RANDOMISER = 18 Then RANDOMISER= "Outlook Not so good" Else If RANDOMISER = 19 Then RANDOMISER = "Very doubtful" End If 'Change the Camera View, set the answer 'update the model and move the camera to reveal the answer InventorVb.SetViewCamera(ViewCameraOption.FitExtents, New Double() {12.630962504963469, 12.255962504963456, 12.255962504963469}, New Double() {0.375, 0, 0}, New Double() {-0.40824829046386291, 0.81649658092772626, -0.40824829046386318}, New Double() {10.965266851243031, 12.967785754450382}) Answer = UCase(RANDOMISER) iLogicVb.UpdateWhenDone = True InventorVb.SetViewCamera(ViewCameraOption.FitExtents, New Double() {-15.297630656897097, -0.63590545337838689, 3.9579955217014948}, New Double() {0.57036705617065286, -0.060368809609580062, 1.0564509604125576}, New Double() {-0.013773171507537903, 0.99249061932162, 0.12154287434980059}, New Double() {8.3378292368836426, 9.8604502239531531}) ThisApplication.StatusBarText = "Magic 8 Ball says "& "''" & UCase(RANDOMISER) &"'' @ClintBrown3D"