【e派】yhkjj(用户快捷键)-利用excel表格编写快捷键表

xyp1964 · 发表于 2014-7-9 09:24:02

将已知的原始命令、功能简介填入第2和第3列表内，如果需要设置快捷键，则在第4列填入快捷键代码，第5列的备注可以忽略，文件编辑好后存放到acad搜索路径下。加载程序后运行命令：yhkjj

davide888 · 发表于 2017-11-14 14:46:55

本帖最后由 davide888 于 2017-11-17 20:53 编辑

机械工程师发表于 2014-7-15 12:00
可以。
(defun c:gg( )
(setq fh (open (strcat (GettoolsPath) "\\快捷键.dat") "r"))

LM:str->lst

xyp1964 · 发表于 2018-3-26 22:26:16

最好用txt或csv格式数据来实现

清风明月名字 · 发表于 2014-7-9 09:51:56

谢谢老师，很有创意啊，就是要提供原始信息供操作

水沙漠 · 发表于 2014-7-9 11:23:05

牛！院长V5!

杜阳 · 发表于 2014-7-9 18:11:27

firstinti · 发表于 2014-7-10 03:29:06

支持院长，为什么这么有用的程序没人顶

USER2128 · 发表于 2014-7-10 07:41:01

支持院长！

xyp1964 · 发表于 2014-7-10 15:38:24

如果表中的快捷键有重复，会以最后一个快捷键为准

机械工程师 · 发表于 2014-7-15 08:35:19

谢谢院长分享。仿照写了个读txt的快捷键分配。

davide888 · 发表于 2014-7-15 11:23:29

机械工程师发表于 2014-7-15 08:35
谢谢院长分享。仿照写了个读txt的快捷键分配。

能发一个吗

机械工程师 · 发表于 2014-7-15 12:00:51

可以。
(defun c:gg( )
(setq fh (open (strcat (GettoolsPath) "\\快捷键.dat") "r"))
(setq linelist nil)
(setq readlinestr (read-line fh))
(setq readlinestr (read-line fh))
(while readlinestr
(setq linelist (LM:str->lst readlinestr " "))
(if (and (/= (cadr linelist) "") (/= (cadddr linelist) ""))
(progn
(setq tx (strcat "(defun c:" (cadddr linelist) "()(c:" (cadr linelist) "))"))
(eval (read tx))
)
)
(setq readlinestr (read-line fh))
)
(close fh)
)

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

[经验] 【e派】yhkjj(用户快捷键)-利用excel表格编写快捷键表

本帖子中包含更多资源

点评

评分

本帖被以下淘专辑推荐:

相关帖子

点评