shortcut menus - autocad

[reinaldo.sampaio]

Pessoal, tenho várias pequenas funções em Lisp, que me ajudam a acelerar meu trabalho.

Por exemplo , para alterar dimensões, eliminando ou restauranto extension lines, trocando blocos de seta, etc...
Como são várias, começa a ficar complicado lembrar de todas.

Gostaria de reunir em grupos, chamando através de shortcut menus.

Tentei através do help mas não achei algo satisfatório.

Quero criar estes shortcut menus atravésde lisp ou VBA.

Alguém poderia me ajudar com sugestões, ou rotinas semelhantes para que eu possa adaptar?


Obrigado a todos.

[Rui Pestana]

Caro Reinaldo,

para criar menus por VB(A) veja o exemplo do Help:

Sub Example_MenuBar()
' This example uses MenuBar to obtain a reference to the AutoCAD File menu.
' It then creates a new menu item and inserts it at the bottom of the File menu.
'
' The menu item will be automatically removed when AutoCAD is restarted

Dim menu As AcadPopupMenu, newMenuItem As AcadPopupMenuItem
Dim openMacro As String

On Error GoTo ERRORTRAP

' Use MenuBar property to obtain reference to the AutoCAD File menu
Set menu = ThisDrawing.Application.MenuBar.Item("&File")

' Add a menu item to the new menu and
' assign an Open macro (VBA equivalent of: "ESC ESC _open ")
openMacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)

' Add a menu separator
menu.AddSeparator (menu.count + 1)

' Add new menu item to File menu
Set newMenuItem = menu.AddMenuItem(menu.count + 1, "NEW MENU ITEM", openMacro)

MsgBox "A new menu item has been added to the File menu!"

Exit Sub

ERRORTRAP:
MsgBox "The following error has occurred: " & Err.Description

End Sub

parece-me que vai de encontro às suas necessidades. Se precisar de mais ajuda diga.