社区 › AutoLISP/Visual LISP 编程技术 › 隐藏+抽屉界面！！（源码）修改一下支持中文汉字

nxchenjk 发表于 2023-1-13 11:12:36

我的汉字还是不显示啊，有办法解决吗，谢谢

cjf160204 发表于 2023-1-13 15:16:20

你這個怎麼添加命令

nxchenjk 发表于 2023-1-17 11:03:20

把子程序换一下。就可以支持中文了。
(defun fun-str2lst(str sp / str1)
(cond
    ((= str nil) nil)
    ((= sp nil) nil)
    ((= str "") "")
    ((= sp "") str)
    (t
   (setq str1 (strcat "((\"" str "\"))"))
   (while (vl-string-search sp str1)
       (setq str1 (vl-string-subst "\")(\"" sp str1))
   )
   (apply 'append (read str1))
    )
)
)

查看完整版本: 隐藏+抽屉界面！！（源码）修改一下支持中文汉字