0 Members and 1 Guest are viewing this topic.
Thanks for sharing.
(PromptWithMatrixButtons nil nil (mapcar '(lambda (x / i b ) (setq i 10) (repeat i (setq b (cons (strcat x (itoa (setq i (1- i)))) b))) b) (mapcar 'chr (vl-string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZ")))) ; not squared(PromptWithMatrixButtons nil nil (SquareList (apply 'append (mapcar '(lambda (x / i b ) (setq i 10) (repeat i (setq b (cons (strcat x (itoa (setq i (1- i)))) b))) b) (mapcar 'chr (vl-string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZ")))))) ; squared
That's pretty cool. I wonder what type off applications would you use this? I am sure there are many.
Looks really cool, I might use this.