【已解决】write-line写到word出的乱码

dhxf2011 · 发表于 2018-1-5 10:43:01

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 dhxf2011 于 2018-1-9 13:41 编辑

1 “人生南北多歧路，总把流光误。浊酒三杯沈醉去，水流花谢知何处？”这一首词，也是个老……
用write-line写到word
1 \U+201C人生南北多歧路，总把流光误。浊酒三杯沈醉去，水流花谢知何处？\U+201D这一首词，也是个老\U+2026\U+2026
咋个解决？

dhxf2011 · 发表于 2018-1-5 12:04:44

其实知道个大概
(vl-string->list "”")-----》(92 85 43 50 48 49 68)
在lsp里可以判断，用WRITE-LINE......变成这\U+2026七位

newer · 发表于 2018-1-5 12:14:23

是UNICODE编码，但少了个 /

(xdrx_unicode->string "\U201C") => "“"
命令: (xdrx_unicode->string "\\U2026\\U2026")
"……"

dhxf2011 · 发表于 2018-1-5 14:24:01

本帖最后由 dhxf2011 于 2018-1-5 14:34 编辑

那么
READ-LINE可以读进宽字符
WRITE-LINE不可以，怎么破

newer · 发表于 2018-1-5 14:38:31

dhxf2011 发表于 2018-1-5 14:24

你把宽字符都变回中文。

dhxf2011 · 发表于 2018-1-5 16:23:50

本帖最后由 dhxf2011 于 2018-1-5 17:19 编辑

实在没辙，在AtuoDesk留言，也不知道是不是他们正管。
好吧用替换，另外一个问题：
"（英文键盘的）怎么替换(setq #str (ch-text-m "" "“" #str)) （后面引号里的是UNICODE的宽字符）

csharp · 发表于 2018-1-5 22:39:32

_$ (setq fn (open "d:\\ci.txt" "w"))
#<file "d:\\ci.txt">
_$ (write-line "“人生南北多歧路，总把流光误。浊酒三杯沈醉去，水流花谢知何处？”" fn)
"“人生南北多歧路，总把流光误。浊酒三杯沈醉去，水流花谢知何处？”"
_$ (close fn)
nil
_$

windows 7 x64 + autocad 2018(x64) 没问题，如果是西文引号，用转义符
(write-line "\"人生南北多歧路，总把流光误。浊酒三杯沈醉去，水流花谢知何处？\"" fn)

dhxf2011 · 发表于 2018-1-6 11:07:07

就是说CAD2018中文引号可以写入？
多谢csharp。
周一试试。

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

[已解决] 【已解决】write-line写到word出的乱码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。