新建/统一字体样式(TTF/SHX）

kucha007

最近在整理新建字体样式的方法。分TTF和SHX两大类、SHX 又分有无大字体两小类。有时候还需要统一字体样式，我整理了一下，分享给大家。

基础函数：避免报错

1. (defun K:gxl-CatchApply (fun args / result)
   
2.   (if (not
   
3.         (vl-catch-all-error-p
   
4.           (setq result (vl-catch-all-apply (if (= 'SYM (type fun)) fun (function fun))args))
   
5.         )
   
6.       )
   
7.     result
   
8.   )
   
9. )
   

(defun K:gxl-CatchApply (fun args / result) <br />   (if (not <br />         (vl-catch-all-error-p <br />           (setq result (vl-catch-all-apply (if (= 'SYM (type fun)) fun (function fun))args))<br />         )<br />       )<br />     result<br />   )<br /> )<br />

1. ;创建字体样式：样式名称、TTF/SHX？、小字体名称、大字体名称(nil表示无大字体)、字体宽度
   
2. ;若字体样式不存在则新建字体样式，若存在则重新设置字体和字体宽度。
   
3. (K:NewStyle "黑体" T "黑体" nil 0.8);TTF
   
4. (K:NewStyle "Standard" nil "txt" nil 0.8);SHX：不使用大字体
   
5. (K:NewStyle "_TCH_DIM" nil "gbenor" "gbcbig" 0.8);SHX：使用大字体
   

;创建字体样式：样式名称、TTF/SHX？、小字体名称、大字体名称(nil表示无大字体)、字体宽度<br /> ;若字体样式不存在则新建字体样式，若存在则重新设置字体和字体宽度。<br /> (K:NewStyle "黑体" T "黑体" nil 0.8);TTF<br /> (K:NewStyle "Standard" nil "txt" nil 0.8);SHX：不使用大字体<br /> (K:NewStyle "_TCH_DIM" nil "gbenor" "gbcbig" 0.8);SHX：使用大字体<br />

1. ;;统一所有字体样式使用的字体：TTF/SHX？、小字体名称、大字体名称(nil表示无大字体)、字体宽度
   
2. (K:SameStyle  T "黑体" nil 0.8);TTF
   
3. (K:SameStyle nil "txt" nil 0.8);SHX：不使用大字体
   
4. (K:SameStyle nil "gbenor" "gbcbig" 0.8);SHX：使用大字体
   

;;统一所有字体样式使用的字体：TTF/SHX？、小字体名称、大字体名称(nil表示无大字体)、字体宽度<br /> (K:SameStyle  T "黑体" nil 0.8);TTF<br /> (K:SameStyle nil "txt" nil 0.8);SHX：不使用大字体<br /> (K:SameStyle nil "gbenor" "gbcbig" 0.8);SHX：使用大字体<br />

magicheno

感谢大佬分享~~~

paulpipi

谢谢整理分孝

229096767

感谢分享   

yefei812678

这个是干什么的

sandyvs

统一字体样式，文字会立即更新吗？我是双击文字，才会更新