Topic: While with Initget

[CAB]

Another variation.

Code: [Select]

(defun c:test ( / lt )
       (while
           (cond
             ((initget "Line Pline Exit"))
             ((not (member (setq lt (getkword "\nLine or Pline? [Line/Polyline/Exit] <Exit>: "))'("Line" "Pline" "Exit"))) nil)
             (t
               (command (strcat "_." lt))
               (while (= 1 (logand 1 (getvar 'cmdactive)))
                 (command pause)
               ) t)
           )
       )
       (princ)
    )
edit: should have tested it 

[irneb]

Good one there CAB. Though shouldn't it be

Code: [Select]

(= "Exit" ...perhaps? Else it issues an exit command.

Edit ... just say you edited it!  :kewl:


Perhaps

Code: [Select]

(member (...) '("Exit" nil))

[CAB]

That one is better, off to get my second cup 

[Lee Mac]

EDIT: Oops! I didn't read all the posts - it seems the OP now wants the 'Exit' to be default...

No  he wants LINE to be the default until he wants to exit and then he wants EXIT to be the default. 

 

[irneb]

Actually I'm with him on this: The best interface is no interface.

Unless they can get some decent brainwave translator going I don't think it's possible though!

[CAB]

The typical scenario I use is ENTER goes to your common choice and ESCape is the exit key. 

[BlackBox]

Yeah!!! I know! Funny as hell!  :pissed:

Anyhow, I hope I didn't confuse you too much RM  .

Not at all, my friend... Just ribbing you; Happy Friday! 

Actually I'm with him on this: The best interface is no interface.

Unless they can get some decent brainwave translator going I don't think it's possible though!

BTW - Thanks for posting a link to this article; I've only skimmed it, but it looks pretty interesting.

Cheers! :beer:

[irneb]

Not at all, my friend... Just ribbing you; Happy Friday! 

Gathered as much  . Cheers! I'm off for the weekend 

[CAB]

Actually I'm with him on this: The best interface is no interface.

Unless they can get some decent brainwave translator going I don't think it's possible though!

An interesting read. Thanks 

[MeasureUp]

Nice explanation.
Thanks for everyone's help.

[chlh_jd]

Is this whether you prefer it 

Code: [Select]

(defun c:test  (/ lt)
  ;; Edited from Alan's code
  (while
    (cond
      ((initget "Line Pline "))
      ((member (setq lt
      (getpoint
"\nLine or Pline? [Line/Polyline] <Select Point For Line / exit>: "))
       '("Line" "Pline"))
       (command (strcat "_." lt))
       (while (= 1 (logand 1 (getvar 'cmdactive)))
(command pause)
)
       t
       )
      ((vl-consp lt);_Select point , run default command "LINE"
       (command "_.Line")
       (command lt)
       (while (= 1 (logand 1 (getvar 'cmdactive)))
(command pause)
)
       t)
      )
    )
  (princ)
  )