[求助]请教个问题,麻烦指点一下,谢谢

faith66

写了个建立字体的程序如下：

(defun c:zyc()
  (setvar "cmdecho" 0)
  (sub_chk_style)
  (prin1)
)
(defun sub_chk_style()
  (setq chksty (tblsearch "style" "hz"))
  (if (= chksty nil)
    (command "style" "hz" "txt,hztxt"  "" "" "" "" "" "")
  )
）
就是在这句里 (command "style" "hz" "txt,hztxt"  "" "" "" "" "" ""） 再添写点什么参数可以设置该字体的高度、宽度比例、倾斜角度、颠倒、反向、垂直等，麻烦好心人改写一下这句，非常感谢！！！

ZZXXQQ

(command "style" "hz" "txt,hztxt"  <高度> <高宽比> <角度> <反向> <颠倒> <垂直>)
在命令行运行-sytle试试

faith66

非常感谢版主指点：）