[LISP程序]：有关定义字体的问题。

jing

第一个问题：
在win98下定义宋体字体的lisp行为：
(command "-style" "7" "simsun.ttf" (* 4.0 sn) 1 "" "" "")
但在XP操作系统下，simsun.ttf没有了，却存在simsun.ttc，将lisp行换成simsun.ttc提示错误，那么如何在XP下定义宋体字体？
第二个问题：
turetype字体在操作系统里只有一种水平格式，但在cad里如果利用对话框却有水平和垂直之分，那么如何在lisp里定义垂直字体？

高手指点一二，Thx.

cy956

水平和垂直定义在shx字体里头，shx字都可以水平写，
但可能不能垂直写。可能因为这样原因，大多的专业
软件遇上这种情况，都是把字分成一个个的字。
贴一个lisp,你可以查查垂直写的dxf码，加上。

(defun #m_style(stynam styw styo styxw styzw / en);;造字型
  (setq e(tblobjname "style" stynam))
  (if e (progn
    (setq en(entget e)
          en(cy_asubst en(list
            (cons 2 stynam)
            (cons 41 styw)
            (cons 50 styo)
            (cons 3 styxw)
            (cons 4 styzw))))
    (entmod en))(progn
    (setq en(list
            '(0 . "STYLE")
            '(100 . "AcDbSymbolTableRecord")
            '(100 . "AcDbTextStyleTableRecord")
            (cons 2 stynam)
            '(70 . 0)
            '(40 . 0)
            (cons 41 styw)
            (cons 50 styo)
            '(71 . 0)
            (cons 3 styxw)
            (cons 4 styzw)))
    (entmake en)
  ) )
)
;;(#m_style "ddd" 0.8 0 "romans.shx" "dxfs.shx")

没有后者为西文romans,romanc,standard,

gzzdm

我也遇到用lsp编程调用字型的问题，宋体是怪怪的，其他没问题

ll_j

TTF字体文件与定义的内容好像并不是一一对应的，如定义字体时可以使用“宋体”定义一般字体，还可以用“@宋体”定义垂直文本，就像时字体文件的“形式名”。