[求助]：关于字体引用(autolisp for r14)

JINGSABING

下面是我在ACAD中定义的'SONG"(仿宋_GB2312)的引用字体,
请问在AUTOLISP中如何实现
0
STYLE
  5
7C
100
AcDbSymbolTableRecord
100
AcDbTextStyleTableRecord
  2
SONG
70
     0
40
0.0
41
1.0
50
0.0
71
     0
42
2.5
  3

  4

1001
ACAD
1000
仿宋_GB2312
1071
    34353


为什么我下面的代码不行?
   (if (= (tblsearch "STYLE" "SONG") nil)
        (progn
          (command "-style" "song" "" "" "" "" "" "" ""
                       );end-command
          (setq a (tblsearch "STYLE" "SONG"))
          (setq a (cons (cons 1001 "ACAD") a))
          (setq a (cons (cons 1000 "仿宋_GB2312") a))
          (setq a (cons (cons 1071 "34353") a))
          (setq a (subst (cons 3 "") (assoc 3 a) a))
                      ; (entmod a)
        );end-progn

JINGSABING

(command "-style" "song" "" "" "" "" "" "" "" );end-command建立的DXF数据如下 :
0
STYLE
  5
1F
100
AcDbSymbolTableRecord
100
AcDbTextStyleTableRecord
  2
SONG
70
     0
40
0.0
41
1.0
50
0.0
71
     0
42
7.0
  3
txt.shx
  4

梦断江南

这样就可以了
(command "_.style" "fs" "仿宋_gb2312" "" "" "" "" "" "")

JINGSABING

最初由 梦断江南 发布
[B]这样就可以了
(command "_.style" "fs" "仿宋_gb2312" "" "" "" "" "" "") [/B]

这样肯定不行
因为根本就没有 "仿宋_gb2312"这个字体,
你试一下或看一下DXF文件,就很清楚了

JINGSABING

为什么我下面的代码不行?
(if (= (tblsearch "STYLE" "SONG") nil)
(progn
(command "-style" "song" "" "" "" "" "" "" ""
);end-command
(setq a (tblsearch "STYLE" "SONG"))
(setq a (cons (cons 1001 "ACAD") a))
(setq a (cons (cons 1000 "仿宋_GB2312") a))
(setq a (cons (cons 1071 "34353") a))
(setq a (subst (cons 3 "") (assoc 3 a) a))
; (entmod a)
);end-progn
以我的判断:
前面更改表都没错,问题是怎么在把它写回数据库,它又不是实体,不能用ENTMOD

梦断江南

最初由 JINGSABING 发布
[B]
这样肯定不行
因为根本就没有 "仿宋_gb2312"这个字体,
你试一下或看一下DXF文件... [/B]

我行啊，为什么你不行？
用style查查你的win有些什么中文字体，按照那个字体名字替代
"仿宋_gb2312" 就可以了

JINGSABING

最初由 梦断江南 发布
[B]
我行啊，为什么你不行？
用style查查你的win有些什么中文字体，按?.. [/B]

还是不行,有仿宋_gb2312,但用在命令中就不行

梦断江南

http://www.xdcad.net/forum/showt ... tid=28865#post28865