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

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