Topic: Are you a MEMBER?

[Mark]

What can you do with the MEMBER function?

Well let's see ...

Code: [Select]

(setq lst '( 1.0 2.25 3.15 5 0.25 ))
(member 2.25 lst)
==> (2.25 3.15 5 0.25)

(car (member 2.25 lst))
==> 2.25

(member (+ 2.5 2.5) lst)
==> (5 0.25)


That's pretty cool uh.

Code: [Select]

(setq i '((1 2 3)(4 5 6)("a" "b" "c")))

(member '(4 5 6) i)
==> ((4 5 6) ("a" "b" "c"))

(member 5 (car (member '(4 5 6) i)))
==> (5 6)


(defun c:vote (/ answers question)
  (setq answers '("yes" "no" "maybe"))

  (setq question (getstring "\nDo you like ACAD 2006? "))

  (if (member (strcase question t) answers)
    (princ "\nThanks for voting")
    (princ
      "\nSorry I can only accept \"yes\" \"no\" or \"maybe\""
    )
  )
  (princ)

)

[nivuahc]

Hope you don't mind, I updated your code a bit:

Code: [Select]

(defun c:vote (/ answers question)
  (setq answers '("yes" "no" "maybe"))

  (setq question (getstring "\nDo you like ACAD 2006? "))

  (if (member (strcase question t) answers)
    (princ "\nThanks for voting")
    (princ
      "\nPlease refrain from using expletives and answer \"yes\" \"no\" or \"maybe\" only"
    )
  )
  (princ)

)

Code: [Select]

command: vote
Do you like ACAD 2006?  It's driving me up the $%#*@ WALL!!!!!
Please refrain from using expletives and answer "yes" "no" or "maybe" only
command:

[hudster]

 

[whdjr]

Catchy title Mark. 

[Joe Burke]

Member if you need the list it returns. Otherwise, vl-position to simply test for an item in a list.