明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 10672|回复: 28

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

  [复制链接]
发表于 2014-7-9 09:24:02 | 显示全部楼层 |阅读模式
将已知的原始命令、功能简介填入第2和第3列表内,如果需要设置快捷键,则在第4列填入快捷键代码,第5列的备注可以忽略,文件编辑好后存放到acad搜索路径下。加载程序后运行命令:yhkjj





本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 5明经币 +6 金钱 +26 收起 理由
wayne_myles + 1
qjchen + 2 + 21 好思路
机械工程师 + 1 很给力!
q3_2006 + 1 + 5 快捷键我的最爱呀....
434939575 + 1 开眼界了。

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下

本帖被以下淘专辑推荐:

  • · 学习|主题: 24, 订阅: 0
发表于 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
 楼主| 发表于 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 | 显示全部楼层
发表于 2014-7-10 03:29:06 | 显示全部楼层
支持院长,为什么这么有用的程序没人顶
发表于 2014-7-10 07:41:01 | 显示全部楼层
支持院长!
 楼主| 发表于 2014-7-10 15:38:24 | 显示全部楼层
如果表中的快捷键有重复,会以最后一个快捷键为准
发表于 2014-7-15 08:35:19 | 显示全部楼层
谢谢院长分享。仿照写了个读txt的快捷键分配。
发表于 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)
)

点评

感谢分享  发表于 2017-11-17 20:50
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-23 17:42 , Processed in 0.229428 second(s), 38 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表