[LISP程序]：超级拆分修改文字

firstintimate · 发表于 2007-5-30 08:21:48

少了dyq-put-oldstatus 函数，不过不影响程序运行，这个函数可以猜的出来

bridgewind · 发表于 2007-5-30 12:30:40

干吗不把一个程序传完整了。。。还说自己英雄寂寞。。。晕！

qiaqiadeng · 发表于 2007-6-4 21:50:24

(defun dyq-put-oldstatus (oldstatus) ;还原系统原系统变量
  (setq num (length oldstatus))
  (setq i 1)
  (repeat (/ (- num 1) 2)
(setvar (nth i oldstatus) (nth (+ i 1) oldstatus))
(setq i (+ i 2))
  )
)

yhl0125888 · 发表于 2018-10-28 21:04:15

不懂，如果能直接加载插件，输入命令就可以拆分就好了。
我现在急需多行文字与单行文字里的数字与文字拆分插件。或者能随意按个数拆分就更好了！

coverne · 发表于 2018-10-28 21:29:50

思路很好，但执行后出现“ no function definition: DYQ-GET-OLDSTATUS”

kqqt6236 · 发表于 2019-1-2 16:14:30

学习一下了。

Trouble12138 · 发表于 2022-4-14 21:49:23

晓东好像还是不行啊

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