egnellahc32

[(gile)]

(defun str2lst (str sep / pos)
 (if (setq pos (vl-string-search sep str))
   (cons (substr str 1 pos)
  (str2lst (substr str (+ (strlen sep) pos 1)) sep)
   )
   (list str)
 )
)

(defun in (n l / x r)
 (setq l (str2lst l ","))
 (or (numberp n) (setq n (atof n)))
 (while (and (not r) l)
   (setq x (mapcar 'atof (str2lst (car l) "-"))
  l (cdr l)
   )
   (if	(or (= (car x) n) (      (setq r T)
   )
 )
 r
)

 

(defun str2lst (str sep / pos)
 (if (setq pos (vl-string-search sep str))
   (cons (substr str 1 pos)
  (str2lst (substr str (+ (strlen sep) pos 1)) sep)
   )
   (list str)
 )
)

(defun in (n l)
 (or (numberp n) (setq n (atof n)))
 (vl-some
   '(lambda (x) (or (= (car x) n) (    (mapcar '(lambda (x) (mapcar 'atof (str2lst x "-")))
    (str2lst l ",")
   )
 )
)