action_tile in loop

[thabit79BL3]

Hello, 

I need to define 20 CAT, of course I need to use a WHILE or REPEAT loop but can't find the right implementation. 

(action_tile "CAT1" "(setq CAT1 $value)")
(action_tile "CAT2" "(setq CAT2 $value)")

I tried to implement it in this way but there are errors:

  (setq catCounter 1)
  (repeat 20
    (setq catSet (strcat "CAT" (itoa catCounter)))
    (action_tile catSet "(setq catSet $value)")
    (setq catCounter (1+ catCounter)))

Thanks 😉

[paullimapa]

try this:

(setq i 0 lst '())

(repeat 20 (setq lst( append lst (list (strcat "CAT" (itoa (setq i (1+ i))))))))

(foreach item lst (action_tile item (setq item $value)))

[thabit79BL3]

@paullimapa 

it's sounds totally reasonable though: 

; error: bad argument type: stringp nil 😢

Thanks

[paullimapa]

oops..forgot the quotes:

(foreach item lst (action_tile item "(setq item $value)"))

[thabit79BL3]

@paullimapa 

Unfortunately, that didn't work either 😞

Although it doesn't give an error, but still the user's input is not saved in CAT1...

BTW, I use the above code to check if my input is saved in CAT1

(alert (strcat "CAT1 :  " CAT1

                 "\nCAT2 :  " CAT2

       ))

Appreciate your time thanks

[Sea-Haven · Accepted solution]

maybe something like this

(repeat num
    (setq keynum (strcat "key" (rtos (setq y (+ Y 1)) 2 0)))
    (setq key_lst (cons keynum key_lst))
    (set_tile keynum (nth (setq x (+ x 4)) dcllst))
  )
  (mode_tile "key1" 2)
  (action_tile "accept" "(mapcar '(lambda (x) (setq v_lst (cons (get_tile x) v_lst))) key_lst)(done_dialog)")
  (action_tile "cancel" "(done_dialog)")

[paullimapa · Accepted solution]

try this variation which should save "1" to the symbol selected from the dcl by using (set) & (read) functions:

(setq i 0 lst '())

(repeat 20 (setq lst( append lst (list (strcat "CAT" (itoa (setq i (1+ i))))))))

(foreach item lst (action_tile item "(set (read $key) $value)"))