---

Hallo liebe Leute

Ich habe folgendes Problem seit kurzem:!!
Ich hebe mir ein eigenes Zusatz Menü gebastelt mit einer .mnu, .mns, und einer dazugehörigen .mnl! Das hat auch vor kurzem alles ganz gut funktioniert bis ich vor 4 Tagen die zusätzlichen Supportpfade umstellen habe müssen. Seitdem funktionieren meine zusätzlichen Befehle die ich in die mnl geschrieben habe nicht mehr. Komischerweise funktionieren aber die reingeladenen Lisp Programme schon. Hier ein Auszug aus meiner mnl. Datei:

(menucmd "P14=+AXIS_Zusatz.pop2")
; das ladet mein Menü in das Pulldownmenü hinauf s.h Zettel

(defun c:zg () (command "_zoom" "_e"))
(defun c:ca () (startapp "CALC"))
(autoload "stand" '("stand"))
(autoload "do" '("do"))
(autoload "lspv" '("lspv"))
(autoload "PKT-KOOTEXTDANEBEN" '("pktkoo"))
(autoload "Textrahmen" '("TXR"))
(autoload "Doppelt" '("DOPPELT"))
(autoload "smash" '("SMASH"))
(autoload "Z20" '("Z20"))
(autoload "attsort" '("attsort"))
(autoload "myimport! '(myimport"))

(defun c:rb ()
(menucmd "I=AXIS_Zusatz.AXIS_TM")
(menucmd "I=*")
)

(defun c:coro ( / ss)
(if (setq ss (ssget))
(progn
(command "_copy" ss "" "_non" '(0.0 0.0 0.0) "")
(command "_move" ss "" pause pause)
(command "_rotate" ss "" "_non" "@" pause)
)
)
(prin1)
)

(defun c:ssx1 ( / ss)
(if (and (setq ss (ssx))
(/= "" ss)
(= (type ss) 'PICKSET)
)
(sssetfirst ss ss)
)
(prin1)
)

usw....

Was nicht funktioniert sind die Befehle rb, coro, und so. Er schreibt immer: Command: rb
Unknown command "RB".  Press F1 for help.

RB sollte einen eigen Bibliothek (Ich nenne es mal so =***IMAGE) aufrufen. Ich hab diese Bibliothek auch im Pulldown menü und da funktioniert es. Das gleiche gilt auch für coro = Kopieren und drehen.

An was kann das liegen??
Hat jemand eine Idee?

Ach ja, noch etwas, beim Laden meines Zusatzmenü schreibt er mir immer

Enter name of menu file to load: AXIS_Zusatz.mnu

ERROR ->  Menu Syntax Error Line: 111.
ERROR ->  Menu Syntax Error Line: 116.
ERROR ->  Menu Syntax Error Line: 118.
Menu loaded successfully. MENUGROUP: AXIS_Zusatz

Ws hat das zu bedeuten bzw. was muß ich korregieren?

Hoffe jemand kann mir helfen

Danke

LG Petra

------------------
LG Petra

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

---

Hi Petra,

AutoCAD lädt zuerst die Menüdatei, dann die zugehörige MNL.
Wenn es beim Laden der Menüdatei hakelt, kann es durchaus passieren, dass die MNL überhaupt nicht geladen wird.

Check also am besten mal die Zeilen in Deiner Menüdatei, an denen Acad rumnörgelt. Das ist vielleicht schon des Rätsels Lösung.

Gruß
CADchup

------------------
www.cadditions.de

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

---

Hallo CADchup

Danke für deine Antwort, da er die ganzen LSP-Files laded, gehe ich davon aus das es die mnl Datei schon ladet!!!!! Sonst könnte ich ja die LSP-Datein nicht starten!!

Wenn ich wüste was
ERROR ->  Menu Syntax Error Line: 111.
bedeutet wäre ich in dieser Sache schon einen kleinen Schritt näher??

LG Petra

------------------
LG Petra

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

---

Hi Petra,
na ja, "ERROR ->  Menu Syntax Error Line: 111" ist eigentlich ja recht eindeutig...
Deine Menüdatei hat einen Fehler in der Zeile 111.
Ich glaube Dein Kram funzt nicht, weil Dein Menü fehlerhaft ist. Mach doch mal 'n Upload Deiner Menüdatei (*.mnu oder *.mns), dann kann man mal gucken wo's hakelt.

------------------
Ciao,
Marc

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

---

Hallo Marc

Ok das Problem mit dem
ERROR ->  Menu Syntax Error Line: 111.
hab ich behoben, ladet er mir jetzt einwandfrei. Hatte bei der Gruppe ***HELPSTRINGS Leerzeichen bei den ID_Namen! Wusste ich nicht dass mandas so nicht schreiben darf ID_HATCH SOLID!!!!

Aber das Problem mit mnl hab ich immer noch?? Ich kann die geladenen Lisp Befehle aufrufen ab nicht die Befehle-Programm die ich mir so in die LSP reingeschrieben habe!!

LG Petra

------------------
LG Petra

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

---

hast du das 1 zu 1 da so reinkopiert ?

dann ist da einen zeile falsch

(autoload "myimport! '(myimport"))

oder villeicht doch so
(autoload "myimport" '("myimport"))

alles bis zu dieser zeile sollte funktionieren, ab dieser zeile nichts mehr

------------------

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

---

Hi,
lade doch mal die mnl per Hand ins Acad.
(setq xx (findfile "my.mnl"))
(load xx)

Was passiert?

Edit: Yep. Ich denke der fuchsi hat den Fehler gefunden!!!

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 21. Jun. 2004 editiert.]

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

---

yepp
; Fehler: Zu wenig Argumente

genau bei dieser zeile, darum wird da laden der mnl abgebrochen

------------------

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

---

Hallo fuchsi
Hallo Marc

Ja ihr habt recht, an dm hat es gelegen, aber er scheibt mit trotzdem noch beim Laden 3x mal dieses hier hin!!

Unknown command name.
Unknown command name.
Seas! menueerweiterungen geladen.

Ich poste mal die mnl Datei anscheinend hab ich was übersehen!!
Danke Petra

(menucmd "P14=+AXIS_Zusatz.pop2")
; das ladet mein Menü in das Pulldownmenü hinauf s.h Zettel

(defun c:zg () (command "_zoom" "_e"))
(defun c:ca () (startapp "CALC"))
(autoload "scal" '("xscal" "yscal"))
(autoload "stand" '("stand"))
(autoload "do" '("do"))
(autoload "lspv" '("lspv"))
(autoload "PKT-KOOTEXTDANEBEN" '("pktkoo"))
(autoload "Textrahmen" '("TXR"))
(autoload "Sboxkl" '("Sbox"))
(autoload "Doppelt" '("DOPPELT"))
(autoload "Punkteliste" '("pkt"))
(autoload "smash" '("SMASH"))
(autoload "Z20" '("Z20"))
(autoload "Zbasis" '("ZBASIS"))
(autoload "Steel" '("STEEL"))
(autoload "attsort" '("attsort"))
(autoload "myimport" '("myimport"))
(defun c:rb ()
(menucmd "I=AXIS_Zusatz.AXIS_TM")
(menucmd "I=*")
)
;
(defun c:coro ( / ss)
(if (setq ss (ssget))
(progn
(command "_copy" ss "" "_non" '(0.0 0.0 0.0) "")
(command "_move" ss "" pause pause)
(command "_rotate" ss "" "_non" "@" pause)
)
)
(prin1)
)
;
(defun c:ssx1 ( / ss)
(if (and (setq ss (ssx))
(/= "" ss)
(= (type ss) 'PICKSET)
)
(sssetfirst ss ss)
)
(prin1)
)
(defun c:TEI ()
(cond
((= "DEU" (getvar "LOCALE")) (setvar "MTEXTED" "Intern"))
(t (setvar "MTEXTED" "Internal"))
)
(command "_ddedit")
(prin1)
)
(defun c:TEL ()
(setvar "MTEXTED" ":Lisped")
(command "_ddedit")
(prin1)
)
(defun c:TELN ()
(setvar "MTEXTED" ":Lisped#Notepad")
(command "_ddedit")
(prin1)
)
(defun c:coro ( / ss)
(if (setq ss (ssget))
(progn
(command "_copy" ss "" "_non" '(0.0 0.0 0.0) "")
(command "_move" ss "" pause pause)
(command "_rotate" ss "" "_non" "@" pause)
)
)
(prin1)
)
;------------------------------------------------------------------------------------;
; mit diesen 3 Zeilen sage ich dem Befehl (wenn ich in eintippe);
; das er das untenliegend Programm aufrufen soll. Gilt für Deutsch und Englisch;
;deitsch
;
(defun c:MANSFEN ()
(mymview)
(prin1)
)
(defun c:-AFENSTER ()
(mymview)
(prin1)
)
;ainglish:
(defun c:MVIEW ()
(mymview)
(prin1)
)
(defun c:-VPORTS ()
(mymview)
(prin1)
)
(defun mymview ( / lay)
(setq lay (getvar "CLAYER"))
(command "_-layer" "_m" "P_FENSTA" "")
(command "_.mview" pause pause)
(setvar "CLAYER" lay)
(prin1)
)
; hier beschreibe ich was mymview (oder auch einen anderen namen) zu machen hat
; sage Programm das er den aktuellen Layer speichern soll, dann
; einen neuen Layer machen soll der so und so heißt
; dann sag ich ihm er soll ein Mview machen (durch ziehen wie üblich!!)
; und wieder auf den letzten Layer zurückspringen soll.
; man könnte auch noc einfügen das er das Mview sperren soll dann ist aber keine Maßstabeingabe
; mehr möglich. Kann man aber auch lösen. Wenn man es ordentlich programm. dann sollte mann eine
; Sicherheit bei Abbruch des Befehles einfügen. (if......)
; mit .mview rufe ich den Original AutoCad Befehl auf. s.h. trotzden in der Hilfe nach!!!!!
;-------------------
; raus mit den standardbefehlen!
(foreach n '("MANSFEN" "-AFENSTER" "MVIEW" "-VPORTS")
(command "_.UNDEFINE" n)
)
;
(defun c:mnua ( / mnu)
(setq mnu "AXIS_Zusatz")
(setvar "CMDDIA" 0)
(setvar "FILEDIA" 0)
(command "_menuunload" mnu)
(command "_menuload" (strcat mnu ".mnu"))
(setvar "CMDDIA" 1)
(setvar "FILEDIA" 1)
(menucmd (strcat "P14=+" mnu ".pop2"))
)
;
(princ "\nSeas! menueerweiterungen geladen. ")
(prin1)

------------------
LG Petra

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

---

_.UNDEFINE
Befehlsname eingeben: MVIEW
Unbekannter Befehlsname.
_.UNDEFINE
Befehlsname eingeben: -VPORTS
Unbekannter Befehlsname.

MVIEW und -VPORTS sind keine Autocadbefehle die du mit undefine sperren kannst
maximal _MVIEW und _VPOTS

------------------

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

---

nochwas
(foreach n '("MANSFEN" "-AFENSTER" "MVIEW" "-VPORTS")
(command "_.UNDEFINE" n)
)

wenn du mit _undefine den befehl _mview sperrst, ist auch gleichzeitig der deutsche befehl mansfen genauso gesperrt.

die befehle die du mit - aufrufen kannst (ohne dialog) musst du aber separat sperren (sind intern komplett eigene befehle)
(foreach n '("_MVIEW" "_-VPORTS" "_VPORTS")
(command "_.UNDEFINE" n)
)
reicht aus um afenster, -afenster und mansfen in ALLEN sprachen zu sperren
_

------------------

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