oyxx1023 发表于 2013-12-9 11:05:26

如何判断shx文件是形文件还是常规字体文件还是大字体文件

如何判断shx文件是形文件还是常规字体文件还是大字体文件。？
我想把shx文件分类

Gu_xl 发表于 2013-12-9 11:26:46

试试这个！
(defun shxIsBigFontP (filename / fh dv cnt inp)
(setq cnt 22 dv "")
(if (setq fh (open filename "r"))
    (progn
      (while
             (and
               (> (setq cnt (1- cnt)) 0)
               (setq inp (read-char fh))
               (> inp 0)
               )
                (setq dv (strcat dv (chr inp)))
                )
      (close fh)
      ;;(princ dv)
      (WCMATCH (strcase dv t) "*bigfont*")
          
      )
    )
)

oyxx1023 发表于 2013-12-9 14:26:13

版主这个可以判断是不是大字体文件。但常规字体和形文件如何区分
页: [1]
查看完整版本: 如何判断shx文件是形文件还是常规字体文件还是大字体文件