dxfmakros/Lisp/SSG_LIB_Commands.lsp

;; ============================================================
;; SSG_LIB - Dummy-Befehlsdefinitionen fuer Menue SSG_LIB
;; Jeder Befehl gibt eine Meldung aus und kann spaeter
;; durch echte Funktionalitaet ersetzt werden.
;; ============================================================

;; --- ILS / Kreisel-Module ---
(defun c:ILS_Kreisel ()
  (princ "\n[DUMMY] ILS_Kreisel aufgerufen")
  (princ)
)

(defun c:ILS_Eckrad ()
  (princ "\n[DUMMY] ILS_Eckrad aufgerufen")
  (princ)
)

;; --- ILS / Zusatzmodul ---
(defun c:ILS_BTMT_Beladung ()
  (princ "\n[DUMMY] ILS_BTMT_Beladung aufgerufen")
  (princ)
)

(defun c:ILS_BTMT_Entladung ()
  (princ "\n[DUMMY] ILS_BTMT_Entladung aufgerufen")
  (princ)
)

;; --- ILS / Foerderer ---
(defun c:ILS_ETF_Etagenfoerderer ()
  (princ "\n[DUMMY] ILS_ETF_Etagenfoerderer aufgerufen")
  (princ)
)

(defun c:ILS_TEF_Strecke ()
  (princ "\n[DUMMY] ILS_TEF_Strecke aufgerufen")
  (princ)
)

;; FOERDERANLAGE ist bereits in VarioFoerderer.lsp definiert

;; Kurven angetrieben Aussen
(defun c:ILS_K90LA ()
  (princ "\n[DUMMY] 90 Kurve links angetrieben Aussen")
  (princ)
)

(defun c:ILS_K90RA ()
  (princ "\n[DUMMY] 90 Kurve rechts angetrieben Aussen")
  (princ)
)

(defun c:ILS_K60LA ()
  (princ "\n[DUMMY] 60 Kurve links angetrieben Aussen")
  (princ)
)

(defun c:ILS_K60RA ()
  (princ "\n[DUMMY] 60 Kurve rechts angetrieben Aussen")
  (princ)
)

(defun c:ILS_K30LA ()
  (princ "\n[DUMMY] 30 Kurve links angetrieben Aussen")
  (princ)
)

(defun c:ILS_K30RA ()
  (princ "\n[DUMMY] 30 Kurve rechts angetrieben Aussen")
  (princ)
)

;; Kurven angetrieben Innen
(defun c:ILS_K90LI ()
  (princ "\n[DUMMY] 90 Kurve links angetrieben Innen")
  (princ)
)

(defun c:ILS_K90RI ()
  (princ "\n[DUMMY] 90 Kurve rechts angetrieben Innen")
  (princ)
)

(defun c:ILS_K60LI ()
  (princ "\n[DUMMY] 60 Kurve links angetrieben Innen")
  (princ)
)

(defun c:ILS_K60RI ()
  (princ "\n[DUMMY] 60 Kurve rechts angetrieben Innen")
  (princ)
)

(defun c:ILS_K30LI ()
  (princ "\n[DUMMY] 30 Kurve links angetrieben Innen")
  (princ)
)

(defun c:ILS_K30RI ()
  (princ "\n[DUMMY] 30 Kurve rechts angetrieben Innen")
  (princ)
)

;; --- ILS / Gefaellestrecke ---
(defun c:ILS_Gefaellestrecke ()
  (princ "\n[DUMMY] ILS_Gefaellestrecke aufgerufen")
  (princ)
)

(defun c:ILS_GK90L ()
  (princ "\n[DUMMY] 90 Kurve links Gefaellestrecke")
  (princ)
)

(defun c:ILS_GK90R ()
  (princ "\n[DUMMY] 90 Kurve rechts Gefaellestrecke")
  (princ)
)

(defun c:ILS_GK60L ()
  (princ "\n[DUMMY] 60 Kurve links Gefaellestrecke")
  (princ)
)

(defun c:ILS_GK60R ()
  (princ "\n[DUMMY] 60 Kurve rechts Gefaellestrecke")
  (princ)
)

(defun c:ILS_GK30L ()
  (princ "\n[DUMMY] 30 Kurve links Gefaellestrecke")
  (princ)
)

(defun c:ILS_GK30R ()
  (princ "\n[DUMMY] 30 Kurve rechts Gefaellestrecke")
  (princ)
)

;; --- Omniflo / Boegen ---
(defun c:OMNI_APB_630_90 ()
  (princ "\n[DUMMY] APB 110 R 630/90 800/800 (821104033)")
  (princ)
)

