请问有没有从CAD菜单或CAD按钮执行VBA工程宏的方法？

cczjw

请问有没有从CAD菜单或CAD按钮执行VBA工程宏的方法？

houlinbo

 自定义菜单执行宏的方法

 ublic Sub addMenu()
                   Dim acadapp As AcadApplication = Application.AcadApplication
            Dim myMenu As AcadPopupMenu = acadapp.MenuGroups.Item(0).Menus.Add("测试菜单(&L)")
            Dim m1 As AcadPopupMenuItem = myMenu.AddMenuItem(1, "子菜单(&A)", Chr(3) + Chr(3) + "宏名称" & Chr(13))

end sub

houlinbo

 ublic Sub addToolbar()
                    Dim acadapp1 As AcadApplication = Application.AcadApplication
                            Dim toolBar As AcadToolbar= acadapp1.MenuGroups.Item(0).Toolbars.Add("工具条名")
                      
            Dim t1 As AcadToolbarItem = toolBar.AddToolbarButton("", "按钮", "", Chr(3) + Chr(3) + "宏名" & Chr(13))
            t1.SetBitmaps(Runtime.AppPath & "Acad\ICO\1.ico", Runtime.AppPath & "Acad\ICO\1.ico")

cczjw

不好意思，请教这些代码在什么时候、放到哪里执行呢？谢谢！

fjfhgdwfn

通过lisp，在启动时自动加载运行

cczjw

哦，明白了，谢谢！