Start-Ausgabe entschlacken: per-Modul-Banner auf je eine Zeile kuerzen

Der SSG_LIB-Start gab ~50 Zeilen aus (mehrzeilige >>> ...geladen <<<-Banner mit
Befehlslisten/Block-Pfaden, ===-Trenner, Core-Modul-Auflistung, VarioFoerderer-
Typenliste). Fuer einen einfachen _QNEW-Start zu viel Rauschen.

Gekuerzt (nur die dicksten Bloecke, je Modul bleibt EINE knappe Zeile;
Fehler/Warnungen ALLE unveraendert erhalten):
- Kern-Module (ssg_core/dbg/dialog/layer/id): reine "X geladen"-Zeilen entfernt.
- Feature-Module: KreiselInsert/Gefaellestrecke/VarioFoerderer je auf eine
  ">>> X geladen"-Zeile; Befehlslisten, Modus-/Typen-Aufzaehlungen, Block-Pfade
  und ===-Trenner raus. VF-Submodule (vf_konstanten/standard/etage/linienzug/
  spec) Lade-Banner ganz entfernt (der Sammel-Header deckt sie ab).
- SSG_LIB_Commands "Dummy-Befehle registriert" entfernt.
- menu/SSG_LIB.mnl: ===-Trenner + Core-Auflistung raus; die doppelte
  "Einfuege-Modus 3D"-Zeile entfernt (S:STARTUP gibt sie ohnehin einmal aus).

Behalten (informativ / diagnostisch): [CFG] Config geladen: N Sektionen,
[LANG] N Texte geladen, alle FEHLER/WARNUNG-Zeilen, die Abschlusszeilen
"Alle Module geladen. Menue aktiv." + "Einfuege-Modus: 3D".

Reine Ausgabe-Reduktion, keine Logik geaendert. 243/243 LISP-Unit-Tests gruen;
alle Module laden fehlerfrei (Klammerbalance gegen HEAD unveraendert).

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>

Lisp/Gefaellestrecke.lsp

@@ -2094,11 +2094,5 @@
 ;; ============================================================
 ;; START
 ;; ============================================================
-(princ "\n>>> GEFAELLESTRECKE v2.0 geladen <<<")
-(princ "\n>>> Befehl: Gefaellestrecke")
-(princ "\n    Modus 1: Manuelle Eingabe")
-(princ "\n    Modus 2: 3D-Linie")
-(princ "\n    Modus 3: Linienzug mit Gefaellebogen")
-(if block-pfad (princ (strcat "\n    Block-Pfad: " block-pfad)))
-(princ "\n=========================================")
+(princ "\n>>> Gefaellestrecke geladen")
 (princ)

Lisp/KreiselInsert.lsp

@@ -1338,9 +1338,5 @@
   (princ)
 )
 
-(princ "\n>>> KREISELINSERT v7.0 geladen <<<")
-(princ "\n>>> Befehle: KreiselInsert, KreiselConnect, KreiselRedraw,")
-(princ "\n             KreiselEdit, KreiselQuick, KreiselParams, ILS_Eckrad")
-(if *block-path* (princ (strcat "\n    Block-Pfad: " *block-path*)))
-(princ "\n=========================================")
+(princ "\n>>> KreiselInsert geladen")
 (princ)

Lisp/SSG_LIB_Commands.lsp

@@ -448,5 +448,5 @@
   )
 )
 
-(princ "\nSSG_LIB_Commands.lsp geladen - Dummy-Befehle registriert.")
+(princ)
 (princ)

Lisp/ssg_core.lsp

@@ -1995,5 +1995,4 @@
 )
 
 
-(prompt "\nssg_core.lsp geladen.")
 (princ)

Lisp/ssg_dbg.lsp

@@ -346,5 +346,4 @@
   (princ)
 )
 
-(prompt "\nssg_dbg geladen.")
 (princ)

Lisp/ssg_dialog.lsp

@@ -161,5 +161,4 @@
 ;; ------------------------------------------------------------
 
 
-(prompt "\nssg_dialog.lsp geladen.")
 (princ)

Lisp/ssg_id.lsp

@@ -314,5 +314,4 @@
   (princ)
 )
 
-(princ "\n[SSG_ID] Geladen.")
 (princ)

Lisp/ssg_layer.lsp

@@ -311,5 +311,4 @@
 )
 
 
-(prompt "\nssg_layer.lsp geladen.")
 (princ)

Lisp/vf_core.lsp