(defun c:OMNI_APB_550_675 ()
  (princ "\n[DUMMY] APB 110 R 550/67.5 432 (821104027)")
  (princ)
)

(defun c:OMNI_APB_630_45 ()
  (princ "\n[DUMMY] APB 110 R 630/45 400 (821104031)")
  (princ)
)

(defun c:OMNI_APB_550_225 ()
  (princ "\n[DUMMY] APB 110 R 550/22.5 84 (821104025)")
  (princ)
)

(defun c:OMNI_APB_650_180 ()
  (princ "\n[DUMMY] APB 110 R 650/180 L=150 (821104043)")
  (princ)
)

;; --- Omniflo / Aluprofil Gerade ---
(defun c:OMNI_AP110 ()
  (princ "\n[DUMMY] AP 110 Aluprofil Gerade")
  (princ)
)

;; --- Omniflo / Weiche 90 Grad ---
(defun c:OMNI_W90_Einfach ()
  (princ "\n[DUMMY] Einfach 90 700/700 links M (834372027)")
  (princ)
)

(defun c:OMNI_W90_Doppel ()
  (princ "\n[DUMMY] Doppel 90 700/700 M (834372109)")
  (princ)
)

(defun c:OMNI_W90_Dreiwege ()
  (princ "\n[DUMMY] Dreiwege 90 700/700 M (834372209)")
  (princ)
)

;; --- Omniflo / Weiche 45 Grad ---
(defun c:OMNI_W45_Einfach ()
  (princ "\n[DUMMY] Einfach 45 350/700 links M (834372001)")
  (princ)
)

(defun c:OMNI_W45_Doppel ()
  (princ "\n[DUMMY] Doppel 45 350/700 M (834372100)")
  (princ)
)

(defun c:OMNI_W45_Dreiwege ()
  (princ "\n[DUMMY] Dreiwege 45 350/700 M (834372200)")
  (princ)
)

;; --- Omniflo / Weichen Parallel ---
(defun c:OMNI_WP_Einfach ()
  (princ "\n[DUMMY] Einfach Parallel 200/750 links M (834372047)")
  (princ)
)

(defun c:OMNI_WP_Doppel ()
  (princ "\n[DUMMY] Doppel Parallel 200/750 M (834372115)")
  (princ)
)

(defun c:OMNI_WP_Dreiwege ()
  (princ "\n[DUMMY] Dreiwege Parallel 200/750 M (834372215)")
  (princ)
)

;; --- Omniflo / Weichenkoerper ---
(defun c:OMNI_WK_Einfach ()
  (princ "\n[DUMMY] Weichenkoerper Einfach 22.5 links M (834342011)")
  (princ)
)

(defun c:OMNI_WK_Doppel ()
  (princ "\n[DUMMY] Weichenkoerper Doppel 22.5 M (834342100)")
  (princ)
)

(defun c:OMNI_WK_Dreiwege ()
  (princ "\n[DUMMY] Weichenkoerper Dreiwege 22.5 M (834342200)")
  (princ)
)

;; --- Omniflo / Weichenkombinationen ---
(defun c:OMNI_WKomb_Delta ()
  (princ "\n[DUMMY] Delta 1400/700 M (834372400)")
  (princ)
)

(defun c:OMNI_WKomb_Star ()
  (princ "\n[DUMMY] Star 1400/1400 M (834372420)")
  (princ)
)

;; --- Omniflo / TEF Elemente ---
(defun c:OMNI_TEF_UmlenkR ()
  (princ "\n[DUMMY] Umlenkspannst. rechts fuer TEF links")
  (princ)
)

(defun c:OMNI_TEF_UmlenkL ()
  (princ "\n[DUMMY] Umlenkspannst. links fuer TEF rechts")
  (princ)
)

(defun c:OMNI_TEF_AntriebL ()
  (princ "\n[DUMMY] Antriebst. links fuer TEF links")
  (princ)
)

(defun c:OMNI_TEF_AntriebR ()
  (princ "\n[DUMMY] Antriebst. rechts fuer TEF rechts")
  (princ)
)

(defun c:OMNI_TEF_Gerade ()
  (princ "\n[DUMMY] TEF Gerade")
  (princ)
)

;; --- Omniflo / KettenFoerderer ---
(defun c:OMNI_KettenFoerderer ()
  (princ "\n[DUMMY] KettenFoerderer")
  (princ)
)

(princ "\nSSG_LIB_Commands.lsp geladen - Dummy-Befehle registriert.")
(princ)