lisp 创建自定义菜单--整理常用插件

锋十七 · 发表于 2024-7-4 11:32:44

学习一下，看到楼主的注释想必也是个搞笑的人

sachindkini · 发表于 2024-7-4 12:35:15

thanks for sharing

Y1193791844 · 发表于 2024-7-4 14:44:14

学习了学习了

wline · 发表于 2024-7-6 17:04:04

这个好诶
学习学习

tensir · 发表于 2024-7-11 14:25:25

感谢作者的分享！

gble119 · 发表于 2024-7-14 13:11:35

多谢分享学习了。

moshouhot · 发表于 2024-7-18 11:21:13

本帖最后由 moshouhot 于 2024-7-19 18:48 编辑

参考了kucha007的http://bbs.mjtd.com/thread-187092-1-1.html，加入了图标。
傻瓜版创建菜单文件。
工具名称+快捷键+图标编号
"统计面积 C:ZMJ RCDATA_16_IMPORT3DS"

代码流程：
检查菜单组：首先检查是否已经存在名为 "KLSCL" 的菜单组。如果没有，则继续执行。
创建菜单文件：打开一个名为 "KLSCL.mnu" 的文件，并以写模式（"W"）创建它。
写入菜单内容：向文件中写入一系列菜单项，包括菜单组的名称、菜单项的显示文本和对应的命令。
关闭文件：写入完成后，关闭文件。
加载菜单：使用 command 函数加载刚刚创建的 "KLSCL.mnu" 菜单文件。
检查加载结果：检查菜单组 "KLSCL" 是否成功加载。如果成功，则继续执行。
定位菜单位置：计算现有菜单的数量，找到一个合适的位置来插入新菜单。
插入菜单：将新菜单插入到找到的位置。
保存路径：菜单文件 "KLSCL.mnu" 会在当前工作目录下创建。确保AutoCAD能够访问到这个文件。

KO你 · 发表于 2024-7-19 18:01:50

szhorse 发表于 2024-6-28 23:18
黄总可否分享一下最后的卸载部分的代码

快捷键 XX 卸载自定义菜单
(defun c:XX (/ pre_filedia)
(setq pre_filedia (getvar "filedia"))
(setvar "filedia" 0)
(command "menuunload" "XX工具")
(setvar "filedia" pre_filedia)
(princ))

Noangler · 发表于 2024-7-24 15:43:40

感谢大佬分享源码。

lxl304712346 · 发表于 2024-7-25 21:25:50

moshouhot 发表于 2024-7-18 11:21
参考了kucha007的http://bbs.mjtd.com/thread-187092-1-1.html，加入了图标。
傻瓜版创建菜单文件。
工具 ...

下载不了啊，没权限。。

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

[源码] lisp 创建自定义菜单--整理常用插件

本帖子中包含更多资源