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

ilovehuizi

难道此论坛没人能解决此问题吗 ～～～～～～～！！！！！！！！！！！！！！！！！！1～～～～～～[br]我想在AutoCAD中加个工具栏或者菜单，要求点击工具栏某个按钮（或者菜单项）后能弹出一个对话框，用来输入一些参数。请各位高手们指点，用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开发的插价来代替，如果可以代替的话，就可以实现弹出对话框来输入参数。 小弟 先谢了，各位大虾们帮帮小弟吧

雪山飞狐_lzh

可以解释一下插件是什么意思么？ActiveX Dll？Activex Control？



如果你仅仅要求弹出对话框，要这东东干什么？


你问的问题几天前都有回复，自己先搜索一下吧


（乖乖，怎么想扣分编程加分了，晕了）

mccad

如果你的过程写在模块中，而且过程前带Public，则可以把运行宏写成：

1. openmacro = Chr(3) & Chr(3) & "vbastmt 你的过程名" & vbCr

复制代码