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

yangyangyixia

本工具根据http://bbs.mjtd.com/forum.php?mo ... 8%D2%E5%B2%CB%B5%A5整理编辑；
将lsp文件拖入cad，设置为自动加载即可使用

卸载方式：搜索KLSCL，删除搜到的三四个文件

KO你

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))

自贡黄明儒

都差不多。最早还是明总写的，都是在他的基础上扩展

moshouhot

参考了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能够访问到这个文件。

jackAqwq

厉害厉害，包含的这几个功能也是常用的

zhangrunze

不错~
也在整理中，感谢分享~

zhangrunze

自贡黄明儒 发表于 2024-6-28 14:31
都差不多。最早还是明总写的，都是在他的基础上扩展

可以在程序前面加小图标吗？
下图这样：

zhangcan0515

zhangrunze 发表于 2024-6-28 16:36
可以在程序前面加小图标吗？
下图这样：

可以添加，添加路径就可以

lijunfa12345

谢谢分享。

szhorse

自贡黄明儒 发表于 2024-6-28 14:31
都差不多。最早还是明总写的，都是在他的基础上扩展

黄总可否分享一下最后的卸载部分的代码

xxyyzzlg

感谢分享，收藏备用

moranyuyan

zhangcan0515 发表于 2024-6-28 17:28
可以添加，添加路径就可以

如何加图标，求示例