[知識]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)
)

哇~這真是困擾許久的小問題...趕緊來看看

多吸收新知識~~增進技術

又有寶可挖了解!!真感謝~

這是個很棒的教學耶~可以省下好多改字型的時間，謝謝您的提供。

這個實在很好用,想找很久了,謝謝分享呢~

感謝分享很受用的程式

趕快來看看如何設定，哈哈

沒遇到就不知問題所在，遇到了卻不知如何解，學習學習，謝謝分享。

TrueType 字體是什麼意思....樓主的意思是說使用文字拖曳會LAG嗎?

jiraiya30 寫到: TrueType 字體是什麼意思....樓主的意思是說使用文字拖曳會LAG嗎?

TrueType 字體意思
http://autocad.bestoforum.net/t8235-topic#57565

是的!大量使用TrueType 字體 會拖慢圖面速度

過來研究看看置換字體跟替代字體的差異在哪？感謝啦

又學一招，不然每次到要轉換，真的很煩。

快來看看如何操作.
增加常識.
謝謝蘋果爸.

這個問題之前也常遇到,一直在想要怎麼一勞永逸的解決,看到蘋果爸已經有解囉,太棒了!趕快來拜讀一下.

又要長知識了
又有寶可挖了
謝謝蘋果爸分享

我的也發生了，而且原本是OK的，這次用的時候卻出現了，連同其他字體轉換的LISP全部都跟著失效了...
不知其他大大是否已知道問題發生的原因...

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

Tiger&蘋果爸 寫到:恕略...
請問是每一個檔案皆發生這個狀況嗎!?
請試試其他檔案或電腦再測看看~

crihy 寫到:我的也發生了，而且原本是OK的，這次用的時候卻出現了，連同其他字體轉換的LISP全部都跟著失效了...
不知其他大大是否已知道問題發生的原因...

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

原本是OK的表示程式沒問題！
是否可以上傳局部圖檔供測試！

最近剛好要用到，真是太感謝蘋果爸。

很有幫助的lisp

沒想到就然有這種lisp可以用
太好了...
很實用
感謝~