[求助]：请教大家怎样知道一个字体文件中的特殊代码代表什么符号

ericlxy

现在字体文件很多，有的特殊符号（如二级钢筋符号）需要用代码％％131，还有些可以输上下标，但这些字体中含有的％％×××有很多，我如何知道每一个代表什么符号啊？难道一个一个输入试试？

wuzz

你可以用下面的程序将这个字库中的字全部列出来。
（源程序来源于iNet，感谢作者）

ericlxy

不能下载附件，麻烦发到我邮箱里，谢谢，ioioqu@163.com

dengdinghui

无法显示网页，无法下载。

wuzz

没办法，网站得病了。

程序很小，干脆帖上来。

****************************
(defun c:listshx(/ a b c d p0 p1 p2 h bh n)
  ;作者：徐振刚　　2002.7.27
  ;本程序用于查看当前ｓｈｘ文件编码
  ;使用前应先将当前字好
  ;该程序可以改进的地方：
  ;１．用户设定字体高度和显示区域，通过读取系统变量获得字符高宽比以及间距，由计算求得最佳行列数及行列宽度供用户定
  ;２．通过对话框由用户选定欲查看的字体，通过“应用”按键即时显示
  (initget (+ 1 8 32))  (setq p0  (getpoint "\n　请点取码表显示左下角:"))
  (initget (+ 1 2 4))  (setq a      (getint "\n请输入欲查询码表的下限:"))
  (initget (+ 1 2 4))  (setq b      (getint "\n　　　　　　　　　上限:"))
  (initget (+ 1 2 4))  (setq h     (getreal "\n　　　　请输入字体大小:"))
  (initget (+ 1 2 4))  (setq d     (getreal "\n　　　　请输入编码间距:"));一般为字符高度的５倍
  (initget (+ 1 2 4))  (setq m      (getint "\n　请输入每行显示编码数:"))
  (setq n 0 p1 p0)
  (while (<= a b)
    (setq bh (strcat "%%" (itoa a)))
    (command "text" p1 h "" bh)
    (setq p2 (polar p1 (* 1.5 pi) (* 2 h)))
    (command "text" p2 h "" a)
    (setq a (+ a 1))
    (setq n (+ n 1))
    (if (/= (gcd n m) m)
      (setq p1 (polar p1 0 d));列间距
      (setq p1 (polar p0 (* 0.5 pi) (* (/ n m) (* 5 h))));行间距为５倍字高
      )
    )
  (princ)
  )
***************************

egos

老大，是不是还差一个对话框文件

ericlxy

对这个不懂啊，怎么用法啊？

mrbw

为什么我下载不了

XIAOYINGZI_CHEN

试过，很好用！！不用对话框也能用，就是麻烦点，只能列当前字体，5楼的能不能把对话框文件也贴上来，谢谢！！