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

以下是我自己寫的程式,

目的是把所有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)
)

可以提供部份字體檔參觀一下嘛

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

已經附上測試用的文件了!!感恩!

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

感恩~!

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

感恩~!

沒關係！這題可以繼續討論～