short cut menu

Hello all,
Can anyone help me in customising the right click menu. I want to call a vba program, if I click on that command in right click menu.
Thanks in advance.

 

The rightclick menu is the POP0 item in your menu file. Below is the
rightclick menu for a AutoCad 2000i installation.
You can add any command to this menu if you like

***POP0
**SNAP
[&Object Snap Cursor Menu]
ID_Tracking [Temporary trac&k point]_tt
ID_From [&From]_from
ID_MnPointFi [->Poin&t Filters]
ID_PointFilx [.X].X
ID_PointFily [.Y].Y
ID_PointFilz [.Z].Z
[--]
ID_PointFixy [.XY].XY
ID_PointFixz [.XZ].XZ
ID_PointFiyz [<-.YZ].YZ
[--]
ID_OsnapEndp [&Endpoint]_endp
ID_OsnapMidp [&Midpoint]_mid
ID_OsnapInte [&Intersection]_int
ID_OsnapAppa [&Apparent Intersect]_appint
ID_OsnapExte [E&xtension]_ext
[--]
ID_OsnapCent [&Center]_cen
ID_OsnapQuad [&Quadrant]_qua
ID_OsnapTang [Tan&gent]_tan
[--]
ID_OsnapPerp [&Perpendicular]_per
ID_OsnapPara [Para&llel]_par
ID_OsnapNode [No&de]_nod
ID_OsnapInse [In&sert]_ins
ID_OsnapNear [Nea&rest]_nea
ID_OsnapNone [&None]_non
[--]
ID_Osnap [&Osnap Settings...]'_+dsettings 2

vba program, if I click on that command in right click menu.

 

hi, one way is have a statement like this

(DEFUN C:MED()(COMMAND "-VBARUN" "FIRSTMODULE.LISTING")(PRINC))

located in an acad.lsp file in your support path
and then something like this

[--]
ID_RunVba [&RunVba]^C^CMED
[--]

inserted in your acad.mns file.

this was the first thing that popped up with google for customizing right-clicking
http://www.ccadinc.com/tips/cmdedit.html

 

Yes but can you alter the rightclick on the fly and restore it on the
fly as you can in Excel to achieve a contextual rightclick? It seems
to me that it is not even possible to load a new rightclick menu
without having to replace the entire menu structure at the same time.