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