|
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) '调试后此行出错
问题已解决 谢谢
问题已解决 谢谢
问题已解决 谢谢
问题已解决 谢谢
问题已解决 谢谢
|
|