Solved: PromptKeywordOptions (1:1, 1:2, etc.)

Anonymous · ‎11-21-2019

Hello everybody!
I'd like to try something in AutoCAD / .Net for Dim pKeyOpts As PromptKeywordOptions = New PromptKeywordOptions ("").
In the case of texts, the abbreviations can indeed be defined by uppercase letters, e.g. Metal [M], tRockenbau [R] etc.
How can I do that with numbers, e.g. Regulate scale.
1: 1, 1: 2, 1: 5, 1:10, 1:20 here is always the first 1 taken over.
Is there a possibility, if so how?
Many thanks.

Dim pKeyOpts As PromptKeywordOptions = New PromptKeywordOptions("")
pKeyOpts.Message = vbLf & vbLf & "Treffen Sie eine Auswahl / Bauteilschraffur:"
pKeyOpts.Keywords.Add("Beschlag")
pKeyOpts.Keywords.Add("Metall")
pKeyOpts.Keywords.Add("Acryl")
pKeyOpts.Keywords.Add("Kunststoff")
pKeyOpts.Keywords.Add("Glas(Spiegel)")
pKeyOpts.Keywords.Add("Schaumstoff")
pKeyOpts.Keywords.Add("sToffe")
pKeyOpts.Keywords.Add("Leder")
pKeyOpts.Keywords.Add("Mauerwerk")
pKeyOpts.Keywords.Add("tRockenbau")
pKeyOpts.Keywords.Add("Corian(Granit&Stein)")
pKeyOpts.Keywords.Add("Platten")
pKeyOpts.Keywords.Add("Vollholz")
pKeyOpts.Keywords.Add("kOmpaktplatte")

pKeyOpts.Keywords.Default = "Platten"
pKeyOpts.AllowNone = True
Dim pKeyRes As PromptResult = acEd.GetKeywords(pKeyOpts)

Dim pKeyOpts As PromptKeywordOptions = New PromptKeywordOptions("")
pKeyOpts.Message = vbLf & vbLf & "Wählen Sie einen Maßstab aus:"
pKeyOpts.Keywords.Add("1:1")
pKeyOpts.Keywords.Add("1:2")
pKeyOpts.Keywords.Add("1:5")
pKeyOpts.Keywords.Add("1:10")
pKeyOpts.Keywords.Add("1:20")

pKeyOpts.Keywords.Default = "1:1"
pKeyOpts.AllowNone = True
Dim pKeyRes As PromptResult = acEd.GetKeywords(pKeyOpts)

Wählen Sie einen Maßstab aus [1:1/1:2/1:5/1:10/1:20] <1:1>:

How do I get it now that the default is different possibly so:

Wählen Sie einen Maßstab aus [1:1/1:2/1:5/1:10/1:20] <1:1>:

Gepaha · ‎11-22-2019

I use something like this

Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;

PromptKeywordOptions pko = new PromptKeywordOptions("\nChoose an option");
pko.Keywords.Add("1", "1", "1 - 1:1"); 
pko.Keywords.Add("2", "2", "2 - 1:2"); 
pko.Keywords.Add("5", "5", "5 - 1:5"); 
pko.Keywords.Add("10", "10", "10 - 1:10"); 
pko.Keywords.Add("20", "20", "20 - 1:20");          

pko.Keywords.Default = pko.Keywords[0].LocalName;          
pko.AllowArbitraryInput = true;
pko.AllowNone = false;

PromptResult pr = ed.GetKeywords(pko);

ed.WriteMessage("\nChoosen: {0}", pr.StringResult);

Not the expected solution but it works.