Topic: Question about "initget"

[MeasureUp]

I have used "initget" a lot without any problems until I am working on a new code.
In the code, I set two groups of keyword by using "initegt" and this is a sample:

Code: [Select]

(initget "A B C")
(setq ABC (getstring "\nSelect a Letter (A/B/C): "))
(if (eq ABC "A")
(prompt "Print letter A.")
); end if

...

(initget "D E F")
(setq DEF (getstring "\nSelect a Letter (D/E/F): "))

If I enter "D", "E" or "F" in the line of "setq DEF...", it returns "Invalid option keyword."
If I enter "A", "B" or "C" it accepts.
Is there anything that I did wrong?
Your helps are much appreciated.

[CAB]

Try this:

Code: [Select]

(initget "D E F")
(setq DEF (getkword "\nSelect a Letter (D/E/F): "))

[MeasureUp]

Sorry, CAB.
The "get-" function in my code was "getkword" instead of "getstring".
If I enter "D", "E" or "F" in the line of "setq DEF...", it returns "Invalid option keyword."
Is there anything in the code incorrect?

Code: [Select]

(initget "A B C")
(setq ABC (getkword "\nSelect a Letter (A/B/C): "))
(if (eq ABC "A")
(prompt "Print letter A.")
); end if

...

(initget "D E F")
(setq DEF (getkword "\nSelect a Letter (D/E/F): "))


[Kerry]

Sorry, CAB.
The "get-" function in my code was "getkword" instead of "getstring".
If I enter "D", "E" or "F" in the line of "setq DEF...", it returns "Invalid option keyword."
Is there anything in the code incorrect?

Code: [Select]

(initget "A B C")
(setq ABC (getkword "\nSelect a Letter (A/B/C): "))
(if (eq ABC "A")
(prompt "Print letter A.")
); end if

...

(initget "D E F")
(setq DEF (getkword "\nSelect a Letter (D/E/F): "))


Works for me.

BTW. See the square brackets .. try Right-click at the prompt to see an interactive menu with A, B, C as menu items

[ronjonp]

You could also do something like this to "remember" your last selection.

Code: [Select]

(or *global* (setq *global* "A"))
(initget "A B C")
(alert (setq *global* (cond ((getkword (strcat "\n[A/B/C] <" *global* ">: ")))
    (*global*)
      )
       )
)


[HasanCAD]

Prompting with a Default Option
http://www.lee-mac.com/promptwithdefault.html

[CAB]

Lee has excellent examples.

Here are some other examples.
-----------   keyword examples  -------------
http://www.theswamp.org/index.php?topic=15173.0
http://www.theswamp.org/index.php?topic=6992.0
http://www.theswamp.org/index.php?topic=15173.0
http://www.theswamp.org/index.php?topic=6992.msg93574#msg93574

[MeasureUp]

Thanks to everyone for the rich info.
However, I couldn't figure out what was wrong in my code.
It forces the user enter "A", "B" or "C" in the line

Code: [Select]

(setq DEF (getkword "\nSelect a Letter (D/E/F): "))
Otherwise it returns "Invalid option keyword."
It looks likely it holds the variable active:

Code: [Select]

(setq ABC (getkword "\nSelect a Letter (A/B/C): "))

BTW, I use AutoCAD Mech v2013.

[CAB]

You must use  a new initget before each getkword.
Did you use this (initget "D E F") just before the getkword ?

[MeasureUp]

You must use  a new initget before each getkword.
Did you use this (initget "D E F") just before the getkword ?

Yes, I use a new initget as shown on my code in the previous post:

Code: [Select]

...
(initget "D E F")
(setq DEF (getkword "\nSelect a Letter (D/E/F): "))


[Lee Mac]

To clarify, try the following program:

Code: [Select]

(defun c:doit ( )
    (initget 1 "D E F")
    (getkword "\nChoose a Letter [D/E/F]: ")

    (initget 1 "A B C")
    (getkword "\nAnd Another [A/B/C]: ")
    (princ)
)

[MeasureUp]

To clarify, try the following program:

Code: [Select]

(defun c:doit ( )
    (initget 1 "D E F")
    (getkword "\nChoose a Letter [D/E/F]: ")

    (initget 1 "A B C")
    (getkword "\nAnd Another [A/B/C]: ")
    (princ)
)

Thanks, Lee.
I tested it and this is what I got:

Command: DOIT

Choose a Letter [D/E/F]: e

And Another [A/B/C]: b

If I copy this line

Code: [Select]

(getkword "\nAnd Another [A/B/C]: ")
to command prompt then enter letter "A", "B" or "C" (without quotation marks) it returns "Invalid option keyword" again.

[Lee Mac]

If I copy this line

Code: [Select]

(getkword "\nAnd Another [A/B/C]: ")
to command prompt then enter letter "A", "B" or "C" (without quotation marks) it returns "Invalid option keyword" again.

As is expected, since an initget expression has not been evaluated prior to the getkword call.

[MeasureUp]

As is expected, since an initget expression has not been evaluated prior to the getkword call.

Now I copy one line to command prompt per time. This is what I get:

Command: (initget 1 "A B C")
nil

Command: (getkword "\nAnd Another [A/B/C]: ")

And Another [A/B/C]: a
"A"

Command: (initget 1 "D E F")
nil

Command: (getkword "\nChoose a Letter [D/E/F]: ")

Choose a Letter [D/E/F]: d

Invalid option keyword.

[ronjonp]

Why are you copying the code to the command line? Seems like the VLIDE would be the best place to troubleshoot