---

WP-MENU.zip

Hallo Forum,

beim Dazuladen eigener Menüdatei über ein zus. Programm (Lisp)
taucht nachfolgende Fehler meldung auf:

"Laden des Menüs mißlungen.
Datei nicht gefunden: _menuload.(mnu/mns/mnc)".
Das Menü wird allerdings korrekt hinter dem Acad Menü geladen.

Habe es nachvollzogen, das es nicht am Ladeprogramm liegt.
Anbei Teil daraus:

(if (findfile "acetmain.mnc")
(progn
    (princ "\nLade Fremdprogramme:  Express")
    (command "_menuload" "ACETMAIN")
    (menucmd "P13=+express.pop1")
;; wurde von p12 auf p13 geändert, Herzog 24.02.03
)
)
;;
(if (findfile "wp-menu.mnc")
(progn
    (princ "\nLade Fremdprogramme:  EB-Mü Menü")
    (command "_menuload" "WP-MENU")
    (menucmd "P15=+WP-MENU.pop1")
)
)

Wenn ich den Ladevorgang Zeilenweise in der Befehlszeile mache kommt keine Fehlermeldung.

Was stimmt in meiner Menüdetei nicht. Habe bereits einige Tage "verloren" und dabei keinen Fehler gefunden.

Bitte hilft mir.

Gruß Waldemar

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

---

grundsätzlich wird der Fehler sicherlich darin liegen, das das menü schon geladen ist.
dann kommt nämlich eine Zusätzliche Abfrage.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

und ob das MenÜ geladen ist, kannst du damit überprüfen :

(vl-load-com)

(defun MENU-IS-LOADED ( MENU /  MENULISTE )
  (if(=(type MENU)'STR)
    (if(member (strcase MENU)
        (mapcar (function (lambda (X) (car X)))
                  (vlax-for FOR-ITEM (vla-get-menugroups (vlax-get-acad-object))
                    (setq MENULISTE (cons (cons(strcase (vla-get-name FOR-ITEM))           
                                                FOR-ITEM
                                          )
                                          MENULISTE
                                      )
                    )
                  )
        )
      )
      (assoc (strcase MENU) MENULISTE)
    )
  )
) 

und dann in deinem Fall
(if(MENU-IS-LOADED "Express")....

------------------
- Thomas -

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

---

Hi CADwiesel,

1.
die Meldung, daß das Menü bereits geladen ist wird aus der Lispdatei mit CMDECHO ausgeblendet.

2.
Wenn ich den Bereich mit WP-MENU im Lisp deaktiviere und nur die ACETMAIN lade taucht die Fehlerbox nicht auf.

Grüsse
Waldemar

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

---

Hallo Thomas,

das Menü wird geladen.
Mein Problem ist die Dialogbox, die nur auftaucht wenn ich WP-MENU lade. Beim ACETMAIN läuft OK!

Ich glaube den Fehler hab ich in meiner MNU eingebaut. Den find ich leider nicht.

Waldemar

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

---

du kannst diese Meldung garnicht mit cmdecho unterdrücken, da sie eine Zusatzliche Eingabe erfordert.

wenn du das Menü von hand nachlädst kommt da diese Dialogbox auch?
wenn nein, liegt der Fehler da wo ich sagte. Wenn ja, dürfte es doch einfach sein, zu lokalisiern, wo die Box aufgerufen wird.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hi CADwiesel,

wenn ich (menucmd "P15=+WP-MENU.pop1") in der Befehlszeile eingebe taucht die Box mit der Fehlermeldung nicht auf. Sie erscheint auch nicht wenn ich nur ein Menü dazulade. Sobald ich ACETMAIN und WP-MENU wie oben hintereinander lade erscheint die Box.

Ich muss ich glaube ab (if (findfile... die Ladeprozedur umschreiben.

Gruß
Waldemar

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

---

Moin,

hab da mal 2 Menüs hintereinander durch die acaddoc laden lassen.

(command "_menuload" "M:\\Ing.Bau-Bibliothek\\BIB")
(menucmd "P10=+BIB.pop1")

(command "_menuload" "M:\\Ing.Bau-Bibliothek\\Bibliothek")
(menucmd "P11=+Bibliothek.pop1")

und siehe da, es kam auch die Meldung.
Also bei einem funzt es und beim 2. meckert acad.

Ciao

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

---

das gleiche wie bei mir.

Waldemar

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

---

bau doch einfach mal die überwachung der setvar cmdactive mit ein.
wenn die nach durchlaufen deiner commandanweisung auf 1 steht, wird eine Eingabe erwartet. Es müsste sich dann um (command "_Y") handeln

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo Cadwiesel:
meinst du so:
(setvar "cmdactive" 0)
(command "_menuload" "M:\\Ing.Bau-Bibliothek\\BIB")
(menucmd "P10=+BIB.pop1")

(command "_menuload" "M:\\Ing.Bau-Bibliothek\\Bibliothek")
(menucmd "P11=+Bibliothek.pop1")
(setvar "cmdactive" 1)

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

---

nein!
die ist schreibgeschützt!
(if (=(getvar "cmdactive")1)(command "_Y"))

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Ich kann doch aber nicht ein (if... in den zweiten (if... einbauen

(if (findfile "wp-menu.mnc")
(progn
    (princ "\nLade Fremdprogramme:  EB-Mü Menü")
    (command "_menuload" "WP-MENU")
    (menucmd "P15=+WP-MENU.pop1")
)
)

Gruß
Waldemar

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

---

So meint Wiesel das:

(if (findfile "wp-menu.mnc")
  (progn
    (princ "\nLade Fremdprogramme:  EB-Mü Menü")
    (command "_menuload" "WP-MENU")
    (if (=(getvar "cmdactive")1)(command "_Y"))
    (menucmd "P15=+WP-MENU.pop1")   
  )
)

Wenns mehrere "_y" sind gehts auch mit
(while (=(getvar "cmdactive")1)(command "_Y"))

------------------
  - Thomas -

[Diese Nachricht wurde von CADmium am 09. Mrz. 2004 editiert.]

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

---

Zitat:

---

Original erstellt von AsSchu:
@cadwiesel und cadmium
klappt nicht; ist wie gehabt.

Selbst wenn ich die eine Menü über die acaddoc, und die andere über die acad .mnl laden lasse wird gemeckert.
Kann man nur eine einzige Menüdatei so zuladen?

---

Ach so,
wie gesagt die Menüdateien werden ja geladen, aber irgendetwas ist dann aktiv (Befehl) man kann jedenfalls nur mit esc beenden

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

---

So wie es CADmium meint klappt es nicht. Die Box erscheint nach wie vor.

AsSchu, die Menüdateien werden jedes mal korrekt geladen. Das Problem ist die erscheinende Fehlerbox, die mit OK bestätigt werden muß. Schönheitsfehler.

Grüße
Waldemar

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

---

Zitat:

---

Original erstellt von Waldemar:
So wie es CADmium meint klappt es nicht. Die Box erscheint nach wie vor.

AsSchu, die Menüdateien werden jedes mal korrekt geladen. Das Problem ist die erscheinende Fehlerbox, die mit OK bestätigt werden muß. Schönheitsfehler.

Grüße
Waldemar

---

Ja, ja genauso wie bei mir

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