[知識]TrueType字體轉SHX字體

主題回顧 :

因為圖面中都是 TrueType 字體，畫起圖來非常慢，請問有沒什麼辦法快速將圖面中所有的 TrueType 字體 快速轉換為 SHX(單線字體)!?

一般若沒有透過程式來處理，你必須開啟 文字型式STYLE 來針對每個字型名稱來更改，可能會花一點時間。這邊有搜尋到一個LISP，建議可以透過以下程式來執行!

範例影片操作：


AutoLISP程式：

代碼:

(defun C:TRUE2SHX (/ entities len count ent ent_data ent_name new_style_name)

(command "STYLE" "Zchineset" "romans.shx,chineset.shx" "" "" "" "" "" "")
(setq entities (ssget "X" '((0 . "TEXT")))
len (sslength entities)
count 0
);setq

(while (< count len)
(setq ent (ssname entities count)
ent_data (entget ent)
ent_name (cdr (assoc 7 ent_data))
);setq

(setq new_style_name (cons 7 "Zchineset"))
(setq ent_data (subst new_style_name (assoc 7 ent_data) ent_data))
(entmod ent_data)

(setq count (+ count 1))
);while

;;;runs same routine again, picking up Mtext this time.

(setq entities (ssget "X" '((0 . "MTEXT")))
len (sslength entities)
count 0
);setq

(while (< count len)
(setq ent (ssname entities count)
ent_data (entget ent)
ent_name (cdr (assoc 7 ent_data))
);setq

(setq new_style_name (cons 7 "Zchineset"))
(setq ent_data (subst new_style_name (assoc 7 ent_data) ent_data))
(entmod ent_data)

(setq count (+ count 1))
);while

(princ)
)

謝謝，我很需要。對岸字型一大堆。轉到很煩

想要了解,謝謝分享

知識是學無止盡的~ 學習~

感謝大大.....................................來看看

謝謝諸位，學習受教了！

試試看嚕~~感謝分享!!

這個問題常遇到...又找到寶囉...^^果然多爬文是有用的...

這個真是要學起來
不然開一個檔案要一個個選取替換
真是麻煩到爆耶......先謝謝您

多謝分享

感謝分享....這一定是很實用的lisp!!

進來看看如何轉換字體

先感謝蘋果爸教學，看看如何更改。

我常常被字體的問題搞到頭暈~
不知蘋果爸的LISP是否有幫助!

來挖寶!!我要學！！

頻果爸教學時間,進來進修一下,謝謝~

我也要看一下。

我也好想試試看，一定可以節省很多的時間

指令: TRUE2SHX
STYLE 輸入字型的名稱或 [列示(?)] : Zchineset
既有的字型。
指定完整字體名稱或字體檔名 (TTF 或 SHX) :
romans.shx,chineset.shx 指定文字高度 <0.0000>: 指定寬度係數 <1.0000>:
指定傾斜角度 <0>: 左右反向顯示文字？[是(Y)/否(N)] :
上下顛倒顯示文字？[是(Y)/否(N)] : 垂直?
「Zchineset」為目前的字型。
指令: ; 錯誤: 損壞的引數類型: lselsetp nil←←←←這邊怎麼錯誤了

かえで 寫到:指令: TRUE2SHX
STYLE 輸入字型的名稱或 [列示(?)] : Zchineset
既有的字型。
指定完整字體名稱或字體檔名 (TTF 或 SHX) :
romans.shx,chineset.shx 指定文字高度 <0.0000>: 指定寬度係數 <1.0000>:
指定傾斜角度 <0>: 左右反向顯示文字？[是(Y)/否(N)] :
上下顛倒顯示文字？[是(Y)/否(N)] : 垂直?
「Zchineset」為目前的字型。
指令: ; 錯誤: 損壞的引數類型: lselsetp nil←←←←這邊怎麼錯誤了

請問是每一個檔案皆發生這個狀況嗎!?
請試試其他檔案或電腦再測看看~

相信這是大家常遇到的問題,非常感謝蘋果爸的提供

來看看 ~ 謝謝分享囉

好用的工具唷 謝謝 又學到一課

我想要來看一下 瀏覽檢視

一直對cad文字字體很頭痛
很想瞭解
謝謝

感謝分享…小功具，大功能