Message 1 of 6
user macro as ToolbarItem

Not applicable
10-30-2003
11:19 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Public Sub add_tlbButton()
Dim tbb As AutoCAD.AcadToolbarItem
Set tbb = Application.MenuGroups("ACAD").Toolbars("Standard
Toolbar").AddToolbarButton(0, "bimbo", "bimbo!!!", Chr(3) & Chr(3) & Chr(95)
& "open" & Chr(32)) 'this version works
Set tbb = Nothing
End Sub
Public Sub remove_tlbButton()
Application.MenuGroups("ACAD").Toolbars("Standard
Toolbar").Item("bimbo").Delete
End Sub
so, this version of add_tlbButton works but it only works for intrinsic
functions like _open, when i try to place my_function_name as the macro name
it errs out with 'unknown command...'
?
Dim tbb As AutoCAD.AcadToolbarItem
Set tbb = Application.MenuGroups("ACAD").Toolbars("Standard
Toolbar").AddToolbarButton(0, "bimbo", "bimbo!!!", Chr(3) & Chr(3) & Chr(95)
& "open" & Chr(32)) 'this version works
Set tbb = Nothing
End Sub
Public Sub remove_tlbButton()
Application.MenuGroups("ACAD").Toolbars("Standard
Toolbar").Item("bimbo").Delete
End Sub
so, this version of add_tlbButton works but it only works for intrinsic
functions like _open, when i try to place my_function_name as the macro name
it errs out with 'unknown command...'
?