lisp 创建自定义菜单--整理常用插件
本帖最后由 yangyangyixia 于 2024-6-29 18:42 编辑本工具根据http://bbs.mjtd.com/forum.php?mo ... 8%D2%E5%B2%CB%B5%A5整理编辑；
将lsp文件拖入cad，设置为自动加载即可使用
卸载方式：搜索KLSCL，删除搜到的三四个文件
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)) 本帖最后由 自贡黄明儒 于 2024-6-28 14:34 编辑
都差不多。最早还是明总写的，都是在他的基础上扩展 本帖最后由 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能够访问到这个文件。
厉害厉害，包含的这几个功能也是常用的
不错~
也在整理中，感谢分享~ 自贡黄明儒 发表于 2024-6-28 14:31
都差不多。最早还是明总写的，都是在他的基础上扩展
可以在程序前面加小图标吗？
下图这样：
zhangrunze 发表于 2024-6-28 16:36
可以在程序前面加小图标吗？
下图这样：
可以添加，添加路径就可以 谢谢分享。 自贡黄明儒 发表于 2024-6-28 14:31
都差不多。最早还是明总写的，都是在他的基础上扩展
黄总可否分享一下最后的卸载部分的代码 感谢分享，收藏备用 zhangcan0515 发表于 2024-6-28 17:28
可以添加，添加路径就可以
如何加图标，求示例