错误424要求对象

我是想给CAD添加菜单，但老是出现错误424，要求对象，代码如下，请高手帮忙修改，谢谢！

Public Sub CreateMenu()
'在AutoCAD的标准菜单条上创建菜单
'用AutoCAD菜单组的第一项创建一个菜单组
Dim curMenuGroup As AcadMenuGroup
Set curMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Dim newMenu As AcadPopupMenu
Set newMenu = curMenuGrop.Menus.Add("辅助工具")
'确定选择项的宏
Dim DBConn As String
Dim saveMacro As String
Dim editMacro As String
Dim SaveAsMacro As String
Dim checkMacro As String
Dim clearMacro As String
Dim getPointMacro As String
clearMacro = Chr(3) + Chr(3) + "-vbarun" + Chr(32) + "SSET.clearEpual" + Chr(32)
checkMacro = Chr(3) + Chr(3) + "-vbarun" + Chr(32) + "SSET.FeatureClosedCheck" + Chr(32)
getPointMacro = Chr(3) + Chr(3) + "-vbarun" + Chr(32) + "SSET.getPoint" + Chr(32)
'为宏分配命令
DBConn = Chr(3) + Chr(3) + "-vbarun" + Chr(32) + "SSET.dbconnect" + Chr(32)
saveMacro = Chr(3) + Chr(3) + Chr(95) + "save" + Chr(32) '即VBA中的ESC ESC_Save
editMacro = Chr(3) + Chr(3) + Chr(95) + "edit" + Chr(32) '即VBA中的ESC ESC_Edit
SaveAsMacro = Chr(3) + Chr(3) + Chr(95) + "SaveAs" + Chr(32)
'添加选择项到TestMenu菜单项中
Dim codeMenuItem As AcadPopupMenuItem
Dim checkMenuItem As AcadPopupMenuItem
Dim clearMenuItem  As AcadPopupMenuItem
Dim saveMenuItem As AcadPopupMenuItem
Dim editMenuItem As AcadPopupMenuItem
Dim sepaMenuItem As AcadPopupMenuItem
Dim saveasMenuItem As AcadPopupMenuItem
Dim getPointMenu As AcadPopupMenuItem
Set codeMenuItem = newMenu.AddMenuItem_(newMenu.Count + l, "地形要素编码", DBConn)
Set sepaMenuItem = newMenu.AddSeparator(newMenu.Count + l)
Set checkMenuItem = newMenu.AddMenuItem_(newMenu.Count + l, "图形要素闭合性检测", checkMacro)
Set sepaMenuItem = newMenu.AddSeparator(newMenu.Count + l)
Set clearMenuItem = newMenu.AddMenuItem_(newMenu.Count + 1, "清理重复的图形要素", clearMacro)
Set sepaMenuItem = newMenu.AddSeparator(newMenu.Count + l)
Set saveMenuItem = newMenu.AddMenuItem_(newMenu.Count + 1, "保存" + Chr(Asc("&")) + "(S)", saveMacro)
Set sepaMenuItem = newMenu.AddSeparator(newMenu.Count + l)
Set saveasMenuItem = newMenu.AddMenuItem_(newMenu.Count + l, "文件另存为", SaveAsMacro)
'在AutoCAD菜单条上显示新创建的菜单
newMenu.InsertlnMenuBar (ThisDrawing.Application.MenuBar.Count + l)
End Sub

全部

潘***

回答