Lists

[craigboddington]

I have a 'list' of values within a routine. I wish to search through the list untill i get a match with a user entered value, then return the list value to a variable.

Any help would be grate.

 

[Alan Henderson]

Here are 2 examples of getting list data

(setq SLIST (list 1 2 3 4 5))
(setq SINPUT (getint "\nInput Number ? "))
(setq SVAL (car (member SINPUT SLIST)))
(princ "\nSVAL=")
(princ SVAL)

(setq LLIST (list (list 1 "A") (list 2 "B") (list 3 "C"))) (setq LINPUT (getint "\nInput Number ? ")) (setq LVAL (assoc LINPUT LLIST)) (princ "\nLVAL=") (princ LVAL) ;this returns a list (2 "B") for example

 

[RDI]

Another alternative

(setq optionList(list (cons (strcase "Option1") "This is option1")(cons (strcase "Option2") "This is Option2"))) (setq opt(strcase(strcat "Option" (getstring "Enter option 1 or 2: ")))) (princ (cdr( assoc opt optionList)))

I have a 'list' of values within a routine. I wish to search through the

list untill i get a match with a user entered value, then return the list value to a variable.

 

[craigboddington]

cheers for all you help lads.