diff --git a/Lisp/README.md b/Lisp/README.md index 44ed610..735ae4f 100644 --- a/Lisp/README.md +++ b/Lisp/README.md @@ -1,22 +1,29 @@ -# Lisp – AutoLISP-Standardbibliotheken +# Lisp – AutoLISP-Bibliotheken (SSG_LIB) -Allgemeingültige AutoLISP-Routinen für AutoCAD, destilliert aus den historischen ACADSST-Makros (Schönenberger Systeme GmbH). Die drei `ssg_`-Bibliotheken sind projektunabhängig einsetzbar. +AutoLISP-Routinen für BricsCAD Pro zur automatisierten Erstellung von Förderanlagen-Layouts. Destilliert aus den historischen ACADSST-Makros (Schönenberger Systeme GmbH) und erweitert für die SSG_LIB-Befehle. --- -## Ladereihenfolge +## Ladereihenfolge (`ssg_load.lsp`) ```lisp -(load "pfad/ssg_load.lsp") ; lädt core → dialog → layer +(load "pfad/ssg_load.lsp") ``` -Oder einzeln (Abhängigkeit beachten: `ssg_dialog` und `ssg_layer` setzen `ssg_core` voraus): +Die Laderoutine lädt alle Module automatisch in der richtigen Reihenfolge: -```lisp -(load "pfad/ssg_core.lsp") -(load "pfad/ssg_dialog.lsp") -(load "pfad/ssg_layer.lsp") -``` +1. `ssg_core.lsp` – Kernbibliothek +2. `(ssg-load-config)` – JSON-Konfiguration laden (aus `data/json/component_defaults.json`) +3. `ssg_dialog.lsp` – Dialog-Patterns +4. `ssg_layer.lsp` – Layer-Verwaltung +5. `VarioFoerderer.lsp` – Vario-Förderer und Gefällestrecken-Basis +6. `Gefaellestrecke.lsp` – Gefällestrecken-Generator (setzt VarioFoerderer voraus) +7. `export.lsp` – Export-Funktionen (JSON-Sammler, Python-Export, Omniflo-Export) +8. `tests.lsp` – Testbefehle (Python-Aufruf via CALLPYTHON) +9. `SSG_LIB_Commands.lsp` – Dummy-Befehle für Menüeinträge + +> **KreiselInsert.lsp** und **OmniModulInsert.lsp** sind nicht mehr im Ladevorgang – +> sie wurden durch Python/PyRx-Module ersetzt (`lib/elemente/kreisel.py`, `eckrad.py`, `dblclick.py`). --- @@ -24,42 +31,125 @@ Oder einzeln (Abhängigkeit beachten: `ssg_dialog` und `ssg_layer` setzen `ssg_c ### `ssg_core.lsp` – Kernbibliothek -Grundfunktionen für Umgebungssicherung, Benutzerinteraktion, Layer, Blöcke und Attribute. +Grundfunktionen für Umgebungssicherung, Benutzerinteraktion, Layer, Blöcke, Attribute und JSON-Konfiguration. Muss als erstes geladen werden. + +**Umgebungssicherung:** | Funktion | Beschreibung | -|---|---| +| --- | --- | | `ssg-start titel vars` | Systemvariablen sichern, CMDECHO aus, Undo-Gruppe öffnen | | `ssg-end` | Systemvariablen wiederherstellen, Undo-Gruppe schließen | | `ssg-errhan em` | Fehlerhandler – räumt auf und ruft `ssg-end` auf | + +**Benutzer-Abfragen:** + +| Funktion | Beschreibung | +| --- | --- | | `ssg-ques text defa` | Ja/Nein-Abfrage; `defa=T` → Default Ja, `nil` → Default Nein | | `ssg-emsg text` | Fehlermeldung mit optionalem Signalton (`ssg-bell`) | + +**Layer-Hilfsfunktionen:** + +| Funktion | Beschreibung | +| --- | --- | | `ssg-get-layer text` | Layer eines angeklickten Objektes ermitteln | | `ssg-layer-ss name typ` | Auswahlsatz aller Objekte eines Layers (optional nach Typ filtern) | | `ssg-make-layer name farbe aktiv` | Layer anlegen (falls nicht vorhanden) und optional aktivieren | -| `ssg-ss-foreach ss func` | Iteration über Auswahlsatz – `func` wird für jeden Entity-Name aufgerufen | -| `ssg-ss-redraw ss modus` | Alle Elemente eines Auswahlsatzes hervorheben (3), invertieren (4) oder normal (0) | +| `ssg-ss-foreach ss func` | Iteration über Auswahlsatz – `func` für jeden Entity-Name | +| `ssg-ss-redraw ss modus` | Auswahlsatz hervorheben (3), invertieren (4) oder normal (0) | | `ssg-ss-add src dest` | Auswahlsatz `src` zu `dest` hinzufügen (in-place, mit Highlight) | + +**Block-Operationen:** + +| Funktion | Beschreibung | +| --- | --- | +| `ssg-timestamp` | Zeitstempel als `YYYYMMDDHHMMSS`-String erzeugen | | `ssg-make-blockname pt` | Eindeutigen Blocknamen aus Einfügepunkt + Zeitstempel erzeugen | | `ssg-insert-block layer farbe pfad pt xs ys rot` | Layer anlegen und Block einfügen | -| `ssg-make-block pt rotation ss` | Auswahlsatz als Block definieren und gleich einfügen; Name aus `ssg-make-blockname` | -| `ssg-attrib-set tag wert ersetzen` | Ein Attribut der letzten Einfügung setzen oder anfügen | -| `ssg-attrib-set-many alist` | Mehrere Attribute auf einmal setzen (`'(("TAG" . "Wert") ...)`) | +| `ssg-make-block pt rotation ss` | Auswahlsatz als Block definieren und gleich einfügen | + +**Attribut-Operationen:** + +| Funktion | Beschreibung | +| --- | --- | +| `ssg-attrib-set tag wert ersetzen` | Ein Attribut der **letzten** Einfügung setzen oder anfügen | +| `ssg-attrib-set-many alist` | Mehrere Attribute der letzten Einfügung auf einmal setzen | +| `ssg-attrib-set-on ent alist` | Attribute eines **bestimmten** INSERT-Entity setzen (nicht `entlast`) | +| `ssg-attrib-read ent` | Alle Attribute eines INSERT-Entity als Assoziationsliste lesen | +| `ssg-attrib-read-dwg pfad` | Block temporär einfügen, ATTRIBs lesen, Block wieder löschen | +| `ssg-attrib-defaults defs` | Default-Attribute aus Definitionsliste `((TAG DEFAULT) ...)` erzeugen | +| `ssg-attrib-merge given defs` | Übergebene Attribute mit Defaults zusammenführen | +| `ssg-attrib-make-defs defs hoehe` | Unsichtbare ATTDEF-Entities erzeugen (für Block-Definition) | +| `ssg-attrib-alist-to-defs alist` | Assoziationsliste `(TAG . Wert)` in ATTDEF-Definitionsliste umwandeln | | `ssg-attrib-by-handle handle tag wert ersetzen` | Attribut eines Blocks anhand seines Entity-Handles suchen und ändern | + +**Dialog-Hilfsfunktionen:** + +| Funktion | Beschreibung | +| --- | --- | | `ssg-dialog-run dcl id init-fn accept-fn` | Generischer DCL-Dialog: laden, initialisieren, starten, entladen | + +**Zoom-Hilfsfunktionen:** + +| Funktion | Beschreibung | +| --- | --- | | `ssg-zoom-save` | Aktuelle View-Größe merken | | `ssg-zoom-restore` | Auf gemerkte View-Größe zurückschalten (nur wenn verändert) | +**JSON-Konfigurationssystem:** + +Liest `data/json/component_defaults.json` beim Laden über `ssg-load-config`. Die Config wird in der globalen Variable `*ssg-config*` gehalten. + +| Funktion | Beschreibung | +| --- | --- | +| `ssg-load-config` | Config aus `$DXFM_DATA/json/component_defaults.json` laden | +| `ssg-cfg section key` | Wert aus Config lesen, `nil` wenn nicht vorhanden | +| `ssg-cfg-or section key default` | Wert aus Config lesen, `default` als Fallback | + +Interne Parser-Funktionen (nicht direkt aufrufen): +`ssg-read-file-lines`, `ssg-cfg-trim`, `ssg-cfg-split-comma`, +`ssg-cfg-parse-value`, `ssg-cfg-parse-array`, `ssg-cfg-parse-kv`, `ssg-cfg-parse-nested` + +--- + +### `ssg_dbg.lsp` – Debug-Logging + +Dateibasiertes Debug-Log mit gepuffertem Schreiben. `dbgf`/`dbg`/`dbgmsg` puffern im Speicher, `dbgreturn` flusht auf die Platte (open/append/close). + +| Funktion | Beschreibung | +| --- | --- | +| `dbgopen filename envvar` | Debug-Datei öffnen (Verzeichnis via Umgebungsvariable, z.B. `"DXFM_LOG"`) | +| `dbgclose` | Puffer schreiben und Datei schließen | +| `dbgon` | Debug-Ausgabe aktivieren | +| `dbgoff` | Debug-Ausgabe deaktivieren (verhindert Dateianlage wenn vor `dbgopen`) | +| `dbgf funcname` | Funktionseintritt loggen, Einrückung erhöhen | +| `dbgreturn retval` | Funktionsaustritt loggen, Puffer flushen, Rückgabewert durchreichen | +| `dbg varname` | Variable oder Wert loggen: `(dbg 'x)` oder `(dbg wert)` | +| `dbgmsg text` | Freitext-Nachricht loggen | +| `dbgp text` | Alias für `dbgmsg` | +| `dbgflush` | Puffer sofort schreiben (ohne `dbgreturn`, z.B. in Startup-Code) | + +Beispiel: + +```lisp +(dbgopen "test.dbg" "DXFM_LOG") +(dbgf "meine-funktion") +(dbg 'x) +(dbgreturn ergebnis) ; schreibt Puffer auf Platte +(dbgclose) +``` + --- ### `ssg_dialog.lsp` – Dialog-Pattern für Modul-Einfüge-Makros -Kapselt das wiederkehrende DCL-Muster: Dialog mit Vorschaubild, Radio-Auswahl, Block einfügen, Attribute setzen. +Kapselt das wiederkehrende DCL-Muster: Dialog mit Vorschaubild, Radio-Auswahl, Block einfügen, Attribute setzen. Setzt `ssg_core.lsp` voraus. | Funktion | Beschreibung | -|---|---| -| `ssg-dia-show-slide tile lib name` | Vorschau-Slide im image-Tile aktualisieren (Bibliothek + Slide-Name) | +| --- | --- | +| `ssg-dia-show-slide tile lib name` | Vorschau-Slide im image-Tile anzeigen (Hintergrundfarbe aus Config: `infrastruktur/dialog_preview_bg_color`) | | `ssg-dia-update-preview tile idx lib liste` | Vorschau anhand Index-String aus Radio-/List-Tile aktualisieren | -| `ssg-modul-dialog dcl id sel-tile start-val prev-tile lib slides extra-init extra-read` | Vollständiger Modul-Dialog: lädt DCL, setzt Tiles, verknüpft Vorschau, liefert gewählten Index zurück | +| `ssg-modul-dialog dcl id sel-tile start-val prev-tile lib slides extra-init extra-read` | Vollständiger Modul-Dialog: lädt DCL, setzt Tiles, verknüpft Vorschau, liefert gewählten Index | | `ssg-insert-modul layer farbe pfad attribs rotation` | Standardsequenz: Layer anlegen → Punkt abfragen → Block einfügen → Attribute setzen | Die Datei enthält außerdem ein auskommentiertes **Template** für neue `c:BEFEHL`-Definitionen nach dem SSG-Muster. @@ -68,24 +158,24 @@ Die Datei enthält außerdem ein auskommentiertes **Template** für neue `c:BEFE ### `ssg_layer.lsp` – Interaktive Layer-Verwaltung -Benutzerfreundliche AutoCAD-Befehle für Layer-Operationen. Alle Befehle sichern die Umgebung über `ssg-start`/`ssg-end`. +Benutzerfreundliche BricsCAD-Befehle für Layer-Operationen. Alle Befehle sichern die Umgebung über `ssg-start`/`ssg-end`. Setzt `ssg_core.lsp` voraus. -**Hilfsfunktionen (intern):** +**Hilfsfunktionen:** | Funktion | Beschreibung | -|---|---| +| --- | --- | | `ssg-layer-list-all` | Alle Layernamen als Liste | | `ssg-layer-info-all` | Alle Layer als Assoziationslisten (Name, Farbe, Linientyp, Flags) | -| `ssg-layer-visible-p name` | Sichtbarkeitsstatus prüfen (T = sichtbar) | +| `ssg-layer-visible-p name` | Sichtbarkeitsstatus prüfen (`T` = sichtbar) | | `ssg-layer-safe-p name gruppe` | Prüfen ob Layer ausgeschaltet werden darf (nicht aktiver Layer) | -| `ssg-layer-group name` | Gruppen-Kennung aus Layernahme extrahieren (Position 2–3) | +| `ssg-layer-group name` | Gruppen-Kennung aus Layernamen extrahieren (Position 2–3) | | `ssg-layer-rename-group name neu` | Neuen Layernamen mit geänderter Gruppen-Kennung berechnen | | `ssg-layer-group-move alt neu` | Alle Objekte einer Layergruppe auf neue Gruppen-Kennung verschieben | -**AutoCAD-Befehle:** +**BricsCAD-Befehle:** | Befehl | Beschreibung | -|---|---| +| --- | --- | | `c:SSG-LayerSet` | Layer des angeklickten Objektes als aktiven Layer setzen | | `c:SSG-LayerInfo` | Layer des angeklickten Objektes anzeigen | | `c:SSG-LayerMove` | Auswahlsatz auf Layer eines anderen Objektes verschieben | @@ -102,34 +192,99 @@ Benutzerfreundliche AutoCAD-Befehle für Layer-Operationen. Alle Befehle sichern ### `ssg_load.lsp` – Laderoutine -Lädt alle drei Bibliotheken in der richtigen Reihenfolge. Ermittelt den Pfad automatisch über `findfile`. - ---- - -### `SSG_LIB_Commands.lsp` – Dummy-Befehle für das SSG-Menü - -Platzhalter-Definitionen für alle Menüeinträge des SSG-Menüsystems (ILS-Module, Kurven, Gefällestrecken). Gibt beim Aufruf eine Meldung aus. Wird durch echte Implementierungen ersetzt sobald die jeweiligen Blöcke und DCL-Dialoge vorliegen. - ---- - -### `ILSModulInsert.lsp` – ILS Kreisel-Modul-Einfügung - -Einfügen von ILS-Kreisel-Modulen mit Abstand- und Typ-Konfiguration (mit/ohne PIN). Enthält Smart-Connect-Logik für automatische Positionierung. Befehl: `c:KreiselInsert`. - ---- - -### `OmniModulInsert.lsp` – Omni-Modul-Einfügung - -Einfügen von Omni-Modulen. Befehl analog zu `ILSModulInsert`. +Lädt alle Module in der richtigen Reihenfolge. Ermittelt den Pfad automatisch über `findfile`. Ruft direkt nach `ssg_core.lsp` die Funktion `ssg-load-config` auf, damit die JSON-Konfiguration für alle nachfolgenden Module verfügbar ist. --- ### `VarioFoerderer.lsp` – Vario-Förderer -Umfangreiche Routinen für den Vario-Förderer (Strecken, Kurven, Sonderelemente). Größte Einzeldatei im Projekt. +Parametrischer Generator für ILS Vario-Förderanlagen. Liest Block-Geometrie aus einer DWG-Bibliothek (`DXFM_BLOCKS`). Alle Konstanten (Abstände, Winkel, Skalierung) werden via `ssg-cfg-or` aus `component_defaults.json` (Sektion `vario`) gelesen. + +**Befehl:** `c:FOERDERANLAGE` + +**Wichtige interne Funktionen** (werden auch von `Gefaellestrecke.lsp` genutzt): + +| Funktion | Beschreibung | +| --- | --- | +| `init-bibliothek` | Block-Bibliothek aus DWG laden und Geometriedaten extrahieren | +| `ensure-block-loaded name` | Block aus Bibliothek in aktives Dokument laden (einmalig) | +| `insert-block-by-ks name ks-nr pt` | Block anhand Koordinatensystem-Punkt einfügen | +| `insert-inclined-scaled-block name laenge winkel pt` | Geneigten, skalierten Block einfügen | +| `insert-rotated-block-with-ks name rot pt` | Rotierten Block mit KS-Offset einfügen | +| `get-line-start-end-points ename` | Start- und Endpunkt einer LINE-Entity ermitteln | +| `punkt-differenz p1 p2` | Differenzvektor zweier Punkte | --- -### `tests.lsp` – Testskript +### `Gefaellestrecke.lsp` – Gefällestrecken-Generator -Manuelle Tests für die Bibliotheksfunktionen. Nicht für den Produktiveinsatz laden. +Erzeugt eine einfache Förderanlage mit festem Gefällewinkel: +`AUS-Element → Staustrecke (skaliert) → Separator → EIN-Element` + +Setzt `VarioFoerderer.lsp` voraus (nutzt dessen `init-bibliothek`, `insert-block-by-ks` und weitere Hilfsfunktionen). Alle Defaults (`default_delta_l`, `default_winkel`, `separator_breite`) kommen aus Config-Sektion `gefaelle`. + +**Befehl:** `c:GEFAELLESTRECKE` + +Zwei Modi: + +- **Modus 1:** Startpunkt + ΔL (Horizontalabstand) interaktiv abfragen +- **Modus 2:** Bestehende 3D-Linie wählen (ΔL und Winkel werden daraus berechnet) + +--- + +### `export.lsp` – Export-Funktionen + +Sammelt INSERT-Blöcke aus der Zeichnung und exportiert sie als JSON oder ruft Python-Skripte für den Sivas-Export auf. + +| Befehl / Funktion | Beschreibung | +| --- | --- | +| `c:EXPORTSIVAS` | Alle Blöcke als JSON sammeln und `export_sivas.py` aufrufen (Sivas-CSV) | +| `c:EXPORTCSV` | Alle Blöcke als JSON sammeln und `export_csv.py` aufrufen (einfache Item-Liste) | +| `c:OMNI_EXPORT` | LISP-basierter Omniflo-Export: Blöcke direkt in CSV schreiben (ohne Python) | +| `csv:collect-export-blocks` | Alle INSERT-Blöcke der Zeichnung als JSON-Array sammeln | +| `csv:run-export py-skript json-datei output-csv` | Python-Skript mit gesammelten Daten aufrufen | +| `csv:read-attribs ename` | Attribute eines INSERT als JSON-Objekt lesen | +| `csv:omni-bogen-merkmale ename rot` | Omniflo-Bogen-Merkmale als JSON-String | +| `csv:omni-weiche-merkmale ename rot` | Omniflo-Weichen-Merkmale als JSON-String | +| `csv:omni-gerade-merkmale ename rot` | Omniflo-Gerade-Merkmale als JSON-String (Länge via `infrastruktur/mm_pro_meter`) | + +Default-Werte (HOEHE, DREHUNG, Längen) kommen via `ssg-cfg-or` aus Config-Sektion `omniflo`. + +--- + +### `tests.lsp` – Testbefehle + +Testbefehle für die Python-Integration. Export-Funktionen wurden in `export.lsp` ausgelagert. + +| Befehl | Beschreibung | +| --- | --- | +| `c:CALLPYTHON` | `testpycall.py` via `_.SHELL` aufrufen und Rückgabe einlesen (Integrationstest LISP↔Python) | + +--- + +### `KreiselInsert.lsp` – ILS Kreisel (veraltet, nicht geladen) + +Ursprüngliche AutoLISP-Implementierung für ILS Kreisel und Eckrad. **Nicht mehr in `ssg_load.lsp` eingebunden** – ersetzt durch `lib/elemente/kreisel.py` und `lib/elemente/eckrad.py` (PyRx). Die Datei bleibt als Referenz im Repository. + +--- + +### `OmniModulInsert.lsp` – Omniflo-Einfügung (veraltet, nicht geladen) + +AutoLISP-Implementierung für Omniflo Bögen und Weichen. **Nicht mehr in `ssg_load.lsp` eingebunden** – wurde durch Python/PyRx abgelöst. Alle Konstanten waren bereits auf `ssg-cfg-or` umgestellt. Die Datei bleibt als Referenz im Repository. + +--- + +### `SSG_LIB_Commands.lsp` – Dummy-Befehle für das SSG-Menü + +Platzhalter-Definitionen für noch nicht implementierte Menüeinträge. Gibt beim Aufruf eine Meldung aus. + +Registrierte Dummy-Befehle: + +| Gruppe | Befehle | +| --- | --- | +| ILS Zusatzmodule | `ILS_BTMT_Beladung`, `ILS_BTMT_Entladung`, `ILS_ETF_Etagenfoerderer`, `ILS_TEF_Strecke` | +| ILS Kurven angetrieben Außen | `ILS_K90LA`, `ILS_K90RA`, `ILS_K60LA`, `ILS_K60RA`, `ILS_K30LA`, `ILS_K30RA` | +| ILS Kurven angetrieben Innen | `ILS_K90LI`, `ILS_K90RI`, `ILS_K60LI`, `ILS_K60RI`, `ILS_K30LI`, `ILS_K30RI` | +| ILS Gefällestrecken-Kurven | `ILS_Gefaellestrecke`, `ILS_GK90L`, `ILS_GK90R`, `ILS_GK60L`, `ILS_GK60R`, `ILS_GK30L`, `ILS_GK30R` | + +> `FOERDERANLAGE` ist nicht hier definiert – dieser Befehl ist in `VarioFoerderer.lsp` implementiert. diff --git a/lib/omniflo_utils.py b/lib/omniflo_utils.py index 2c56d43..65f5a2e 100644 --- a/lib/omniflo_utils.py +++ b/lib/omniflo_utils.py @@ -222,11 +222,12 @@ def import_element_as_block(source_doc, target_doc, block_name): importer = Importer(source_doc, target_doc) importer.import_tables() blk = target_doc.blocks.new(name=block_name) - if block_name in source_doc.blocks: - source_layout = source_doc.blocks[block_name] - else: - source_layout = source_doc.modelspace() - for entity in source_layout: + # if block_name in source_doc.blocks: + # source_layout = source_doc.blocks[block_name] + # else: + # source_layout = source_doc.modelspace() + # for entity in source_layout: + for entity in source_doc.modelspace(): importer.import_entity(entity, blk) importer.finalize() return block_name diff --git a/lib/set_attributs.py b/lib/set_attributs.py index a75637c..ba1990d 100644 --- a/lib/set_attributs.py +++ b/lib/set_attributs.py @@ -160,7 +160,11 @@ ATTDEF_LAYER = "ATTRIB" def wrap_entities_in_block(doc, block_name): """ Verschiebt alle Entities aus dem Modelspace in eine Blockdefinition - mit dem Namen block_name und fuegt eine Blockreferenz bei (0, 0) ein. + mit dem Namen block_name. + + Im Modelspace wird ein INSERT erzeugt, dem ATTRIB-Entities hinzugefuegt + werden - mit den Standardwerten aus den ATTDEFs der Blockdefinition. + Dadurch zeigt BricsCAD beim Klick auf den Block die Attributwerte an. Vorhandene Blockdefinition mit gleichem Namen wird ersetzt (fuer Re-Runs). """ msp = doc.modelspace() @@ -174,7 +178,20 @@ def wrap_entities_in_block(doc, block_name): for entity in list(msp): msp.move_to_layout(entity, blk) - msp.add_blockref(block_name, (0, 0)) + # INSERT im Modelspace + blkref = msp.add_blockref(block_name, (0, 0)) + + # ATTRIB-Entities aus ATTDEFs befuellen (Werte aus ATTDEF-Standardtext) + for attdef in (e for e in blk if e.dxftype() == "ATTDEF"): + blkref.add_attrib( + tag=attdef.dxf.tag, + text=attdef.dxf.text, + insert=attdef.dxf.insert, + dxfattribs={ + "layer": attdef.dxf.layer, + "height": attdef.dxf.height, + }, + ) def add_attdefs_to_dxf(dxf_path, output_path, attr_defs, json_entry, sivasnr,