Topic: Help getkword

[amc.dicsac]

Hi, I need help please.

What I need is that after selecting an action, example "1", ask the options again.   

Code - Auto/Visual Lisp: [Select]

1. (defun c:Rev1 ()
2. (if (not opcionrev) (setq opcionrev "1"))
3. (initget "1 2 3 eXit")
4. (setq opcionrev (cond ( (getkword (strcat "\nSpecify option [1 /2 / 3 / eXit] <" opcionrev "> : " ))) ( opcionrev )))
5. (cond
6. ((= opcionrev "1") (alert "\nOption 1..."))
7. ((= opcionrev "2") (alert "\nOption 2..."))
8. ((= opcionrev "3") (alert "\nOption 3..."))
9. ((= opcionrev "eXit") (prompt "\n** Exit **")))
10.   (princ))
11.  

[QuestionEverything]

Perhaps wrap it within a while loop:

Code: [Select]

(defun c:Rev1 ()
(if (not opcionrev) (setq opcionrev "1"))
(while
(initget "1 2 3 eXit")
(setq opcionrev (cond ( (getkword (strcat "\nSpecify option [1 /2 / 3 / eXit] <" opcionrev "> : " ))) ( opcionrev )))
(cond
((= opcionrev "1") (alert "\nOption 1..."))
((= opcionrev "2") (alert "\nOption 2..."))
((= opcionrev "3") (alert "\nOption 3..."))
((= opcionrev "eXit") (prompt "\n** Exit **"))
)
)
(princ))

[ronjonp]

You need to put (not (initget ...)) since it returns nil. That loop will never start & it needs a way to exit since the option always returns something.

Code - Auto/Visual Lisp: [Select]

1. (defun c:rev1 ()
2.   (if (not *opcionrev*)
3.     (setq *opcionrev* "1")
4.   )
5.   (while (and (not (initget "1 2 3 eXit"))
6.               (setq *opcionrev*
7.                      (cond
8.                        ((getkword (strcat "\nSpecify option [1 /2 / 3 / eXit] <" *opcionrev* "> : "))
9.                        )
10.                        (*opcionrev*)
11.                      )
12.               )
13.               (/= *opcionrev* "eXit")
14.          )
15.     (cond ((= *opcionrev* "1") (alert "\nOption 1..."))
16.           ((= *opcionrev* "2") (alert "\nOption 2..."))
17.           ((= *opcionrev* "3") (alert "\nOption 3..."))
18.           ((= *opcionrev* "eXit") (prompt "\n** Exit **"))
19.     )
20.   )
21.   (princ)
22. )

[amc.dicsac]

Hi, ronjonp

Thanks. 

[ronjonp]

Hi, ronjonp

Thanks. 

[CAB]

More keyword stuff
http://www.theswamp.org/index.php?topic=15173.0