@@ -1095,7 +1095,7 @@
 ;; Guard: Untermodule nur beim ersten Laden von vf_core.lsp ausfuehren.
 (if (not *ssg-vf-submodule-loaded*)
   (progn
-    (princ "\n>>> VARIOFOERDERER v26.0 geladen <<<")
+    (princ "\n>>> VarioFoerderer geladen")
     ;; Lisp-Pfad zentral ueber ssg_core (ssg_core ist hier bereits geladen).
     (setq *vf-lisp-pfad* (ssg-lisp-verzeichnis))
     (if *vf-lisp-pfad*
@@ -1589,13 +1589,4 @@
 (setq *ssg-VarioFoerderer-loaded*      t)
 (setq *ssg-EtageVarioFoerderer-loaded* t)
 
-(princ "\n>>> Befehle: VarioFoerderer, Foerderanlage, EtageVarioFoerderer")
-(princ "\n    Typen:")
-(setq *vf-typ-idx* 1)
-(foreach eintr *vf-typ-registry*
-  (princ (strcat "\n    " (itoa *vf-typ-idx*) ".  " (car eintr) " - " (nth 3 eintr)))
-  (setq *vf-typ-idx* (1+ *vf-typ-idx*))
-)
-(if block-pfad (princ (strcat "\n    Block-Pfad: " block-pfad)))
-(princ "\n=========================================")
 (princ)

Lisp/vf_etage.lsp

@@ -778,5 +778,4 @@
   'etage-foerderanlage-einfuegen
   (ssg-text "vfc-typ-etage-beschreibung"))
 
-(princ "\n>>> vf_etage.lsp geladen - Typ 'etage' registriert")
 (princ)

Lisp/vf_konstanten.lsp

@@ -296,5 +296,5 @@
 (if (null *vfk-vf-laenge-max*) (setq *vfk-vf-laenge-max* 25000.0))
 
 (setq *vfk-konstanten-geladen* t)
-(princ "\nvf_konstanten geladen.")
+(princ)
 (princ)

Lisp/vf_linienzug.lsp

@@ -10971,5 +10971,4 @@
   'vfl-einfuege-platzhalter
   (ssg-text "vfc-typ-linienzug-beschreibung"))
 
-(princ "\n>>> vf_linienzug.lsp geladen - Typ 'linienzug' registriert")
 (princ)

Lisp/vf_spec.lsp

@@ -1129,5 +1129,5 @@
       (vsp-results-schreiben records ziel)))
   (princ))
 
-(princ "\n[vf_spec] geladen (VF_SPEC_BAU)")
+(princ)
 (princ)

Lisp/vf_standard.lsp

@@ -1363,5 +1363,4 @@
   'variofoerderer-einfuegen
   (ssg-text "vfc-typ-standard-beschreibung"))
 
-(princ "\n>>> vf_standard.lsp geladen - Typ 'standard' registriert")
 (princ)

menu/SSG_LIB.mnl

@@ -148,13 +148,6 @@
     ;; UND VarioFoerderer genutzt) - MUSS vor beiden geladen sein.
     (ssg-ensure "ssg_ks_insert")
 
-    ;; Allgemein-Zusammenfassung
-    (princ "\n=========================================")
-    (princ "\n[SSG_LIB] Core-Module geladen:")
-    (princ "\n  ssg_core, ssg_lang, ssg_dbg, ssg_dialog, ssg_layer, ssg_id, ssg_ks_insert")
-    (princ (strcat "\n  Pfad: " *ssg-lisp-pfad*))
-    (princ "\n=========================================")
-
     ;; 2) Feature-Module in Anzeigereihenfolge
     (ssg-ensure "KreiselInsert")
     (ssg-ensure "Gefaellestrecke")
@@ -175,9 +168,9 @@
     ;; Hintergrund: AutoLISP-setenv schreibt in die BricsCAD-Profilregistry.
     ;; Ohne diesen Reset wuerde ein alter SSG_DIM_SWITCH-Wert aus der Vorsitzung
     ;; ueber setenv.bat gewinnen - unabhaengig davon, wie BricsCAD gestartet wurde.
+    ;; Die Modus-Meldung gibt S:STARTUP aus (einmal, nach allen Lade-Meldungen) -
+    ;; hier bewusst NICHT, um die Doppelausgabe zu vermeiden.
     (setenv "DXFM_DIM" "3D")
-    (princ (strcat "\n[SSG_LIB] Einfuege-Modus: 3D"
-                   " (Umschalten global: SSG_DIM_SWITCH im Menue)"))
   )
   (princ "\n[SSG_LIB] WARNUNG: DXFM_LISP nicht gesetzt - Befehle nicht verfuegbar.")
 )