字符串编码转换：简体中文转繁体Big5

NetBee

最近在完善ZBBZ3.0
发现若操作系统是Big5的话，界面显示是乱码。
本来用转换后的lsp及DCL重新编译是最快的。

但好久没有搞LSP了，一拿起来LSP就放不下，所以继续深入研究了一下。
照例将论坛的帖子翻了个低朝天，但都没有现成的，有一个是exe程序，另一个是lisp，但是用了转换库。
lsp简体转繁体v1.1：http://bbs.mjtd.com/thread-186847-1-1.html
我也来个简体中文转换繁体big编码小程序 ：http://bbs.mjtd.com/thread-186902-1-1.html
都不是我想要的，直到：
字符串UTF-8编码互转：http://bbs.mjtd.com/thread-190579-1-1.html
感觉有戏了，但没有Big5的。
又到网上翻。。。
经过不断的试验，总算搞定了。

1. (defun GB2Big5 (str / file_list fileget stream)
   
2.      (if (setq stream (vlax-create-object "Adodb.Stream"))
   
3.        (progn
   
4.          (if
   
5.            (VL-CATCH-ALL-ERROR-P
   
6.              (setq
   
7.                RTN (VL-CATCH-ALL-APPLY
   
8.                      '(lambda ()
   
9.                         (vlax-put-property stream 'Type 2)
   
10.                         (vlax-put-property stream 'Mode 3)
    
11.                         (vlax-put-property stream 'Charset "Big5")
    
12.                         (vlax-invoke stream 'Open)
    
13.                         (vlax-invoke stream 'WriteText str)
    
14.                         (vlax-put-property stream 'Position 0)
    
15.                         (vlax-put-property stream 'Type 2)
    
16.                         (vlax-put-property stream 'Charset "gb2312")
    
17.                         (Vlax-Invoke-Method
    
18.                                         stream
    
19.                                         'ReadText
    
20.                                         nil
    
21.                         )
    
22.                       )
    
23.                    )
    
24.              )
    
25.            )
    
26.             (progn
    
27.              ;;(princ "读取失败!")
    
28.               (setq RTN str)
    
29.             )
    
30.          )
    
31.          (vlax-release-object stream)
    
32.          RTN
    
33.        )
    
34.        strLst
    
35.      )
    
36.    )
    

(defun GB2Big5 (str / file_list fileget stream)<br />      (if (setq stream (vlax-create-object "Adodb.Stream"))<br />        (progn<br />          (if<br />            (VL-CATCH-ALL-ERROR-P<br />              (setq<br />                RTN (VL-CATCH-ALL-APPLY<br />                      '(lambda ()<br />                         (vlax-put-property stream 'Type 2)<br />                         (vlax-put-property stream 'Mode 3)<br />                         (vlax-put-property stream 'Charset "Big5")<br />                         (vlax-invoke stream 'Open)<br />                         (vlax-invoke stream 'WriteText str)<br />                         (vlax-put-property stream 'Position 0)<br />                         (vlax-put-property stream 'Type 2)<br />                         (vlax-put-property stream 'Charset "gb2312")<br />                         (Vlax-Invoke-Method<br />                                         stream<br />                                         'ReadText<br />                                         nil<br />                         )<br />                       )<br />                    )<br />              )<br />            )<br />             (progn<br />              ;;(princ "读取失败!")<br />               (setq RTN str)<br />             )<br />          )<br />          (vlax-release-object stream)<br />          RTN<br />        )<br />        strLst<br />      )<br />    )<br />

示例：

2. 
   
3. (defun C:TT()
   
4.   (princ "No Convert:")
   
5.   (princ "標註圖層")
   
6.   (princ"\n")
   
7.   (princ "ConvertTo:")
   
8.   (princ(GB2Big5 "標註圖層"))
   
9.   (princ)
   
10. )
    

<br /> (defun C:TT()<br />   (princ "No Convert:")<br />   (princ "標註圖層") <br />   (princ"\n")<br />   (princ "ConvertTo:")<br />   (princ(GB2Big5 "標註圖層"))<br />   (princ)<br /> )<br />

运行如下：

NetBee

vitalgg 发表于 2024-11-28 18:47

不是字符转换，是编码转换。
CAD2021以前的LSP是不支持UTF8的。所以繁体操作系统中的繁体CAD是显示乱码，必须转码才能正常显示。

cshrae

看到标题，想到多年前经常需要转码，那时有个插件。再后来很多年遇不到需要转码的场景，也不知是CAD更新的原因，所以再也用不到了

kozmosovia

emk 发表于 2024-11-29 14:38
期待多国语言转换，过来看看

多国语言那就不叫转换，得先翻译。

NetBee

当然，Big5转GB2312也是一样的，反过来就行了。

kozmosovia

Big5的操作系统不支持UTF？

p-3-ianlcc

谢谢大佬这麽辛苦、努力的修改
谢谢分享！

叁點壹肆

谢谢分享！

LIULISHENG

谢谢分享，支持一下

pizi158545086

谢谢分享      

NetBee

kozmosovia 发表于 2024-11-28 18:06
Big5的操作系统不支持UTF？

是Lisp不支持。

vitalgg