请教LSP如何设置文字样式

TLC_AS

我要用LSP更改文字样式，字体改为ARIAL.TTF,字体样式为粗体，我在DWG文件中设置好后，对比了下DXF组码的不同用，写了一个LSP但没有达到效果，恳请高手帮帮忙，谢谢了，以下是代码，奇怪的是DXF组码上的字体是ARIALBD.TTF？？
(defun c:zx ( / sty)
  (setq sty (entget (tblobjname "style" "tower")))
  (setq sty (subst (cons 42 3.0) (assoc 42 sty) sty))
  (setq sty (subst (cons 3 "ARIAL.TTF") (assoc 3 sty) sty))
  (setq sty (subst (cons 4 "") (assoc 4 sty) sty))
  (entmod sty);;;下面是图元的对照数据
;;;((-1 . <图元名: 7e6d5c70>) (0 . "STYLE") (330 . <图元名: 7e6d5c60>) (5 . "1F6") (100
;;;. "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "tower") (70
;;;. 0) (40 . 3.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 3.0) (3 . "ARIALBD.TTF")
;;;(4 . ""))
;;;
;;;  
;;;  ((-1 . <图元名: 7ded1c70>) (0 . "STYLE") (330 . <图元名: 7ded1c60>) (5 . "1F6") (100
;;;. "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "tower") (70
;;;. 0) (40 . 3.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 0.2) (3 . "simplex.shx")
;;;(4 . "gbhzfs.shx"))

      
  (entupd (tblobjname "style" "tower"))
)

TLC_AS

lsjj 发表于 2013-4-17 10:26
(command "style" "aaa" "arial" "" "" "" "" "")
style 輸入字型的名稱或 [列示(?)] : aaa
新的字型。

设置不了TTF字体为粗体

superwds

(command "style" "aaa" "arialbd.ttf" "" "" "" "" "")
这样设出来就是粗体了。

(command "style" "aaa" "arial.ttf" "" "" "" "" "");;;常规
(command "style" "aaa" "arialbd.ttf" "" "" "" "" "");;;粗体
(command "style" "aaa" "arialbi.ttf" "" "" "" "" "");;;粗斜体
(command "style" "aaa" "ariali.ttf" "" "" "" "" "");;;斜体

TLC_AS

没人知道吗？

TLC_AS

大家帮帮忙呀

TLC_AS

我顶，大家帮忙吧

Gu_xl

这样试试：
(command "_style" "tower" "ARIAL.TTF")
(while (= 1 (logand 1 (getvar 'cmdactive)))
  (command "")
  )

TLC_AS

Gu_xl 发表于 2013-4-16 12:21
这样试试：
(command "_style" "tower" "ARIAL.TTF")
(while (= 1 (logand 1 (getvar 'cmdactive)))

我想设置成粗体，这样好象不行，我试过用-STYLE，没找到设置粗体的选项，才想别的办法的

ll_j

TLC_AS 发表于 2013-4-16 13:02
我想设置成粗体，这样好象不行，我试过用-STYLE，没找到设置粗体的选项，才想别的办法的

你试试用entget查看一下扩展数据。
(entget (tblobjname "style" "tower") '("*"))

TLC_AS

ll_j 发表于 2013-4-16 14:23
你试试用entget查看一下扩展数据。
(entget (tblobjname "style" "tower") '("*"))

首先谢谢你，照你这个试了下是多了些东西，但加上后还是不行，下面是修改后的代码和图元信息
(defun c:zx ( / sty)
  (setq sty (entget (tblobjname "style" "tower") '("*")))
  (setq sty (subst (cons 42 3.0) (assoc 42 sty) sty))
  (setq sty (subst (cons 3 "ARIALBD.TTF") (assoc 3 sty) sty))
  (setq sty (subst (cons 4 "") (assoc 4 sty) sty))
  (if (assoc -3 sty)
    (setq sty (subst '(-3 ("ACAD" (1000 . "Arial") (1071 . 33554466))) (assoc -3 sty) sty))
    (progn
       (setq sty (append sty '((-3 ("ACAD" (1000 . "Arial") (1071 . 33554466))))))
      )
    )
  (entmod sty)
;;;((-1 . <图元名: 7e01dc70>) (0 . "STYLE") (330 . <图元名: 7e01dc60>) (5 . "1F6") (100
;;;. "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "tower") (70
;;;. 0) (40 . 3.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 0.2) (3 . "ARIALBD.TTF")
;;;(4 . "") (-3 ("ACAD" (1000 . "Arial") (1071 . 33554466))))
;;;
;;;  
;;;  ((-1 . <图元名: 7ded1c70>) (0 . "STYLE") (330 . <图元名: 7ded1c60>) (5 . "1F6") (100
;;;. "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "tower") (70
;;;. 0) (40 . 3.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 0.2) (3 . "simplex.shx")
;;;(4 . "gbhzfs.shx"))
  
)

ll_j

TLC_AS 发表于 2013-4-16 15:41
首先谢谢你，照你这个试了下是多了些东西，但加上后还是不行，下面是修改后的代码和图元信息
(defun c:z ...

我试了一下，问题出在前半段，就是系统这样不认arial.ttf这种说法，我没研究过在cad中使用ttf，所以也说不清，你再查查看，以前可能有人研究过。
另：组码1071的值是固定的，就是十六进制的31、1000031、2000031、3000031的十进制表示，分别为：
49、16777265、33554481、50331697

TLC_AS

ll_j 发表于 2013-4-16 17:18
我试了一下，问题出在前半段，就是系统这样不认arial.ttf这种说法，我没研究过在cad中使用ttf，所以也说不 ...

唉，我也不知道，谢谢你了