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

nxchenjk

源码出处，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))
    )
  )
)
把原程序中的子程序换一下。就可以支持汉字了。

中国梦

谢谢楼主分享

海盗曹

感谢分享，Mark学习一下

mojianxing

谢谢楼主分享