明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
123
返回列表 发新帖
楼主: yangyangyixia

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

    [复制链接]
发表于 2024-7-25 21:30:01 | 显示全部楼层
                 (write-line "[统计面积  ZMJ]^C^CZMJ" f) ; 点击这个执行^c^c后边的主程序
这个前面怎么加图标?请大佬示例一下,谢谢。
发表于 2024-7-28 07:39:34 | 显示全部楼层
moshouhot 发表于 2024-7-18 11:21
参考了kucha007的http://bbs.mjtd.com/thread-187092-1-1.html,加入了图标。
傻瓜版创建菜单文件。
工具 ...

菜单可以分组吗?
发表于 2024-7-28 07:49:01 | 显示全部楼层
菜单可分组吗?
发表于 2024-7-29 16:09:25 | 显示全部楼层
支持,有空试试看
发表于 2024-7-29 20:38:02 | 显示全部楼层
本帖最后由 bai2000 于 2024-7-29 20:39 编辑

load_and_add_menu的函数是不是少了?
发表于 2024-9-4 12:39:22 | 显示全部楼层
moshouhot 发表于 2024-7-18 11:21
参考了kucha007的http://bbs.mjtd.com/thread-187092-1-1.html,加入了图标。
傻瓜版创建菜单文件。
工具 ...

load_and_add_menu这个函数少了
发表于 2024-9-6 15:24:04 | 显示全部楼层
KO你 发表于 2024-7-19 18:01
快捷键  XX  卸载自定义菜单
(defun c:XX (/ pre_filedia)
(setq pre_filedia (getvar "filedia"))

应该是
  1. (defun c:XX (/ pre_filedia)
  2.   (setq pre_filedia (getvar "filedia"))
  3.   (setvar "filedia" 0)
  4.   (command "menuunload" "KLSCL")
  5.   (setvar "filedia" pre_filedia)
  6.   (princ)
  7. )
发表于 2024-9-23 17:03:13 | 显示全部楼层

卸载成功了,但是再加载菜单栏不显示了呢
发表于 4 天前 | 显示全部楼层
load_and_add_menu  函数哪位上传一下
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-10-22 18:36 , Processed in 0.242640 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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