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

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

将已知的原始命令、功能简介填入第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 static/image/common/back.gif
谢谢院长分享。仿照写了个读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)
)
页: [1] 2 3
查看完整版本: 【e派】yhkjj(用户快捷键)-利用excel表格编写快捷键表