Thus far we have discussed prompting the user with information and working with previously-selected elements. Allowing the user to give us input as our procedures execute makes our interactive modifications more powerful.

The Cad Input Queue allows us to capture some of the user's interaction with MicroStation. Let's look at a few examples of using the CAD Input Queue. We begin with a very simple example that demonstrates the use of the CAD Input Queue and then move to some real-world examples.

Sub <b class="bold">TestCadInputA</b>()    Dim myCIQ As CadInputQueue    Dim myCIM As CadInputMessage    Dim I As Long    Set myCIQ = CadInputQueue    For I = 1 To 10        Set myCIM = myCIQ.GetInput        Debug.Print myCIM.InputType    Next IEnd Sub

In the above example, we capture ten user interactions and print the InputType to the Immediate Window. The main thing we want to see with this example is the mechanics of how to use the CadInputQueue and the CadInputMessage.

Let's make a couple of modifications to the above example to capture only point selections.

Sub <b class="bold">TestCadInputB</b>()    Dim myCIQ As CadInputQueue    Dim myCIM As CadInputMessage    Dim I As Long    Dim pt3Selection As Point3d    Set myCIQ = CadInputQueue    For I = 1...