Topic: Menu Loaded?

[A_LOTA_NOTA]

Any way to test to see if a Popup Menu is already loaded before running the code on the link below?

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

[Kerry]

Do you know the source menuGroupName and menuPop Name ?

[Kerry]

I'll probably be asleep when you come back, so see if this gives you any ideas in the mean time ..

Code: [Select]

;;;------------------------------------------------------------------
;;;------------------------------------------------------------------
;;;
(DEFUN KDUB:ASSERTITEM (collection item / returnvalue)
    (IF (NOT (VL-CATCH-ALL-ERROR-P
                 (SETQ returnvalue (VL-CATCH-ALL-APPLY 'VLA-ITEM
                                                       (LIST collection item)
                                   )
                 )
             )
        )
        returnvalue
    )
)         
;;;------------------------------------------------------------------
;;;------------------------------------------------------------------
;;; Return list of all collection member names
;;;
(DEFUN kdub:ListCollectionMemberNames (collection / itemname returnvalue)
   (SETQ returnvalue '())
   (VLAX-FOR each collection
      (SETQ itemname    (VLA-GET-NAME each)
            returnvalue (CONS itemname returnvalue)
      )
   )
   (REVERSE returnvalue)
)
;;;------------------------------------------------------------------
;;;------------------------------------------------------------------
;;;
;;;; IAcadApplication Object
(OR GV:IACADAPPLICATION
    (SETQ GV:IACADAPPLICATION (VLAX-GET-ACAD-OBJECT)))
;;;; IAcadDocument Object
(OR GV:IACADDOCUMENT
    (SETQ GV:IACADDOCUMENT (VLA-GET-ACTIVEDOCUMENT GV:IACADAPPLICATION)))
;;;; IAcadDocuments Collection
(OR GV:IACADDOCUMENTS
    (SETQ GV:IACADDOCUMENTS (VLA-GET-DOCUMENTS GV:IACADAPPLICATION)))
;;;; IAcadPreferences Collection
(OR GV:IACADPREFERENCES
    (SETQ GV:IACADPREFERENCES (VLA-GET-PREFERENCES GV:IACADAPPLICATION)))
;;;; IAcadMenuGroups Collection
(OR  GV:IACADMENUGROUPS
     (SETQ (VLA-GET-MENUGROUPS GV:IACADAPPLICATION)))
;;;; IAcadMenuBar Collection
(OR GV:IACADMENUBAR
    (SETQ GV:IACADMENUBAR (VLA-GET-MENUBAR GV:IACADAPPLICATION)))
;;;; IAcadModelspace Object
(OR GV:IACADMODELSPACE
    (SETQ GV:IACADMODELSPACE (VLA-GET-MODELSPACE GV:IACADDOCUMENT)))
;;;; IAcadUtility Object
(OR GV:IACADUTILITY
    (SETQ GV:IACADUTILITY (VLA-GET-UTILITY GV:IACADDOCUMENT)))
;;;; IAcadBlocks Collection
(OR GV:IACADBLOCKS
    (SETQ GV:IACADBLOCKS (VLA-GET-BLOCKS GV:IACADDOCUMENT)))
;;;; IAcadLayers Collection
(OR GV:IACADLAYERS
    (SETQ GV:IACADLAYERS (VLA-GET-LAYERS GV:IACADDOCUMENT)))
;;;;
;;;------------------------------------------------------------------
;;;------------------------------------------------------------------
;;;

Code: [Select]

(setq menuGroupList (kdub:ListCollectionMemberNames gv:IAcadMenuGroups))

(setq MenuGroupName "SDSTEELTOOLS_MAIN")
     
(setq IAcadMenuGroup (kdub:AssertItem GV:IACADMENUGROUPS MenuGroupName))

         
(VLAX-FOR menu (VLA-GET-MENUS IAcadMenuGroup)
    (princ"\n")
    (princ (VLA-GET-NAMENOMNEMONIC menu))
   
)

[Kerry]

and this is the bit you'll need for the pops ..

Code: [Select]

(setq IAcadPopupMenus (VLA-GET-MENUS IAcadMenuGroup))
(setq PopupMenusList (kdub:ListCollectionMemberNames IAcadPopupMenus))

      ;;=> ("&Object Snap Cursor Menu" "CTA17_Main" "CTA17_Buppy")

         

[A_LOTA_NOTA]

Do you know the source menuGroupName and menuPop Name ?

Yes, The ones I'm adding with that lisp are "NWM Drawings" & NWM Parts".

Thanks for your help!

[Kerry]

You're welcome.

[A_LOTA_NOTA]

You're welcome.

I must be doing something wrong.... The code you posted bombs....

[Kerry]

bombs where and on what ?
How are you using it in relation to your problem resolution ?

[Kerry]

A_LOTA_NOTA  ,

I've just had a look at Daniels code that you reference.
He has a test included for the existence of the menu item in the menugroup.

I really think you need to post the code you are trying to use otherwise we will be playing guessing games to resolve your problem.

[A_LOTA_NOTA]

Kerry,

 I thought his code must have a test in it, but I don't understand all the "vla" & "vlax" stuff.

I was messing with this code at work & don't have it at home, so I can't post what I had. I will see what I can come up with today & post it.

 I'm wanting to write a lisp that will be added to the pull down menu. So I wanted to do  test to see if the pull down menu existed or not. If not run Daniels code or if it had been loaded do nothing.

[A_LOTA_NOTA]

Kerry,


Thanks for your help! After read a little on www.afralisp.net about VLISP, I was able to use parts of your code to do the testing I wanted! Its not pretty, but it does the job.

Thanks again!!!