【飞鸟集】简繁转化（更新至2013.4.21）

ynhh · 发表于 2013-1-25 13:27:36

大师程序很好，但有的转成？号，请大师审查

仲文玉 · 发表于 2013-1-25 13:54:10

简繁转换，好工具，

mccad · 发表于 2013-1-25 16:46:39

以前我也做过对照表，只写过简单的转换程序。不过如果要将所有的字符都做转换，包括属性、单行文字、多行文字等做转换，由于字库不同，又得改字体，那就会更好一些。
不过高飞鸟的程序应该只是将简体字替换成简体库中的繁体字，而没有转换内码并改字体。

highflybir · 发表于 2013-1-25 16:59:08

本帖最后由 highflybir 于 2013-1-25 17:01 编辑

mccad 发表于 2013-1-25 16:46
以前我也做过对照表，只写过简单的转换程序。不过如果要将所有的字符都做转换，包括属性、单行文字、多行文 ...

嗯，应该是如此。
暂时还没考虑到块内文字，等等。
关于内码转化，则更为复杂一点。如果用arx编程则为方便一些。有 MultiByteToWideChar和WideCharToMultiByte这两个函数，可以把GB2312(简体中文)，GBK和台湾那边用的BIG5三种内码转化。

ScmTools · 发表于 2013-1-25 18:12:56

本帖最后由 ScmTools 于 2013-1-25 18:13 编辑

期待版主用ARX写字体转换方法

yoyoho · 发表于 2013-1-26 08:39:55

感谢 highflybir 版主分享程序!
记得有个简繁转化程序不错您可参照一下!
ConvertZ ver 8.02 2005年6月3日
(仅供个人免费使用，不得作任何商业用途)
用途: 中文 Big5/GBK/Unicode/UTF8 内码转换器。
　　　注意：档案转换只能将纯文字格式的文件（例如 txt, html 等）转码，
　　　并不适用于如 MS Word, Excel 等 binary 档案。
系统要求: 视窗9x/ME/NT/2000/XP/2003
作者 : 李志成（香港）
电邮 : lialfred@hkbn.net
网址 : http://alf-li.pcdiscuss.com

emk · 发表于 2013-1-26 11:53:23

高手厉害

xsso · 发表于 2013-1-26 13:54:05

(SETQ T (GETREAL " 玴(玂痙计翴︗!):"))
         (SETQ N (GETREAL " ㄢ玴丁禯瞒(ぃΤ玴!):"))
         (SETQ A (/ 0.42 0.3))
         (SETQ B (/ 0.31 0.3))
      (IF (<= T 0.3)
         (princ " 叫┖―舱種ǎ!"))
      (IF (and (> T 0.3)  (<= T 1.5))
         (PROGN
               (IF (< N 0.5)
                     (princ " 叫酚はч溃キ甶秨!"))

这种繁体LSP不知应该怎样才能译

highflybir · 发表于 2013-1-26 14:36:05

xsso 发表于 2013-1-26 13:54
(SETQ T (GETREAL " 玴(玂痙计翴︗!):"))
(SETQ N (GETREAL " ㄢ玴丁禯瞒(ぃ ...

粗略编写了一个dll，可以转换文字了，但是还没来得及写函数。

测试代码如下：
(defun c:zzz (/ dlg)
(startapp "regsvr32 /i /s \"F:\\zqy\\C\\CharConverter\\Release\\CharConverter.dll\"")
(setq dlg (vlax-create-object "CharConverter.Dialog"))
(if dlg
(progn
(vlax-invoke dlg 'doit)
(vlax-release-object dlg)
)
)
(princ)
)

目前暂且支持32位的CAD。提醒注意：
如果在windows vista/7/8 操作系统上，需要以管理员身份运行CAD
关于CAD图元的转换函数，待以后弄。

xiaotao · 发表于 2013-1-27 22:45:47

太有才了。

账号		自动登录	找回密码
密码			注册

[【高飞鸟】] 【飞鸟集】简繁转化（更新至2013.4.21）

本帖子中包含更多资源

点评

本帖子中包含更多资源

点评