[知識]TrueType字體轉SHX字體

由 **Tiger&蘋果爸** 2009-03-17, 11:37

主題回顧 :

因為圖面中都是 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) )

由 **turtle053** 2011-02-24, 07:37

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

由 **avenir** 2011-02-25, 09:49

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

由 **r8023** 2011-03-26, 11:36

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

由 **ringo** 2011-04-12, 16:47

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

由 **flok** 2011-04-13, 22:20

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

由 **tarpon** 2011-04-18, 09:14

感謝分享很受用的程式

由 **wang888** 2011-04-22, 15:49

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

由 **Tanya** 2011-05-02, 10:47

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

由 **jiraiya30** 2011-05-31, 23:43

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

由 **judyyai** 2011-06-01, 08:48

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

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

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

由 **ykva8983** 2011-06-05, 00:29

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

由 **chan9148** 2011-06-08, 13:30

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

由 **hi985858** 2011-06-29, 14:32

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

由 **ginse0727** 2011-07-13, 12:57

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

由 **vl7120** 2012-01-05, 15:47

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

由 **crihy** 2015-10-14, 09:10

我的也發生了，而且原本是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&蘋果爸寫到:恕略...
請問是每一個檔案皆發生這個狀況嗎!?
請試試其他檔案或電腦再測看看~

由 **Tiger&蘋果爸** 2015-10-14, 10:04

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的表示程式沒問題！
是否可以上傳局部圖檔供測試！