同一VLX同时运行在ANSI和UTF模式下

kozmosovia

p-3-ianlcc 发表于 2024-5-19 00:40
太棒了…这是福音
可以教一下怎么弄的吗？

(Defun VLDCL-UTFMSG (msg)
  (cond        ((or (= (getvar "SysCodePage") "ANSI_936")
             (= (getvar "Locale") "CHS")
             (wcmatch (vlax-product-key) "*804")
         )
         (AQX:Base64Decode (car msg))
        )
        ((or (= (getvar "SysCodePage") "ANSI_950")
             (= (getvar "Locale") "CHT")
             (wcmatch (vlax-product-key) "*404")
         )
         (AQX:Base64Decode (cadr msg))
        )
        (t (caddr msg))
  )
)
Sample:
(setq slb (getfiled (vldcl-UTFMSG
                      '("0aHU8bvDtcbGrL/izsS8/g0K"
                        "33iT8bvDn/TGrI7szsS8/g0K"
                        "Select a SLB file"
                       )
                    )
                    ""
                    "SLB"
                    8
          )
)

p-3-ianlcc

kozmosovia 发表于 2024-5-20 16:56
(Defun VLDCL-UTFMSG (msg)
  (cond        ((or (= (getvar "SysCodePage") "ANSI_936")
             (= (getvar "L ...

谢谢大师的分享！
里面有Sample，再来看看怎麽弄比较好
现在的主要问题是，有一些fas档是简体的
希望可以直接在繁体系统上使用

crtrccrt

请教,如何激活下面两个函数,mjtd论坛的办法不能激活
pack-string->list
pack-list->string

kozmosovia

crtrccrt 发表于 2024-5-21 09:23
请教,如何激活下面两个函数,mjtd论坛的办法不能激活
pack-string->list
pack-list->string

附件不是有fas吗？直接先加载那个fas或者编译时加在第一个就行。用激活的方法，还是要先加载或者临时写个tranf.fas出来，不如直接用附件的fas加载来得简单。

crtrccrt

pack-string->list
pack-list->string
这两个函数不是内部函数,大家不要激活了,也不可能激活,
这两个函数使用了其他内部函数,是自定义函数

kozmosovia

推荐使用大海的UTF转换替代pack的转换，http://bbs.mjtd.com/thread-190579-1-1.html
毕竟UTF可以完美支持各种语言的，而且现在满世界都是UTF了。
相对而言，pack就算是古老的技术了。