I prepared a simple code to make a char table.
It is very easy, but did not work!!
can anybody tell me what is the problem?
(Defun C:CharMap () (setq cnt 1) (setq r_cnt 0.0) (setq ts 16) ;;16x16=256 char (setq x 0.0 y 0.0 sub_y (- y 0.1)) (repeat ts (repeat ts (command "text" "j" "mc" (list x y) "0.05" "0" (chr cnt)) (command "text" "j" "mc" (list x sub_y) "0.05" "0" (itoa cnt )) (setq x (+ x 0.2)) (setq cnt (1+ cnt)) );repeat (setq x 0 y (- y 0.2)) (setq sub_y (- y 0.1)) );repeat (command "zoom" "e" "zoom" "0.75x") )
Thanks,
Abbas