[编程申请]：当某个文字样式存在时使他能成为当前文字样式当不存在时就新建这个文字样

露水2

在这个基础上进行修改


(defun c:test()
(setq wang (tblsearch "style" "xin"))

(if (= wang nil)
(COMMAND "-style" "xin" "宋体" "300" "1" "0" "" ""))
)

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (if (= (tblsearch "style" "xin") nil)
   
4.     (COMMAND "-style" "xin" "宋体" "300" "1" "0" "" "")
   
5.   )
   
6.   (setvar"textstyle""xin")
   
7. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (if (= (tblsearch "style" "xin") nil)<br />     (COMMAND "-style" "xin" "宋体" "300" "1" "0" "" "")<br />   )<br />   (setvar"textstyle""xin")<br /> )[/FONT]

露水2

可以了

cy956

不一定。style命令中有得字体有竖向排列得选项，要多一个回车。建议你用entmake。

雨箭风刀

原则同意cy版主意见。
用程序直接生成比较稳妥

aeo

entmake怎么生成 *.ttc的字型?  比如winxp的 SIMSUN.TTC

command完全可以,用while判断一下