★★★【发个好玩的函数】★★★
 

★★★【发个好玩的函数】★★★
www.dimcax.com
★★★【发个好玩的函数】★★★;;功能：取出指定位置的单词
;;(yad-substr string pattern position)
;;string----字符串
;;pattern---分隔字符
;;position--位置
;;如：(yad-substr "这里 是 的 cad社区" " " 2) ==> ""
(defun yad-substr(string pattern position)
(menucmd (strcat "m=$(index," (itoa (abs position)) ",\"" (vl-string-translate pattern "," string) "\")"))
)
好好学习天天向上
menucmd 还有这么用的 学习
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
真好玩．．．
d