autolisp 自动加载下拉菜单并且刷新

最新推荐文章于 2024-07-24 10:18:54 发布

包罗万码

最新推荐文章于 2024-07-24 10:18:54 发布

阅读量1.3k

点赞数

分类专栏： CAD AUTOLISP 文章标签： cad 机器学习

本文链接：https://blog.csdn.net/a316375/article/details/106313111

版权

CAD 同时被 2 个专栏收录

1 篇文章 1 订阅

订阅专栏

AUTOLISP

1 篇文章 1 订阅

订阅专栏

autolisp 加载mnu文件后无法显示菜单的问题

包罗万码原创作品

需要手动加载下拉菜单

例子：

xyx.mnu文件夹如下

***MENUGROUP=XYX

***POP1
[许业旭工具箱]

P1-1[生成A图模板]XMA

autolisp代码如下：

;;加载菜单栏方法1 xyx是你的menugroup名称有三处要填写 p30代表加载30行，根据实际修改

 

(defun C:xload (/)
 (and
   (not (menugroup "XYX"))
   (findfile "C:/.../XYX.cuix")
   (command "_.menuload" "C:/.../XYX.cuix")
 ) ;_ and
 (and
   (menugroup "XYX")
   (menucmd "p30=+XYX.POP1")
 ) ; 
) ;

;加载菜单栏方法2


 (defun C:XLOAD2 (  )
 (vl-load-com)
 (or (menugroup "XYX")
     (and (findfile "C:/.../XYX.cuix")
          (vla-load
            (vla-get-MenuGroups
              (vlax-get-acad-object)) "C:/.../XYX.cuix")))

 (and (menugroup "XYX")
      (menucmd "p30=+XYX.POP1")))