Topic: if statement question

[andrew_nao]

whats the best way to approach if statements.

basically im wanting match var 1 to either var 2, 3 or 4 and if var 1 is does not match var 2, 3 or 4 then do my thing.

thnks

[kpblc]

I didn't test the speed. For example:

Code: [Select]

(defun test (/ var1 var2 var3 var4)
  (setq var1 12
var2 13
var3 15
var3 123
  )

  ;; variant 1
  (if (not (member var1 (list var2 var3 var4)))
      ;; do what you want
  )

  ;; variant 2
  (if (not (apply (function or)
  (mapcar
    (function
      (LAMBDA (x)
(equal var1 x 1e-3)
      )
    )
    (list var2 var3 var4)
  )
   )
      )
      ;; do what you want
  )
)

[ronjonp]

Couple more:

Code: [Select]

  (if (vl-some '(lambda (x) (equal var1 x)) (list var2 var3 var4))
      ;; Exit
      ;; do what you want
  )
  (if (vl-position var1 (list var2 var3 var4))
      ;; Exit
      ;; do what you want
  )

[Lee Mac]

Another:

Code: [Select]

(if (or (equal var1 var2)
        (equal var1 var3)
        (equal var1 var4)
    )
    ;; do what you want
)

[CAB]

For Andrew
http://www.theswamp.org/index.php?topic=13046.msg158557#msg158557

[andrew_nao]

For Andrew
http://www.theswamp.org/index.php?topic=13046.msg158557#msg158557

excellent post CAB,
thanks for this

and thank you everyone for your help

[snownut2]

Code: [Select]

  (if (vl-position var1 (list var2 var3 var4))
      ;; Exit
      ;; do what you want
  )

Good one ronjonp......

[ronjonp]

Code: [Select]

  (if (vl-position var1 (list var2 var3 var4))
      ;; Exit
      ;; do what you want
  )

Good one ronjonp......