;;; ***********************************************************************
;;; * ADC-SPECIAL dient dem Veröffentlichen von Unternehmensstandards und *
;;; * deren einfacher Verwendung über die Funktionen des DesignCenters.   *
;;; * D.h.: Alle wichtigen Definitionen wie Layouts, Layer, Bem.stile usw.*
;;; * sind in EINER DWG definiert. Der Zugriff auf die jeweiligen         *
;;; * Ressourcen wird mittels "Sprungbefehlen" des DesignCenters          *
;;; * realisiert. Das DesignCenter geht mit einem definierten Ziel auf    *
;;; * und von dort kann der Sachbearbeiter die gewünschten "Dinge" mittels*
;;; * Drag & Drop in seine aktuelle Zeichnung ziehen.                     *
;;; *                                                                     *
;;; * Written by Marc Scherer in 2002                                     *
;;; *                                                                     *
;;; * Anregungen/Kritik an "marc.scherer@zvo.com"                         *
;;; *                                                                     *
;;; * Dieses Programm folgt der "Better than Nothing" Philosophie des     *
;;; * Leonid Nemirovsky: (http://home.pacifier.com/~nemi/)                *
;;; * Zitat:                                                              *
;;; * The AutoLISP programs you are about to check - are NOT shareware    *
;;; * or freeware. They are BTN - Better Than Nothing Software.           *
;;; * You can freely use them in any way you choose.                      *
;;; * Just remember one thing.......                                      *
;;; * If they do not perform the way you expect -                         *
;;; *                                it is still BETTER THAN NOTHING !!!  *
;;; * I wrote those programs for my every day work.                       *
;;; * Some of them are more useful, some - are SO SO.                     *
;;; * ... Good Luck !                                                     *
;;; ***********************************************************************

(defun ADC (key / CHK FND LOADED PGM TARGET BEST-DIR SPLITTED)
  (setq splitted "C:\\Autocad\\Enerko\\"); Pfad für Blockverzeichnis
  (if (= (getvar "adcstate") 0)
    (command "_adcenter")
  ) ;_ end of if
  (cond
    ((= KEY 1)
     (setq TARGET (strcat splitted "Fahrzeuge.dwg\\Blöcke"));Zeichnungsdatei mit Blöcken
    )
    ((= KEY 2)
     (setq TARGET (strcat splitted "Logos.dwg\\Blöcke\\"));Zeichnungsdatei mit Blöcken
    )
    ((= KEY 3)
     (setq TARGET (strcat splitted "Heizzentrale.dwg\\Blöcke"));Zeichnungsdatei mit Blöcken
    )
    ((= KEY 4)
     (setq TARGET (strcat splitted "Personen.dwg\\Blöcke"));Zeichnungsdatei mit Blöcken
    )
    ((= KEY 5)
     (setq TARGET (strcat splitted "Rahmen.dwg\\Blöcke"));Zeichnungsdatei mit Blöcken
    )
    ((= KEY 6)
     (setq TARGET (strcat splitted "Sonstiges.dwg\\Blöcke"));Zeichnungsdatei mit Blöcken
    )
;;    ((= KEY 4) (setq TARGET splitted))
;;    ((= KEY 5) (setq TARGET (GET-PATH key)))
;;    ((= KEY 6) (setq TARGET (GET-PATH key)))
    (t (setq TARGET "c:\\"))
  ) ;_ end of cond
  (command "_adcnavigate" TARGET)
  (princ "\nOk, erledigt. Weiter im DesignCenter.")
  (setq KEY NIL)
  (princ)
) ;_ end of defun