nxchenjk 发表于 2023-1-17 15:44:59

[OpenDCL] 隐藏+抽屉界面(源码） 支持汉字

本帖最后由 nxchenjk 于 2023-1-17 16:12 编辑

源码出处，904772207 老师的
http://bbs.mjtd.com/thread-177515-1-1.html?_dsign=a0e95ff9
明经上找了菜卷鱼老师的代码。
(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))
    )
)
)
把原程序中的子程序换一下。就可以支持汉字了。

中国梦 发表于 2023-1-17 21:27:58

谢谢楼主分享

海盗曹 发表于 2023-1-17 22:39:57

感谢分享，Mark学习一下

mojianxing 发表于 2023-9-14 20:07:00

谢谢楼主分享
页: [1]
查看完整版本: [OpenDCL] 隐藏+抽屉界面(源码） 支持汉字