topic Re: Sticky initget? Or getkword recognizing only the first initget call? in Visual LISP, AutoLISP and General Customization Forum

Sticky initget? Or getkword recognizing only the first initget call?

Anonymous — Tue, 28 Jun 2016 22:12:31 GMT

Can anyone explain why the following is happening?

Command: (initget "Alpha Beta Gamma")
nil

Command: (getkword "\nChoose Alpha/Beta/Gamma: ")

Choose Alpha/Beta/Gamma: a
"Alpha"

Command: (initget "Apples Berries Cocoa")
nil

Command: (getkword "\nChoose Apples/Berries/Cocoa: ")

Choose Apples/Berries/Cocoa: a
"Alpha"

Command: (getkword "\nChoose Apples/Berries/Cocoa: ")

Choose Apples/Berries/Cocoa: b
"Beta"

Command: (getkword "\nChoose Apples/Berries/Cocoa: ")

Choose Apples/Berries/Cocoa: c

Invalid option keyword.

Choose Apples/Berries/Cocoa: g
"Gamma"

Many thanks in advance,

David Field

Re: Sticky initget? Or getkword recognizing only the first initget call?

Anonymous — Wed, 29 Jun 2016 00:51:40 GMT

I copy/pasted code from another initget-related post and it worked like I expected, so I thought maybe it had something to do with using three keywords, for some reason. Grasping at straws here...

So I tried it again in a new drawing, with just two keywords - same behavior.

Command:
Command:

Command:
Command: (initget "Yes No")
nil

Command: (setq ans (getkword "Yes or No? "))
Yes or No? y
"Yes"

Command: (setq ans (getkword "Yes or No? "))
Yes or No? n
"No"

Command: (setq ans (getkword "Yes or No? "))
Yes or No? y
"Yes"

Command: (setq ans (getkword "Yes or No? "))
Yes or No? you

Invalid option keyword.
Yes or No? noah

Invalid option keyword.
Yes or No? n
"No"

Command: (setq newans (getkword "You or Noah? "))
You or Noah? y
"Yes"

Command: (setq newans (getkword "You or Noah? "))
You or Noah? n
"No"

Command: (setq newans (getkword "You or Noah? "))
You or Noah? you

Invalid option keyword.
You or Noah? noah

Invalid option keyword.
You or Noah? y
"Yes"

Command: (initget "You Noah")
nil

Command: (setq newans (getkword "You or Noah? "))
You or Noah? y
"Yes"

Command: (setq newans (getkword "You or Noah? "))
You or Noah? noah

Invalid option keyword.
You or Noah? you

Invalid option keyword.
You or Noah? no
"No"

Command: (setq newans (getkword "You or Noah? "))
You or Noah? yes
"Yes"

Re: Sticky initget? Or getkword recognizing only the first initget call?

kerry_w_brown — Wed, 29 Jun 2016 03:00:52 GMT

Hi David

The initget bit values and keywords apply only to the next user-input function call.

You seem to be missing a couple of initget(...) statements

Regards,

Re: Sticky initget? Or getkword recognizing only the first initget call?

Anonymous — Wed, 29 Jun 2016 04:41:41 GMT

No, I don't think I am. Line 6 in the first example, I called (initget "Apples Berries Cocoa"), and in line 35 in the 2nd example, I called (initget "You Noah") after messing around with entering invalid keywords several times.

Re: Sticky initget? Or getkword recognizing only the first initget call?

kerry_w_brown — Wed, 29 Jun 2016 05:50:10 GMT

Sorry, I can't reproduce your issue.

Which build are you working with ?

Re: Sticky initget? Or getkword recognizing only the first initget call?

CADaSchtroumpf — Wed, 29 Jun 2016 08:31:12 GMT

I can reproduce this phenomenon if I execute line by line, from the command line, it's strange. . .
However in an encapsulated code, the problem does not reproduce.
Example:

