用entmake能新建文字样式吗？

cjs

大家帮我看看，为什么下面语句不能新建文字样式--"tf"

(if (=(tblobjname "STYLE" nil)
    (progn
        ((0 . "STYLE")
	 							(2 . "tf")
									(70 . 0)
	 							(40 . 0.0)
	 							(41 . 1.0)
	 							(50 . 0.0)
	 							(71 . 0)
	 							(42 . 2.5)
	 							(3 . "txt")
	 							(4 . "")
							 ))
    )
)
(setvar "textstyle" "tf")

alin

Code 100 是不可少的 (if (not (tblobjname "style" "ROMANS"))
(entmake
'((0 . "STYLE")
(100 . "AcDbSymbolTableRecord")
(100 . "AcDbTextStyleTableRecord")
(2 . "ROMANS")
(70 . 0)
(40 . 2.5)
(41 . 1.0)
(50 . 0)
(71 . 0)
(42 . 0.2)
(3 . "romans.shx")
(4 . "")
)
)
)

sailorcwx

(100 . "AcDbTextStyleTableRecord")


起到什么作用,一定要两个吗?


旧帖子新需要,翻起来了

xiaocai8

我自己用的函数： (defun cai-NewStype (strZiTiName strZiTi rGaoKuanBi)
(if (not (tblobjname "style" strZiTiName))
(progn
(command "style" strZiTiName strZiTi "" rGaoKuanBi "" "" "" "")
)
)
(setvar "TEXTSTYLE" strZiTiName)
) 样例: (cai-NewStype "ZiTi4" "txt,chineset" 0.7)
;;; (cai-NewStype "楷体8" "楷体_GB2312" 0.8) 以上可新建字体样式 改写后： (defun cai-NewStype1 (strZiTiName strZiTi rGaoKuanBi)
(if (not (tblobjname "style" strZiTiName))
(entmake
(list '(0 . "STYLE")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbTextStyleTableRecord")
(cons 2 strZiTiName);(2 . "ROMANS")
'(70 . 0)
'(40 . 2.5)
(cons 41 rGaoKuanBi);(41 . 1.0)
'(50 . 0)
'(71 . 0)
'(42 . 0.2)
(cons 3 strZiTi);(3 . "romans.shx")
'(4 . "")
);lisp
)
);if
(setvar "TEXTSTYLE" strZiTiName)
)
运行(cai-NewStype1 "ZiTi5" "楷体_GB2312" 0.7)时，失败！ 字体显示为“楷体_GB2312.shx” 不知何故？