vb中创建CAD TOOLBAR出错，请高手指点
CAD原代码Private Sub AddToolbar()
' This example creates a new toolbar called TestToolbar and inserts a
' toolbar button into it. The toolbar is then displayed.
' To remove the toolbar after execution of this macro, use the Customize Menu
' option from the Tools menu.
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = acadDoc.Application.MenuGroups.Item(0)'调试后此行出错
' Create the new toolbar
Dim newToolBar As AcadToolbar
Set newToolBar = currMenuGroup.Toolbars.Add("TestToolbar")
' Add a button to the new toolbar
Dim newButton As AcadToolbarItem
Dim openMacro As String
' Assign the macro string the VB equivalent of "ESC ESC _open "
openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
Set newButton = newToolBar.AddToolbarButton("", "NewButton", "Open a file.", openMacro)
' Display the toolbar
newToolBar.Visible = True
End Sub
在VB中运行后 提示 ：
实时错误 ‘91’
对象变量或with块变量未设置
Set currMenuGroup = acadDoc.Application.MenuGroups.Item(0)'调试后此行出错
问题已解决谢谢
问题已解决谢谢
问题已解决谢谢
问题已解决谢谢
问题已解决谢谢
把acadDoc改为 thisdrawing 试试 晕~~~ 是在VB6.0里面啊 不是VBA
mccad 在吗？能指点一下吗？
页:
[1]