((lambda ( / l omega)
	(setq l '("Alpha Beta Gamma" "Apples Berries Cocoa" "Alan Bob Ghost" "Sumerians Egyptians Romans Mayans"))
	(setq omega (mapcar '(lambda (x) (initget x) (princ (getkword (strcat "\nChoose[" (vl-string-translate " " "/" x) "]: ")))) l))
	(print omega)
	(prin1)
))

The variable contains omega although the list of choices.

Re: Sticky initget? Or getkword recognizing only the first initget call?

Anonymous — Wed, 29 Jun 2016 17:56:02 GMT

acadver = "20.0s (LMS Tech)"

Civil 3D 2015 service pack 3

Here's a simplified, color coded, line numbered command line sequence:

1 Command: (initget "Yes No")
2 nil

3 Command: (getkword "Yes or No? ")
4 Yes or No? y
5 "Yes"

6 Command: (initget "You Me")
7 nil

8 Command: (getkword "You or Me? ")
9 You or Me? you

10 Invalid option keyword.
11 You or Me? me

12 Invalid option keyword.
13 You or Me? no
14 "No"

15 Command: (getkword "You or Me? ")
16 You or Me? y
17 "Yes"

Maybe it's time to learn to use lambda...

Re: Sticky initget? Or getkword recognizing only the first initget call?

ВeekeeCZ — Wed, 29 Jun 2016 19:09:54 GMT

@Anonymous wrote:

acadver = "20.0s (LMS Tech)"

Civil 3D 2015 service pack 3

Here's a simplified, color coded, line numbered command line sequence:

...
Maybe it's time to learn to use lambda...

It is failing where this is used in a code? Never to me!

If you use this is regular way... it never fails. Btw you should use a standardized format - then it's clickable.

btw Can you reproduce this if you wrap these with (progn)?

(progn (initget "You Noah") (princ (getkword "\nYou or Noah? [You/Me]: ")))

I can't.

(defun c:test ()

  (initget 1 "Yes No")
  (princ (getkword "\nYes or No? [Yes/No]: "))

  (initget "You Me")
  (princ (getkword "\nYou or Me? [You/Me]: "))

  (initget "You Noah")
  (princ (getkword "\nYou or Noah? [You/Me]: "))

  (initget "Apples Berries Cocoa")
  (princ (getkword "\nChoose [Apples/Berries/Cocoa]: "))

  (initget "Alpha Beta Gamma")
  (princ (getkword "\nChoose [Alpha/Beta/Gamma]: "))

  (princ)
)

Command: TEST

Yes or No? [Yes/No]: y
Yes
You or Me? [You/Me]: y
You
You or Noah? [You/Me]: y
You
Choose [Apples/Berries/Cocoa]: a
Apples
Choose [Alpha/Beta/Gamma]: a
Alpha

Command:
Command:
TEST

Yes or No? [Yes/No]: y
Yes
You or Me? [You/Me]: m
Me
You or Noah? [You/Me]: m

Invalid option keyword.

You or Noah? [You/Me]: n
Noah
Choose [Apples/Berries/Cocoa]: c
Cocoa
Choose [Alpha/Beta/Gamma]: g
Gamma

Command:
Command:
TEST

Yes or No? [Yes/No]: n
No
You or Me? [You/Me]: me
Me
You or Noah? [You/Me]: you
You
Choose [Apples/Berries/Cocoa]: cocoa
Cocoa
Choose [Alpha/Beta/Gamma]: b
Beta

Command:

No need for lambda on regular basis. As @CADaSchtroumpf said:

I can reproduce this phenomenon if I execute line by line, from the command line, it's strange. . .
However in an encapsulated code, the problem does not reproduce.

Re: Sticky initget? Or getkword recognizing only the first initget call?

Anonymous — Wed, 29 Jun 2016 20:16:59 GMT

No, I'm in the habit of pasting each line of code to the command line as I write to make sure it works on its own. This is the first time I've run into a function that doesn't work that way.

You're right though, it works fine wrapped in a progn. From what you say it should also work fine when I run the finished routine, but I'll make a note of using progn just in case.

Still confused by the fact this doesn't work if entered line by line at the command line, but okay, I can accept it just doesn't.

Thanks all!

Re: Sticky initget? Or getkword recognizing only the first initget call?

Anonymous — Wed, 29 Jun 2016 20:20:17 GMT

By the way, what did you mean by a standardized format?

Re: Sticky initget? Or getkword recognizing only the first initget call?

ВeekeeCZ — Wed, 29 Jun 2016 20:31:58 GMT

@Anonymous wrote:

By the way, what did you mean by a standardized format?

(getkword "\nChoose [Alpha/Beta/Gamma]: ")
;
; or if there is a default option:
;
(getkword "\nChoose [Alpha/Beta/Gamma] <Beta>: ")

Re: Sticky initget? Or getkword recognizing only the first initget call?

ВeekeeCZ — Wed, 29 Jun 2016 20:48:39 GMT

@Anonymous wrote:

No, I'm in the habit of pasting each line of code to the command line as I write to make sure it works on its own....

Frankly... if there is a rule, that certain command works just for the following function... it's suspicious to me - not automatical expecting that it works in command line as well. This applies for (initget) or (initcommandversion)... Just caution -- but it should work 🙂 Maybe when a delay is too long, it does not.