Topic: add to right click menu

[HelpLispinSeattle]

Hello,

It there a way to add/insert an item/command in the default right click menu
without editing the cui? I dont want to create my own (I've seen code
here that allows me to do that). I want to use the default one.

It will be different everytime. Lets say I want to rotate my crosshair 45 degrees.
In my code to rotate the variable "snapang" to 45 degress I want code to also be
able to put/add/insert a command in the right click menu to rotate it back to 0.

Any ideas?

[Patrick_35]

Hi

With [ and ]

An example

Code: [Select]

(getkword "Test [Opt1/Opt2/Opt3]")
@+

[HelpLispinSeattle]

Patrick,

I dont understand. How can you hook this code with the default
right click menu?

[Patrick_35]

You have options in right click menu

With my example you have Opt1,Opt2 and Opt3

@+

[HelpLispinSeattle]

Patrick,

I need to add them to the "Default menu" not the "Command menu".
Thank you anyway. I guess it  just cant be done.

[cjw]

May be this can help you.

http://www.theswamp.org/index.php?topic=25896.0

http://www.theswamp.org/index.php?topic=9306.0

[HelpLispinSeattle]

cjw,

Thank you.

[HelpLispinSeattle]

Hello again,

I was able to find a lisp program that can do what I was looking for. It adds
an item on top of Acad's menu defaut right click.


Problem:
Whenever I select "RotCrHr45" again this error message comes up. I dont know
how to fix it.

error: Automation Error. Menu item with label Rotate CrossHairs 45 degrees
exists in the popup menu

Can somebody please refine the code to
1. Only add the desire item/s if its not there yet.
2. A sub routine to be able to
   a). Delete the the added item/s.
   b). Reset the default right click menu to original form.

Any help or ideas would be appreciated...


(defun c:RotCrHr45 ()
(if (equal (getvar "snapang") (* 0.017454 45) 0.01)
          (setvar "snapang" 0.0)
          (setvar "snapang" (* 0.017454 45))
)
(addDefaultMenuItem "Rotate CrossHairs 45 degrees" "RotCrHr45 ")
(princ)
)


(defun AddDefaultMenuItem (cmd_desc cmd_todo / acadApp acadMenuGroups Menu)
(setq acadApp (vlax-get-acad-object))
(setq acadMenuGroups (vla-get-MenuGroups acadApp))
(vlax-for MenuGroup acadMenuGroups
(setq Name (vla-get-name MenuGroup))
(if (= Name "ACAD") (setq Menu MenuGroup))
)
(setq PopUps (vla-get-Menus Menu))
(setq CmdDefault nil)
(vlax-for PopUp PopUps
(setq Name (vla-get-name PopUp))
(if (= Name "Default Menu") (setq CmdDefault PopUp))
)
(vla-AddMenuItem CmdDefault 0 cmd_desc cmd_todo)
(princ)
)