大师程序很好，但有的转成？号，请大师审查
简繁转换，好工具，
以前我也做过对照表，只写过简单的转换程序。不过如果要将所有的字符都做转换，包括属性、单行文字、多行文字等做转换，由于字库不同，又得改字体，那就会更好一些。
不过高飞鸟的程序应该只是将简体字替换成简体库中的繁体字，而没有转换内码并改字体。
本帖最后由 highflybir 于 2013-1-25 17:01 编辑
mccad 发表于 2013-1-25 16:46 static/image/common/back.gif
以前我也做过对照表，只写过简单的转换程序。不过如果要将所有的字符都做转换，包括属性、单行文字、多行文 ...
嗯，应该是如此。
暂时还没考虑到块内文字，等等。
关于内码转化，则更为复杂一点。如果用arx编程则为方便一些。有 MultiByteToWideChar和WideCharToMultiByte这两个函数，可以把GB2312(简体中文)，GBK和台湾那边用的BIG5三种内码转化。
本帖最后由 ScmTools 于 2013-1-25 18:13 编辑
期待版主用ARX写字体转换方法
感谢 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
高手厉害
(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不知应该怎样才能译
xsso 发表于 2013-1-26 13:54 static/image/common/back.gif
(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图元的转换函数，待以后弄。
太有才了。