难道此论坛没人能解决此问题吗～～～～～～～！！！！！！！！！！！！！！！！！

ilovehuizi · 发表于 2004-9-18 22:01:00

难道此论坛没人能解决此问题吗～～～～～～～！！！！！！！！！！！！！！！！！！1～～～～～～[br]我想在中加个栏或者菜单，要求点击工具栏某个按钮（或者菜单项）后能弹出一个对话框，用来输入一些参数。请各位高手们指点，用vb做可以实现改功能吗？本人看到的一个例子是这样写的：
Private Sub 添加菜单_Click()
Dim currmenugroup As AcadMenuGroup
Set currmenugroup = acadapp.MenuGroups.Item(0)

Dim newmenu As AcadPopupMenu
Set newmenu = currmenugroup.Menus.Add("testmenu")

Dim newmenuitem As AcadPopupMenuItem
Dim openmacro As String

openmacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)

Set newmenuitem = newmenu.AddMenuItem(newmenu.Count + 1, "open", openmacro)
newmenu.InsertInMenuBar (acadapp.MenuBar.Count + 1)

End Sub
但不知道，openmacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)这一行能否vb开发的插价来代替，如果可以代替的话，就可以实现弹出对话框来输入参数。
小弟先谢了，各位大虾们帮帮小弟吧