快速修改LISP命令

笑2笑

请教高手们，如何批量对LISP文件进行快速修改命令?
比如:
(DEFUN C:TT1 ()(C:TEXT1))
(DEFUN C:TT2 ()(C:TEXT2))

我想用对话框的形式来替代TT1 TT2......


我有很多个小程序，
我想用对话框的形式来修改以及查看快捷键

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:上图对话框.rar 
下载次数:17  文件大小:249 Bytes 
下载权限: 不限 以上  [免费赚D豆]

求各位大师给个思路，谢谢！

仲文玉

yx5277 发表于 2013-6-9 16:38
好像少文件，运行不了？

Ko的作品，你敢直接用？文件下了要看下，
程序会自动在这个目录里 c:\y5.9\  建一个名为：y.kjj 的文件
下路径和文件类型可以自己更改会定义

炫翔

:lol
我共享个KAO的，只供参考

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:diy.lsp 
下载次数:42  文件大小:4.26 KB  售价:2D豆 [记录]
下载权限: 不限 以上  [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:DCL.rar 
下载次数:36  文件大小:2.12 KB 
下载权限: 不限 以上  [免费赚D豆]

守仁格竹GM

群里管理都已经给过你了
(setq kjj (getstring "快捷键"));要设置的快捷键
  (setq kjj1 (getstring "快捷键"));原有快捷键，可以是变量，也可以是固定形式
  (eval (read (strcat "(DEFUN C:" kjj "()(C:" kjj1 ")(princ))")))
你对话框里面只需要拾取输入值就可以了 也就相当于给kjj赋值

守仁格竹GM

记得弄好后 给大家发个完整的结果:)

yx5277

炫翔 发表于 2013-6-9 11:14
我共享个KAO的，只供参考

好像少文件，运行不了？

cy956

yx5277 发表于 2013-6-9 14:38
好像少文件，运行不了？

思想比结果重要，不要光盯着能不能用。

newer

仲文玉 发表于 2013-6-9 16:45
Ko的作品，你敢直接用？文件下了要看下，
在这个目录里 c:\y5.9\  建一个名为：y.kjj 的文件
或改下 ...

斑竹，这话咋理解？ KO的作品咋了？

429014673

炫翔 发表于 2013-6-9 11:14
我共享个KAO的，只供参考

开心版主，补个函数：ko-write-list->file

jiucheng01

429014673 发表于 2013-6-9 23:59
开心版主，补个函数：ko-write-list->file

开心版主的，的确少了这个函数。定义的数据没法写出。

仲文玉

newer 发表于 2013-6-9 22:51
斑竹，这话咋理解？ KO的作品咋了？

没什么，只是受Ko平时的言论及大家对他的观点，有感而发。

hao3ren

(defun ko-write-list->file (data path / a file path2 format_lst)
  (defun format_lst (lst)
    (mapcar '(lambda (a)
               (cond ((= (type a) 'REAL)
                      (num->str a)
                     )
                     ((listp a)
                      (format_lst a)
                     )
                     (t a)
               )
             )
            lst
    )
  )
  (if (setq path2 (findfile path))
    (setq path path2)
  )
  (setq file (open path "w"))
  (write-char 39 file)
  (princ (vl-prin1-to-string (format_lst data)) file)
  (close file)
  data
)

yruqian

炫翔 发表于 2013-6-9 11:14
我共享个KAO的，只供参考

定义快捷键后，下次启动为什么不能生效