如何用LSP设置TTF字体

TLC_AS

如何用LSP设置文字样式为TTF字体，并且字体样式为粗体，有谁知道，先谢谢

gzxl

2. ;;; =========================================================================
   
3. ;;; 创建文字样式 2:样式名 40:高度 41:宽度因子 3:主要字体文件名 4:大字体文件名
   
4. ;;; =========================================================================
   
5. (defun Emk_Style (Name h w rd hz)
   
6.   (entmake
   
7.     (list
   
8.        '(0 . "STYLE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbTextStyleTableRecord")
   
9.        (cons 2 Name) '(70 . 0) (cons 40 h) (cons 41 w) (cons 3 rd) (cons 4 hz)
   
10.     )
    
11.   )
    
12. )
    
13. ;;;(Emk_Style "等线体" (* use 0.003) 1 "黑体" "SIMHEI.TTF")

;;; =========================================================================<br /> ;;; 创建文字样式 2:样式名 40:高度 41:宽度因子 3:主要字体文件名 4:大字体文件名<br /> ;;; =========================================================================<br /> (defun Emk_Style (Name h w rd hz)<br />   (entmake<br />     (list<br />        '(0 . "STYLE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbTextStyleTableRecord")<br />        (cons 2 Name) '(70 . 0) (cons 40 h) (cons 41 w) (cons 3 rd) (cons 4 hz)<br />     )<br />   )<br /> )<br /> ;;;(Emk_Style "等线体" (* use 0.003) 1 "黑体" "SIMHEI.TTF")

TLC_AS

gzxl 发表于 2013-4-17 09:09

你这个我试了，不好使，而且设置不了字体样式为粗体

smartstar

看看G版的帖子。

Gu_xl

1. ;;设置字体"样式 1"为ARIALBD.TTF粗体
   
2. (if (not
   
3.       (VL-CATCH-ALL-ERROR-P
   
4.         (setq style
   
5.                (VL-CATCH-ALL-APPLY
   
6.                  'vla-item
   
7.                  (list
   
8.                    (setq styles
   
9.                           (vla-get-TextStyles
   
10.                             (vla-get-ActiveDocument
    
11.                               (vlax-get-acad-object)
    
12.                               )
    
13.                             )
    
14.                          )
    
15.                    "样式 1"
    
16.                    )
    
17.                  )
    
18.               )
    
19.         )
    
20.       )
    
21.   (progn
    
22.     (if (setq font
    
23.                (findfile (strcat (getenv "windir") "\\Fonts\\ARIALBD.TTF")
    
24.                          )
    
25.               )
    
26.       (progn
    
27.         (vla-put-BigFontFile style font)
    
28.         (vla-put-FontFile style font)
    
29.         )
    
30.       )
    
31.     )
    
32.   (progn
    
33.     (setq style (vla-add styles "样式 1"))
    
34.     (if (setq font
    
35.                (findfile (strcat (getenv "windir") "\\Fonts\\ARIALBD.TTF")
    
36.                          )
    
37.               )
    
38.       (progn
    
39.         (vla-put-BigFontFile style font)
    
40.         (vla-put-FontFile style font)
    
41.         )
    
42.       )
    
43.     )
    
44.   )
    

;;设置字体"样式 1"为ARIALBD.TTF粗体<br /> (if (not<br />       (VL-CATCH-ALL-ERROR-P<br />         (setq style<br />                (VL-CATCH-ALL-APPLY<br />                  'vla-item<br />                  (list<br />                    (setq styles<br />                           (vla-get-TextStyles<br />                             (vla-get-ActiveDocument<br />                               (vlax-get-acad-object)<br />                               )<br />                             )<br />                          )<br />                    "样式 1"<br />                    )<br />                  )<br />               )<br />         )<br />       )<br />   (progn<br />     (if (setq font<br />                (findfile (strcat (getenv "windir") "\\Fonts\\ARIALBD.TTF")<br />                          )<br />               )<br />       (progn<br />         (vla-put-BigFontFile style font)<br />         (vla-put-FontFile style font)<br />         )<br />       )<br />     )<br />   (progn<br />     (setq style (vla-add styles "样式 1"))<br />     (if (setq font<br />                (findfile (strcat (getenv "windir") "\\Fonts\\ARIALBD.TTF")<br />                          )<br />               )<br />       (progn<br />         (vla-put-BigFontFile style font)<br />         (vla-put-FontFile style font)<br />         )<br />       )<br />     )<br />   )<br />

konoko

G大威武!!

TLC_AS

Gu_xl 发表于 2013-4-17 12:40

谢谢G大，之前也想用VLAX解决来的(感觉用VLAX有点麻烦也没看明白)，但想看看能用图元的方式解决不，现在看来应该是不能了，再次感谢G大!

czcxxx

谢谢分享！！！！！