InitializeUserInput - Err.Description is never "User input is a keyword"

Set util = ThisDrawing.Utility selected = False On Error Resume Next Do keywordList = Array("S", "St") ThisDrawing.Utility.InitializeUserInput 128, keywordList ThisDrawing.Utility.GetEntity desslab, pp, "Select Objects (Or STart from scratch) " If Err Then If Err.Description = "User input is a keyword" Then Err.Clear ThisDrawing.PurgeAll ThisDrawing.SetVariable "useri5", 0 End If Err.Clear selected = False Else selected = True End If Loop While Not selected On Error GoTo 0

Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. Click one of the buttons on the top bar to get involved!