here's an oldie
;;;CHARACTR.lsp by Jeff Foster 01/17/96
;;;Recommended that this routine be run in a blank drawing
;;;This routine generates 16 columns and 16 rows of text
;;;consisting of each of the 256 %% characters available
;;;in a particular font and numbers each character.
;;;Modified by Gary Fowler 07/30/99
(Defun c:CHARACTR ()
(setq cnt 1.0)
(setq r_cnt 0.0)
(setq x 0.0)
(setq y 0.0)
(setq sub_y (- y 0.1))
(command "layer" "m" "textfont" "c" "4" "" "")
(setvar "osmode" 0)
(repeat 16
(while (<= (fix cnt) (+ r_cnt 16))
(setq pt (list x y))
(setq sub_pt (list x sub_y))
(command "text"
"m"
pt
"0.05"
"0"
(strcat "%%" (rtos cnt 2 0))
)
(command "text" "m" sub_pt "0.05" "0" (rtos cnt 2 0))
(setq x (+ x 0.2))
(setq cnt (+ cnt 1.0))
)
(setq r_cnt (+ r_cnt 16))
(setq x 0)
(setq y (- y 0.2))
(setq sub_y (- y 0.1))
)
;;;(cdr (assoc 3 (tblsearch "STYLE" (cdr (assoc 7 (entget (car (entsel))))))))
(setq
fontnam (cdr
(assoc
3
(tblsearch "STYLE" (cdr (assoc 7 (entget (entlast)))))
)
)
)
(name_font)
(command "zoom" "e")
(command "zoom" "0.95x")
(princ)
)
(defun name_font ()
(command "layer" "m" "textstyle" "c" "2" "" "")
(setq name1 (strcat "Textstyle is \"" (getvar "textstyle") "\""))
(setq name2 (strcat "Font is " fontnam))
(setvar "osmode" 0)
(command "text" "j" "bl" "0.0,0.33" "0.125" "0" name1 "" "")
(command "text" "j" "bl" "0.0,0.125" "0.125" "0" name2 "" "")
(setq name_style
nil
name nil
)
(princ)
)