Here's a rule that shows a dialog to choose values for the Design State property.
Dim choices As New ArrayList
choices.Add("Work in progress")
choices.Add("Pending")
choices.Add("Released")
Dim currentState = iProperties.Value("Status", "Design State")
Dim currentText = choices(currentState - 1)
Dim newText = InputListBox("Design State", choices, currentText)
Dim newIndex = choices.IndexOf(newText)
'Logger.Info(" newText = {0}, index = {1}", newText, newIndex)
If newIndex >= 0 And newIndex <= 2 And newIndex+1 <> currentState Then
iProperties.Value("Status", "Design State") = newIndex+1
End If
This won't check out the file. To do that, you would have to run a command.
Mike Deck
Software Developer
Autodesk, Inc.