Convert string into a routine

Is there any way to make this work as a routine? It is just a simple command "line" from 0,0 to 3,5.

I cannot figure it out

(defun c:tss ()
 (princ (strcat
      (chr 40)
      (chr 99)
      (chr 111)
      (chr 109)
      (chr 109)
      (chr 97)
      (chr 110)
      (chr 100)
      (chr 32)
      (chr 34)
      (chr 108)
      (chr 105)
      (chr 110)
      (chr 101)
      (chr 34)
      (chr 32)
      (chr 34)
      (chr 48)
      (chr 44)
      (chr 48)
      (chr 34)
      (chr 32)
      (chr 34)
      (chr 51)
      (chr 44)
      (chr 53)
      (chr 34)
      (chr 32)
      (chr 34)
      (chr 34)
      (chr 41)
    )
 )
)

Thanks a lot in advance

You should force the evaluation of the string:

[color=red](eval (read [/color](strcat (chr 40)
                   (chr 99) (chr 111) (chr 109) (chr 109) (chr 97) (chr 110) (chr 100)
                   (chr 32)
                   (chr 34) (chr 108) (chr 105) (chr 110) (chr 101) (chr 34)
                   (chr 32)
                   (chr 34) (chr 48) (chr 44) (chr 48) (chr 34)
                   (chr 32)
                   (chr 34) (chr 51) (chr 44) (chr 53) (chr 34)
                   (chr 32)
                   (chr 34) (chr 34)
                   (chr 41))[color=red]))[/color]

Thank you very very much. Works smooth!

You're welcome!

Just out of curiosity, why did you choused this approach?

Because I want to extract layer information from several drawings, and I have the properties in one text file which I can "read" and apply in only one "while" reading all these values from each layer. That gives me the chance to make a short script that remains "alive" while these lists are note empty instead of scripting the whole stuff. Once I have the final result, I will share it with you.

Through this way? or better through an email

Thanks again

Are you just trying to confuse the other users when ther'ye "checking out" you code?

(eval (read (apply 'strcat  (mapcar 'chr  '(40 99 111 109  109 97 110 100 32
                           34 108 105 110 101 34  32 34 48 44  48 34
                           32  34 51 44 53 34 32  34  34  41)))))

Oops. did not see MSasu's post there.

hahahah. not at all, when I am done I will post it completely, it is a formula to extract all layer information to an excel sheet and produce from it a standard layer structure with a command. I'll show you when I¨am done. It is just I want to come to the point I want to know how to make it work through different possibilities.

Really thank you both. I'll come back to you asap