緣起： 由於在工程上遇到太多CAD圖紙都會套用各式各樣的字體，但往往我們的電腦又沒有客戶的字體，只得手動一個一個調整，實在累人。

經過舊版概念與新改版後，終於可以毫無問題的正常使用。 以下分享給大家。

<aside> 💡 前次分享的Lisp發現有部分錯誤，導致無法變更SHX字體，因此使用ChatGPT加上自己手動改了一下，重新上傳分享。

</aside>

快速跳轉：

最後更新日：2023/10/17

解法來源 (舊版)

Change All font in Text Style Manager

(while (setq st (tblnext "STYLE" (not st)))
       (setq st (entget(tblobjname "STYLE" (cdr(assoc 2 st)))))
       (entmod (subst '(3 . "Arial")(assoc 3 st) st))
)

ChatGPT提供解法 (新版)

原本是想要乾脆把所有字體改成微軟正黑體（如下）

但發現非SHX字體他無法抓到，因此…自己沿用舊版的替換概念手動改版

替換的概念 (舊版)

由於上述原始碼僅提供SHX字體（也就是圖一的左邊字體）修改，因此我手動依照亞洲圖紙習慣增加大字體（也就是圖一的右邊字體）。

並且將其中預設套用的字體改為：Romans.shx；Chineset.shx。

得到以下Lisp Code：