Jump to content
DaveC

Load CUI and All Pull Down Menus with lisp

Recommended Posts

DaveC

I need to load the "ACAD Cui" with lisp but only the "File, Window & Help" pull down menus are visible.

I'm following the sample in this link..   http://www.cadtutor.net/forum/showthread.php?26379-about-load-CUI-file

and I listing every single Pull Down Menu, but is not see the pull downs.

 

(setq AcadPath "C:\\Users\\<<username>>\\AppData\\Roaming\\Autodesk\\MEP 2018\\enu\\Support\\")

(setq cui_database
        (list "ACAD"                 ;<<< MENUGROUP
              (strcat AcadPath "acad.CUIX")    ;<<< PATH & CUI FILENAME
              "&File"                ;<<< MENUNAME
              "&Edit"                ;<<< MENUNAME
              "&View"                ;<<< MENUNAME
              "&Insert"                ;<<< MENUNAME
              "&Format"                ;<<< MENUNAME
              "&Tools"                ;<<< MENUNAME
              "&Draw"                ;<<< MENUNAME
              "&Dimension"            ;<<< MENUNAME
              "&Modify"                ;<<< MENUNAME
              "&Parametric"            ;<<< MENUNAME
              "&Window"                ;<<< MENUNAME
              "&Help"                ;<<< MENUNAME
              ;"&Power"                    ;<<< MENUNAME     
        ) ;_ end_list
         flag nil
    ) ;_ end_setq

 

I need to load ALL the pull down menus, please help.

 

thank in advance.

 

DC

 

 

Share this post


Link to post
Share on other sites
ronjonp

I thought by default all pulldown menus load if MENUBAR = 1  (setvar 'menubar 1)? Maybe your CUI is borked.

Share this post


Link to post
Share on other sites
DaveC

Thank you RONJONP,

the CUI is the original default from Autocad, if I loaded manually by using the command CUILOAD it load all the pull down menus,

the problem is if I use LISP. 

 

and Yes my MENUBAR = 1

 

 

Share this post


Link to post
Share on other sites
DaveC

- I GOT IT...

 

I used a different method/lisp,


(defun ACADCUILOAD  ( / old_cmdecho old_ribbonstate)
   (setq old_cmdecho(getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (setvar "MENUBAR" 1)

   (if (not (menugroup "ACAD"))
      (command "cuiload" "C:\\Users\\<<USERNAME>>\\AppData\\Roaming\\Autodesk\\MEP 2018\\enu\\support\\ACAD.cuix")
   ); end IF
    (menucmd "p1=+ACAD.POP1.FILE")
    (menucmd "p2=+ACAD.POP2.EDIT")
    (menucmd "p3=+ACAD.POP3.VIEW")
    (menucmd "p4=+ACAD.POP4.INSERT")
    (menucmd "p5=+ACAD.POP5.FORMAT")
    (menucmd "p6=+ACAD.POP6.TOOLS")
    (menucmd "p7=+ACAD.POP7.DRAW")
    (menucmd "p8=+ACAD.POP6.DIMENSION")
    (menucmd "p9=+ACAD.POP6.MODIFY")
    (menucmd "p10=+ACAD.POP6.PARAMETRIC")
    (menucmd "p11=+ACAD.POP6.WINDOW")
    (menucmd "p12=+ACAD.POP6.HELP")

    (setvar "cmdecho" old_cmdecho)
     (princ)
)

 

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...