kucha007 发表于 2022-9-24 15:24:05

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

本帖最后由 kucha007 于 2022-11-19 22:49 编辑

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

基础函数：避免报错


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



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




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














magicheno 发表于 2022-9-24 22:46:07

感谢大佬分享~~~

paulpipi 发表于 2022-9-26 09:31:56

谢谢整理分孝

229096767 发表于 2022-9-26 14:36:33

感谢分享   

yefei812678 发表于 2024-1-26 10:03:36

这个是干什么的

sandyvs 发表于 2024-1-27 22:33:24

统一字体样式，文字会立即更新吗？我是双击文字，才会更新
页: [1]
查看完整版本: 新建/统一字体样式(TTF/SHX）