请教，lisp新建图层字体设置问题

lixg_2007

我把字体设成simplex时，加载后，按回车可正常加载

但是，我把字体设成宋体时，加载后，按回车，总是弹出“加载/卸载应用程序对话框”，需要手动关闭

请问如何解决，代码如下

      (vmon)  (setvar "CMDECHO" 0) (textscr)
(terpri) (terpri)
(setq syx (getstring
 "\n     ●●●●●●●●●●● 请按回车键继续 ●●●●●●●●●●●●")
     syx nil)
   (command "layer" "m" "bzh" "c" 2 "" "")
  (command "style" "bzh" "宋体" phzg hwb "" "" "" "")

       (graphscr)
(prompt
 "\n     ●●●●●●●●●● OK ! 本程序装入完毕 ●●●●●●●●●●     \n")

caoyin

ttf和shx字体命令行参数不同，改成

(command "style" "bzh" "宋体" phzg hwb)

(while (/= 0 (getvar "cmdactive")) (command ""))

试试