AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Io15010 [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) 2020-310 [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Oiu15010 [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) 2020-211 [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Oo-2-110 [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) BPl3tjj

[討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換)

向下

[討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Empty [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換)

發表 由 leoneriol 于 2012-01-09, 15:06

以下是我自己寫的程式,

目的是把所有Style改成我要的字型設定

奇怪的是我沒辦法把style修改成我要的新細明體或是標楷體,

原本的需求是把"簡體中文改成繁體中文的字型"

而這是我選擇的解決方法!

如果各位有更好的提議也麻煩提出指教了!!

代碼:
(defun c:mChgTStyle()
  (vl-load-com)
  (SETVAR "CMDECHO" 0)
  (setvar "sdi" 1)
  (setvar "lispinit" 0)
  (setq dir:file (getfiled "選取路徑" "" "dwg" 2))
  (setq test:dir(strcat (vl-filename-directory dir:file) "\\"))
  (setq file_list(vl-directory-files test:dir "*.dwg"))
  (alert (strcat "共選取 " (itoa (length file_list)) "準備圖檔修改Style請按下【Enter】準備開始執行"))
  (foreach dwg file_list
    (command "open");(strcat "AcadApplication.Documents.Open" (chr 34) (strcat test:dir dwg) (chr 34)))
    (command (strcat test:dir dwg))
    ;(command "y")
    (setvar "filedia" 0)
    (setq acadobj(vlax-get-acad-object))
    (setq dwgobj (vla-get-ActiveDocument acadobj))
    (setq stylesobj (vla-get-textstyles dwgobj))
    (setq i 0)
    (repeat (vla-get-count stylesobj)
      (setq obj (vla-item stylesobj i))
      (vla-put-bigfontfile obj "chineset.shx")
      (vla-put-fontfile obj "romans.shx")
      (setq i (1+ i))
      )
    (command "qsave")
    (setvar "filedia" 1)
    )
  (setvar "sdi" 0)
  (setvar "lispinit" 1)
  (SETVAR "CMDECHO" 1)
  (prin1)
)



Tiger&蘋果爸 在 2012-02-14, 13:03 作了第 5 次修改 (原因 : 改討論成問題)
leoneriol
leoneriol
榮譽顧問
榮譽顧問

文章總數 : 818
年齡 : 36
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 7742
威望值 : 956
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
經典問與答讀者 藍鵲34號
2009聚會勳章 2014聚會勳章 男 雙魚座 鼠

回頂端 向下

[討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Empty 回復: [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換)

發表 由 adslwang 于 2012-01-09, 22:37

可以提供部份字體檔參觀一下嘛
adslwang
adslwang
高級會員
高級會員

文章總數 : 376
年齡 : 42
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 5757
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

[討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Empty 回復: [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換)

發表 由 leoneriol 于 2012-01-10, 10:08

adslwang 寫到:可以提供部份字體檔參觀一下嘛

已經附上測試用的文件了!!感恩!
leoneriol
leoneriol
榮譽顧問
榮譽顧問

文章總數 : 818
年齡 : 36
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 7742
威望值 : 956
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
經典問與答讀者 藍鵲34號
2009聚會勳章 2014聚會勳章 男 雙魚座 鼠

回頂端 向下

[討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Empty 回復: [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換)

發表 由 adslwang 于 2012-01-10, 17:38

以下是光先看圖檔之後的為個人淺見

簡體圖檔STYLE的文字型式圖檔內並沒有新細明體或是標楷體這樣的字體
所以造成無資料可供替換....... 初步看來應該是圖檔內沒有這樣的字體

而繁體版的有新細明體或是標楷體字體 要替換應該是沒有問題
如把簡體的圖檔拷備到繁體圖檔再利用您寫的程式轉STYLE看看

大大您可以再試一下....我只先用圖檔幫您做測試
因為之前我練習寫替換的函數時也發生過類似的問題 試看看吧 應該是可以的
adslwang
adslwang
高級會員
高級會員

文章總數 : 376
年齡 : 42
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 5757
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

[討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Empty 回復: [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換)

發表 由 leoneriol 于 2012-01-11, 11:24

adslwang 寫到:以下是光先看圖檔之後的為個人淺見

簡體圖檔STYLE的文字型式圖檔內並沒有新細明體或是標楷體這樣的字體
所以造成無資料可供替換....... 初步看來應該是圖檔內沒有這樣的字體

而繁體版的有新細明體或是標楷體字體 要替換應該是沒有問題
如把簡體的圖檔拷備到繁體圖檔再利用您寫的程式轉STYLE看看

大大您可以再試一下....我只先用圖檔幫您做測試
因為之前我練習寫替換的函數時也發生過類似的問題 試看看吧 應該是可以的

感謝adslwang!!!
看完您的回覆我突然發現我似乎方向錯誤了!!
想要簡體轉成繁體或是繁體轉成簡體似乎不是單單改變Style就夠了....
看來我的程式目前只有大量改變Style功能....沒有簡體轉繁體或是繁體轉簡體的能力
leoneriol
leoneriol
榮譽顧問
榮譽顧問

文章總數 : 818
年齡 : 36
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 7742
威望值 : 956
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
經典問與答讀者 藍鵲34號
2009聚會勳章 2014聚會勳章 男 雙魚座 鼠

回頂端 向下

[討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Empty 回復: [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換)

發表 由 adslwang 于 2012-01-11, 21:09

您說的沒有錯,只能轉上他的STYLE,確沒有轉換字體的能力

即使有目前的網路上有類似轉字軟體,但因為要轉換的字體類型太多,不見得有辦法全轉還是會有一些些轉不完全,軟體都轉不好了,更何況是在CAD內轉換,可能要高手才有辦法解決了。

目前我也仍在尋找這類型的軟體,不知道有沒有其它熱心的網友可以找到更好的轉換軟體........遺憾阿.....

比較困難轉換的部份:
腔醱儅(簡體字)及?对齐?(簡體字)及等這一些要轉換都是問題阿

比較簡單轉換的部份:
多线 (簡體字),一般的軟體都可以轉換


部份文字檔修正
http://www.FunP.Net/37812


adslwang 在 2012-01-14, 20:42 作了第 1 次修改 (原因 : 補部份文字修復原檔)
adslwang
adslwang
高級會員
高級會員

文章總數 : 376
年齡 : 42
來自 : 台南
職業 : 自由業
愛好 : 電腦、旅行
個性 : 樂觀
使用年資 : 1年
使用版本 : 2009
積分 : 17
經驗值 : 5757
威望值 : 356
回帖精華 : 1
注冊日期 : 2008-10-02
藍鵲88號
男 處女座 馬

回頂端 向下

[討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Empty 回復: [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換)

發表 由 leoneriol 于 2012-02-14, 12:54

歐....我要暫時放棄掙扎了!
謝謝adslwang的熱情幫助!!
麻煩版大先幫幫我改改標題成"已解決"吧!!

感恩~!
leoneriol
leoneriol
榮譽顧問
榮譽顧問

文章總數 : 818
年齡 : 36
來自 : 基隆市七堵區
職業 : 機電工程公司-繪圖(工地)
愛好 : 看小說
個性 : 不愛說話-反應慢
使用年資 : 6年
使用版本 : 2008 & 2012
積分 : 27
經驗值 : 7742
威望值 : 956
發帖精華 : 1
回帖精華 : 1
注冊日期 : 2009-03-12
經典問與答讀者 藍鵲34號
2009聚會勳章 2014聚會勳章 男 雙魚座 鼠

回頂端 向下

[討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Empty 回復: [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換)

發表 由 Tiger&蘋果爸 于 2012-02-14, 13:04

leoneriol 寫到:歐....我要暫時放棄掙扎了!
謝謝adslwang的熱情幫助!!
麻煩版大先幫幫我改改標題成"已解決"吧!!

感恩~!
沒關係!這題可以繼續討論~
竊喜

____________________________________________________________________________________
[討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Oo-2-110 [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Ia15010 [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Ziao1510 [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 19444
年齡 : 44
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2021
經驗值 : 77218
威望值 : 14792
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Uos15010 [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) BPl3tjj [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Ziao1510 [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Oo-2-110 [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) Oooo-110 [討論]麻煩各位高手一下!!我沒辦法把style改成標楷體跟新細明體!(PS:程式可大量修改Style,但是簡體繁體無法做轉換) 2020-211