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
Howdy, Stranger!