XP操作系统下怎么设置字形？

在XP操作系统下，怎么利用简单的lisp程序设置字形？在win98下我写的程序如下，(defun c:js( / sn)
(princ "\n*字型设置程序*")
(setq sn (getreal "\n输入图形比例："))
(command "-style" "3" "sanss___.ttf" (* 3.0 sn) 1 "" "" "")
(command "-style" "7" "simsun.ttf" (* 4.0 sn) 1 "" "" "")
(command "-style" "LT" "sanss___.ttf" 2 1 "" "" "")
(command "-style" "5" "simsun.ttf" (* 3.0 sn) 1 "" "" "")
(princ)
)
在XP下，由于宋体对应的字体文件simsun.ttf找不到了，好像把宋体和新宋体合并在一个simsun.ttc了，扩展名变了，怎么办呢？