(menugroup nazwa)
Sprawdza czy grupa menu jest załadowana.
Funckja sprawdza czy grupa menu jest załadowana, jeśli tak, zwraca nazwę, jeśli nie, zwraca nil
Grupę menu można zdefiniować w pliku mnu.
Przykład:
Plik App.lsp:
(defun Test:MenuLoad ( / )
(if (null(menugroup (strcat "Aplikacja_wersja ) ) )
(progn
(command "_menuload" "C\\Aplikacja\\Menu\\App.mnu") ; lub "App.cuix"
(command "_-TOOLBAR" "Aplikacja" "_S") ; grupa może być załadowana, ale przy interfejsie wstążkowym paski nie będą widoczne, więc wymuszamy ich wyświetlenie.
)
)
nil
)
Plik: App.mnu
***MENUGROUP=Aplikacja
_wersja
***TOOLBARS
**Aplikacja
TBAR_App [_Toolbar("Aplikacja
", _Top, _Show, 2, 44, 2 )]
P_btn1 [_Button("Pomiary ", "Pomiary.ico", "Pomiary.ico")]^C^CFunkcja
[--]
***HELPSTRINGS
P_btn1 [Tekst pomocy, powinien wyświetlić się w pasku na dole okna]