难道此论坛没人能解决此问题吗 ～～～～～～～！！！！！！！！！！！！！！！！！
难道此论坛没人能解决此问题吗 ～～～～～～～！！！！！！！！！！！！！！！！！！1～～～～～～我想在autocad中加个工具栏或者菜单，要求点击工具栏某个按钮（或者菜单项）后能弹出一个对话框，用来输入一些参数。请各位高手们指点，用vb做插件 可以实现改功能吗？ 本人看到的一个例子是这样写的：Private Sub 添加菜单_Click()<BR>Dim currmenugroup As AcadMenuGroup<BR> Set currmenugroup = acadapp.MenuGroups.Item(0)<BR> <BR> Dim newmenu As AcadPopupMenu<BR> Set newmenu = currmenugroup.Menus.Add("testmenu")<BR> <BR> <BR> <BR> Dim newmenuitem As AcadPopupMenuItem<BR> Dim openmacro As String<BR> <BR> openmacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)<BR> <BR> Set newmenuitem = newmenu.AddMenuItem(newmenu.Count + 1, "open", openmacro)<BR> newmenu.InsertInMenuBar (acadapp.MenuBar.Count + 1)<BR>
End Sub<BR>但不知道 ，openmacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)这一行能否vb开发的插价来代替，如果可以代替的话，就可以实现弹出对话框来输入参数。
小弟 先谢了，各位大虾们帮帮小弟吧<BR> 本帖最后由 作者 于 2004-9-19 13:35:05 编辑
可以解释一下插件是什么意思么？ActiveX Dll？Activex Control？
如果你仅仅要求弹出对话框，要这东东干什么？
你问的问题几天前都有回复，自己先搜索一下吧
（乖乖，怎么想扣分编程加分了，晕了） 如果你的过程写在模块中，而且过程前带Public，则可以把运行宏写成：
openmacro = Chr(3) & Chr(3) & "vbastmt 你的过程名" & vbCr
页:
[1]