Visual Lisp für AutoCad Menüerweiterungen....
Ich hab da mal nen Problem und ob ihr mir kurzfristig helfen könntet.
Problemdarstellung:
Ich möchte einen Platzhalter für Verzeichnis definieren um seperate lsp´s laden zu können. Diese Definitionen sollen in einer menue2004.var Variablendatei gespeichert werden, die durch eine Loadanweisung in der menue2004.mnl geladen wird.
Das Problem ist, wie schreibe ich den Code für die Variablendatei?
Der CPO_load funktioniert schon, nur das weitere laden der Inhalte der var Datei nicht.
Nachfolgend die Loadanweisung in der menü2004.mnl:
;;;MENUE2004.var laden
(setq aktion "MENUE2004.var laden")
(if debug
(princ (strcat "\nCPO..." aktion))
)
(if (NOT (findfile (strcat mnuverz "Menue2000.var")))
(alert
"CPO Datei \"...\\Menue2004.var\" konnte nicht geladen werden.
\n Evtl. ist der Pfad zum Menueerweiterungs-Ordner nicht korrekt"
)
(CPO_load (strcat "C:/Dokumente und Einstellungen/Administrator/Anwendungsdaten/Autodesk/Autodesk Architectural Desktop 2004/R16.0/deu/Support/menue2004.var"))
)
Nachfolgend meine Angefangene Codeanweisung, die nicht in den Speicher geladen wird:
;;;=======================================
;;; Beginn Verzeichnisstruktur
;;;=======================================
(setq LSPvers (strcat
"C:/Dokumente und Einstellungen/Administrator/Anwendungsdaten/Autodesk/Autodesk Architectural Desktop 2004/R16.0/deu/Support/acad-menue-adt-2004/lsp/"
)
)
(setq LSPBIBLIvers (strcat
"C:/Dokumente und Einstellungen/Administrator/Anwendungsdaten/Autodesk/Autodesk Architectural Desktop 2004/R16.0/deu/Support/acad-menue-adt-2004/lsp/lsp-bibliotheken/"
)
)
(setq DCLvers (strcat
"C:/Dokumente und Einstellungen/Administrator/Anwendungsdaten/Autodesk/Autodesk Architectural Desktop 2004/R16.0/deu/Support/acad-menue-adt-2004/dcl/"
)
)
(setq DCLBIBLIvers (strcat
"C:/Dokumente und Einstellungen/Administrator/Anwendungsdaten/Autodesk/Autodesk Architectural Desktop 2004/R16.0/deu/Support/acad-menue-adt-2004/dcl/dcl-bibliotheken/"
)
)
(setq ARXvers (strcat
"C:/Dokumente und Einstellungen/Administrator/Anwendungsdaten/Autodesk/Autodesk Architectural Desktop 2004/R16.0/deu/Support/acad-menue-adt-2004/arx/"
)
)
(setq ARXBIBLIvers (strcat
"C:/Dokumente und Einstellungen/Administrator/Anwendungsdaten/Autodesk/Autodesk Architectural Desktop 2004/R16.0/deu/Support/acad-menue-adt-2004/arx/arx-bibliotheken/"
)
)
;;;============================================
;;; Ende Verzeichnisstruktur
;;;============================================
Wie ihr wahrscheinlich erkennt sollen die Platzhalter z.B. LSPvers heißen.
Wäre nett wenn ihr mir helfen könntet.
Grüße
Omegacentauri
------------------
-=es gibt nichts, was nicht geht=-