---

Hallo Leute,

was ist falsch, bekomme in 2006 keine Untermenüs!

(if (vlax-property-available-p acadObject 'MenuGroups)
    (progn
      (setq menu (vla-item (vla-get-menugroups acadObject) mnuname))
     
      (setq menu (vla-get-menus menu))
      (if menu
        (setq pop0 (vla-item menu 0))
      )
    )
) 
(princ (vla-get-name pop0))
;; "Object Snap Cursor Menu"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP