MicroStation GetInput

Published on July 11, 2011

For those of you still wanting to convert MicroStation User Commands (UCM’s) to VBA
one way to ease your transition is to use the VBA CadInputQueue.GetInput method for
getting input from the user. This method most closely mimics the GET function in the
UCM language.

The example function below shows how you can use the GetInput method for placing a
fence block. There is also a good example of using GetInput in the MicroStation VBA
Help examples.

Public Function PlaceFenceBlock() As Boolean
Dim ciMessage As CadInputMessage
Dim IsFirstPoint As Boolean

PlaceFenceBlock = False
IsFirstPoint = True
CadInputQueue.SendKeyin "Place Fence Block"

Do While True
Set ciMessage = CadInputQueue.GetInput

Select Case ciMessage.InputType
'
' User Keyin Input
'
Case msdCadInputTypeKeyin
CadInputQueue.SendKeyin ciMessage.Keyin

'
' Users selects a different MicroStation command
'
Case msdCadInputTypeCommand

CadInputQueue.SendReset
CommandState.StartDefaultCommand
Exit Function

'
' User clicks Reset
'
Case msdCadInputTypeReset
CadInputQueue.SendReset

'
' If the user has not clicked any data points
' then exit the function
' otherwise reset flag to the first point
'
If IsFirstPoint Then
CommandState.StartDefaultCommand
Exit Function
Else
IsFirstPoint = True
End If

'
' User clicks Data Point
'
Case msdCadInputTypeDataPoint
CadInputQueue.SendDataPoint ciMessage.Point
End Select

If IsFirstPoint Then
IsFirstPoint = False
Else
Exit Do
End If
Loop

PlaceFenceBlock = True
End Function

Note: Use caution if using the GetInput method in combination with UserForms as
incorrect implementation can cause MicroStation lock up.


Tags:
Like this article? Share it!

Leave a Comment

XHTML: You can use these tags: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Privacy Policy