Load and position a partial menu via lisp

Discussion in 'AutoCAD' started by ccyc, Mar 22, 2005.

  1. ccyc

    ccyc Guest

    I've extensive searching and reading this group for the answers to my question and I believe I'm close.

    What I have is a lisp that will load a MNS file - that works.
    Next i need to position is on the menu bar and I believe I have the code that does that - only I can't get it to run in a lisp.

    Menuload.lsp:
    (command "._MENULOAD" "JST-Commands.mns")

    Code to turn on and position:
    menucmd "P8=+JST.POP14

    How do I incorporate the last bit of code into the menuload lisp to add the menu to the menubar at the specified postion 8.

    Thanks, Chris
     
    ccyc, Mar 22, 2005
    #1
  2. ccyc

    ECCAD Guest

    Here's a sample..

    ;;
    ;; Load the EC menu brancher..
    ;;
    (if (findfile (strcat ec_drv "/ec/menus/ec14wf.mnu"))
    (progn
    (if (= (menugroup "EC") nil)
    (progn
    (command "_MENULOAD" (strcat ec_drv "/ec/menus/ec14wf"))
    (menucmd "P15=+EC.POP1")
    ); end progn
    ); end if
    ); end progn
    ); end if
    (princ)

    Bob
     
    ECCAD, Mar 22, 2005
    #2
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.