|
难道此论坛没人能解决此问题吗 ~~~~~~~!!!!!!!!!!!!!!!!!!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开发的插价来代替,如果可以代替的话,就可以实现弹出对话框来输入参数。
小弟 先谢了,各位大虾们帮帮小弟吧
|
|