diff --git a/CLAUDE.md b/CLAUDE.md index 64a1533..52ca296 100644 --- a/CLAUDE.md +++ b/CLAUDE.md @@ -72,16 +72,18 @@ Die `start_briscad.bat` ruft `setenv.bat` auf und startet BricsCAD. |---|---|---| | Kreisel-Module | `KreiselInsert` | KreiselInsert, KreiselConnect, KreiselEdit, ILS_Eckrad, EckradEdit, KREISEL_WEICHEN | | TRO | `Tro_Edit` | TRO_INSERT, TRO_EDIT | -| Zusatzmodul/Foerderer/Kurven | `SSG_LIB_Commands` | ILS_BTMT_*, ILS_ETF_*, ILS_GK*_* | +| Zusatzmodul | `SSG_LIB_Commands` | ILS_BTMT_Beladung, ILS_BTMT_Entladung, ILS_SCANNER_INSERT, ILS_SEPARATOR_INSERT (die frueheren Dummy-Befehle ILS_ETF_*/ILS-Kurven sind entfernt) | +| SPS: Staubereiche | `Jam_Edit` | JAM_EDIT (nur per Doppelklick auf `JAM_AREA` bzw. Kommandozeile, kein Menueeintrag) | | VarioFoerderer | `VarioFoerderer` | FOERDERANLAGE, VARIOFOERDERER_EDIT, Vario_Kette_Merge | | Gefaellestrecke | `Gefaellestrecke` | GEFAELLESTRECKE, GEFAELLESTRECKE_EDIT | +| Kettenfoerderer | `KettenFoerderer` | KETTENFOERDERER (Menue: Omniflo -> KettenFoerderer), KF_EDIT (Doppelklick auf KF_n). KF_KS_PRUEFEN ist ein reiner Diagnosebefehl und bewusst NICHT im Menue | | Omniflo (komplett) | `OmniModulInsert` + `GeruestInsert` | OMNI_APB_*, OMNI_W*_*, OMNI_AP*, OMNI_TEF_*, OMNI_TV_*, OMNI_LADESCHLEIFE_*, OMNI_EDIT; OMNI_FAHRSTRECKE / OMNI_FAHRSTRECKE_BESCHRIFTEN (GeruestInsert, Linien-Logik wie GERUEST_TRAEGER) | | Geruest | `GeruestInsert` | GERUEST_SAEULEN, GERUEST_ROHRABHAENGER, GERUEST_WANDBEFESTIGUNG (je eigener Dialog aus der Vorlage geruest.dcl, keine Umschaltung), GERUEST_TRAEGER (eigener Dialog), GERUEST_TRAEGER_BESCHRIFTEN (Untermenue Geruest -> Funktionen -> Traeger beschriften; alle Traeger der Zeichnung neu beschriften); Gattertraeger noch Platzhalter auf GERUEST (zeigt nur einen Hinweis) | | Connections | `Connection_Edit` + `SSG_LIB_Commands` | CONNECTION_INSERT, CONNECTION_EDIT, ILS_EINGANG_INSERT, ILS_AUSGANG_INSERT | | Export | `export` | EXPORTSIVAS, EXPORTCSV, CALLPYTHON | | Werkzeuge | `ssg_blocktools`, `ssg_texttools`, `ssg_stueckliste`, `DinFormate` | SSG_BLOCK_COUNT, SSG_BLOCK_DELETE, SSG_ATTR_ERSETZEN, SSG_TEXT_ERSETZEN, SSG_TEXT_PARALLEL, SSG_TEXT_HOEHE, SSG_TEXT_STIL, SSG_FAEHNCHEN_STUECKLISTE, DIN_FORMATE | | Konfiguration | `SSG_LIB_Commands` + `DrawPlanquadrate` | SSG_DIM_SWITCH, SSG_SPRACHE, PLANQUADRATE_TOGGLE (DRAW_PLANQUADRATE/DELETE_PLANQUADRATE) | -| Doppelklick/Kontextmenue | `SSG_LIB_Commands` | SSG_BLOCKEDIT (dispatcht Kreisel->KreiselEdit, Eckrad->EckradEdit, Omniflo->OMNI_EDIT, GF_*->GEFAELLESTRECKE_EDIT, VF_*->VARIOFOERDERER_EDIT) | +| Doppelklick/Kontextmenue | `SSG_LIB_Commands` | SSG_BLOCKEDIT (dispatcht Kreisel->KreiselEdit, Eckrad->EckradEdit, Omniflo->OMNI_EDIT, GF_*->GEFAELLESTRECKE_EDIT, VF_*->VARIOFOERDERER_EDIT, KF_*->KF_EDIT, CONNECTION_*->CONNECTION_EDIT, JAM_*->JAM_EDIT, TRO_*->TRO_EDIT, GR_*->EATTEDIT) | ### Entfernte Legacy-Dateien @@ -96,7 +98,7 @@ Detaillierte Dokumentation aller Funktionen und Befehle: siehe `Lisp/README.md`. | Datei | Befehle | Beschreibung | |---|---|---| | `ssg_core.lsp` | - | Kernel: ssg-start/ssg-end, ssg-cfg-or, ssg-attrib-read/write, Layer/Block-Ops. Zentrale Helfer: `ssg-lisp-verzeichnis`/`ssg-lisp-datei-pfad` (Lisp-Pfad-Ermittlung), `ssg-rot-matrix-zy` (4x4 Rz(hz)*Ry(vert)-Rotationsmatrix, clusteruebergreifend), GUI-Aus-Schalter `*ssg-gui-aus*` + `ssg-gui-aus`/`ssg-gui-an`/`ssg-gui-p` (fuer automatische Tests: schaltet DCL-/Wizard-Dialoge ab, Module fallen auf Konsolen-/getXXX-Pfad zurueck; der Linienzug hat zusaetzlich `*vfl-headless*`, das die Konsolen-Rueckfrage selbst verbietet - siehe VarioFoerderer-Zeile). **Layer-Zuordnung**: `ssg-layer-cfg-load`/`-reset` (liest `cfg/layer.cfg` lazy), `ssg-layer-cfg-eintrag` (reine Aufloesung "Layername, Farbe" -> `(layer . farbe)`, in `tests/test_unit.lsp` getestet), `ssg-layer-eintrag` (Suchreihenfolge `[ils_]` -> `[allgemein]`), `ssg-layer-anlegen` (Layer mit cfg-Farbe anlegen, optional aktivieren) und `ssg-layer-setzen` (Blockreferenz auf den Baugruppen-Layer legen) - fuer ZUSAMMENGEBAUTE Baugruppen; `ssg-block-layer-vorgabe` (LAYER-Attribut -> `ssg-ils-block-ebene`) fuer nur EINGEFUEGTE Bloecke. Alle liefern nil, wenn nichts konfiguriert ist, und lassen den Layer dann unangetastet. **JSON**: drei Parser nebeneinander, bewusst nicht zusammengelegt - `ssg-load-json`/`ssg-parse-json-array` (flaches Array von Objekten) und `ssg-cfg-parse-nested` (genau 1 Ebene) sind ZEILENbasiert und koennen weder echte Verschachtelung noch mehrzeilige Arrays, maskierte Anfuehrungszeichen (`\"`) oder Kommas in Strings lesen; ihre Konsumenten (Konfiguration, Sprache, VF-Spec) sind auf dieses Verhalten eingestellt und bleiben unangetastet. Fuer alles andere `ssg-json-laden`/`ssg-json-parse`/`ssg-json-get` (rekursiver Descent-Parser ueber einen Positionszeiger): Objekt -> Alist, Array -> Liste, true -> T, false/null -> nil (beide nil, "Feld fehlt" ist also nicht von "Feld ist false" unterscheidbar), `\uXXXX` nur fuer ASCII. In `tests/test_unit.lsp` (`tu-tests-json`) gegen die echte Geruest-Datendatei getestet. Dazu `ssg-join` (Liste + Trennzeichen -> String). **DCL-Vorlagen**: `ssg-dcl-vorlage-fuellen` (Vorlage lesen, Markerzeilen `//@NAME@` durch erzeugte Zeilen ersetzen - reiner Kern `ssg-dcl-zeilen-ersetzen`, getestet - und per `ssg-dcl-temp-schreiben` als Temp-Datei schreiben) fuer Dialoge mit fester Grundstruktur und einzelnen datenabhaengigen Bloecken. `ssg-lastent-ohne-attribute`: Startmarke fuer "alles Neue seit Marke per entnext einsammeln" - statt nacktem `(entlast)` verwenden, sonst laeuft `entnext` in die ATTRIBs/SEQEND eines vorherigen Attribut-Blocks und `_.-BLOCK` entfernt sie dort (realer Bug: per Strg+C/V kopierter GR_-Block verlor beim naechsten GERUEST seine Attribute; Test `tests/test_lastent.lsp`) | -| `ssg_ks_insert.lsp` | - | Gemeinsame KS-Extraktion + Block-Einfuegeprimitiven (von VarioFoerderer UND Gefaellestrecke genutzt, frueher in beiden dupliziert): `vec-length`, `ks-line-axis`, `ks-normalize-name`, `ks-relativize`/`-absolutize`, `ensure-block-loaded`, `extract-ks-from-block[-raw]` (Cache `*ks-cache*`), `insert-block-by-ks` (nur Rz), `insert-inclined-scaled-block`/`insert-rotated-block-with-ks` (Rz*Ry). MNL laedt es als Core-Modul VOR Gefaellestrecke/VarioFoerderer; vf_core/Gefaellestrecke haben einen guarded Nachlade-Load fuers isolierte Test-Laden | +| `ssg_ks_insert.lsp` | - | Gemeinsame KS-Extraktion + Block-Einfuegeprimitiven (von VarioFoerderer UND Gefaellestrecke genutzt, frueher in beiden dupliziert): `vec-length`, `ks-line-axis`, `ks-normalize-name`, `ks-relativize`/`-absolutize`, `ensure-block-loaded`, `extract-ks-from-block[-raw]` (Cache `*ks-cache*`), `insert-block-by-ks` (nur Rz), `insert-inclined-scaled-block`/`insert-rotated-block-with-ks` (Rz*Ry). MNL laedt es als Core-Modul VOR Gefaellestrecke/VarioFoerderer; vf_core/Gefaellestrecke haben einen guarded Nachlade-Load fuers isolierte Test-Laden Fuer aufgerichtete/frei gedrehte Baugruppen: `ks-xy-winkel` (Richtung eines KS), `ks-block-messen`/`ks-versatz`, `insert-block-ks-skaliert` (Rz + X-Skalierung), `insert-block-ks-matrix` (freie 3x3-Rotationsmatrix, `ks-rot-x/-y/-z`). `ensure-block-loaded` nimmt einen Block OHNE Dimensionssuffix unveraendert, wenn nur der Rohname in der Zeichnung steht (Omniflo-Bloecke aus data/omniflo//). | | `ssg_lang.lsp` | - | Sprachumschaltung Deutsch/Englisch (ssg-text, ssg-textf, *ssg-lang*) | | `ssg_dbg.lsp` | - | Debug-Logging (dbgopen, dbgmsg, dbgflush, dbgclose) | | `ssg_dialog.lsp` | - | DCL-Dialog-Vorlagen und Hilfsfunktionen | @@ -106,14 +108,18 @@ Detaillierte Dokumentation aller Funktionen und Befehle: siehe `Lisp/README.md`. | `ssg_texttools.lsp` | SSG_TEXT_ERSETZEN, SSG_TEXT_PARALLEL, SSG_TEXT_HOEHE, SSG_TEXT_STIL | Text-Werkzeuge (Ursprung ACADSST `CHGTEXT`/`PARTEXT`/`ALTHOEHE`/`ALTSTIL`): Suchen/Ersetzen in TEXT, MTEXT und Block-Attributen (nutzt `ssg-bt-*`, daher NACH `ssg_blocktools` laden), Text parallel zu Linie/Polylinie/Bogen (lesbar ausgerichtet, Abstand), Hoehe/Stil aendern. Arbeitet in der XY-Ebene des Welt-KS. Reine Kerne `ssg-tt-lesbarer-winkel`, `ssg-tt-versetzt` getestet | | `ssg_stueckliste.lsp` | SSG_FAEHNCHEN_STUECKLISTE | Positions-Faehnchen + Stuecklistentabelle, komplett AUS DER ZEICHNUNG - es wird keine Datei eingelesen. Der Benutzer waehlt die Elemente aus (`ssg-sl-erkannte-elemente`: `ssget`-Auswahl, Enter ohne Auswahl = alle erkannten im aktuellen Layout; der reine Filter `ssg-sl-elemente-aus-ss` laesst nicht erkannte Objekte still wegfallen, man darf also grosszuegig ein Fenster aufziehen). `ssg-sl-klasse` klassifiziert Blocknamen (`KREISEL_*`/`ECKRAD_*` -> "ILS Kreisel/Eckrad", `VF_*`/`GF_*` -> "ILS Streckengruppe", `GR_*` -> "Rohrgeruest", `AP60*`/`AP110*`/`AP_110*`/`APG110*` -> je eigene Omniflo-Geraden-Gruppe; wirksamer Blockname ueber `ssg-bt-effname`, also auch dynamische Bloecke). Jedes einzelne Element bekommt ein Faehnchen (`ssg-sl-faehnchen`, Rechteck/Kreis/Automation-Rahmen + Text) an der unteren linken Ecke seiner Bounding-Box (aus `csv:get-bbox` - liefert Zentrum+Abmessungen, NICHT Eckpunkte, die Ecke wird im Code daraus berechnet); die Tabelle (`ssg-sl-tabelle-zeichnen`) gruppiert GROB je Elementklasse (keine Sivas-Artikelaufloesung wie `export_sivas.py`) zu einer Zeile mit Anzahl + Laengensumme aus dem `LAENGE`-Attribut (`ssg-sl-gruppieren`/reiner Kern `ssg-sl-gruppieren-werte`), mehrere gleichartige Elemente tragen daher dieselbe Positionsnummer. **Bewusst KEIN Datei-Import wie bei Walz/Bihler**: dort vergab ein externes System die Positionsnummern und lieferte sie als Datei zurueck, die das CAD nur abzeichnete - bei Walz (`MENU/POSITION.LSP`) eine `.pos`/`.zei` aus einem Clipper-Warenwirtschaftssystem mit Koordinaten-Zuordnung, bei Bihler ITB (`Walz_und_Bihler/SBCADBib/ITB-Module_ori.lsp`, `c:bea_pos`) eine `.pos` mit Zuordnung ueber den Entity-Handle. Diese Umwege sind hier nicht nachgebaut (Entscheidung 2026-10): Nummern und Mengen entstehen in dieser Funktion, die Stuecklisten-AUSGABE liefern EXPORTSIVAS/EXPORTCSV aus denselben Block-Attributen. Der alte `c:stueckl` (Laengen-Summierung ueber hartcodierte Walz-Profillayer wie `L-2`=ST, `A-7`=AP110) hat ebenfalls kein Aequivalent im dxfmakros-Datenmodell (Block-Attribute statt Linien-Layer). Braucht `csv:get-bbox`/`csv:get-attrib` aus `export.lsp` und `ssg-bt-effname` aus `ssg_blocktools.lsp` - muss daher NACH beiden geladen werden (siehe `ssg-ensure`-Reihenfolge in `SSG_LIB.mnl`/`ssg_load.lsp`). Reine Kerne `ssg-sl-klasse`, `ssg-sl-gruppieren-werte` in `tests/test_unit.lsp` getestet | | `KreiselInsert.lsp` | KreiselInsert, KreiselConnect, KreiselRedraw, KreiselQuick, KreiselEdit, KreiselParams, KreiselLabelSetup, KreiselLabelPos, KreiselLabelHoehe, ILS_Eckrad, EckradEdit, KREISEL_WEICHEN | ILS Kreisel und Eckrad komplett in AutoLISP. **Drehrichtungspfeil**: `draw-module` fuegt `data/ils/Drehrichtungspfeil.dwg` auf AN8-Mitte (Block-KS 90 Grad, da die DWG fuer Kreisel Nord->Sued gezeichnet ist; cfg `kreisel.pfeil_winkel`) und SP8-Mitte (+180) mit in den KREISEL_n-Block ein, GUZ = X-Skalierung -1 (reiner Kern `kreisel-pfeil-params`, getestet); Eckrad: ein Pfeil auf der Radmitte mit dem AN8-Winkel (`eckrad-pfeil-params`); bei wiederverwendeter Blockdefinition (KREISEL_n bzw. ECKRAD_n) zieht `kreisel-pfeil-aktualisieren` die Spiegelung per `entmod` nach. **Beruehrpunkte/Weichen** (`kreisel-bp-*`, Befehl KREISEL_WEICHEN, Menue Kreisel-Module -> Weichenpunkte ermitteln): ermittelt aus den Blockparametern (Einfuegepunkt, Drehung, ABSTAND - nicht aus der Geometrie, Modell wie `draw-module`) die Beruehrpunkte aller `KREISEL_*`/`ECKRAD_*` GLEICHER Hoehe (`toleranz_hoehe`): Rad/Rad (`Kreis/Kreis`) und Rad/Laufprofil (`Kreis/Tangente`), nur auf der freien Radseite (aeusserer Halbkreis inkl. Flanken; Eckrad ganz frei), Toleranz `toleranz_beruehrung` (component_defaults.json, Sektion kreisel). Kapsel-Mindestabstand < 2r - tol = KOLLISION (Ueberschneidung), Kreisel Seite an Seite (Beruehrung nur an Flanke/Profil) = KOLLISION `Tangente/Tangente` - beide werden gemeldet, aber nie zur Weiche. Ausgabe: Konsolenliste + Kreis-Marker (Layer `kreisel_weiche`/`kreisel_kollision` aus layer.cfg, XDATA `SSG_KR_WEICHE`, jeder Lauf ersetzt die alten). Der Export schreibt dieselben Punkte als `kreisel_weichen.json` neben `export_raw.json` (`csv:kreisel-weichen-schreiben`, export.lsp); `export_csv.py` uebernimmt sie (`export_neighbors.load_lisp_kreisel_weichen`/`lisp_touch_switches`, Rueckfall auf `compute_kreisel_touch_switches` nur ohne Datei), `export_sivas.py` setzt daraus Merkmal 4403 "Anzahl Weichen ILS". Reine Kerne `kreisel-bp-element`/`-paar`/`-berechnen` in `tests/test_unit.lsp` (`tu-tests-kreisel-bp`, u.a. mit den 11 Einfuegungen aus `tests/testdata/schnittspunkte_kreisel.dxf` -> 10 Beruehrungen) getestet. Eckrad: eigener Dialog `eckrad_edit.dcl` (`eckrad-dialog`, reiner Kern `eckrad-dialog-werte` getestet) beim Einfuegen (ILS_Eckrad, ohne GUI Konsolen-Rueckfall) und per Doppelklick (EckradEdit); kein Abstand/Typ, Drehung als freier Winkel statt fester Kreisel-Ausrichtung. `ils-eckrad-insert` behaelt eine vorhandene NUMMER (Edit -> gleicher Blockname `ECKRAD_n`). Kreiselname: `draw-module` setzt `Bezeichnung` nur noch bei leerem Wert auf die Vorgabe `KreiselN` (eigener Name aus KreiselEdit bleibt erhalten); Beschriftung `kreisel-label-text` = `KREISEL n: _` (ohne Namen bzw. bei Vorgabename wie bisher `KREISEL n: _`); da die Beschriftung als TEXT in der wiederverwendeten Blockdefinition `KREISEL_n_TYP_ABSTAND` steckt, setzt `kreisel-label-aktualisieren` sie dort per `entmod` neu (wirkt auf alle Referenzen der Definition) | -| `VarioFoerderer.lsp` (Wrapper fuer `vf_core.lsp`/`vf_standard.lsp`/`vf_etage.lsp`/`vf_linienzug.lsp`) | FOERDERANLAGE, VARIOFOERDERER_EDIT, VARIOFOERDERER_NACHRUESTEN, Vario_Kette_Merge, VF_SEKTION_RESTORE, VF_WIZARD_AN, VF_WIZARD_AUS | Vario-Foerderanlagen Generator (Typen Standard/Etage/Linienzug); Standard- UND Etage-Typ: Werteingabe per DCL-Dialog, inkl. der vorgelagerten Eingabemodus-Wahl 3D-Linie/Werte manuell (`vfc_eingabemodus`, `vfc-dialog-eingabemodus-waehlen`) - beide Modi laufen seitdem in denselben Basis-/Winkel-Dialog, der Konsolen-Pfad ist nur noch Rueckfall bei abgeschalteter GUI/anderer Sprache. Der Dialog-Ablauf ist zentral in vf_core (`vf-dialog-ablauf`/`vf-dialog-berechnen-einfuegen`, parametrisiert ueber Typ-Registry `*vf-typ-registry*` + Flag `horizontal-p`); `vfs-standard-dialog-ablauf`/`vfe-etage-dialog-ablauf` sind nur noch duenne Wrapper darauf. Beide nutzen dieselben Dialoge `vfs-dialog-eingabe-basis`/`vfs-dialog-winkel-verteilung` und den gemeinsamen L_GF/L_VF-Solve `vf-winkel-solve` (vf_core; berechne-alle-winkel/berechne-winkel-etage teilen ihn); Doppelklick auf VF_n-Block ruft VARIOFOERDERER_EDIT, das per SSG_VF_EDIT-XDATA-Marker ("standard"/"etage"/"linienzug") in den passenden Neuaufbau-Zweig dispatcht (`vfe-edit-ent` fuer Etage, `vfl-edit-ent` fuer Linienzug); Altbestand-Bloecke ohne Marker werden abgewiesen. Linienzug (Modus 1, `vf-linienzug-modus`) zeichnet jede interaktive Eingabe in einem Journal auf (`vfl-in-point`/`-string`/`-real`/`-int`) und schreibt es als XDATA auf den fertigen `VF_n`-Block; ein Abbruch (ESC) loescht dadurch nichts mehr, sondern wickelt die bis dahin gebaute Teil-Geometrie ebenso zu einem Block (`vfl-modus-abbruch-sichern`) - sie bleibt stehen und ist sofort per Doppelklick weiter editierbar/fortsetzbar. Der komplette Linienzug-Hauptstrang (Menue-Fragen von AS-Element bis Kettenende, inkl. GF-Bogen/Vario-Kurve/VF-Einheit-Fortsetzung) laeuft per Default ueber DCL-Dialoge statt Konsole (`*vfl-wizard-mode*`, Befehle VF_WIZARD_AN/VF_WIZARD_AUS): `vfl-in-string`/`-int`/`-real` zeigen bei aktivem Wizard-Modus generische Dialoge aus `dcl/vf_linienzug_wizard.dcl` (Zahl-Eingabe bzw. Mehrfachauswahl aus `vfl-menu`/`vfl-menu-int`) statt `getstring`/`getint`/`getreal` aufzurufen; die ORIGINALEN Konsolen-Fragen (princ + get*, de/en ueber ssg-text) bleiben unveraendert im Code (Fallback bei Fehlern via `vl-catch-all-apply`, siehe `doc/variofoerderer.md`). `vfl-edit-ent` liest das Journal, zeigt die Sektionen ueber einen DCL-Dialog (`vfl-dlg-position`, `dcl/vfl_edit.dcl`) an, kuerzt bei Bedarf auf eine gewaehlte Sektion (stummer Replay der behaltenen Eingaben, umgeht den Wizard-Zweig komplett) und baut danach interaktiv weiter. Linienzug Modus 2 (Pfad+Zielhoehe-Solver, `vf-linienzug-modus2`) nutzt dieselben Wrapper PLUS die neue Objektauswahl-Wrapper-Funktion `vfl-in-selection` (Pfad-Objekte als stabile Entity-Handles journalisiert, neue Journal-Art `"OBJS"`) und schreibt sein Journal unter dem eigenen XDATA-Marker `"linienzug2"`; Doppelklick baut hier NICHT abschnittsweise, sondern per vollem Reset 1:1 aus dem Journal neu auf (`vfl-edit-ent2`, dispatcht aus `vfl-edit-ent` per Marker) - Modus 3 (Vorwaerts-Nachbau) bleibt bewusst reine Konsole (im Code selbst als Legacy/"wird umgebaut" markiert). `Vario_Kette_Merge` (in vf_linienzug.lsp) fuehrt mehrere einzeln gebaute VF_n-Bloecke ab einem gewaehlten Start-Baustein ueber die reale KS_AUS->KS_EIN-Nachbarschaft zu einem Gesamt-Block zusammen (aggregierte Attribute, Luecken-Erkennung). Die interaktiven Editier-Pfade (`vfl-edit-ent` Sektions-Zweig, `vfl-edit-ent2`) rufen den Neuaufbau BEWUSST direkt auf, NICHT ueber `vl-catch-all-apply`: der alte Block ist beim Neuaufbau schon per `entdel` weg, und ein Catch faengt den Abbruch VOR `*error*` ab - der Abbruch-Wickler `vfl-modus-abbruch-sichern` kaeme nie zum Zug und die ganze Kette bliebe als lose Einzelteile ohne Block liegen (Fehlerbild "VF-Block aufgebrochen"). Nur der nicht-interaktive Batch-Konverter `vfl-konvertiere-ent` behaelt den Catch (die Batch-Schleife muss weiterlaufen) und meldet den betroffenen Block. Die Abbruch-Handler setzen zusaetzlich `*ssg-ils-dim*` zurueck, weil der Aufrufer, der das sonst tut, nach einem Abbruch nicht mehr erreicht wird. Recovery-Pfad fuer bereits aufgebrochene Ketten: `VF_SEKTION_RESTORE` (vf_linienzug.lsp) setzt das Ketten-Journal aus der XDATA der losen Objekte zusammen - `SSG_VF_EDIT_SEG` traegt pro Entity den Journal-Abschnitt DER ITERATION, in der es entstand (indiziert mit dem ersten Glied-Index darin; eine VF-Einheit mit eingebetteten Vario-Kurven erzeugt mehrere Glieder in einer Iteration), `SSG_VF_EDIT_PRE` auf den Entities des ersten Gliedes die Praeambel (Startpunkt/Starthoehe/AS). Die `.dbg`-Dateien sind reine AUSGABE und werden von keinem Befehl gelesen (dbgopen legt sie bei jedem Lauf neu an) - Wiederherstellungs-Daten gehoeren in die XDATA. `vf_konstanten.lsp` (von vf_core.lsp vor den drei Submodulen geladen) sammelt alle Laengen-/Winkel-/Toleranz-Magic-Numbers aus dem VarioFoerderer-Cluster als dokumentierte `*vfk-*`-Konstanten. Die Migration ist abgeschlossen: vf_core/vf_standard/vf_etage/vf_linienzug referenzieren durchgaengig die zentralen Konstanten statt roher Literale (Winkel, Stations-/Separator-Laengen, Mindestlaengen, AS/ES-Fallback-Versaetze, Text-/Label-Masse) - Ausnahmen sind in `vf_konstanten.lsp` selbst dokumentiert (Werte mit fuehrender Config-Anbindung via `ssg-cfg-or`, itoa-/Integer-Kontexte, Blocknamen-Strings, die 2000.0-mm/m-Umrechnung). `*vfk-gf-bogen-winkel*` (30/60/90, GF-Bogen + Vario-Kurve) und `*vfk-as-es-winkel*` ("30"/"90", AS/ES; bewusst STRING, da 2-wertig und im Journal als STR gefuehrt) sind Beispiele; vf_linienzug hat fuer beide einen Fallback, falls vf_konstanten nicht geladen wurde. **Nicht-interaktiver Betrieb**: `*vfl-headless*` (+ `vfl-headless-p`/`-abbruch`/`-notausgang`, Diagnose `*vfl-headless-fehler*`, optionaler Antwort-Hook `*vfl-headless-antwort-fn*`) verbietet jede Live-Eingabe - eine erschoepfte Replay-Queue ist damit ein harter Abbruch MIT Fundstelle (Art der Eingabe, Glied- und Eingabe-Nummer) statt eines stillen Rueckfalls auf `getpoint`/`getreal`; eingebaut in `vfl-in-value`/`-value-p`/`-selection`/`-abstand`. Die Bau-Pfade melden abgewiesene Sektionen ueber `vfl-meldung` (sammelt nach `*vfl-meldungen*` + `dbgmsg`, `alert` nur bei erlaubter GUI, sonst `princ`) statt per blockierendem `alert`; reine Interaktiv-Alerts (fehlendes DCL, "nicht editierbar", "kein Journal") bleiben `alert`. Genutzt von `tests/test_hm_recformat.lsp` (Replay der echten Aufzeichnungen) und von `vf_spec.lsp`; Fahrplan in `doc/todo/plan-vf-interactive.md`. Details/Entscheidungsbaum: `doc/variofoerderer.md` | +| `VarioFoerderer.lsp` (Wrapper fuer `vf_core.lsp`/`vf_standard.lsp`/`vf_etage.lsp`/`vf_linienzug.lsp`) | FOERDERANLAGE, VARIOFOERDERER_EDIT, VARIOFOERDERER_NACHRUESTEN, Vario_Kette_Merge, VF_SEKTION_RESTORE, VF_WIZARD_AN, VF_WIZARD_AUS | Vario-Foerderanlagen Generator (Typen Standard/Etage/Linienzug); Standard- UND Etage-Typ: Werteingabe per DCL-Dialog, inkl. der vorgelagerten Eingabemodus-Wahl 3D-Linie/Werte manuell (`vfc_eingabemodus`, `vfc-dialog-eingabemodus-waehlen`) - beide Modi laufen seitdem in denselben Basis-/Winkel-Dialog, der Konsolen-Pfad ist nur noch Rueckfall bei abgeschalteter GUI/anderer Sprache. Der Dialog-Ablauf ist zentral in vf_core (`vf-dialog-ablauf`/`vf-dialog-berechnen-einfuegen`, parametrisiert ueber Typ-Registry `*vf-typ-registry*` + Flag `horizontal-p`); `vfs-standard-dialog-ablauf`/`vfe-etage-dialog-ablauf` sind nur noch duenne Wrapper darauf. Beide nutzen dieselben Dialoge `vfs-dialog-eingabe-basis`/`vfs-dialog-winkel-verteilung` und den gemeinsamen L_GF/L_VF-Solve `vf-winkel-solve` (vf_core; berechne-alle-winkel/berechne-winkel-etage teilen ihn); Doppelklick auf VF_n-Block ruft VARIOFOERDERER_EDIT, das per SSG_VF_EDIT-XDATA-Marker ("standard"/"etage"/"linienzug") in den passenden Neuaufbau-Zweig dispatcht (`vfe-edit-ent` fuer Etage, `vfl-edit-ent` fuer Linienzug); Altbestand-Bloecke ohne Marker werden abgewiesen. Linienzug (Modus 1, `vf-linienzug-modus`) zeichnet jede interaktive Eingabe in einem Journal auf (`vfl-in-point`/`-string`/`-real`/`-int`) und schreibt es als XDATA auf den fertigen `VF_n`-Block; ein Abbruch (ESC) loescht dadurch nichts mehr, sondern wickelt die bis dahin gebaute Teil-Geometrie ebenso zu einem Block (`vfl-modus-abbruch-sichern`) - sie bleibt stehen und ist sofort per Doppelklick weiter editierbar/fortsetzbar. Der komplette Linienzug-Hauptstrang (Menue-Fragen von AS-Element bis Kettenende, inkl. GF-Bogen/Vario-Kurve/VF-Einheit-Fortsetzung) laeuft per Default ueber DCL-Dialoge statt Konsole (`*vfl-wizard-mode*`, Befehle VF_WIZARD_AN/VF_WIZARD_AUS): `vfl-in-string`/`-int`/`-real` zeigen bei aktivem Wizard-Modus generische Dialoge aus `dcl/vf_linienzug_wizard.dcl` (Zahl-Eingabe bzw. Mehrfachauswahl aus `vfl-menu`/`vfl-menu-int`) statt `getstring`/`getint`/`getreal` aufzurufen; die ORIGINALEN Konsolen-Fragen (princ + get*, de/en ueber ssg-text) bleiben unveraendert im Code (Fallback bei Fehlern via `vl-catch-all-apply`, siehe `doc/variofoerderer.md`). `vfl-edit-ent` liest das Journal, zeigt die Sektionen ueber einen DCL-Dialog (`vfl-dlg-position`, `dcl/vfl_edit.dcl`) an, kuerzt bei Bedarf auf eine gewaehlte Sektion (stummer Replay der behaltenen Eingaben, umgeht den Wizard-Zweig komplett) und baut danach interaktiv weiter. Linienzug Modus 2 (Pfad+Zielhoehe-Solver, `vf-linienzug-modus2`) nutzt dieselben Wrapper PLUS die neue Objektauswahl-Wrapper-Funktion `vfl-in-selection` (Pfad-Objekte als stabile Entity-Handles journalisiert, neue Journal-Art `"OBJS"`) und schreibt sein Journal unter dem eigenen XDATA-Marker `"linienzug2"`; Doppelklick baut hier NICHT abschnittsweise, sondern per vollem Reset 1:1 aus dem Journal neu auf (`vfl-edit-ent2`, dispatcht aus `vfl-edit-ent` per Marker) - Modus 3 (Vorwaerts-Nachbau) baut dieselbe Pfad-Geometrie VORWAERTS mit vorgegebenen Winkeln durch: die Endhoehe ist dort ein Ergebnis, kein Ziel (Anfangs- statt Randwertproblem) - genau das ist sein eigener Anwendungsfall, und er schreibt ein eigenes Journal (Marker `"linienzug3"`), ist also ebenso per Doppelklick editierbar. Seit 2026-10-22 fragt er wie Modus 2 "AS bauen?"/"ES bauen?" (je mit Winkel+Seite in EINEM Dialog, `vflw-gruppe-as-impl`), und die **ES-Frage steht VOR dem Bau** - erst damit traegt die Trimmung der letzten Geraden (`- Separator - ein-dx`) den echten ES-Fussabdruck statt eines Schaetzwerts bzw. des Werts der vorherigen Kette. Aeltere `"linienzug3"`-Journale erkennt `alt-journal` am WERT des ersten Antwort-Eintrags (`"30"`/`"90"` = alt vs. `"1"`/`"2"` = neu, disjunkte Mengen; Helfer `vfl-replay-peek-wert`) und spielt sie in der alten Reihenfolge ab. **Helfer-Namensschema**: die Rechenkerne heissen nach ihrer ROLLE, nicht nach der Modus-Nummer - `vfl-zsolve-*` (Hoehen-Solve, nur Modus 2) und `vfl-pfad-*` (Arbeit am gezeichneten Pfad, von Modus 2 UND 3 genutzt). Die frueheren Praefixe `vfl3-`/`vfl2-` stammten aus einer Planungsphase vor der endgueltigen Menue-Zuordnung und waren dazu vertauscht (umbenannt 2026-10-22). `Vario_Kette_Merge` (in vf_linienzug.lsp) fuehrt mehrere einzeln gebaute VF_n-Bloecke ab einem gewaehlten Start-Baustein ueber die reale KS_AUS->KS_EIN-Nachbarschaft zu einem Gesamt-Block zusammen (aggregierte Attribute, Luecken-Erkennung). Die interaktiven Editier-Pfade (`vfl-edit-ent` Sektions-Zweig, `vfl-edit-ent2`) rufen den Neuaufbau BEWUSST direkt auf, NICHT ueber `vl-catch-all-apply`: der alte Block ist beim Neuaufbau schon per `entdel` weg, und ein Catch faengt den Abbruch VOR `*error*` ab - der Abbruch-Wickler `vfl-modus-abbruch-sichern` kaeme nie zum Zug und die ganze Kette bliebe als lose Einzelteile ohne Block liegen (Fehlerbild "VF-Block aufgebrochen"). Nur der nicht-interaktive Batch-Konverter `vfl-konvertiere-ent` behaelt den Catch (die Batch-Schleife muss weiterlaufen) und meldet den betroffenen Block. Die Abbruch-Handler setzen zusaetzlich `*ssg-ils-dim*` zurueck, weil der Aufrufer, der das sonst tut, nach einem Abbruch nicht mehr erreicht wird. Recovery-Pfad fuer bereits aufgebrochene Ketten: `VF_SEKTION_RESTORE` (vf_linienzug.lsp) setzt das Ketten-Journal aus der XDATA der losen Objekte zusammen - `SSG_VF_EDIT_SEG` traegt pro Entity den Journal-Abschnitt DER ITERATION, in der es entstand (indiziert mit dem ersten Glied-Index darin; eine VF-Einheit mit eingebetteten Vario-Kurven erzeugt mehrere Glieder in einer Iteration), `SSG_VF_EDIT_PRE` auf den Entities des ersten Gliedes die Praeambel (Startpunkt/Starthoehe/AS). Die `.dbg`-Dateien sind reine AUSGABE und werden von keinem Befehl gelesen (dbgopen legt sie bei jedem Lauf neu an) - Wiederherstellungs-Daten gehoeren in die XDATA. `vf_konstanten.lsp` (von vf_core.lsp vor den drei Submodulen geladen) sammelt alle Laengen-/Winkel-/Toleranz-Magic-Numbers aus dem VarioFoerderer-Cluster als dokumentierte `*vfk-*`-Konstanten. Die Migration ist abgeschlossen: vf_core/vf_standard/vf_etage/vf_linienzug referenzieren durchgaengig die zentralen Konstanten statt roher Literale (Winkel, Stations-/Separator-Laengen, Mindestlaengen, AS/ES-Fallback-Versaetze, Text-/Label-Masse) - Ausnahmen sind in `vf_konstanten.lsp` selbst dokumentiert (Werte mit fuehrender Config-Anbindung via `ssg-cfg-or`, itoa-/Integer-Kontexte, Blocknamen-Strings, die 2000.0-mm/m-Umrechnung). `*vfk-gf-bogen-winkel*` (30/60/90, GF-Bogen + Vario-Kurve) und `*vfk-as-es-winkel*` ("30"/"90", AS/ES; bewusst STRING, da 2-wertig und im Journal als STR gefuehrt) sind Beispiele; vf_linienzug hat fuer beide einen Fallback, falls vf_konstanten nicht geladen wurde. **Nicht-interaktiver Betrieb**: `*vfl-headless*` (+ `vfl-headless-p`/`-abbruch`/`-notausgang`, Diagnose `*vfl-headless-fehler*`, optionaler Antwort-Hook `*vfl-headless-antwort-fn*`) verbietet jede Live-Eingabe - eine erschoepfte Replay-Queue ist damit ein harter Abbruch MIT Fundstelle (Art der Eingabe, Glied- und Eingabe-Nummer) statt eines stillen Rueckfalls auf `getpoint`/`getreal`; eingebaut in `vfl-in-value`/`-value-p`/`-selection`/`-abstand`. Die Bau-Pfade melden abgewiesene Sektionen ueber `vfl-meldung` (sammelt nach `*vfl-meldungen*` + `dbgmsg`, `alert` nur bei erlaubter GUI, sonst `princ`) statt per blockierendem `alert`; reine Interaktiv-Alerts (fehlendes DCL, "nicht editierbar", "kein Journal") bleiben `alert`. Genutzt von `tests/test_hm_recformat.lsp` (Replay der echten Aufzeichnungen) und von `vf_spec.lsp`; Fahrplan in `doc/todo/plan-vf-interactive.md`. **Zufuehrungsachse + "Parallel zum Kreisel"** (Modus 1, 2026-10-21): die AS-Praeambel fragt jetzt Winkel, Seite UND eine optionale Zufuehrungsachse (2. Punkt) - beide zusammen legen AS-Lage (KS_EIN auf der Achse) und Kettenrichtung (KS_AUS ueber die Seiten-Variante) fest, BEVOR eine Strecke geklickt wird; Journalfolge `[STR winkel][STR seite][PT p2 | NIL]`, welche Fragen gestellt wurden wird NICHT journalisiert, sondern beim Replay aus der Eintragsart erkannt (PT direkt nach dem Winkel = Alt-Achse ohne Seite 2026-10-14..10-20, PT/NIL nach der Seite = neues Format, alles andere = Altbestand ohne Achse). Darauf setzt die 5. Option der gf-laenge-modus-Frage auf, intern `"parallel"` (`vfl-gf-parallel-kreisel`): baut AS -> GF-Stueck -> GF-Bogen aus EINEM Abstandswert (senkrecht zur Zufuehrungsachse, AS-KS_EIN bis Bogen-KS_AUS), ohne Separator dazwischen, und stellt die Kettenende-Frage selbst NACH dem Bau. Nur am Kettenanfang mit AS UND Achse waehlbar (sonst Kachel deaktiviert). Bogenwahl nicht hartcodiert, sondern ueber den gemessenen `vf-element-plan-turn` - gewaehlt wird der Bogen, der den AS-Schwenk aufhebt (AS 30 -> 30-Grad-Bogen, AS 90 -> 90-Grad-Bogen, immer Gegenseite; die Zuordnung ist das ERGEBNIS der Messung, keine gepflegte Tabelle). Reine Kerne `vfl-par-bogen-waehlen`/`vfl-par-gf-laenge` in `tests/test_unit.lsp` (`tu-tests-vfl-parallel`) getestet; Ablauf in `doc/vf_linienzug_modus1_anleitung.md` Abschnitt 3a. Details/Entscheidungsbaum: `doc/variofoerderer.md` | | `vf_spec.lsp` (von vf_core.lsp NACH vf_linienzug.lsp geladen) | VF_SPEC_BAU | Linienzug-Ketten aus **Eingabedaten** bauen, ohne Dialog und ohne Konsolenfrage (Stufe 1 aus `doc/todo/plan-vf-interactive.md`). Eine **Spec** beschreibt eine Kette in Domaenenwerten (`"links"`, `"winkel"`, `"aussen"`, ja/nein) statt in Menue-Codes; `vsp-journal` uebersetzt sie in ein Eingabe-Journal, `vsp-bau-aus-spec` spielt es per `vfl-journal-replay-start` durch den UNVERAENDERTEN `vf-linienzug-modus` (Replay-Kern `vsp-bau-journal` - nimmt auch ein unveraendert uebernommenes, aufgezeichnetes Journal, z.B. aus `dxf_anlage_export.py`). Damit traegt der fertige Block dasselbe `SSG_VF_EDIT`-Journal wie eine handgebaute Kette und bleibt per Doppelklick editier- und 2D/3D-konvertierbar - kein Journal-Konsument muss etwas von Specs wissen. Wichtige Regeln, die der Uebersetzer kennt: der Menue-Code haengt am Frame (erste Sektion 4 Optionen ohne GF-Bogen, danach 5), `hz` steht nur beim ERSTEN Segment im Journal, und `erst-hor` unterscheidet den horizontalen Erstkoerper einer VF-Einheit (Separator-/Endpunktfragen vorab) vom gewinkelten (keine Frage). Fehlerverhalten: fail fast - `vsp-pruefen` sammelt ALLE Spec-Fehler, gebaut wird dann nichts (nichts wird geraten). Ergebnis-Record je Kette mit `status` (`executed`/`warnung`/`desync`/`abbruch`/`spec-fehler`), Block/Handle/Einfuegepunkt/Attributen, `prompts` (muss 0 sein), `glieder_soll` vs. `glieder_ist` (Desync-Detektor, der auch bei aufgehender Queue greift) und den gesammelten `meldungen`. Headless-Rahmen `vsp-headless-an`/`-aus` (Save/Restore von `*vfl-headless*`, `*vfl-wizard-mode*`, `*ssg-gui-aus*` + zaehlende Eingabe-Stubs). Spec-Datei flach als JSON (`ssg-load-json` liest zeilenweise), erzeugt von `lib/vf_spec_export.py`. Gegenstueck/Referenz in Python: derselbe Emitter, gegen die 5 echten HundM-Ketten rundlaufgeprueft | | `Gefaellestrecke.lsp` | GEFAELLESTRECKE, GEFAELLESTRECKE_EDIT | Gefaelle-Foerderanlage (AUS -> Staustrecke skaliert -> Separator -> EIN); Modus 1 per DCL-Dialog (Einfuegehoehe, Element-Winkel 30/90); Doppelklick auf GF_n-Block ruft GEFAELLESTRECKE_EDIT (Dialog vorbelegt, Neuaufbau; die Einfuegehoehe kommt aus der aktuellen Z des Einfuegepunkts statt aus XDATA/HOEHE_VON_mm, damit ein in Z verschobener Block per OK direkt auf der neuen Hoehe neu entsteht - gleiches gilt fuer die 2D/3D-Umschaltung `gf-konvertiere-ent`; der GF-Linienzug-Rebuild nutzt weiter die absoluten Segmentpunkte aus XDATA) | | `export.lsp` | EXPORTSIVAS, EXPORTCSV, OMNI_UPDATE_ATTRIBS, CSV_EXPORT_KONFIG | JSON-Sammlung und Python-Export (Omniflo-Merkmale/Sum-Zeile via lib/export_csv.py). **Gefrorene Layer**: `csv:collect-export-blocks` laesst Bloecke auf gefrorenen Layern aus (ausgeschaltete Layer zaehlen NICHT), Schalter `*csv-gefrorene-ausschliessen*` (Standard an, Toggle im Dialog CSV_EXPORT_KONFIG). Die Hilfsobjekte eines gefrorenen VF_n/GF_n (Separator-/Element-Kopien, Einheiten-/AS-ES-Marker) liegen auf eigenen Layern und werden darum ueber `*csv-ausschluss-enames*` mit ausgelassen (gesetzt in `csv:export-vorbereiten` per `csv:hilfskopien-ausschluss`); erzeugt und nummeriert werden sie trotzdem, damit IDs stabil bleiben. DrawPlanquadrate nutzt dieselbe Sammlung und folgt dem Filter. **Hoehen-Neuberechnung**: erster Schritt von `csv:export-vorbereiten` ist `csv:hoehen-aktualisieren` - in Z verschobene `KREISEL_*`/`ECKRAD_*`/`VF_*`/`GF_*` bekommen ihre Hoehen-Attribute aus der Einfuege-Z neu (reiner Kern `csv:hoehen-werte`, getestet; Formeln/Rundung wie beim Bau: Kreisel HOEHE + MONTAGEHOEHE_m=z/1000, Eckrad HOEHE, GF/VF HOEHE_VON_mm=(fix z), MONTAGEHOEHE_m GF=z/1000 bzw. VF=(VON+BIS)/2000). HOEHE_BIS_mm = VON - (VON_alt - BIS_alt), bewusst NICHT z - DELTA_H_mm (ohne Vorzeichen -> steigende VF falsch, separat abgeschnitten -> 1 mm Abweichung); DELTA_H_mm nur Rueckfall. Nicht verschobene Bloecke (Attribut passt zu z) bleiben unangetastet, damit Bau-Werte und Hand-Korrekturen (z.B. Buehnen-Abzug aus HOEHEN_CHECK) bit-genau erhalten bleiben | -| `OmniModulInsert.lsp` | OMNI_LOAD, OMNI_APB_*, OMNI_W*_*, OMNI_AP60/AP110, OMNI_TEF_*, OMNI_TV_*, OMNI_APBW_*, OMNI_LADESCHLEIFE_AP110, OMNI_EDIT | Omniflo-Komponenten: Boegen, Weichen, Verbinder, Transferwagen, Ladeschleifen (`data/json/omniflo_ladeschleifen.json`, per `ssg-json-laden`, da die Beschreibungen Kommas enthalten; Blockdatei darf `.dwg` statt `.dxf` sein), Edit-Dialog | -| `SSG_LIB_Commands.lsp` | ILS_BTMT_Beladung, ILS_BTMT_Entladung, ILS_SCANNER_INSERT, ILS_SEPARATOR_INSERT, ILS_EINGANG_INSERT, ILS_AUSGANG_INSERT, ILS_ETF_*, ILS_GK*_*, SSG_BLOCKEDIT, SSG_DIM_SWITCH, SSG_SPRACHE | BTMT Be-/Entladung (`ils-insert-station`: wiederholtes Einfuegen von `BTMT-Beladung` bzw. `SC_Entladung`, Drehung interaktiv, Layer aus `LAYER`-Attribut, Dimension via `ssg-ils-block-laden`) + Sensoren (`ils-insert-sensor`) + Eingang-/Ausgang-Symbol (frei platzierbar wie BTMT Be-/Entladung, ueber `ils-insert-station` mit den Rohnamen `Eingang`/`Ausgang`, Bloecke `Eingang_.dwg`/`Ausgang_.dwg` in data/ils) + Dummy-Befehle fuer Menue + Doppelklick/Kontextmenue-Dispatcher + Konfiguration (2D/3D, Sprache) | +| `OmniModulInsert.lsp` | OMNI_LOAD, OMNI_APB_*, OMNI_W*_*, OMNI_AP60/AP110, OMNI_TEF_*, OMNI_TV_*, OMNI_APBW_*, OMNI_LADESCHLEIFE_AP110, OMNI_EDIT | Omniflo-Komponenten: Boegen, Weichen, Verbinder (`OMNI_TV_*`: DWGs dimensionsunabhaengig in `data/omniflo/Verbinder`, `omni:insert-verbinder` -> gemeinsamer Einfuegekern `omni:insert-datei`, den auch `omni:insert-dxf` nutzt; im Export ueber `pattern_verbinder` = `VB_*, TV_*` gesammelt (`csv:collect-export-blocks`, `ssg-id-collect-blocks`), Sivas-Zeilen ueber TEILEART/ARTINR wie alle Omniflo-Teile), Transferwagen, Ladeschleifen (`data/json/omniflo_ladeschleifen.json`, per `ssg-json-laden`, da die Beschreibungen Kommas enthalten; Blockdatei darf `.dwg` statt `.dxf` sein), Edit-Dialog | +| `SSG_LIB_Commands.lsp` | ILS_BTMT_Beladung, ILS_BTMT_Entladung, ILS_SCANNER_INSERT, ILS_SEPARATOR_INSERT, ILS_EINGANG_INSERT, ILS_AUSGANG_INSERT, SSG_BLOCKEDIT, SSG_DIM_SWITCH, SSG_SPRACHE | BTMT Be-/Entladung (`ils-insert-station`: wiederholtes Einfuegen von `BTMT-Beladung` bzw. `SC_Entladung`, Drehung interaktiv, Layer aus `LAYER`-Attribut, Dimension via `ssg-ils-block-laden`) + Sensoren (`ils-insert-sensor`) + Eingang-/Ausgang-Symbol (frei platzierbar wie BTMT Be-/Entladung, ueber `ils-insert-station` mit den Rohnamen `Eingang`/`Ausgang`, Bloecke `Eingang_.dwg`/`Ausgang_.dwg` in data/ils) + Doppelklick/Kontextmenue-Dispatcher + Konfiguration (2D/3D, Sprache) | | `Tro_Edit.lsp` | TRO_INSERT, TRO_EDIT | TRO-Marker (Block `TRO_SYM_`) fuer sps_skel (lib/tro_annotate.py): TRO_INSERT fuegt eine bestehende Blockdefinition an einem gewaehlten Punkt ein und setzt ID/TYPE (bricht ab, wenn der Typ noch keine Blockdefinition in der Zeichnung hat - die entsteht nur ueber tro_annotate.py); TRO_EDIT aendert ID/TYPE eines bestehenden Markers per Dialog. Typliste aus `tro_types.lsp` (von `tro_annotate.py --emit-lisp` nach DXFM_LISP geschrieben). Der Dispatcher SSG_BLOCKEDIT leitet Blocknamen `TRO_*` zu TRO_EDIT. | -| `GeruestInsert.lsp` | GERUEST, GERUEST_SAEULEN, GERUEST_ROHRABHAENGER, GERUEST_WANDBEFESTIGUNG, GERUEST_TRAEGER, GERUEST_TRAEGER_BESCHRIFTEN, OMNI_FAHRSTRECKE, OMNI_FAHRSTRECKE_BESCHRIFTEN | Geruest-Baugruppen aus `data/json/geruest.json` konfigurieren und einfuegen. **Ein Dialog je Bereich**: Rohrabhaenger / Saeulen / Wandbefestigung oeffnen NUR ueber ihren eigenen Menuebefehl (`geruest-starten id`, Dialogtitel aus dem ASCII-Feld `titel`); eine Umschaltung im Dialog gibt es nicht (DCL hat kein Reiter-Tile), `GERUEST` ohne Bereich zeigt nur einen Hinweis. Der Dialogstand beginnt je Aufruf frisch. 1"- und 2"-Saeulen liegen in EINER Baugruppe `Saeulen` mit gemeinsamer Anbauteil-Liste; **`teileart` und `dummy` duerfen je Geometrie-Variante ueberschrieben werden** (`geruest-variante-wert`, Variante gewinnt vor Baugruppe; fuer `dummy` ueber `geruest-dummy-wahl`: fehlt die DWG der Variante, Meldung + Rueckfall auf den Baugruppen-Dummy; ist der Dummy zugleich eine Teile-DWG, wird er per `geruest-ohne-pfad` nicht doppelt eingefuegt) - so liefert `R 1"` weiterhin TEILEART `Geruest Saeule 1 Zoll` und die `R 2"`-Varianten `Geruest Saeule 2 Zoll`, die Groessen bleiben im Export also unterscheidbar. **Das Layout steht als Vorlage in `dcl/geruest.dcl`** (bzw. `dcl/geruest_traeger.dcl`); nur die datenabhaengigen Bloecke - ein `radio_button` je Variante (Key `v`, `geruest-radio-key`/`-index`), Mengenfeld + Ankreuzfeld je Anbauteil - werden zur Laufzeit an Markerzeilen `//@NAME@` eingesetzt (`geruest-dcl-ersetzungen` -> `ssg-dcl-vorlage-fuellen` in ssg_core, Temp-Datei, nach `unload_dialog` geloescht). Grund: DCL kann Tiles weder zur Laufzeit erzeugen noch ausblenden, Radiobutton-Labels lassen sich per `set_tile` nicht aendern, und eine `list_box` kann keine Eingabefelder enthalten. Varianten bewusst als Radiobuttons statt `list_box`: BricsCAD zeichnet die Listenspalte nur halb so breit, und ein `tabs`-Wert passt nur schrift-/skalierungsabhaengig. Inhalt: Basis-Variante aus `geometrie_varianten` (`list_box` mit Einfachauswahl, Hoehe nach Variantenzahl, `geruest-dcl-listenhoehe`), **Winkel Platte** (0/90 Grad, `*geruest-winkel-werte*`): Ausrichtung der Anbauteile zur Basis - die Teile-DWGs aus oben/unten/sonstiges werden um diesen Winkel um Z gedreht in den Block eingefuegt, Basis und Dummy bleiben ungedreht (`geruest-teile-dwgs-rot`; in Konfigurationen als echter Wert `winkel_platte`, kein Block-Attribut), Laenge (gegen `attribute.Laenge` min/max geprueft, Retry-Schleife), Farbe (`attribute.Teilefarbe`, Freitext bei `frei_option`) und **eine Befestigungsspalte** "Befestigung oben und unten" mit allen `anbaugruppen.befestigung` - die Anzahl ist die GESAMTanzahl je Teil (oben und unten zusammen; Tile-Keys `b`/`bm`, Zustand `*geruest-dlg-bef*`). Unter jedem Teil (auch in Sonstiges) zeigt eine Textzeile "Art.-Nr. ..." die Artikelnummer(n) (`geruest-artnr-anzeige`: Einzelteil -> `sivas_id`, Gruppe -> eindeutige Nummern der Teile; DCL kennt keine Schriftgroesse, darum normale Groesse in eigener Zeile). `anbaugruppen` ist ein Objekt mit zwei Listen: `befestigung` (Befestigungsspalte) und `sonstiges` (Teile, die weder oben noch unten sitzen, z.B. die Saeulen-Haltearme) - letztere bekommen eine eigene Zeile darunter (nur wenn nicht leer), in ARTINR/BEZEICHNUNG nach "unten" als "sonstiges" (`geruest-anbau-liste`; ein altes flaches Array gilt als `befestigung`). **Zwei Mengenfelder im JSON, bewusst verschieden benannt**: `stueckzahl` = wie oft ein Teil TATSAECHLICH geschrieben wird (je Variante bzw. je Satz/Anbauteil, fehlt = 1), `anzahl_vorgabe` = NUR die Vorbelegung des Anzahl-Feldes im Dialog (Anbaugruppen, fehlt = 1); ein Anbauteil wird Anzahl x `stueckzahl` mal geschrieben, bei einer Gruppe (`teile`) zaehlt die Anzahl die Saetze (`geruest-stueckzahl`/`geruest-anzahl-vorgabe`). In Konfigurationen (`befestigung`/`sonstiges`, dazu `winkel_platte`) heisst der gespeicherte Dialogwert `anzahl`. Aeltere Konfigurationen mit getrennten `oben`/`unten`-Listen laden weiter: deren Mengen werden zur Gesamtanzahl addiert (`geruest-konfig-befestigung`), Sonstiges-Teile darin still in die Sonstiges-Zeile umgehaengt (`geruest-konfig-sonstiges`); beim naechsten Speichern steht alles im neuen Format. Baugruppen ohne `attribute`-Block (Wandbefestigung) bekommen Laenge/Farbe gesperrt, Baugruppen ohne Anbauteile bekommen gar keine Spalten (ein leerer DCL-Cluster ist unzulaessig). Im generierten Label wird `"` zu `''` ersetzt (`geruest-dcl-label`) - fuenf Artikelnamen enthalten ein Anfuehrungszeichen, das das DCL-Label sonst vorzeitig beendet und die Datei zerstoert. **Konfigurationen**: gepflegte Bibliothek je Baugruppe unter `konfigurationen` in `geruest.json` (schreibgeschuetzt) plus eigene in `cfg/geruest_user.json` (gitignored, `geruest-user-schreiben`; getrennte Datei, damit Benutzerdaten und versionierte Bibliothek nicht kollidieren). Eigene Eintraege sind in der Liste mit `*` markiert und nur diese loeschbar. **Geaenderte Konfiguration**: beim Anwenden wird der Dialogstand als Vergleichsbasis gemerkt (`*geruest-dlg-konfig-basis*`); jede Eingabe vergleicht den aktuellen Record damit (`geruest-dlg-aenderung-pruefen`, Vergleich statt Flag - Zuruecknehmen hebt die Markierung wieder auf) und kennzeichnet den Listeneintrag mit "(geaendert)" plus Statuszeile `kstatus`. Speichern bietet bei einer gewaehlten EIGENEN Konfiguration deren Namen als Vorgabe an (Enter = ueberschreiben, `geruest-konfig-name-vorgabe`); Bibliotheks-Konfigurationen brauchen einen neuen Namen. Konfigurationen verweisen ueber den ANZEIGENAMEN auf Variante und Anbauteile; ein unbekannter Name wird gemeldet und uebersprungen, statt die Konfiguration scheitern zu lassen. Speichern/Loeschen laufen ueber `done_dialog 2`/`3` (Dialog schliessen, Aktion, neu zeigen) - `getstring` funktioniert aus einem `action_tile`-Rueckruf heraus nicht. Der Block wird - wie KREISEL_n/VF_n - SELBST zusammengebaut: Dummy-DWG aus `data/geruest` liefert nur Geometrie, das Attribut-Schema kommt aus `*geruest-attrib-defs*` (ID, ARTINR, LAENGE, BEZEICHNUNG, TEILEART, TEILEFARBE, LAYER) und wird per `ssg-attrib-merge` mit den Dummy-Tags zusammengefuehrt - sonst verschluckt `ssg-attrib-set-on` stillschweigend jeden Tag, den die Dummy-DWG nicht als ATTDEF kennt. **Teile-Geometrie**: jede ausgewaehlte Artikelnummer (Basis/oben/unten inkl. aufgeloester Gruppen), fuer die `data/geruest/.dwg` existiert, wird zusaetzlich einmal bei 0,0,0 mit in den Block eingefuegt (`geruest-teile-dwgs`, dedupliziert, fehlende DWGs still uebergangen) - reine visuelle Rueckmeldung, die Attribut-Logik bleibt davon unberuehrt. **TEILEFARBE** ist eine kommagetrennte Liste parallel zu ARTINR (z.B. `,,RAL7030,,RAL7030`): Teile mit `"farbig": true` in `geruest.json` (je Artikel; eine Gruppe vererbt es an ihre Teile, fehlend = false) bekommen die im Dialog gewaehlte Baugruppenfarbe, alle anderen einen leeren Eintrag. ARTINR und TEILEFARBE entstehen aus demselben Durchlauf (`geruest-teile-paare`/`-paare-n`, `geruest-farbliste`), sind also garantiert gleich lang. `export_sivas.py` schreibt daraus je Artikelnummer das Merkmal `{"108": ""}` in `details` (Nummer aus `cfg/export.cfg` `[Sivas] merkmal_teilefarbe`). Blockname `GR__` (Kollisionszaehler wie in OmniModulInsert). **Das `GR_`-Praefix ist nicht kosmetisch**: `SSG_BLOCKEDIT` haelt JEDEN Block mit TEILEART-Attribut fuer ein Omniflo-Element, deshalb steht in `SSG_LIB_Commands.lsp` ein `GR_*`-Zweig VOR dem Omniflo-Zweig. ARTINR listet jede Sivas-ID so oft, wie Anzahl x `stueckzahl` es vorgeben - erst Basis, dann Befestigung, dann Sonstiges; bei einer benannten Gruppe (`teile`) wird das ganze Set n-mal wiederholt, die Mengen INNERHALB des Sets bleiben dabei erhalten (`geruest-artikelnummern-n`). BEZEICHNUNG nennt Position und Menge je Teil ("Befestigung 4x ...", "sonstiges 1x ...") und verkettet mit `" + "`, NICHT mit Komma - die Artikelbezeichnungen enthalten selbst Kommas ("ROHR R 1\" 33,7 x 2,6"). Zuordnung Menue -> JSON laeuft ueber das ASCII-Feld `id`, weil die aeusseren JSON-Schluessel Umlaute bzw. Anfuehrungszeichen tragen. CSV-/Sivas-Export: `pattern_geruest = GR_*` (cfg/export.cfg), `csv:collect-export-blocks`/`ssg-id-collect-blocks` sammeln GR_-Bloecke wie BTMT eigenstaendig; `*geruest-attrib-defs*` traegt zusaetzlich ein leeres `ID`-ATTDEF (Voraussetzung fuer `ssg-id-check-all`, das nur bestehende ATTRIBs beschreiben kann). ARTINR/BEZEICHNUNG/TEILEART/LAENGE landen in export_csv.py/export_sivas.py in festen Spalten, TEILEFARBE/LAYER (+ ARTINR bei export_csv.py) im Merkmale-/details-JSON. **Attribut-Keys in `geruest.json` sind GROSS** (`LAENGE`, `TEILEFARBE`, ...) = die Block-Attribut-Tags; `ssg-json-get` unterscheidet Gross/Klein. **Rohr-Geruest-Traeger** (`GERUEST_TRAEGER`): Traeger-Baugruppen mit Linien-Logik liegen in einer EIGENEN Datei `data/json/geruest_traeger.json` (gleicher Aufbau wie geruest.json, eigener Lader/Cache `geruest-traeger-daten`, Suche `geruest-baugruppe id daten`; gemeinsamer Lader `geruest-json-laden-cache`) - sie tauchen darum nicht im Bereichs-Dropdown von GERUEST auf; dort kann spaeter auch der Gattertraeger hin. eigener Dialog aus der Vorlage `dcl/geruest_traeger.dcl` (Variante als Radiobuttons, JEDE Variante - auch die mit Muffe - mit eigenem Button, Beschriftung "Name (Artikelnummern)" ueber `geruest-varianten-label`; Varianten mit `"disabled": true` erscheinen in allen drei Geruest-Dialogen ausgegraut und nicht waehlbar (`geruest-variante-gesperrt-p`, `geruest-varianten-sperren` per `mode_tile`; Vorauswahl ueber `geruest-variante-waehlbar`/`-erste-freie-variante`; eine Konfiguration mit gesperrter Variante laesst die Auswahl unveraendert und meldet `gr-konfig-variante-gesperrt`) - bleiben aber in den Daten, damit Konfigurationen und Neubeschriften sie weiter ueber den Namen finden; eine Muffen-Checkbox gab es zwischenzeitlich, sie wurde wieder entfernt, weil die Artikelnummer der Muffen-Variante dann im Dialog nicht sichtbar war; Farbe, je eine Checkbox + Feld fuer `LAENGENABZUGANFANG`/`LAENGENABZUGENDE`, Vorgabe `vorgabe`/`aktiv` aus dem attribute-Block, je Variante ueberschreibbar via `geruest-attr-feld`); danach Einfuege-Schleife bis ESC/Enter: Startpunkt, dann Endpunkt ODER getippte Laenge (+ Richtung). Aktive Abzuege ruecken die Linie beidseitig ein (Strecke 1000, Abzug Anfang 20/Ende 35 -> Start 20 mm hinter dem Klick, Linie 945 mm); `LAENGE` = Netto-Laenge, gegen `LAENGE.min/max` geprueft. KEINE Dummy-DWG: die Geometrie ist eine per `entmake` erzeugte LINE (0,0,0)-(L,0,0) auf dem `layer` der Variante, eingefuegt mit dem Richtungswinkel (ANGBASE/ANGDIR/AUNITS dafuer kurz auf 0). **Querstreben + Muffe** als verschachtelte Dummy-DWGs im selben Block, reine Grafik ohne Export: `querstrebe.dummy` (`data/geruest/dummy_Strebe_30x4.dwg`, Basispunkt Strebenmitte, 30 mm laengs X) an jeder Strebenposition, NUR bei Varianten mit ausdruecklichem `"mit_querstrebe": true` (z.B. nicht beim `Rohr 1"`); fehlt die DWG, Rueckfall auf je eine 25-mm-Querlinie an Strebenanfang/-ende (`laenge`/`querlinie`, Standard 30/25 nur im Code). `muffe.dummy` (`dummy_Muffe_1zoll.dwg`, Basispunkt Muffenmitte) am Linienende, NUR bei Varianten mit ausdruecklichem `"mit_muffe": true` (nicht aus dem Namen geraten; bei "mit 2 Muffen" trotzdem nur eine am Ende); `querstrebe`/`muffe` per Variante ueberschreibbar (`geruest-variante-wert`). Dummys werden ohne Drehung eingefuegt (Traeger laeuft im Block entlang +X), ab dem zweiten Mal per Blockname (`geruest-dummy-einfuegen`). Verteilungs-Konfiguration `querstrebe` (`abstand`/`rand_min`/`rand_max`, Variante vor Baugruppe), Plan `geruest-traeger-streben-plan` -> (rand positionen): der Abstand zwischen zwei Streben ist IMMER genau `abstand`, beide Raender gleich (netto = k*abstand + 2*rand); gewaehlt wird die Strebenzahl, deren Rand am naechsten an `rand_min`..`rand_max` liegt (Gleichstand -> weniger Streben). Mit 500/100..250 geht das nur auf, wenn netto mod 500 = 0 oder in [200, 500) liegt (z.B. 1300 -> 150|500|500|150); sonst (1001..1199, unter 200 mm) liegt der Rand ausserhalb (1100 -> 300|500|300) - `geruest-traeger-rand-pruefen` zeigt dann eine Messagebox (ohne GUI: Konsole), der Traeger wird trotzdem eingefuegt. Schema `*geruest-traeger-attrib-defs*` = `*geruest-attrib-defs*` + die zwei Abzug-Tags; gemeinsamer Block-Schluss mit den anderen Bereichen in `geruest-block-abschliessen`. Reine Berechnung (`geruest-traeger-laenge`/`-start`/`-pruefen`, `geruest-mm-zahl`) in `tests/test_unit.lsp`. **Traeger-Beschriftung** (Checkbox im Dialog, Standard an; z.B. `RT 80/80 L=2650`): EIGENES TEXT-Objekt neben dem Block, abgeleitet NUR aus dem fertigen Block (Einfuegepunkt, DXF 50, Attribute `LAENGE` + `VARIANTE`) - darum nutzen Einfuegen und `GERUEST_TRAEGER_BESCHRIFTEN` dieselbe Funktion `geruest-traeger-beschriften`, und ein von Hand verschobener/gedrehter Traeger wird beim Neubeschriften korrekt erfasst. Verknuepfung Text -> Block per XDATA `SSG_GR_BESCHR` (1005 = Block-Handle): Neubeschriften ersetzt statt verdoppelt, der Sammelbefehl entfernt verwaiste Texte. JSON `beschriftung` (je FELD Variante vor Baugruppe, `geruest-obj-feld`): Inhalt `format` (`%1` Text, `%2` Laenge auf ganze mm) + `text` (fehlt -> Variantenname) und `layer` (je Variante verschieden, darum in JEDER Variante gepflegt - keine Baugruppen-Vorgabe; fehlt er doch, aktueller Layer); Formatierung NUR `stil`/`ausrichtung`/`hoehe` - alles andere regelt der Textstil ausserhalb, es wird kein Stil angelegt (fehlt er: Meldung, aktueller TEXTSTYLE). `ausrichtung` = Codes von TEXT "Ausrichten" (T/M/B + L/C/R), Bezugspunkt auf der Traegerlinie, L/R in LESErichtung. Textwinkel entlang des Traegers, DIN: fuer 90 < w <= 270 Grad um 180 gedreht (`geruest-text-winkel`). **Omniflo-Fahrstrecke** (`OMNI_FAHRSTRECKE`, Daten `data/json/omniflo_fahrstrecke.json`, Vorlage `dcl/fahrstrecke.dcl`): dieselbe Linien-Logik wie der Traeger, Code geteilt - `geruest-linien-starten id daten dcl-datei dlg-name` (Dialog `geruest-traeger-dialog` mit Vorlage + Dialogname als Argument, Einfuegen `geruest-traeger-einfuegen`), Beschriftung `geruest-traeger-beschriften blockEnt bg` mit der Baugruppe als Argument, Sammelbefehle je Typ ueber `geruest-linien-beschriften id daten` (Bloecke `GR__*`; verwaiste Texte werden typunabhaengig entfernt). Unterschiede stehen nur in den Daten: keine Querstreben (kein `mit_querstrebe`), Muffen-Dummy wie beim Traeger ueber den `muffe`-Block der Baugruppe (nur Varianten mit `"mit_muffe": true`), `farbig` nur bei ST/STL, Muffen-Varianten nur fuer ST/STL. Der Dialogstand bleibt je Baugruppe erhalten (`*geruest-tr-id*`; Wechsel Traeger <-> Fahrstrecke setzt ihn zurueck). Meldungstexte `gr-tr-*` nennen den Bauteilnamen aus `titel` als Platzhalter. In der Stueckliste eigene Klasse `fahrstrecke` (`GR_Fahrstrecke_*` vor dem allgemeinen `GR_*`). Noch NICHT enthalten: Edit-Pfad (GERUEST_EDIT) | +| `Connection_Edit.lsp` | CONNECTION_INSERT, CONNECTION_EDIT | Verbindung zwischen zwei TRO-Markern als Block `CONNECTION_ARROW` (Pfeilmitte); Beziehung ueber die INTERNEN IDs der TROs (`FROM_ID`/`TO_ID`, sichtbar `FROM_TRO`/`TO_TRO`, `KIND` flow/colocated), damit Umbenennen/Verschieben die Zuordnung nicht bricht. Dialog `connection_edit.dcl`; SSG_BLOCKEDIT leitet `CONNECTION_*` hierher (vor dem TRO-Zweig) | +| `Jam_Edit.lsp` | JAM_EDIT | Staubereich `JAM_AREA` aus sps_skel (`tro_annotate.py --anlage`, Name `Jam_`) bearbeiten: Foerderer und laufende Nummer per Dialog `jam_edit.dcl`, Knopf zurueck auf den abgeleiteten Wert (`AUTO`), Warnung bei doppeltem Namen. `TRO`/`ENTRY` sind stabiler Schluessel und werden nicht geaendert. SSG_BLOCKEDIT leitet `JAM_*` hierher; in die SCL kommt die Aenderung ueber `tro_annotate --read-jams` | +| `TEFInsert.lsp` | TEF_FOERDERER_LINIE | Linie zwischen zwei Punkten zeichnen und mit 1000-mm-TEF-Geraden (`0_B10030`) belegen; Rest ueber ein zurueckversetztes Element, damit der Foerderer exakt am Linienende endet; geneigte Linien per Rz*Ry wie `ssg_ks_insert.lsp` | +| `GeruestInsert.lsp` | GERUEST, GERUEST_SAEULEN, GERUEST_ROHRABHAENGER, GERUEST_WANDBEFESTIGUNG, GERUEST_TRAEGER, GERUEST_TRAEGER_BESCHRIFTEN, OMNI_FAHRSTRECKE, OMNI_FAHRSTRECKE_BESCHRIFTEN | Geruest-Baugruppen aus `data/json/geruest.json` konfigurieren und einfuegen. **Ein Dialog je Bereich**: Rohrabhaenger / Saeulen / Wandbefestigung oeffnen NUR ueber ihren eigenen Menuebefehl (`geruest-starten id`, Dialogtitel aus dem ASCII-Feld `titel`); eine Umschaltung im Dialog gibt es nicht (DCL hat kein Reiter-Tile), `GERUEST` ohne Bereich zeigt nur einen Hinweis. Der Dialogstand beginnt je Aufruf frisch. 1"- und 2"-Saeulen liegen in EINER Baugruppe `Saeulen` mit gemeinsamer Anbauteil-Liste; **`teileart` und `dummy` duerfen je Geometrie-Variante ueberschrieben werden** (`geruest-variante-wert`, Variante gewinnt vor Baugruppe; fuer `dummy` ueber `geruest-dummy-wahl`: fehlt die DWG der Variante, Meldung + Rueckfall auf den Baugruppen-Dummy; ist der Dummy zugleich eine Teile-DWG, wird er per `geruest-ohne-pfad` nicht doppelt eingefuegt) - so liefert `R 1"` weiterhin TEILEART `Geruest Saeule 1 Zoll` und die `R 2"`-Varianten `Geruest Saeule 2 Zoll`, die Groessen bleiben im Export also unterscheidbar. **Das Layout steht als Vorlage in `dcl/geruest.dcl`** (bzw. `dcl/geruest_traeger.dcl`); nur die datenabhaengigen Bloecke - ein `radio_button` je Variante (Key `v`, `geruest-radio-key`/`-index`), Mengenfeld + Ankreuzfeld je Anbauteil - werden zur Laufzeit an Markerzeilen `//@NAME@` eingesetzt (`geruest-dcl-ersetzungen` -> `ssg-dcl-vorlage-fuellen` in ssg_core, Temp-Datei, nach `unload_dialog` geloescht). Grund: DCL kann Tiles weder zur Laufzeit erzeugen noch ausblenden, Radiobutton-Labels lassen sich per `set_tile` nicht aendern, und eine `list_box` kann keine Eingabefelder enthalten. Varianten bewusst als Radiobuttons statt `list_box`: BricsCAD zeichnet die Listenspalte nur halb so breit, und ein `tabs`-Wert passt nur schrift-/skalierungsabhaengig. Inhalt: Basis-Variante aus `geometrie_varianten` (Radiobuttons, siehe oben), **Winkel Platte** (0/90 Grad, `*geruest-winkel-werte*`): Ausrichtung der Anbauteile zur Basis - die Teile-DWGs aus oben/unten/sonstiges werden um diesen Winkel um Z gedreht in den Block eingefuegt, Basis und Dummy bleiben ungedreht (`geruest-teile-dwgs-rot`; in Konfigurationen als echter Wert `winkel_platte`, kein Block-Attribut), Laenge (gegen `attribute.Laenge` min/max geprueft, Retry-Schleife), Farbe (`attribute.Teilefarbe`, Freitext bei `frei_option`) und **eine Befestigungsspalte** "Befestigung oben und unten" mit allen `anbaugruppen.befestigung` - die Anzahl ist die GESAMTanzahl je Teil (oben und unten zusammen; Tile-Keys `b`/`bm`, Zustand `*geruest-dlg-bef*`). Unter jedem Teil (auch in Sonstiges) zeigt eine Textzeile "Art.-Nr. ..." die Artikelnummer(n) (`geruest-artnr-anzeige`: Einzelteil -> `sivas_id`, Gruppe -> eindeutige Nummern der Teile; DCL kennt keine Schriftgroesse, darum normale Groesse in eigener Zeile). `anbaugruppen` ist ein Objekt mit zwei Listen: `befestigung` (Befestigungsspalte) und `sonstiges` (Teile, die weder oben noch unten sitzen, z.B. die Saeulen-Haltearme) - letztere bekommen eine eigene Zeile darunter (nur wenn nicht leer), in ARTINR/BEZEICHNUNG nach "unten" als "sonstiges" (`geruest-anbau-liste`; ein altes flaches Array gilt als `befestigung`). **Zwei Mengenfelder im JSON, bewusst verschieden benannt**: `stueckzahl` = wie oft ein Teil TATSAECHLICH geschrieben wird (je Variante bzw. je Satz/Anbauteil, fehlt = 1), `anzahl_vorgabe` = NUR die Vorbelegung des Anzahl-Feldes im Dialog (Anbaugruppen, fehlt = 1); ein Anbauteil wird Anzahl x `stueckzahl` mal geschrieben, bei einer Gruppe (`teile`) zaehlt die Anzahl die Saetze (`geruest-stueckzahl`/`geruest-anzahl-vorgabe`). In Konfigurationen (`befestigung`/`sonstiges`, dazu `winkel_platte`) heisst der gespeicherte Dialogwert `anzahl`. Aeltere Konfigurationen mit getrennten `oben`/`unten`-Listen laden weiter: deren Mengen werden zur Gesamtanzahl addiert (`geruest-konfig-befestigung`), Sonstiges-Teile darin still in die Sonstiges-Zeile umgehaengt (`geruest-konfig-sonstiges`); beim naechsten Speichern steht alles im neuen Format. Baugruppen ohne `attribute`-Block (Wandbefestigung) bekommen Laenge/Farbe gesperrt, Baugruppen ohne Anbauteile bekommen gar keine Spalten (ein leerer DCL-Cluster ist unzulaessig). Im generierten Label wird `"` zu `''` ersetzt (`geruest-dcl-label`) - fuenf Artikelnamen enthalten ein Anfuehrungszeichen, das das DCL-Label sonst vorzeitig beendet und die Datei zerstoert. **Konfigurationen**: gepflegte Bibliothek je Baugruppe unter `konfigurationen` in `geruest.json` (schreibgeschuetzt) plus eigene in `cfg/geruest_user.json` (gitignored, `geruest-user-schreiben`; getrennte Datei, damit Benutzerdaten und versionierte Bibliothek nicht kollidieren). Eigene Eintraege sind in der Liste mit `*` markiert und nur diese loeschbar. **Geaenderte Konfiguration**: beim Anwenden wird der Dialogstand als Vergleichsbasis gemerkt (`*geruest-dlg-konfig-basis*`); jede Eingabe vergleicht den aktuellen Record damit (`geruest-dlg-aenderung-pruefen`, Vergleich statt Flag - Zuruecknehmen hebt die Markierung wieder auf) und kennzeichnet den Listeneintrag mit "(geaendert)" plus Statuszeile `kstatus`. Speichern bietet bei einer gewaehlten EIGENEN Konfiguration deren Namen als Vorgabe an (Enter = ueberschreiben, `geruest-konfig-name-vorgabe`); Bibliotheks-Konfigurationen brauchen einen neuen Namen. Konfigurationen verweisen ueber den ANZEIGENAMEN auf Variante und Anbauteile; ein unbekannter Name wird gemeldet und uebersprungen, statt die Konfiguration scheitern zu lassen. Speichern/Loeschen laufen ueber `done_dialog 2`/`3` (Dialog schliessen, Aktion, neu zeigen) - `getstring` funktioniert aus einem `action_tile`-Rueckruf heraus nicht. Der Block wird - wie KREISEL_n/VF_n - SELBST zusammengebaut: Dummy-DWG aus `data/geruest` liefert nur Geometrie, das Attribut-Schema kommt aus `*geruest-attrib-defs*` (ID, ARTINR, LAENGE, BEZEICHNUNG, TEILEART, TEILEFARBE, LAYER) und wird per `ssg-attrib-merge` mit den Dummy-Tags zusammengefuehrt - sonst verschluckt `ssg-attrib-set-on` stillschweigend jeden Tag, den die Dummy-DWG nicht als ATTDEF kennt. **Teile-Geometrie**: jede ausgewaehlte Artikelnummer (Basis/oben/unten inkl. aufgeloester Gruppen), fuer die `data/geruest/.dwg` existiert, wird zusaetzlich einmal bei 0,0,0 mit in den Block eingefuegt (`geruest-teile-dwgs`, dedupliziert, fehlende DWGs still uebergangen) - reine visuelle Rueckmeldung, die Attribut-Logik bleibt davon unberuehrt. **TEILEFARBE** ist eine kommagetrennte Liste parallel zu ARTINR (z.B. `,,RAL7030,,RAL7030`): Teile mit `"farbig": true` in `geruest.json` (je Artikel; eine Gruppe vererbt es an ihre Teile, fehlend = false) bekommen die im Dialog gewaehlte Baugruppenfarbe, alle anderen einen leeren Eintrag. ARTINR und TEILEFARBE entstehen aus demselben Durchlauf (`geruest-teile-paare`/`-paare-n`, `geruest-farbliste`), sind also garantiert gleich lang. `export_sivas.py` schreibt daraus je Artikelnummer das Merkmal `{"108": ""}` in `details` (Nummer aus `cfg/export.cfg` `[Sivas] merkmal_teilefarbe`). Blockname `GR__` (Kollisionszaehler wie in OmniModulInsert). **Das `GR_`-Praefix ist nicht kosmetisch**: `SSG_BLOCKEDIT` haelt JEDEN Block mit TEILEART-Attribut fuer ein Omniflo-Element, deshalb steht in `SSG_LIB_Commands.lsp` ein `GR_*`-Zweig VOR dem Omniflo-Zweig. ARTINR listet jede Sivas-ID so oft, wie Anzahl x `stueckzahl` es vorgeben - erst Basis, dann Befestigung, dann Sonstiges; bei einer benannten Gruppe (`teile`) wird das ganze Set n-mal wiederholt, die Mengen INNERHALB des Sets bleiben dabei erhalten (`geruest-artikelnummern-n`). BEZEICHNUNG nennt Position und Menge je Teil ("Befestigung 4x ...", "sonstiges 1x ...") und verkettet mit `" + "`, NICHT mit Komma - die Artikelbezeichnungen enthalten selbst Kommas ("ROHR R 1\" 33,7 x 2,6"). Zuordnung Menue -> JSON laeuft ueber das ASCII-Feld `id`, weil die aeusseren JSON-Schluessel Umlaute bzw. Anfuehrungszeichen tragen. CSV-/Sivas-Export: `pattern_geruest = GR_*` (cfg/export.cfg), `csv:collect-export-blocks`/`ssg-id-collect-blocks` sammeln GR_-Bloecke wie BTMT eigenstaendig; `*geruest-attrib-defs*` traegt zusaetzlich ein leeres `ID`-ATTDEF (Voraussetzung fuer `ssg-id-check-all`, das nur bestehende ATTRIBs beschreiben kann). ARTINR/BEZEICHNUNG/TEILEART/LAENGE landen in export_csv.py/export_sivas.py in festen Spalten, TEILEFARBE/LAYER (+ ARTINR bei export_csv.py) im Merkmale-/details-JSON. **Attribut-Keys in `geruest.json` sind GROSS** (`LAENGE`, `TEILEFARBE`, ...) = die Block-Attribut-Tags; `ssg-json-get` unterscheidet Gross/Klein. **Rohr-Geruest-Traeger** (`GERUEST_TRAEGER`): Traeger-Baugruppen mit Linien-Logik liegen in einer EIGENEN Datei `data/json/geruest_traeger.json` (gleicher Aufbau wie geruest.json, eigener Lader/Cache `geruest-traeger-daten`, Suche `geruest-baugruppe id daten`; gemeinsamer Lader `geruest-json-laden-cache`) - sie tauchen darum nicht im Bereichs-Dropdown von GERUEST auf; dort kann spaeter auch der Gattertraeger hin. eigener Dialog aus der Vorlage `dcl/geruest_traeger.dcl` (Variante als Radiobuttons, JEDE Variante - auch die mit Muffe - mit eigenem Button, Beschriftung "Name (Artikelnummern)" ueber `geruest-varianten-label`; Varianten mit `"disabled": true` erscheinen in allen drei Geruest-Dialogen ausgegraut und nicht waehlbar (`geruest-variante-gesperrt-p`, `geruest-varianten-sperren` per `mode_tile`; Vorauswahl ueber `geruest-variante-waehlbar`/`-erste-freie-variante`; eine Konfiguration mit gesperrter Variante laesst die Auswahl unveraendert und meldet `gr-konfig-variante-gesperrt`) - bleiben aber in den Daten, damit Konfigurationen und Neubeschriften sie weiter ueber den Namen finden; eine Muffen-Checkbox gab es zwischenzeitlich, sie wurde wieder entfernt, weil die Artikelnummer der Muffen-Variante dann im Dialog nicht sichtbar war; Farbe, je eine Checkbox + Feld fuer `LAENGENABZUGANFANG`/`LAENGENABZUGENDE`, Vorgabe `vorgabe`/`aktiv` aus dem attribute-Block, je Variante ueberschreibbar via `geruest-attr-feld`); danach Einfuege-Schleife bis ESC/Enter: Startpunkt, dann Endpunkt ODER getippte Laenge (+ Richtung). Aktive Abzuege ruecken die Linie beidseitig ein (Strecke 1000, Abzug Anfang 20/Ende 35 -> Start 20 mm hinter dem Klick, Linie 945 mm); `LAENGE` = Netto-Laenge, gegen `LAENGE.min/max` geprueft. KEINE Dummy-DWG: die Geometrie ist eine per `entmake` erzeugte LINE (0,0,0)-(L,0,0) auf dem `layer` der Variante, eingefuegt mit dem Richtungswinkel (ANGBASE/ANGDIR/AUNITS dafuer kurz auf 0). **Querstreben + Muffe** als verschachtelte Dummy-DWGs im selben Block, reine Grafik ohne Export: `querstrebe.dummy` (`data/geruest/dummy_Strebe_30x4.dwg`, Basispunkt Strebenmitte, 30 mm laengs X) an jeder Strebenposition, NUR bei Varianten mit ausdruecklichem `"mit_querstrebe": true` (z.B. nicht beim `Rohr 1"`); fehlt die DWG, Rueckfall auf je eine 25-mm-Querlinie an Strebenanfang/-ende (`laenge`/`querlinie`, Standard 30/25 nur im Code). `muffe.dummy` (`dummy_Muffe_1zoll.dwg`, Basispunkt Muffenmitte) am Linienende, NUR bei Varianten mit ausdruecklichem `"mit_muffe": true` (nicht aus dem Namen geraten; bei "mit 2 Muffen" trotzdem nur eine am Ende); `querstrebe`/`muffe` per Variante ueberschreibbar (`geruest-variante-wert`). Dummys werden ohne Drehung eingefuegt (Traeger laeuft im Block entlang +X), ab dem zweiten Mal per Blockname (`geruest-dummy-einfuegen`). Verteilungs-Konfiguration `querstrebe` (`abstand`/`rand_min`/`rand_max`, Variante vor Baugruppe), Plan `geruest-traeger-streben-plan` -> (rand positionen): der Abstand zwischen zwei Streben ist IMMER genau `abstand`, beide Raender gleich (netto = k*abstand + 2*rand); gewaehlt wird die Strebenzahl, deren Rand am naechsten an `rand_min`..`rand_max` liegt (Gleichstand -> weniger Streben). Mit 500/100..250 geht das nur auf, wenn netto mod 500 = 0 oder in [200, 500) liegt (z.B. 1300 -> 150|500|500|150); sonst (1001..1199, unter 200 mm) liegt der Rand ausserhalb (1100 -> 300|500|300) - `geruest-traeger-rand-pruefen` zeigt dann eine Messagebox (ohne GUI: Konsole), der Traeger wird trotzdem eingefuegt. Schema `*geruest-traeger-attrib-defs*` = `*geruest-attrib-defs*` + die zwei Abzug-Tags; gemeinsamer Block-Schluss mit den anderen Bereichen in `geruest-block-abschliessen`. Reine Berechnung (`geruest-traeger-laenge`/`-start`/`-pruefen`, `geruest-mm-zahl`) in `tests/test_unit.lsp`. **Traeger-Beschriftung** (Checkbox im Dialog, Standard an; z.B. `RT 80/80 L=2650`): EIGENES TEXT-Objekt neben dem Block, abgeleitet NUR aus dem fertigen Block (Einfuegepunkt, DXF 50, Attribute `LAENGE` + `VARIANTE`) - darum nutzen Einfuegen und `GERUEST_TRAEGER_BESCHRIFTEN` dieselbe Funktion `geruest-traeger-beschriften`, und ein von Hand verschobener/gedrehter Traeger wird beim Neubeschriften korrekt erfasst. Verknuepfung Text -> Block per XDATA `SSG_GR_BESCHR` (1005 = Block-Handle): Neubeschriften ersetzt statt verdoppelt, der Sammelbefehl entfernt verwaiste Texte. JSON `beschriftung` (je FELD Variante vor Baugruppe, `geruest-obj-feld`): Inhalt `format` (`%1` Text, `%2` Laenge auf ganze mm) + `text` (fehlt -> Variantenname) und `layer` (je Variante verschieden, darum in JEDER Variante gepflegt - keine Baugruppen-Vorgabe; fehlt er doch, aktueller Layer); Formatierung NUR `stil`/`ausrichtung`/`hoehe` - alles andere regelt der Textstil ausserhalb, es wird kein Stil angelegt (fehlt er: Meldung, aktueller TEXTSTYLE). `ausrichtung` = Codes von TEXT "Ausrichten" (T/M/B + L/C/R), Bezugspunkt auf der Traegerlinie, L/R in LESErichtung. Textwinkel entlang des Traegers, DIN: fuer 90 < w <= 270 Grad um 180 gedreht (`geruest-text-winkel`). **Omniflo-Fahrstrecke** (`OMNI_FAHRSTRECKE`, Daten `data/json/omniflo_fahrstrecke.json`, Vorlage `dcl/fahrstrecke.dcl`): dieselbe Linien-Logik wie der Traeger, Code geteilt - `geruest-linien-starten id daten dcl-datei dlg-name` (Dialog `geruest-traeger-dialog` mit Vorlage + Dialogname als Argument, Einfuegen `geruest-traeger-einfuegen`), Beschriftung `geruest-traeger-beschriften blockEnt bg` mit der Baugruppe als Argument, Sammelbefehle je Typ ueber `geruest-linien-beschriften id daten` (Bloecke `GR__*`; verwaiste Texte werden typunabhaengig entfernt). Unterschiede stehen nur in den Daten: keine Querstreben (kein `mit_querstrebe`), Muffen-Dummy wie beim Traeger ueber den `muffe`-Block der Baugruppe (nur Varianten mit `"mit_muffe": true`), `farbig` nur bei ST/STL, Muffen-Varianten nur fuer ST/STL. Der Dialogstand bleibt je Baugruppe erhalten (`*geruest-tr-id*`; Wechsel Traeger <-> Fahrstrecke setzt ihn zurueck). Meldungstexte `gr-tr-*` nennen den Bauteilnamen aus `titel` als Platzhalter. In der Stueckliste eigene Klasse `fahrstrecke` (`GR_Fahrstrecke_*` vor dem allgemeinen `GR_*`). Noch NICHT enthalten: Edit-Pfad (GERUEST_EDIT) | +| `KettenFoerderer.lsp` | KETTENFOERDERER, KF_EDIT, KF_KS_PRUEFEN | Kettenfoerderer/Schraegfoerderer Stahl: baut aus `KF_UM_` -> `KF_LAENGE` -> `KF_AN_` (je KS_AUS auf KS_EIN) plus der Draufsicht `KF_2D` EINEN Block `KF_`. Daten `data/json/kettenfoerderer.json`, Dialog `dcl/kettenfoerderer.dcl`. **Geometrie**: die Bausteine sind in der XY-Ebene gezeichnet (Hoehe = Y), werden aber AUFGERICHTET eingebaut `Rz(basis)*Rx(90)*Rz(eigen)` (`kf-matrix-aufrecht`) - die Hoehe laeuft in **Z**; dafuer `insert-block-ks-matrix` (freie 3x3-Rotation) in ssg_ks_insert.lsp. Die Neigung (26/30 Grad) ist KEIN Rechenparameter: sie steckt in den Varianten-Bloecken, der Einbauwinkel jedes Folgebausteins wird zur Laufzeit aus der RICHTUNG des KS_AUS seines Vorgaengers gemessen (`ks-xy-winkel`/`kf-hz-folge`) - keine gepflegte Winkeltabelle. `KF_LAENGE` wird in X skaliert, die Einbauhoehe H bestimmt seine Laenge ueber die Hoehenbilanz (`kf-laenge-berechnen`). `KF_2D` liegt DECKUNGSGLEICH mit der Kette (KS_EIN/KS_AUS auf denen von Umlenkung/Antrieb), ist flach gezeichnet, nur um die Steigung geneigt und auf die Schraeglaenge skaliert. **Attribut-Schema** `*kf-attrib-defs-liste*` ist EIGENSTAENDIG und bewusst NICHT von `ssg-strecke-attrib-defs` abgeleitet (sonst ~24 geerbte VF-Tags am Block); die Reihenfolge folgt dem Sivas-Merkmalstamm. FOERDERERTYP = Bauart im Klartext, WINKEL = nackte Zahl 26/30 (der Klartext mit Gradzeichen entsteht erst ueber `[kf_typ_anzeige]` in cfg/sivas.cfg, damit Attributwerte ASCII bleiben); kein TEILEART (Festwert `KF_TEILEART` im Export). Alle Auswahllisten stehen mit ihren Sivas-Optionstexten in der JSON. **Das `KF_`-Praefix ist wie `GR_` nicht kosmetisch**: `SSG_BLOCKEDIT` haelt JEDEN Block mit TEILEART-Attribut fuer ein Omniflo-Element, darum steht ein `KF_*`-Zweig VOR dem Omniflo-Zweig (Doppelklick -> KF_EDIT). **Sivas-Export** (`[kettenfoerderer]` in cfg/sivas.cfg, `build_kettenfoerderer_details` in export_sivas.py): baugleiche Foerderer werden zu EINER Zeile zusammengefasst (`kettenfoerderer_signature`), die Gruppengroesse traegt Merkmal 353 (entsteht erst aus der Gruppierung, daher Code); Farbe (354) und Antriebsmotor (355) sind ZWEI Merkmale, und jedes merkmalbildende Attribut steht auch in der Signatur, sonst verschmelzen unterschiedlich ausgefuehrte Foerderer. Reine Kerne in `tests/test_unit.lsp` (`tu-tests-kf`); das Modul wird in der MNL vorgeladen, Laufzeit-Messung ueber den dbg-Schalter `kf-zeit` | | `menu-inventory.lsp` | MenuInventory | BricsCAD Diagnostik (Menuegruppen, Plugins, Startdateien) | | `DinFormate.lsp` | DIN_FORMATE | Ersatz fuer das alte ACADSST-Makro `DINFORM.LSP`/`.DCL` (SSG2-Menue "DIN-FORMATE..."): fuegt einen DIN-Rahmen (A0-A3, A4 quer/hoch) und optional einen Schriftkopf (KOPF11, Sprachen DE/EN/FR/IT) per Dialog (`dcl/dinformate.dcl`) ein. Block-DWGs liegen flach in `cfg/rahmen/` (kopiert aus `\\infor-ln\SSG_Tools\ACADSST\KOEPFE` - nur die von DINFORM.LSP tatsaechlich referenzierten Dateien: `A0`/`A1`/`A2`/`A3`/`A4Q`/`A4H.DWG` + `Kopf11`/`Kopf11e`/`Kopf11f`/`Kopf11i.dwg`). Rahmen wird im Zeichenmassstab-Faktor eingefuegt, der Kopf im Faktor/100 (Kopf-DWG ist 100x groesser als die Rahmen-DWGs angelegt) - unveraendert aus dem Original-Massstabsschema uebernommen. Blockdefinitionen werden einmalig per `_.-INSERT ... _X 0` nachgeladen (`dinformate-block-laden`), falls noch nicht in der Zeichnung vorhanden. Lazy geladen ueber `(ssg-ensure "DinFormate")`, Menue: Werkzeuge > Din Formate. | | `DrawPlanquadrate.lsp` | DRAW_PLANQUADRATE, DELETE_PLANQUADRATE, PLANQUADRATE_TOGGLE | Zeichnet auf Z=0 ein Planquadrat-Linienraster (senkrecht/waagerecht), im Abstand/Zaehlschema der aktiven `[Planquadrate]`-Konfiguration aus `cfg/export.cfg` (dieselbe Quelle wie `lib/export_planquadrat.py` fuer den CSV-Export). Bereich kommt NICHT aus den Zeichnungs-Extents, sondern aus derselben Blockmenge wie EXPORTCSV (`csv:collect-export-blocks`, export.lsp; siehe `plq-export-bbox`): Ursprung (Index 1) UND obere Grenze kommen BEIDE aus der tatsaechlichen Bounding-Box jedes Blocks (`csv:get-bbox`, wie `bbox_columns()`/`planquadrat_column()`/`_bbox_min()` in `lib/export_csv.py` bzw. `lib/export_planquadrat.py`), NICHT aus dem reinen Einfuegepunkt - bei einem gedrehten/exzentrisch eingefuegten Block (z.B. ein um 90 Grad gedrehter Kreisel) kann das Bounding-Box-Zentrum weit vom Einfuegepunkt abweichen; Ursprung und Zellzuordnung muessen auf derselben Referenz beruhen, sonst driften sie auseinander (realer Bug, behoben). Reine Hilfsgeometrie (Kreisel-Umfahrungsboegen als eigene Linien, Texte) zaehlt bewusst nicht mit, sonst weicht das Raster vom CSV-Export ab. `x_origin`/`y_origin` ueberschreiben den Ursprung, Fallback auf EXTMIN/EXTMAX falls keine Export-Bloecke vorhanden sind bzw. `csv:get-bbox` fuer einen Block scheitert. Spalten-/Zeilenzahl wird IMMER aufgerundet auf volle Rasterschritte, damit alle senkrechten Linien auf der letzten waagerechten enden und umgekehrt - das Raster bildet immer ein geschlossenes Rechteck. Zaehlung (alphabetisch/numerisch je Achse) als Text am linken/unteren Rand. Das fertige Raster (Linien+Texte) wird per `_.-BLOCK`/`_.INSERT` zu einem einzigen Block `ZZ_PLANQUADRATE` bei (0,0,0) zusammengefasst. Layer aus `cfg/layer.cfg` (`[allgemein]` Key `planquadrate`, Fallback `ZZ_Planquadrate`). DRAW_PLANQUADRATE entfernt vor dem Neuaufbau zuerst einen evtl. vorhandenen Block (`plq-block-entfernen`: INSERTs loeschen + `_-PURGE _B`), DELETE_PLANQUADRATE ruft nur diese Entfernung auf. PLANQUADRATE_TOGGLE ("Planquadrate an/aus", Menue: Konfiguration) prueft per `tblsearch`/`ssget "X"`, ob der Block existiert, und dispatcht auf Zeichnen bzw. Loeschen. Lazy geladen ueber `(ssg-ensure "DrawPlanquadrate")`, nicht in der Core-Ladereihenfolge. Die Planquadrat-SPALTE im CSV-Export (`export_csv.py::planquadrat_column`/`resolve_origins`, `lib/export_planquadrat.py::compute_planquadrat`/`_bbox_min`) rechnet ebenfalls durchgaengig auf Bounding-Box-Basis (nicht nur Einfuegepunkt) und liefert eine SPANNE ("A/1-J/1") statt nur einer Zelle, wenn ein Element mehr als eine Zelle ueberdeckt (Kreisel, lange VF-/GF-Ketten). | @@ -132,12 +138,17 @@ Detaillierte Dokumentation aller Funktionen und Befehle: siehe `Lisp/README.md`. | `sprache.dcl` | SSG_SPRACHE (SSG_LIB_Commands.lsp) | | `tro_insert.dcl` | TRO_INSERT (Tro_Edit.lsp) | | `tro_edit.dcl` | TRO_EDIT (Tro_Edit.lsp) | +| `connection_edit.dcl` | CONNECTION_INSERT/CONNECTION_EDIT (Connection_Edit.lsp) | +| `jam_edit.dcl` | JAM_EDIT (Jam_Edit.lsp) | +| `csv_export_konfig.dcl` | CSV_EXPORT_KONFIG (export.lsp) | | `geruest.dcl` | VORLAGE fuer GERUEST_SAEULEN/_ROHRABHAENGER/_WANDBEFESTIGUNG (GeruestInsert.lsp, `geruest-dialog`); Platzhalter `//@TITEL@`/`//@VARIANTEN@`/`//@BEFESTIGUNG@`/`//@SONSTIGES@` werden per `ssg-dcl-vorlage-fuellen` gefuellt, nicht direkt ladbar | | `geruest_traeger.dcl` | VORLAGE fuer GERUEST_TRAEGER (GeruestInsert.lsp, `geruest-traeger-dialog`), Platzhalter `//@VARIANTEN@` | | `fahrstrecke.dcl` | VORLAGE fuer OMNI_FAHRSTRECKE (GeruestInsert.lsp, `geruest-traeger-dialog`), gleiche Tile-Keys wie `geruest_traeger.dcl`, Platzhalter `//@VARIANTEN@` | +| `kettenfoerderer.dcl` | KETTENFOERDERER/KF_EDIT (KettenFoerderer.lsp, `kf-dialog`); VORLAGE mit Markerzeile `//@VARIANTEN@` (Typ als Radiobuttons, gefuellt per `ssg-dcl-vorlage-fuellen`), die uebrigen Auswahllisten sind `popup_list`-Tiles, die per `start_list`/`add_list` aus `data/json/kettenfoerderer.json` gefuellt werden. Der Knopf `hoehe_messen` schliesst den Dialog per `done_dialog 2` (Hoehe aus 2 Punkten messen, danach erneut zeigen) | | `dinformate.dcl` | DIN_FORMATE (DinFormate.lsp) | | `vfl_edit.dcl` | Linienzug-Editieren/Fortsetzen (vf_linienzug.lsp, `vfl-dlg-position`, aufgerufen aus `vfl-edit-ent`) | -| `vf_linienzug_wizard.dcl` | Linienzug-Assistent (Modus 1, 2 UND 3): zwei generische Einzel-Dialoge (Zahl-Eingabe, Mehrfachauswahl; `vflw-zahl`/`vflw-wahl`, aufgerufen aus `vfl-in-real`/`vfl-in-string`/`vfl-in-int` bei aktivem `*vfl-wizard-mode*`) PLUS sieben Gruppen-Dialoge, die mehrere immer unmittelbar aufeinanderfolgende Fragen in einem Bildschirm zusammenfassen (Kettenstart, AS-Element, GF-Bogen, ES-Element, Vario-Kurve, Gefaelle festlegen, Ziel-Hoehe, Horizontales Stueck - inkl. Punktwahl-Button mit X/Y/Z-Anzeige; `vflw-gruppe-*-impl` in vf_linienzug.lsp fuellen dafuer vorab eine kleine Pending-Queue `*vflw-pending*`, die einzelnen `vfl-in-*`-Aufrufe bleiben dabei unveraendert) PLUS drei Segment-Gruppen-Dialoge fuer die segmentweise Klassifizierung in Modus 2/3 (`vflw_seg_linie_m2` = Typ+GF-Neigung, `vflw_seg_linie_m3` = 4-fach-Typ+kontextabh. Wertfeld, `vflw_seg_bogen` = Typ+Variante; `vflw-seg-*-impl`). Beide Modi heben vor der Frage das aktuelle Pfad-Segment (LINE/ARC) per `vfl-seg-highlight` (`redraw`) in der Zeichnung hervor und zeigen "Segment i/n ..." im Dialogkopf. Details: `doc/variofoerderer.md` | +| `vfl_edit_modus.dcl` | Linienzug-Edit: Auswahl des Edit-Modus (vf_linienzug.lsp) | +| `vf_linienzug_wizard.dcl` | Linienzug-Assistent (Modus 1, 2 UND 3): zwei generische Einzel-Dialoge (Zahl-Eingabe, Mehrfachauswahl; `vflw-zahl`/`vflw-wahl`, aufgerufen aus `vfl-in-real`/`vfl-in-string`/`vfl-in-int` bei aktivem `*vfl-wizard-mode*`) PLUS sieben Gruppen-Dialoge, die mehrere immer unmittelbar aufeinanderfolgende Fragen in einem Bildschirm zusammenfassen (Kettenstart, AS-Element, GF-Bogen, ES-Element, Vario-Kurve, Gefaelle festlegen, Ziel-Hoehe, Horizontales Stueck - inkl. Punktwahl-Button mit X/Y/Z-Anzeige; `vflw-gruppe-*-impl` in vf_linienzug.lsp fuellen dafuer vorab eine kleine Pending-Queue `*vflw-pending*`, die einzelnen `vfl-in-*`-Aufrufe bleiben dabei unveraendert). Das AS-Element am Kettenanfang von Modus 1 nutzt die Variante `vflw_as_achse` (Parameter `mit-achse` von `vflw-gruppe-as-impl`): zusaetzlich zu Ja/Nein, Winkel und Seite liegt dort die **Zufuehrungsachse** (2. Punkt, Punktwahl-Button) im selben Fenster, und die Seite ist auch beim 30-Grad-Element waehlbar. Der ES-Fall und die Modi 2/3 bleiben beim unveraenderten `vflw_as` PLUS drei Segment-Gruppen-Dialoge fuer die segmentweise Klassifizierung in Modus 2/3 (`vflw_seg_linie_m2` = Typ+GF-Neigung, `vflw_seg_linie_m3` = 4-fach-Typ+kontextabh. Wertfeld, `vflw_seg_bogen` = Typ+Variante; `vflw-seg-*-impl`). Beide Modi heben vor der Frage das aktuelle Pfad-Segment (LINE/ARC) per `vfl-seg-highlight` (`redraw`) in der Zeichnung hervor und zeigen "Segment i/n ..." im Dialogkopf. Details: `doc/variofoerderer.md` | ## Menue (SSG_LIB.mnu + SSG_LIB.mnl) @@ -169,6 +180,7 @@ Werden via `bin/setenv.bat` gesetzt. Wichtigste: - **Wiederverwendung vor Neuschaffung bei LISP-Routinen**: Neue Funktionen moeglichst als Erweiterung/Ergaenzung bestehender Funktionen anlegen. Bevor eine NEUE Bibliothek (`.lsp`-Datei) geschaffen wird, immer zuerst pruefen, ob es bereits thematisch passende Routinen gibt, in die die Funktionalitaet gehoert (z.B. Einfuege-Primitiven in `ssg_ks_insert.lsp`, Kern-Helfer in `ssg_core.lsp`, Konstanten in `vf_konstanten.lsp`). Erst wenn nichts passt, ein neues Modul. - **Neue LISP-Routinen nach Moeglichkeit in die LISP-Testsuite aufnehmen**: Jede neue LISP-Routine soll moeglichst einen Test bekommen. **Vorrang haben Routinen, die OHNE Zeichnung/Dateien testbar sind** (reine Berechnung, Parser, String-/Listen-Helfer, cfg-/JSON-Aufloesung) - die gehoeren als `tu-*`-Testblock in `tests/test_unit.lsp` (Befehl `TEST_UNIT`), der komplett file- und zeichnungsfrei laeuft. Zeichnungs-/geometrieabhaengige Routinen ueber ein Szenario-Modul (`tests/test_.lsp` + Eintrag in `tests/alltests.json`, ausgefuehrt von `SSG_RUN_ALL_TESTS`) abdecken. Die reinen Berechnungspfade einer solchen Routine trotzdem, wo moeglich, zusaetzlich als file-freien Unit-Test herausziehen. - **Headless-Testlauf**: Die Unit-Tests laufen ohne GUI ueber `bin/run_tests.bat --lisp` - das startet BricsCAD im Batch-Modus (`/nologo /b`) mit `tests/test_unit.scr` und fuehrt `TEST_UNIT` aus. **BricsCAD steht dafuer ueber die Umgebungsvariable `BRICSCAD` zur Verfuegung** (in `bin/setenv.bat` gesetzt, auf die installierte `bricscad.exe` zeigend); `run_tests.bat` bricht mit Hinweis ab, wenn sie fehlt. Ein neuer file-freier Unit-Test ist damit auch ohne interaktive BricsCAD-Sitzung fahrbar. (Python-seitige Tests siehe `.venv` + `pytest tests/`.) +- **Woechentliche Doku- und TODO-Pruefung (freitags)**: Einmal pro Woche, am besten freitags in einer Sitzung mit dem Benutzer, werden `README.md`, `CLAUDE.md`, `Lisp/README.md`, `tests/README.md` und alle `doc/*.md` (inkl. `doc/plan/`, `doc/todo/`) auf Aktualitaet geprueft: stimmen Befehle, Dateien, Funktionen und Menuestruktur noch mit dem Code (`menu/SSG_LIB.mnu`, `defun c:`-Liste) ueberein? Dabei die zentrale TODO-Liste `doc/todo.md` durchgehen - Erledigtes entfernen, neu Hinzugekommenes eintragen, Fahrplaene in `doc/todo/*.md` nur loeschen, wenn sie vollstaendig erledigt sind. Ergebnis kurz mit dem Benutzer abstimmen, dann committen. - **Regelmaessiges Tote-Code-Review**: Wiederkehrend auf tote/nicht mehr verwendete LISP-Routinen pruefen und aufraeumen - vorzugsweise zu Wochenbeginn, wenn in der betreffenden Woche ohnehin an den LISP-Routinen gearbeitet wird. - **Wiederherstellungs-/Editierdaten gehoeren in XDATA/Journal, nicht in `.dbg`**: Alles, was zum Neuaufbau/Editieren eines Blocks noetig ist (z.B. das VF-Linienzug-Eingabe-Journal `SSG_VF_EDIT`), wird als XDATA am Block gefuehrt. Die `.dbg`-Dateien (`ssg_dbg.lsp`) sind reine AUSGABE, werden von keinem Befehl gelesen und bei jedem Lauf neu angelegt - nie als Datenquelle nutzen. - **Editierbarkeit: festes Schema vs. Sektions-Ruecksprung**: Konstrukte mit FESTER Feldstruktur (feste Anzahl/Typen von Werten, z.B. AS/ES/GF-Bogen/Vario-Kurve im VF-Linienzug) ueber ein deklaratives Schema als einzeln editierbare Records fuehren (Einzel-Glied-Edit per Feld-Splice). Konstrukte mit VARIABLEM Dialog-Fluss (datenabhaengige Feldzahl, z.B. Horizontal-Koerper/Auf-Ab-Foerderer) NICHT per fragilem "n Felder abschneiden"-Splice editieren, sondern per Sektions-Ruecksprung: ab dem gewaehlten Glied zuruecksetzen und live neu aufbauen. Ein fester Splice ueber eine datenabhaengige Feldgrenze ist genau das Muster des Winkel-Index-Bugs. @@ -202,7 +214,7 @@ Abhaengigkeiten: `ezdxf`, Standard-Library. Benoetigen Umgebungsvariablen (`DXFM | `dxf_vf_abbild.py` | Abbild der `VF_`/`GF_`-Wrapperbloecke einer Testzeichnung: Attribute UND Bausteinzusammensetzung je Kette, Ketten ueber den Einfuegepunkt der Spec zugeordnet (der Blockname taugt nicht - die VF-Nummer beginnt in jeder Zeichnung neu bei 1). Regressionsnetz fuer Umbauten am Bau-Ablauf: `--referenz` vergleicht gegen `tests/reference/hundm05_attribute.json` (Exit 1 bei Abweichung), `--schreibe-referenz` frischt sie nach einem GEPRUEFTEN Lauf auf. Faengt genau das, was der Ergebnis-Record nicht sieht - eine vertauschte `vfl-acc-*`-Reihenfolge (Komma-Listen `L_VF_m`/`L_GF_m`/`GF_WINKEL`, in der Zeichnung unsichtbar, im Sivas-Export falsch) und eine falsche Blockvariante. Liest ASCII-DXF streamend; binaere DXF kann `dxf_scan_components.py`. Genutzt von `tests/test_vf_geometrie.py` | | `vf_spec_export.py` | Uebersetzt ein Eingabe-Journal in eine **Spec** und zurueck (`spec_aus_journal` / `journal_aus_spec`) - Gegenstueck zu `vsp-journal` in `Lisp/vf_spec.lsp`, beide muessen dieselbe Tokenfolge liefern. Der Rundlauf `journal_aus_spec(spec_aus_journal(tok)) == tok` laeuft in `tests/test_vf_spec.py` gegen die 5 echten HundM-Ketten und beweist, dass die Spec das Journal verlustfrei abbildet. Schreibt das flache Spec-JSON (vom LISP-Parser lesbar). Objekte der Ziel-Datei, die keine Kette beschreiben (von Hand ergaenzte Anlagenteile mit `function`, z.B. Kreisel), werden beim Neuschreiben unveraendert ans Dateiende uebernommen - sonst waeren sie beim naechsten Lauf weg. Aufruf: `python vf_spec_export.py ` — erzeugt `tests/testdata/hundm05.json` (Spec, Eingabe fuer `TEST_HUNDM05`/`VF_SPEC_BAU`) aus `tests/testdata/hm_recformat.json` (Aufzeichnung) | | `dxf_anlage_export.py` | Gegenstueck zum Scanner: liest eine mit unseren Makros GEBAUTE (und von Hand nachbearbeitete) Anlage aus der Zeichnung zurueck in Nachbau-Testdaten - je Wrapper genau die Parameter, die auch dessen Edit-Befehl liest (KREISEL_n: Einfuegepunkt, `abstand` exakt aus der Blockdefinition, `drehrichtung` aus DREHRICHTUNG; GF_n: SSG_GF_EDIT + SEITE_AS/ES, endet die GF auf einer Kreisel-Kette, wird dessen Hoehe `hoehe_ende_mm`; VF_n `standard`/`etage`: mubea-Schema wie `vfs-edit-basis-lesen`; VF_n `linienzug`: Journal UNVERAENDERT als `"typ": "linienzug_journal"` - bewusst keine Spec, weil der Bau-Dialog neuer ist als die Spec-Grammatik; uebrige Bloecke als Einzel-Insert ohne `_2D`/`_3D`-Suffix). Reihenfolge Kreisel, VF, GF, Einzelbloecke (VF vor GF wie mubea). Aufruf: `python dxf_anlage_export.py [--projekt NAME]` — erzeugt `tests/testdata/dematic_arvato.json` aus `Dematic_TST.dxf`. Test `tests/test_dxf_anlage_export.py` | -| `dxf_scan_components.py` | Erkennt ILS-/Omniflo-Komponenten in einer **fremden** Projektzeichnung (ohne unsere Wrapper-Bloecke) und schreibt sie im JSON-Schema aus `tests/testdata/object_data.md` — Grundlage fuer Nachbau-Testfaelle wie `tests/testdata/mubea.json`. Liest binaere DXF im GB-Bereich streamend per mmap (ezdxf-DOM waere zu gross), loest INSERTs inkl. OCS/Extrusionsrichtung rekursiv in Weltkoordinaten auf, paart AN8/SP8 zu Kreiseln und Antrieb/Umlenkung zu Foerderern. Gefaellestrecken, die als 3D-LINE auf einem Staustrecken-Layer gezeichnet sind (`GF_LINIE_LAYER`, z.B. `6-SP`), werden in einem zweiten Lesedurchgang zu Modus-1-Eintraegen: Start/Ende werden auf die Ketten der anschliessenden Kreisel verlaengert (gezeichnet ist nur die Staustrecke; `deltaL` reicht von AS- bis ES-Ursprung), AS-Seite aus dem Ausschleuselement am oberen Ende; dieses und Separatoren auf der Achse entfallen als Einzel-Insert (die GF baut beide selbst). Sitzt der AS am UNTEREN Ende, ist es ein Steigfoerderer und wird nur gemeldet (`gf_eintraege_aus_linien`, Test `tests/test_dxf_scan_gf.py`). `--ohne-hoehen` setzt alle Z auf 0, `--kreisel-hoehe X Y Z` gibt einem Kreisel seine Hoehe - die daran haengenden GF bekommen daraus `start_mm.z`/`hoehe_ende_mm`, den Winkel rechnet der Treiber (`dematic_arvato:gf-geometrie`: atan ueber die HORIZONTALE Laenge, ES-Laenge UND -Abfall bei der Einlaufneigung gemessen und iteriert, Staustrecke daraus - die flache ES-Laenge liess steile GF ~144 mm vor der Kette enden - NICHT `gf-winkel-berechnen`, dessen asin bei steilen GF wie im Showroom ~50 statt ~37 Grad liefert; `dematic_arvato:gf-endhoehe-pruefen` meldet `warnung` bei > 5 mm Abweichung von HOEHE_BIS). Flache 2D-Plaene: `--flach` (waagrechte Staustrecke mit AS an genau einem Ende = GF, zerstueckelte Linien werden vereint, ES am unteren Ende wird verbraucht, AS/ES-Seite ohne Namensangabe aus der Lage zur Fahrtrichtung), `--kreisel-achse X1 Y1 X2 Y2` (Kreisel ohne AN8/SP8), Einzelteile auf einer Kreisel-Kette erben dessen Anwender-Hoehe (`sensor_hoehen_von_kreiseln`). Kreisel-Paarung mit Tausch-Nachbesserung auf minimale Abstandssumme (zwei Kreisel auf einer Achse). Genutzt fuer `tests/testdata/showroom_ils.json` (`TEST_SHOWROOM_ILS`). Aufruf: `python dxf_scan_components.py [--fenster X0 Y0 X1 Y1]` — ohne `--fenster` liefert eine Anlagenzeichnung leicht ueber 1300 Eintraege, zuviel fuer einen Testlauf | +| `dxf_scan_components.py` | Erkennt ILS-/Omniflo-Komponenten in einer **fremden** Projektzeichnung (ohne unsere Wrapper-Bloecke) und schreibt sie im JSON-Schema aus `doc/json-input-lisp.md` (Nachfolger des geloeschten `tests/testdata/object_data.md`) — Grundlage fuer Nachbau-Testfaelle wie `tests/testdata/mubea.json`. Liest binaere DXF im GB-Bereich streamend per mmap (ezdxf-DOM waere zu gross), loest INSERTs inkl. OCS/Extrusionsrichtung rekursiv in Weltkoordinaten auf, paart AN8/SP8 zu Kreiseln und Antrieb/Umlenkung zu Foerderern. Gefaellestrecken, die als 3D-LINE auf einem Staustrecken-Layer gezeichnet sind (`GF_LINIE_LAYER`, z.B. `6-SP`), werden in einem zweiten Lesedurchgang zu Modus-1-Eintraegen: Start/Ende werden auf die Ketten der anschliessenden Kreisel verlaengert (gezeichnet ist nur die Staustrecke; `deltaL` reicht von AS- bis ES-Ursprung), AS-Seite aus dem Ausschleuselement am oberen Ende; dieses und Separatoren auf der Achse entfallen als Einzel-Insert (die GF baut beide selbst). Sitzt der AS am UNTEREN Ende, ist es ein Steigfoerderer und wird nur gemeldet (`gf_eintraege_aus_linien`, Test `tests/test_dxf_scan_gf.py`). `--ohne-hoehen` setzt alle Z auf 0, `--kreisel-hoehe X Y Z` gibt einem Kreisel seine Hoehe - die daran haengenden GF bekommen daraus `start_mm.z`/`hoehe_ende_mm`, den Winkel rechnet der Treiber (`dematic_arvato:gf-geometrie`: atan ueber die HORIZONTALE Laenge, ES-Laenge UND -Abfall bei der Einlaufneigung gemessen und iteriert, Staustrecke daraus - die flache ES-Laenge liess steile GF ~144 mm vor der Kette enden - NICHT `gf-winkel-berechnen`, dessen asin bei steilen GF wie im Showroom ~50 statt ~37 Grad liefert; `dematic_arvato:gf-endhoehe-pruefen` meldet `warnung` bei > 5 mm Abweichung von HOEHE_BIS). Flache 2D-Plaene: `--flach` (waagrechte Staustrecke mit AS an genau einem Ende = GF, zerstueckelte Linien werden vereint, ES am unteren Ende wird verbraucht, AS/ES-Seite ohne Namensangabe aus der Lage zur Fahrtrichtung), `--kreisel-achse X1 Y1 X2 Y2` (Kreisel ohne AN8/SP8), Einzelteile auf einer Kreisel-Kette erben dessen Anwender-Hoehe (`sensor_hoehen_von_kreiseln`). Kreisel-Paarung mit Tausch-Nachbesserung auf minimale Abstandssumme (zwei Kreisel auf einer Achse). Genutzt fuer `tests/testdata/showroom_ils.json` (`TEST_SHOWROOM_ILS`). Aufruf: `python dxf_scan_components.py [--fenster X0 Y0 X1 Y1]` — ohne `--fenster` liefert eine Anlagenzeichnung leicht ueber 1300 Eintraege, zuviel fuer einen Testlauf | ### Entwickler-Tools (`lib/`) - kein ezdxf, reine Text-/AutoLISP-Verarbeitung @@ -219,7 +231,7 @@ Abhaengigkeiten: `ezdxf`, Standard-Library. Benoetigen Umgebungsvariablen (`DXFM ## Entwicklungsstand Siehe `doc/plan/Entwicklungsplan.md` fuer Meilensteinplanung und Aufwandsschaetzung. -Fertig (DONE): ILS Kreisel, ILS Eckrad, ILS Variofoerderer, ILS BTMT Be-/Entladung (Einfuegen), Omniflo Boegen, Omniflo Weichen. +Fertig (DONE, Stand 2026-10-26): ILS Kreisel, ILS Eckrad, ILS Variofoerderer (Standard/Etage/Linienzug), ILS Gefaellestrecke, ILS BTMT Be-/Entladung, Geruest (Rohrabhaenger, Saeulen, Wandbefestigung, Traeger), Omniflo Boegen, Weichen, Verbinder, Fahrstrecke, Ladeschleifen, Kettenfoerderer, CSV-/Sivas-Export. Offen u.a.: Gattertraeger, Omniflo-Boegen fuer Weichen (`OMNI_APBW_*`, Dummy), eigenstaendige ILS-Weichen-/Kurvengeometrie. Alle offenen Punkte: `doc/todo.md` (Detail-Fahrplaene in `doc/todo/`). ## Debug Wenn Werte für das Debug in der Bricscad Konsole ausgegeben werden z.B. mit princ, soll der Benutzer dazu ermuntert werden, statt dessen die Lisp dbg Routinen zu verwenden, welche dann eine .dbg file im log folder erzeugen. Diese können ja über eine zentrale globale Sammlung von Schalter an und abgeschaltet werden, so dass die Files per default auch nicht geschrieben werden, nur wenn der passende Schalter auf 1 gesetzt wird. Damit können debug aufrufe auch im Code verbleiben. diff --git a/Lisp/KettenFoerderer.lsp b/Lisp/KettenFoerderer.lsp new file mode 100644 index 0000000..762a14d --- /dev/null +++ b/Lisp/KettenFoerderer.lsp @@ -0,0 +1,1204 @@ +;; ============================================================ +;; KETTENFOERDERER.LSP - Schraegfoerderer Stahl (Omniflo) +;; ============================================================ +;; Baut aus drei vorhandenen Bloecken eine Kette zusammen und fasst sie zu +;; EINEM Block KF_ zusammen - dasselbe Muster wie KREISEL_n/VF_n/GF_n: +;; +;; KF_UM_ (Umlenkstation, unten) +;; KS_AUS --> KS_EIN +;; KF_LAENGE (Zwischenstueck, in X SKALIERT - wie die Staustrecke +;; beim VarioFoerderer) +;; KS_AUS --> KS_EIN +;; KF_AN_ (Antriebsstation, oben) +;; +;; GEOMETRIE - wichtigste Entwurfsentscheidung: +;; Die Neigung (26 bzw. 30 Grad) ist KEIN Rechenparameter. Sie steckt fest in +;; der Geometrie der Varianten-Bloecke (KF_UM_26 gegen KF_UM_30). Der +;; Einbauwinkel jedes Folgebausteins wird darum zur Laufzeit aus der RICHTUNG +;; des KS_AUS seines Vorgaengers gemessen (ks-xy-winkel/ks-block-messen in +;; ssg_ks_insert.lsp) - es gibt hier keine gepflegte Winkeltabelle, die beim +;; Austausch einer DWG veralten koennte. Der JSON-Wert "winkel" dient nur der +;; Variantenwahl, der Anzeige und dem Attribut KF_WINKEL. +;; +;; Die Bloecke sind eine 2D-SEITENANSICHT: die Steigung liegt in der +;; XY-Zeichenebene, die Hoehenachse ist Y (nicht Z wie bei VF/GF). Die +;; Neigung ist damit eine reine Rz-Drehung - deshalb genuegt +;; insert-block-by-ks/insert-block-ks-skaliert, die Rz*Ry-Primitiven des +;; VarioFoerderers werden hier nicht gebraucht. +;; +;; Die Einbauhoehe H (Abstand KS_EIN der Umlenkung bis KS_AUS des Antriebs auf +;; der Y-Achse) bestimmt die Laenge des Zwischenstuecks ueber die +;; Hoehenbilanz, siehe kf-laenge-berechnen. +;; +;; Abhaengigkeiten: ssg_core, ssg_lang, ssg_layer, ssg_id, ssg_ks_insert, +;; OmniModulInsert (nur fuer omni:omniflo-datei-finden - die KF-DWGs liegen +;; wie alle Omniflo-Bauteile in data/omniflo//). +;; ============================================================ + +(vl-load-com) + +;; modelspace/doc werden von den KS-Einfuegeprimitiven als GLOBALE Variablen +;; erwartet (gesetzt von vf_core.lsp bzw. Gefaellestrecke.lsp). Beim isolierten +;; Laden dieses Moduls - etwa in einem Testskript - ist noch keines davon +;; geladen, darum hier guarded nachziehen (gleiches Muster wie TEFInsert.lsp). +(if (null doc) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))) +(if (null modelspace) (setq modelspace (vla-get-ModelSpace doc))) + +;; Einfuegeprimitiven guarded nachladen (die MNL laedt ssg_ks_insert als +;; Kernmodul, beim isolierten Test-Laden fehlt es aber). Geprueft wird ueber +;; atoms-family, nicht ueber (null ) - ein noch nie definiertes +;; Funktionssymbol ist zwar nil, ein definiertes liefert aber eine USUBR, und +;; die Abfrage waere damit vom Ladezustand abhaengig statt von der Existenz. +(if (not (car (atoms-family 1 '("INSERT-BLOCK-KS-SKALIERT")))) + (if (findfile (ssg-lisp-datei-pfad "ssg_ks_insert.lsp")) + (load (ssg-lisp-datei-pfad "ssg_ks_insert.lsp")))) + +;; ------------------------------------------------------------ +;; LAUFZEIT-PROTOKOLL (Schalter "kf-zeit") +;; ------------------------------------------------------------ +;; Schreibt Zwischenzeiten ueber ssg_dbg (dbgmsg) statt per princ ins +;; BricsCAD-Fenster - die Zeilen landen damit in einer .dbg-Datei im +;; DXFM_LOG-Verzeichnis und sind ueber den Schalter abschaltbar, koennen +;; also dauerhaft im Code bleiben (siehe Debug-Abschnitt in CLAUDE.md). +;; Einschalten: (dbg-schalter-setzen "kf-zeit" 1), dann KETTENFOERDERER. +;; Zweck: klaeren, wo die spuerbare Verzoegerung beim ersten Menueklick +;; entsteht (Lazy-Laden des Moduls / JSON lesen / Dialogaufbau). +;; Eigener Dateihandle statt dbgmsg: ssg_dbg fuehrt mit *dbg-path* genau EINE +;; global offene Datei - die Zeilen wuerden sonst stillschweigend in einem +;; fremden Protokoll landen (gleiche Ueberlegung wie bei ssg-sepliste-dbg). +(if (not (boundp '*kf-zeit-pfad*)) (setq *kf-zeit-pfad* nil)) + +(defun kf-zeit (was t0 / dir fh) + (if (and t0 + (car (atoms-family 1 '("DBG-SCHALTER-P"))) + (dbg-schalter-p "kf-zeit")) + (progn + (if (null *kf-zeit-pfad*) + (progn + (setq dir (getenv "DXFM_LOG")) + (if (or (null dir) (= dir "")) (setq dir ".")) + (setq *kf-zeit-pfad* (strcat dir "\\kf_zeit.dbg")))) + (setq fh (open *kf-zeit-pfad* "a")) + (if fh + (progn + (write-line (strcat was ": " (itoa (fix (- (getvar "MILLISECS") t0))) + " ms seit Befehlsstart") fh) + (close fh))))) + (princ)) + +;; ============================================================ +;; DATEN (data/json/kettenfoerderer.json) +;; ============================================================ +;; Verschachteltes JSON -> ssg-json-laden (rekursiver Parser), NICHT der +;; zeilenbasierte ssg-load-json: die Datei hat verschachtelte Objekte und +;; Kommas in den Beschreibungstexten. +(if (not (boundp '*kf-daten*)) (setq *kf-daten* nil)) + +(defun kf-daten-datei ( / basis) + (setq basis (getenv "DXFM_DATA")) + (if (or (null basis) (= basis "")) + (setq basis (strcat (getenv "DXFMAKRO") "/data"))) + (strcat basis "/json/kettenfoerderer.json")) + +;; Geladene Daten (Cache). kf-daten-reset erzwingt das Neulesen nach einer +;; Aenderung an der JSON, ohne BricsCAD neu zu starten. +(defun kf-daten ( / datei roh) + (if (null *kf-daten*) + (progn + (setq datei (kf-daten-datei)) + (if (findfile datei) + (progn + (setq roh (ssg-json-laden datei)) + (setq *kf-daten* (ssg-json-get roh "kettenfoerderer"))) + (princ (ssg-textf "kf-fehler-daten-fehlt" (list datei)))))) + *kf-daten*) + +(defun kf-daten-reset ( ) (setq *kf-daten* nil) (princ)) + +;; ============================================================ +;; REINE RECHENKERNE (ohne Zeichnung/Datei testbar - tests/test_unit.lsp) +;; ============================================================ + +;; JSON-Wert als Zahl. Der Parser liefert Zahlen je nach Schreibweise als +;; REAL/INT oder (bei gequoteten Werten) als String - beides zulassen. +(defun kf-zahl (v) + (cond + ((null v) nil) + ((numberp v) (float v)) + ((= (type v) 'STR) (atof v)) + (t nil))) + +;; Laenge des skalierbaren Zwischenstuecks aus der Hoehenbilanz. +;; H = dy-um + [ L*sin(hz) + dy-nativ*cos(hz) ] + dy-an +;; aufgeloest nach L. Der Term dy-nativ*cos(hz) faellt weg, wenn das +;; Zwischenstueck waagerecht gezeichnet ist (Normalfall) - er steht hier, +;; damit auch ein bereits geneigt gezeichnetes KF_LAENGE richtig gerechnet +;; wird. dy-nativ skaliert BEWUSST nicht mit: skaliert wird nur in X. +;; h-soll gewuenschte Einbauhoehe H (mm) +;; dy-um Y-Versatz der eingebauten Umlenkstation +;; dy-an Y-Versatz der eingebauten Antriebsstation +;; dy-nativ Y-Anteil des KS_AUS-KS_EIN-Versatzes von KF_LAENGE (Blockmass) +;; hz Einbauwinkel des Zwischenstuecks (Grad) +;; Rueckgabe: Laenge entlang der Blockachse (mm), oder nil wenn die Neigung +;; keinen Hoehengewinn liefert (sin(hz)=0 - dann ist H nicht erreichbar). +(defun kf-laenge-berechnen (h-soll dy-um dy-an dy-nativ hz / rad sh ch rest) + (setq rad (* (float hz) (/ pi 180.0))) + (setq sh (sin rad) ch (cos rad)) + (if (< (abs sh) 1e-9) + nil + (progn + (setq rest (- (float h-soll) (float dy-um) (float dy-an) + (* (float dy-nativ) ch))) + (/ rest sh)))) + +;; X-Massstab fuer KF_LAENGE: gewuenschte Laenge / native Blocklaenge. +;; nil, wenn der Block keine messbare X-Laenge hat. +(defun kf-skala-berechnen (laenge dx-nativ) + (if (or (null laenge) (null dx-nativ) (< (abs dx-nativ) 1e-9)) + nil + (/ (float laenge) (float dx-nativ)))) + +;; Errechnete Laenge gegen die Grenzen aus der JSON pruefen. +;; Rueckgabe: nil = in Ordnung, sonst der Sprach-Key der Meldung. +(defun kf-laenge-pruefen (laenge lmin lmax) + (cond + ((null laenge) "kf-fehler-winkel-null") + ((<= laenge 0.0) "kf-fehler-hoehe-zu-klein") + ((and lmin (< laenge (float lmin))) "kf-fehler-laenge-unter-min") + ((and lmax (> laenge (float lmax))) "kf-fehler-laenge-ueber-max") + (t nil))) + +;; Y-Anteil des KS_AUS-KS_EIN-Versatzes nach Einbau mit Rz(hz) und X-Massstab. +;; In der 2D-Seitenansicht ist Y die Hoehenachse. +(defun kf-dy-eingebaut (dx-nativ dy-nativ hz skala / rad) + (setq rad (* (float hz) (/ pi 180.0))) + (+ (* (* (float skala) (float dx-nativ)) (sin rad)) + (* (float dy-nativ) (cos rad)))) + +;; Einbauwinkel (Rz, Grad) eines Folgebausteins: sein KS_EIN soll in dieselbe +;; Richtung zeigen wie das KS_AUS seines Vorgaengers. +;; hz = Weltrichtung(KS_AUS Vorgaenger) - Eigenrichtung(KS_EIN Folgebaustein) +;; Fehlt die Eigenrichtung des Folgebausteins, wird er wie sein Vorgaenger +;; ausgerichtet; fehlt die Vorgaengerrichtung, ist keine Aussage moeglich (nil). +(defun kf-hz-folge (phi-aus beta-ein) + (cond + ((null phi-aus) nil) + ((null beta-ein) (ks-winkel-normalisieren phi-aus)) + (t (ks-winkel-normalisieren (- phi-aus beta-ein))))) + +;; Variante zu einem Winkel suchen. Rueckgabe: Varianten-Objekt oder nil. +(defun kf-variante-finden (winkel varianten / treffer w) + (setq treffer nil) + (foreach v varianten + (setq w (kf-zahl (ssg-json-get v "winkel"))) + (if (and (null treffer) w (< (abs (- w (float winkel))) 0.01)) + (setq treffer v))) + treffer) + +;; ------------------------------------------------------------ +;; ATTRIBUT-SCHEMA +;; ------------------------------------------------------------ +;; EIGENSTAENDIGE Liste - bewusst NICHT vom Strecken-Schema des +;; VarioFoerderers (`ssg-strecke-attrib-defs`) abgeleitet. Anfangs war sie +;; das, was dem Block rund zwei Dutzend geerbte Tags eintrug, die der +;; Kettenfoerderer gar nicht kennt (SEITE_AS/ES, GF_Bogen_*, ANZAHL_VF, +;; MOTORSEITE, VF_Bogen_*, ANZAHL_SEPARATOR ...). Sie standen leer am Block, +;; waren im Attributeditor nur Ballast und haetten im Export Werte +;; vorgetaeuscht, die es hier nicht gibt. Eine explizite Liste ist zudem +;; leichter zu lesen als eine Erbung mit Ausnahmeliste. +;; +;; Was die Tags bedeuten: +;; ID - vergibt ssg-id-generate (Voraussetzung fuer den Export) +;; Bezeichnung - Blockname KF_, CSV-Spalte +;; ARTINR - Sivas-Artikelnummer, CSV-Spalte "SivasNummer" +;; FOERDERERTYP - Bauart im Klartext ("Schraegfoerderer Stahl"), +;; Merkmal 350. Der Wert kommt aus der JSON +;; (Feld "foerderertyp"), nicht aus dem Code - so +;; bleibt diese Datei frei von Sonderzeichen und der +;; Text ist an einer Stelle pflegbar. +;; WINKEL - Neigungswinkel als nackte Zahl ("26"/"30"). +;; Den Sivas-Klartext mit Gradzeichen erzeugt erst die +;; Tabelle [kf_typ_anzeige] (cfg/sivas.cfg, Merkmal +;; 359) - Attributwerte bleiben so ASCII. +;; STANDARD_STEUERUNG - Merkmal 361, "1"/"0" ueber Transform ja_nein. +;; Steht direkt hinter WINKEL, wie im Merkmalstamm. +;; H_EINBAUHOEHE_mm - Merkmal 360 +;; L_KF_mm - Laenge des skalierten Zwischenstuecks, CSV-Spalte +;; FARBE - Merkmal 354 +;; ANTRIEBSMOTOR - Merkmal 355 (eigenes Merkmal, nicht Teil von 354) +;; ANTRIEBSART - Merkmal 357, FEST "1.1 kW" (Wert aus der JSON, +;; im Dialog ein Dropdown mit EINER, zwingend gewaehlten Option) +;; MOVIMOT - Merkmal 356, "1"/"0" ueber Transform ja_nein +;; VERBINDUNGSELEMENTE - Merkmal 391 +;; LAYER - Ziel-Layer der Baugruppe +;; +;; KEINE TEILEART: sie ist fuer jeden Kettenfoerderer gleich und steht darum +;; als Festwert im Export (KF_TEILEART in export_sivas.py) statt an jedem +;; Block. Die Erkennung laeuft ohnehin ueber den Blocknamen (pattern_ +;; kettenfoerderer), nicht ueber TEILEART. +(setq *kf-attrib-defs-liste* + '(("ID" "") + ("Bezeichnung" "") + ("ARTINR" "") + ("FOERDERERTYP" "Schraegfoerderer Stahl") + ("WINKEL" "26") + ;; Reihenfolge wie im Sivas-Merkmalstamm: 361 folgt direkt auf den Typ. + ("STANDARD_STEUERUNG" "0") + ("H_EINBAUHOEHE_mm" "0") + ("L_KF_mm" "0") + ("FARBE" "RAL 7035") + ("ANTRIEBSMOTOR" "Europa 50 Hz") + ;; Merkmal 357 - beim Kettenfoerderer fest, im Dialog nur Anzeige. + ("ANTRIEBSART" "1.1 kW") + ("MOVIMOT" "0") + ("VERBINDUNGSELEMENTE" "Nein") + ("LAYER" "F-3"))) + +(defun kf-attrib-defs ( ) *kf-attrib-defs-liste*) + +;; Antriebsart (Merkmal 357). Beim Kettenfoerderer gibt es genau EINE Option +;; ("1.1 kW"), die im Dialog zwingend gewaehlt ist. Sie steht als Liste in der +;; JSON (wie alle anderen Auswahlen), nicht im Code. Rueckgabe: der "wert" des +;; ERSTEN Eintrags - bei einer Ein-Eintrag-Liste also immer derselbe Wert. +(defun kf-antriebsart (daten) + (kf-auswahl-wert (ssg-json-get daten "antriebsart") 0 "1.1 kW")) + +;; Position eines Tags in einer ATTDEF-Liste (0-basiert), nil wenn nicht +;; enthalten. Die REIHENFOLGE ist nicht beliebig: sie bestimmt, in welcher +;; Folge die Attribute im Blockeditor und in den Exportzeilen erscheinen, und +;; folgt darum dem Sivas-Merkmalstamm. Reiner Kern, in test_unit geprueft. +(defun kf-tag-index (tag defs / i treffer) + (setq i 0 treffer nil) + (foreach d defs + (if (and (null treffer) (= (car d) tag)) (setq treffer i)) + (setq i (1+ i))) + treffer) + +;; ============================================================ +;; BLOCK-DATEIEN (data/omniflo//) +;; ============================================================ +;; Die KF-Bloecke liegen - anders als die ILS-Bloecke in data/ils (flach, mit +;; Dimensionssuffix _2D/_3D) - in den Omniflo-Ordnern ohne Suffix. Die +;; KS-Primitiven in ssg_ks_insert.lsp suchen ueber ssg-ils-block-laden aber in +;; data/ils. Darum wird die Blockdefinition HIER vorab aus dem Omniflo-Ordner +;; in die Zeichnung geladen; ensure-block-loaded findet sie dann per +;; tblsearch bereits vor und laesst sie unangetastet. +(defun kf-block-laden (blockname / pfad omniflo-pfad temp-obj) + (if (tblsearch "BLOCK" blockname) + blockname + (progn + (setq omniflo-pfad (getenv "DXFM_OMNIFLO")) + (setq pfad + (if (and omniflo-pfad + (car (atoms-family 1 '("OMNI:OMNIFLO-DATEI-FINDEN")))) + (omni:omniflo-datei-finden blockname omniflo-pfad) + nil)) + ;; Rueckfall ohne OmniModulInsert/DXFM_OMNIFLO: direkt im Datenordner + (if (null pfad) + (setq pfad (kf-block-datei-direkt blockname))) + (if pfad + (progn + ;; vla-InsertBlock mit DATEIPFAD definiert den Block unter seinem + ;; Dateinamen (gleiches Vorgehen wie dinformate-block-laden). + (setq temp-obj (vla-InsertBlock modelspace + (vlax-3D-point '(0 0 0)) pfad 1.0 1.0 1.0 0)) + (if (and temp-obj (not (vlax-erased-p temp-obj))) + (vla-Delete temp-obj)) + (if (tblsearch "BLOCK" blockname) blockname nil)) + (progn + (princ (ssg-textf "kf-fehler-block-datei" (list blockname))) + nil))))) + +;; Blockdatei ohne DXFM_OMNIFLO suchen: data/omniflo// in der aktuellen +;; Dimension, dann in der anderen (der 3D-Datenbestand ist unvollstaendig). +(defun kf-block-datei-direkt (blockname / basis dim kandidaten treffer) + (setq basis (getenv "DXFM_DATA")) + (if (or (null basis) (= basis "")) + (setq basis (strcat (getenv "DXFMAKRO") "/data"))) + (setq dim (if (car (atoms-family 1 '("SSG-ILS-DIM-AKTUELL"))) + (ssg-ils-dim-aktuell) "2D")) + (setq kandidaten + (list (strcat basis "/omniflo/" dim "/" blockname ".dwg") + (strcat basis "/omniflo/" dim "/" blockname ".dxf") + (strcat basis "/omniflo/" (if (= dim "2D") "3D" "2D") "/" blockname ".dwg") + (strcat basis "/omniflo/" (if (= dim "2D") "3D" "2D") "/" blockname ".dxf"))) + (setq treffer nil) + (foreach k kandidaten + (if (and (null treffer) (findfile k)) (setq treffer (findfile k)))) + treffer) + +;; ============================================================ +;; AUFRICHTUNG: die Baugruppe steht im Modell +;; ============================================================ +;; Die Bausteine sind in der XY-Ebene gezeichnet (X = Fahrtrichtung, +;; Y = Hoehe) - eine Seitenansicht. Eingebaut werden sie AUFGERICHTET: um +;; 90 Grad um die Fahrtrichtungsachse gekippt, sodass die Hoehe nach Z +;; wandert. Von oben sieht man dann die Draufsicht KF_2D, von der Seite die +;; Kette; beide bilden EIN Objekt ohne Versatz. +;; +;; Gesamtdrehung je Baustein: Rz(basis) * Rx(90) * Rz(eigen) +;; Rz(eigen) richtet den Baustein in seiner EIGENEN Zeichenebene aus +;; (der aus den KS gemessene Verkettungswinkel, s. kf-hz-folge) +;; Rx(90) richtet die Ebene auf - Y_lokal wird zu Z_welt +;; Rz(basis) dreht die fertige Baugruppe in der Draufsicht +;; Die Reihenfolge ist nicht beliebig: Rz(eigen) muss VOR dem Aufrichten +;; wirken (es ist eine Drehung in der Blockebene), Rz(basis) danach (es ist +;; eine Drehung im Modell). +(defun kf-matrix-aufrecht (basis-hz eigen-hz) + (mat3-mul-mat3 (ks-rot-z basis-hz) + (mat3-mul-mat3 (ks-rot-x 90.0) (ks-rot-z eigen-hz)))) + +;; ============================================================ +;; GEOMETRIE EINER VARIANTE MESSEN +;; ============================================================ +;; Misst alle drei Bloecke EINMAL und leitet daraus die Einbauwinkel und die +;; Hoehenbeitraege ab. Ergebnis ist ein Record (Assoc-Liste), den der Dialog +;; fuer die Laengenvorschau und der Bau fuer die eigentliche Verkettung nutzt - +;; gemessen wird also genau einmal je Variante. +;; +;; Felder: "hz-um" "hz-l" "hz-an" Einbauwinkel (Grad, relativ zur Basisdrehung) +;; "dy-um" "dy-an" Hoehenbeitrag der beiden Stationen +;; "dx-l" "dy-l" nativer KS-Versatz von KF_LAENGE +;; "fehler" Sprach-Key, falls etwas fehlt (sonst nil) +(defun kf-geometrie-messen (variante / b-um b-l b-an ks-um ks-l ks-an + v-um v-l v-an beta-aus-um beta-ein-l beta-aus-l + beta-ein-an hz-um hz-l hz-an dy-um dy-an fehler) + (setq b-um (ssg-json-get variante "block_umlenkung") + b-l (ssg-json-get variante "block_laenge") + b-an (ssg-json-get variante "block_antrieb")) + (setq fehler nil) + (if (not (and (kf-block-laden b-um) (kf-block-laden b-l) (kf-block-laden b-an))) + (setq fehler "kf-fehler-block-datei") + (progn + (setq ks-um (ks-block-messen b-um) + ks-l (ks-block-messen b-l) + ks-an (ks-block-messen b-an)) + (setq v-um (ks-versatz ks-um) + v-l (ks-versatz ks-l) + v-an (ks-versatz ks-an)) + (if (not (and v-um v-l v-an)) + ;; Welcher Baustein klemmt, gehoert ins Protokoll: die Meldung allein + ;; ("in mindestens einem Baustein fehlt ein KS") hat bei einem realen + ;; Fehlschlag nicht gereicht, um die Ursache zu finden - sie lag nicht + ;; an den Bloecken, sondern an einem falsch aufgeloesten Blocknamen + ;; (siehe ensure-block-loaded in ssg_ks_insert.lsp). + (progn + (foreach paar (list (cons b-um v-um) (cons b-l v-l) (cons b-an v-an)) + (if (null (cdr paar)) + (princ (ssg-textf "kf-pruef-ks-fehlt-kurz" (list (car paar)))))) + (setq fehler "kf-fehler-ks-fehlt")) + (progn + ;; Eigenrichtungen der KS in Blockkoordinaten + (setq beta-aus-um (ks-xy-winkel (cadr (assoc "KS_AUS" ks-um))) + beta-ein-l (ks-xy-winkel (cadr (assoc "KS_EIN" ks-l))) + beta-aus-l (ks-xy-winkel (cadr (assoc "KS_AUS" ks-l))) + beta-ein-an (ks-xy-winkel (cadr (assoc "KS_EIN" ks-an)))) + ;; Die Umlenkstation gibt die Basisrichtung vor (hz 0); jeder + ;; Folgebaustein richtet sich am KS_AUS seines Vorgaengers aus. + (setq hz-um 0.0) + (setq hz-l (cond ((kf-hz-folge (if beta-aus-um (+ beta-aus-um hz-um) nil) + beta-ein-l)) (0.0))) + (setq hz-an (cond ((kf-hz-folge (if beta-aus-l (+ beta-aus-l hz-l) nil) + beta-ein-an)) (hz-l))) + ;; Hoehenbeitrag der beiden Stationen (Massstab 1) + (setq dy-um (kf-dy-eingebaut (car v-um) (cadr v-um) hz-um 1.0)) + (setq dy-an (kf-dy-eingebaut (car v-an) (cadr v-an) hz-an 1.0)))))) + (list (cons "fehler" fehler) + (cons "hz-um" (cond (hz-um) (0.0))) + (cons "hz-l" (cond (hz-l) (0.0))) + (cons "hz-an" (cond (hz-an) (0.0))) + (cons "dy-um" (cond (dy-um) (0.0))) + (cons "dy-an" (cond (dy-an) (0.0))) + (cons "dx-l" (cond ((car v-l)) (0.0))) + (cons "dy-l" (cond ((cadr v-l)) (0.0))))) + +;; Laenge + Massstab fuer eine Hoehe aus einem gemessenen Geometrie-Record. +;; Rueckgabe: (laenge skala fehler-key) - laenge/skala nil bei Fehler. +(defun kf-laenge-fuer-hoehe (geo hoehe lmin lmax / laenge skala key) + (if (cdr (assoc "fehler" geo)) + (list nil nil (cdr (assoc "fehler" geo))) + (progn + (setq laenge (kf-laenge-berechnen hoehe + (cdr (assoc "dy-um" geo)) + (cdr (assoc "dy-an" geo)) + (cdr (assoc "dy-l" geo)) + (cdr (assoc "hz-l" geo)))) + (setq key (kf-laenge-pruefen laenge lmin lmax)) + (if key + (list nil nil key) + (progn + (setq skala (kf-skala-berechnen laenge (cdr (assoc "dx-l" geo)))) + (if (null skala) + (list nil nil "kf-fehler-ks-fehlt") + (list laenge skala nil))))))) + +;; ============================================================ +;; KETTE BAUEN (aufgerichtet, 3D) +;; ============================================================ +;; Fuegt die drei Bausteine ab startpunkt verkettet ein - AUFGERICHTET, die +;; Hoehe laeuft also in Z (siehe kf-matrix-aufrecht). basis-hz dreht die +;; fertige Baugruppe in der Draufsicht. +;; Rueckgabe: Weltpunkt des KS_AUS der Antriebsstation (Kettenende). +(defun kf-kette-bauen (variante geo skala startpunkt basis-hz / pt) + (setq pt startpunkt) + (setq pt (insert-block-ks-matrix + (ssg-json-get variante "block_umlenkung") + pt + (kf-matrix-aufrecht basis-hz (cdr (assoc "hz-um" geo))) + 1.0)) + (setq pt (insert-block-ks-matrix + (ssg-json-get variante "block_laenge") + pt + (kf-matrix-aufrecht basis-hz (cdr (assoc "hz-l" geo))) + skala)) + (setq pt (insert-block-ks-matrix + (ssg-json-get variante "block_antrieb") + pt + (kf-matrix-aufrecht basis-hz (cdr (assoc "hz-an" geo))) + 1.0)) + pt) + +;; ------------------------------------------------------------ +;; DRAUFSICHT (KF_2D) - deckungsgleich mit der Kette +;; ------------------------------------------------------------ +;; KF_2D gehoert in DIESELBE Lage wie die Kette, nicht daneben: sein KS_EIN +;; faellt mit KS_EIN der Umlenkung zusammen, sein KS_AUS mit KS_AUS des +;; Antriebs. Dadurch ist die Baugruppe EIN Koerper - von oben sieht man die +;; Draufsicht, von der Seite die Kette. +;; +;; Zwischenzeitlich lagen beide Ansichten 1000 mm uebereinander (versatz_y). +;; Das war eine Hilfskonstruktion, solange die Kette flach in der XY-Ebene +;; lag; seit sie aufgerichtet eingebaut wird, ist sie unnoetig. +;; +;; KF_2D ist selbst flach gezeichnet und wird darum NICHT aufgerichtet, +;; sondern nur um die Steigung GENEIGT (Rz(basis) * Ry(-winkel)) und auf die +;; SCHRAEGLAENGE skaliert. In der Draufsicht erscheint es dadurch genau mit +;; der Grundrisslaenge - die Verkuerzung uebernimmt die Projektion, sie muss +;; nicht gerechnet werden. + +;; Neigungswinkel und Schraeglaenge aus Start- und Endpunkt der Kette. +;; Rueckgabe: (schraeglaenge winkel-grad), oder nil bei Laenge 0. +;; Reiner Rechenkern - der eigentliche Pruefpunkt der 3D-Umstellung. +(defun kf-neigung-aus-punkten (p1 p2 basis-hz / rad dx dy dz horiz laenge) + (setq rad (* (float basis-hz) (/ pi 180.0))) + (setq dx (- (car p2) (car p1)) + dy (- (cadr p2) (cadr p1)) + dz (- (cond ((caddr p2)) (0.0)) (cond ((caddr p1)) (0.0)))) + ;; Horizontalanteil auf die Kettenrichtung projiziert (nicht die blosse + ;; X-Differenz) - sonst stimmt es bei gedreht eingefuegter Kette nicht. + (setq horiz (+ (* dx (cos rad)) (* dy (sin rad)))) + (setq laenge (sqrt (+ (* horiz horiz) (* dz dz)))) + (if (< laenge 1e-6) + nil + (list laenge (/ (* 180.0 (atan dz horiz)) pi)))) + +;; Draufsicht einfuegen - deckungsgleich mit der Kette. +;; kette-start/kette-ende = KS_EIN der Umlenkung bzw. KS_AUS des Antriebs. +;; Rueckgabe: die verwendete Schraeglaenge (mm), sonst nil. +(defun kf-ansicht-2d-bauen (daten kette-start kette-ende basis-hz / + cfg bname masse laenge winkel ks ein-dx skala R) + (setq cfg (ssg-json-get daten "ansicht_2d")) + (setq bname (if cfg (ssg-json-get cfg "block"))) + (if (or (null bname) (= bname "")) + nil + (progn + (setq masse (kf-neigung-aus-punkten kette-start kette-ende basis-hz)) + (if (null masse) + (progn (princ (ssg-text "kf-2d-laenge-null")) nil) + (progn + (setq laenge (car masse) winkel (cadr masse)) + (if (null (kf-block-laden bname)) + (progn (princ (ssg-textf "kf-fehler-block-datei" (list bname))) nil) + (progn + (setq ks (ks-block-messen bname)) + (setq ein-dx (car (cond ((ks-versatz ks)) ('(0.0 0.0 0.0))))) + (setq skala (kf-skala-berechnen laenge ein-dx)) + (if (null skala) + (progn (princ (ssg-textf "kf-2d-ks-fehlt" (list bname))) nil) + (progn + ;; Ry(-winkel) hebt die flache Scheibe um die Steigung an; + ;; das Vorzeichen folgt der Rechte-Hand-Regel (positives dz + ;; = Drehung gegen den Uhrzeigersinn um die Y-Achse). + (setq R (mat3-mul-mat3 (ks-rot-z basis-hz) + (ks-rot-y (- winkel)))) + (insert-block-ks-matrix bname kette-start R skala) + (princ (ssg-textf "kf-2d-gebaut" + (list bname (rtos laenge 2 0) (rtos winkel 2 1)))) + laenge))))))))) + +;; ============================================================ +;; DREHWINKEL DES BLOCKS (XDATA) +;; ============================================================ +;; Der Drehwinkel der Baugruppe wird beim Bau in die GEOMETRIE eingerechnet +;; (kf-matrix-aufrecht), nicht ueber die Drehung der Blockreferenz: +;; ssg-block-wrap-welt fuegt den fertigen Block immer mit Drehung 0 ein. Die +;; Referenz traegt damit nirgends mehr, wie die Kette gedreht wurde - KF_EDIT +;; wuerde sie beim Neuaufbau ungedreht neu bauen. Darum steht der Winkel als +;; XDATA am Block (Projektregel: Editierdaten gehoeren in XDATA, nicht in +;; .dbg). Eine spaetere Drehung der Referenz von Hand kommt ueber +;; Gruppencode 50 hinzu und wird addiert. +(setq *kf-xdata-app* "SSG_KF_EDIT") + +;; Gesamtdrehung = gebauter Winkel (XDATA, Grad) + Drehung der Referenz +;; (Gruppencode 50, Bogenmass), auf -180..180 Grad normalisiert. Reiner +;; Rechenkern; fehlende Werte zaehlen als 0 (Altbestand ohne XDATA). +(defun kf-drehung-gesamt (xdata-grad dxf50-rad / g r) + (setq g (cond (xdata-grad (float xdata-grad)) (0.0))) + (setq r (cond (dxf50-rad (float dxf50-rad)) (0.0))) + (ks-winkel-normalisieren (+ g (/ (* 180.0 r) pi)))) + +(defun kf-xdata-schreiben (ent drehung-grad / eintrag) + (regapp *kf-xdata-app*) + (setq eintrag (list *kf-xdata-app* + (cons 1000 "kf-edit") + (cons 1040 (float drehung-grad)))) + (entmod (append (entget ent) (list (list -3 eintrag)))) + ent) + +;; Gebauter Drehwinkel (Grad) aus der XDATA, nil wenn keine vorhanden ist. +(defun kf-xdata-lesen (ent / xd daten paar) + (setq xd (entget ent (list *kf-xdata-app*))) + (setq daten (cdr (assoc -3 xd))) + (if daten + (progn + (setq paar (assoc 1040 (cdr (car daten)))) + (if paar (cdr paar) nil)) + nil)) + +;; ============================================================ +;; BLOCK ABSCHLIESSEN +;; ============================================================ +;; Sammelt alle seit last-ent erzeugten Objekte, legt die ATTDEFs an, fasst +;; alles zu KF_ zusammen und beschriftet den fertigen Block. +;; Vorbild: gf-block-erstellen (Gefaellestrecke.lsp). +(defun kf-block-erstellen (variante geo hoehe laenge verbindung + startpunkt last-ent kf-nummer + farbe antriebsmotor movimot steuerung drehung / + kf-bname kf-ss ent kf-insert winkel-str) + (setq kf-bname (strcat "KF_" (itoa kf-nummer))) + ;; Winkel als nackte Ganzzahl ("26"/"30") - bewusst ueber itoa/fix statt + ;; rtos: rtos haengt an DIMZIN/LUPREC/LUNITS der Zeichnung und liefert je + ;; nach Zeichnungsprofil unterschiedliche Schreibweisen. Dieser Wert landet + ;; als Attribut WINKEL am Block und wird vom Sivas-Export als Schluessel der + ;; Tabelle [kf_typ_anzeige] verwendet - er muss profilunabhaengig sein + ;; (gleiche Ueberlegung wie bei ssg-sepliste-fmt-koord). + (setq winkel-str (itoa (fix (+ 0.5 (kf-zahl (ssg-json-get variante "winkel")))))) + ;; ATTDEFs (unsichtbar, am Startpunkt) nach dem KF-Schema + (foreach def (kf-attrib-defs) + (entmake + (list '(0 . "ATTDEF") + (cons 10 startpunkt) + (cons 11 startpunkt) + '(40 . 50.0) + (cons 1 (cadr def)) + (cons 2 (car def)) + (cons 3 (car def)) + '(70 . 1) + '(72 . 0) + '(74 . 0)))) + ;; Alle Entities seit last-ent einsammeln + (setq kf-ss (ssadd)) + (setq ent (if last-ent (entnext last-ent) (entnext))) + (while ent + (ssadd ent kf-ss) + (setq ent (entnext ent))) + ;; Block definieren und einfuegen (OSMODE/ELEVATION/BKS werden dabei sauber + ;; abgeschaltet, siehe ssg-block-wrap-welt) + (ssg-block-wrap-welt kf-bname startpunkt kf-ss) + (setq kf-insert (entlast)) + ;; Gebauten Drehwinkel festhalten, damit KF_EDIT ihn wiederfindet + (kf-xdata-schreiben kf-insert drehung) + (ssg-layer-setzen kf-insert (cond ((ssg-json-get variante "layer")) + ((ssg-json-get (kf-daten) "layer")) + ("kettenfoerderer"))) + (ssg-attrib-set-on kf-insert + (list + (cons "Bezeichnung" kf-bname) + ;; FOERDERERTYP = Bauart im Klartext (aus der JSON, mit Sonderzeichen), + ;; WINKEL = Neigungswinkel als nackte Zahl ("26"/"30") + (cons "FOERDERERTYP" (cond ((ssg-json-get (kf-daten) "foerderertyp")) + ("Schraegfoerderer Stahl"))) + (cons "WINKEL" winkel-str) + (cons "H_EINBAUHOEHE_mm" (itoa (fix (+ 0.5 (float hoehe))))) + (cons "L_KF_mm" (itoa (fix (+ 0.5 (float laenge))))) + (cons "FARBE" (cond (farbe) ("RAL 7035"))) + (cons "ANTRIEBSMOTOR" (cond (antriebsmotor) ("Europa 50 Hz"))) + (cons "ANTRIEBSART" (kf-antriebsart (kf-daten))) + (cons "MOVIMOT" (cond (movimot) ("0"))) + (cons "STANDARD_STEUERUNG" (cond (steuerung) ("0"))) + (cons "VERBINDUNGSELEMENTE" (cond (verbindung) ("Nein"))) + (cons "ARTINR" (cond ((ssg-json-get variante "sivas_id")) (""))))) + (ssg-id-generate kf-insert) + kf-insert) + +;; Naechste freie KF-Nummer in der Zeichnung. +(defun kf-naechste-nummer ( / n ss i nm num) + (setq n 0) + (setq ss (ssget "X" '((0 . "INSERT") (2 . "KF_*")))) + (if ss + (progn + (setq i 0) + (while (< i (sslength ss)) + (setq nm (cdr (assoc 2 (entget (ssname ss i))))) + (setq num (atoi (substr nm 4))) + (if (> num n) (setq n num)) + (setq i (1+ i))))) + (1+ n)) + +;; ============================================================ +;; DIALOG +;; ============================================================ +;; Zustand zwischen den Aufrufen (Dialogstand bleibt je Sitzung erhalten). +(if (not (boundp '*kf-dlg-variante*)) (setq *kf-dlg-variante* 0)) +(if (not (boundp '*kf-dlg-variante-gesetzt*)) (setq *kf-dlg-variante-gesetzt* nil)) +(if (not (boundp '*kf-dlg-hoehe*)) (setq *kf-dlg-hoehe* nil)) +(if (not (boundp '*kf-dlg-verbindung*)) (setq *kf-dlg-verbindung* 0)) +(if (not (boundp '*kf-dlg-farbe*)) (setq *kf-dlg-farbe* 0)) +(if (not (boundp '*kf-dlg-antriebsmotor*)) (setq *kf-dlg-antriebsmotor* 0)) +(if (not (boundp '*kf-dlg-movimot*)) (setq *kf-dlg-movimot* 0)) +(if (not (boundp '*kf-dlg-steuerung*)) (setq *kf-dlg-steuerung* 0)) + +;; ------------------------------------------------------------ +;; DCL-VORLAGE: Varianten als Radiobuttons +;; ------------------------------------------------------------ +;; DCL kann Tiles weder zur Laufzeit erzeugen noch radio_button-Labels per +;; set_tile aendern - der Varianten-Block wird darum an der Markerzeile +;; //@VARIANTEN@ eingesetzt (gleiches Vorgehen wie geruest_traeger.dcl). +;; Radiobuttons statt popup_list, weil es nur zwei Werte gibt und beide ohne +;; Aufklappen sichtbar sein sollen. + +(defun kf-radio-key (i) (strcat "v" (itoa i))) + +(defun kf-radio-index (key) + (if (and key (> (strlen key) 1)) (atoi (substr key 2)) 0)) + +;; Beschriftung einer Variante im Dialog: NUR der Winkel ("26 °"), nicht der +;; volle Variantenname - der Gruppenrahmen nennt bereits "Schraegfoerderer +;; Stahl Typ", der Name waere dort doppelt. Die Regelausfuehrung bekommt den +;; Zusatz "(Standard)". +;; +;; Welche Variante das ist, steht als "standard": true in der JSON und NICHT +;; im Code - sonst muesste bei einer Umstellung auf 30 Grad der Code +;; angefasst werden. Das Gradzeichen kommt als (chr 176) ueber einen +;; Platzhalter, damit die Sprachdatei ASCII bleibt (Projektkonvention). +(defun kf-variante-standard-p (variante) + (not (null (ssg-json-get variante "standard")))) + +(defun kf-variante-label (variante / w) + (setq w (kf-zahl (ssg-json-get variante "winkel"))) + (if w + (ssg-textf (if (kf-variante-standard-p variante) + "kf-variante-label-standard" + "kf-variante-label") + (list (itoa (fix (+ 0.5 w))) (chr 176))) + (cond ((ssg-json-get variante "name")) ("")))) + +;; Index der Standard-Variante (fuer die Vorauswahl beim ersten Aufruf); +;; 0, wenn keine als Standard markiert ist. +(defun kf-standard-index (varianten / i treffer) + (setq i 0 treffer nil) + (foreach v varianten + (if (and (null treffer) (kf-variante-standard-p v)) (setq treffer i)) + (setq i (1+ i))) + (cond (treffer) (0))) + +(defun kf-dcl-varianten-zeilen (varianten / i erg) + (setq erg nil i 0) + (foreach v varianten + (setq erg (append erg + (list (strcat " : radio_button { key = \"" (kf-radio-key i) + "\"; label = \"" (kf-variante-label v) "\"; }")))) + (setq i (1+ i))) + erg) + +;; Rueckgabe: Pfad der gefuellten temporaeren DCL-Datei oder nil. +(defun kf-dcl-schreiben (varianten) + (ssg-dcl-vorlage-fuellen (kf-dcl-pfad "kettenfoerderer.dcl") "kettenfoerderer" + (list (cons "VARIANTEN" (kf-dcl-varianten-zeilen varianten))))) + +;; ------------------------------------------------------------ +;; EINBAUHOEHE AUS ZWEI GEPICKTEN PUNKTEN +;; ------------------------------------------------------------ +;; Zweite Eingabeart neben dem Zahlenfeld: statt die Hoehe zu tippen, werden +;; zwei Punkte in der Zeichnung gewaehlt (z.B. Oberkante Zufuehrung und +;; Oberkante Abgabe) und ihr Hoehenunterschied uebernommen. +;; +;; Gemessen wird die Differenz in Z: die Baugruppe steht aufgerichtet im Modell +;; (siehe kf-matrix-aufrecht), ihre Hoehe ist also die Hoehe der Zeichnung. +;; Damit nachvollziehbar bleibt, was gemessen wurde, nennt die Meldung BEIDE +;; Differenzen (dZ und dY): wer in einer DRAUFSICHT pickt, sieht sofort, dass +;; dort dZ = 0 ist, und kann es melden. +;; +;; Reiner Rechenkern (ohne Zeichnung testbar): nimmt zwei Punkte, liefert +;; (dz dy) als Betraege - die HOEHE zuerst. +(defun kf-punkt-differenzen (p1 p2) + (if (and p1 p2 (listp p1) (listp p2)) + (list (abs (- (cond ((caddr p2)) (0.0)) (cond ((caddr p1)) (0.0)))) + (abs (- (cadr p2) (cadr p1)))) + nil)) + +;; Zwei Punkte abfragen und die Hoehe daraus bestimmen. +;; Rueckgabe: Hoehe in mm, oder nil bei Abbruch. +(defun kf-hoehe-aus-punkten ( / p1 p2 d) + (setq p1 (getpoint (ssg-text "kf-prompt-messpunkt-1"))) + (if (null p1) + nil + (progn + (setq p2 (getpoint p1 (ssg-text "kf-prompt-messpunkt-2"))) + (if (null p2) + nil + (progn + (setq d (kf-punkt-differenzen p1 p2)) + (princ (ssg-textf "kf-messung-ergebnis" + (list (rtos (car d) 2 1) (rtos (cadr d) 2 1)))) + (car d)))))) + +;; Wert eines Auswahleintrags ("wert", sonst "name", sonst Vorgabe). +;; Gemeinsam genutzt von Dialog und Konsolen-Rueckfall. +(defun kf-auswahl-wert (liste idx vorgabe / e) + (setq e (nth idx liste)) + (cond ((null e) vorgabe) + ((ssg-json-get e "wert")) + ((ssg-json-get e "name")) + (t vorgabe))) + +;; Dialog zeigen - SCHLEIFE, bis OK oder Abbruch. Rueckgabe: +;; (variante hoehe verbindung farbe antriebsmotor movimot) +;; oder nil bei Abbruch. +;; +;; Die Schleife gibt es wegen der zweiten Hoehen-Eingabeart: der Knopf +;; "Hoehe messen" schliesst den Dialog (done_dialog 2), laesst zwei Punkte in +;; der Zeichnung waehlen und zeigt ihn mit dem gemessenen Wert erneut. Aus +;; einem action_tile heraus laesst sich kein getpoint aufrufen - dasselbe +;; Vorgehen wie beim Speichern/Loeschen im Geruest-Dialog (done_dialog 2/3). +;; +;; Die Laengenvorschau unter dem Hoehenfeld gab es zwischenzeitlich; sie ist +;; auf Nutzerwunsch wieder entfallen. Ein nicht baubarer Wert wird darum erst +;; nach OK gemeldet (alert in c:KETTENFOERDERER). +(defun kf-dialog (daten / varianten verbindungen farben motoren movimots + steuerungen idx ergebnis gemessen) + (setq varianten (ssg-json-get daten "varianten") + verbindungen (ssg-json-get daten "verbindungselemente") + farben (ssg-json-get daten "farbe") + motoren (ssg-json-get daten "antriebsmotor") + movimots (ssg-json-get daten "movimot") + steuerungen (ssg-json-get daten "standard_steuerung")) + (if (null *kf-dlg-hoehe*) + (setq *kf-dlg-hoehe* + (cond ((kf-zahl (ssg-json-get (ssg-json-get daten "einbauhoehe") "vorgabe"))) + (1500.0)))) + ;; Beim ERSTEN Aufruf je Sitzung die Regelausfuehrung vorwaehlen; danach + ;; bleibt die zuletzt getroffene Wahl stehen. + (if (null *kf-dlg-variante-gesetzt*) + (progn + (setq *kf-dlg-variante* (kf-standard-index varianten)) + (setq *kf-dlg-variante-gesetzt* T))) + (setq idx 2) + (while (= idx 2) + (setq idx (kf-dialog-zeigen daten varianten verbindungen farben motoren + movimots steuerungen)) + (if (= idx 2) + (progn + (setq gemessen (kf-hoehe-aus-punkten)) + (if gemessen (setq *kf-dlg-hoehe* gemessen)))) + ) + (if (= idx 1) + (list (nth *kf-dlg-variante* varianten) + *kf-dlg-hoehe* + (kf-auswahl-wert verbindungen *kf-dlg-verbindung* "Nein") + (kf-auswahl-wert farben *kf-dlg-farbe* "RAL 7035") + (kf-auswahl-wert motoren *kf-dlg-antriebsmotor* "Europa 50 Hz") + (kf-auswahl-wert movimots *kf-dlg-movimot* "0") + (kf-auswahl-wert steuerungen *kf-dlg-steuerung* "0")) + nil)) + +;; Den Dialog EINMAL zeigen. Rueckgabe: 1 = OK, 0 = Abbruch, 2 = "Hoehe +;; messen" (der Aufrufer pickt dann zwei Punkte und ruft erneut auf). +(defun kf-dialog-zeigen (daten varianten verbindungen farben motoren movimots + steuerungen / + dcl-pfad dcl-id idx vb-namen fa-namen nz-namen mm-namen + st-namen) + (setq vb-namen (mapcar '(lambda (v) (cond ((ssg-json-get v "name")) (""))) verbindungen)) + (setq fa-namen (mapcar '(lambda (v) (cond ((ssg-json-get v "name")) (""))) farben)) + (setq nz-namen (mapcar '(lambda (v) (cond ((ssg-json-get v "name")) (""))) motoren)) + (setq mm-namen (mapcar '(lambda (v) (cond ((ssg-json-get v "name")) (""))) movimots)) + (setq st-namen (mapcar '(lambda (v) (cond ((ssg-json-get v "name")) (""))) steuerungen)) + ;; Vorlage mit den Varianten-Radiobuttons fuellen (Temp-Datei) + (setq dcl-pfad (kf-dcl-schreiben varianten)) + (if (not dcl-pfad) + (progn (alert (ssg-text "kf-fehler-dcl")) 0) + (progn + (setq dcl-id (load_dialog dcl-pfad)) + (if (not (new_dialog "kettenfoerderer" dcl-id)) + (progn (unload_dialog dcl-id) (vl-file-delete dcl-pfad) + (alert (ssg-text "kf-fehler-dcl")) 0) + (progn + (start_list "verbindung") (mapcar 'add_list vb-namen) (end_list) + (start_list "farbe") (mapcar 'add_list fa-namen) (end_list) + (start_list "antriebsmotor") (mapcar 'add_list nz-namen) (end_list) + (start_list "movimot") (mapcar 'add_list mm-namen) (end_list) + (start_list "standard_steuerung") (mapcar 'add_list st-namen) (end_list) + ;; Radiobuttons: der gewaehlte Button wird einzeln gesetzt, nicht + ;; die Gruppe - set_tile auf den Gruppenschluessel waehlt nicht aus. + (if (>= *kf-dlg-variante* (length varianten)) (setq *kf-dlg-variante* 0)) + (set_tile (kf-radio-key *kf-dlg-variante*) "1") + (set_tile "verbindung" (itoa *kf-dlg-verbindung*)) + (set_tile "farbe" (itoa *kf-dlg-farbe*)) + (set_tile "antriebsmotor" (itoa *kf-dlg-antriebsmotor*)) + (set_tile "movimot" (itoa *kf-dlg-movimot*)) + (set_tile "standard_steuerung" (itoa *kf-dlg-steuerung*)) + (set_tile "hoehe" (rtos *kf-dlg-hoehe* 2 0)) + ;; Merkmal 357: Dropdown mit einer einzigen Option, immer gewaehlt + (start_list "antriebsart") + (mapcar 'add_list + (mapcar '(lambda (v) (cond ((ssg-json-get v "name")) (""))) + (ssg-json-get daten "antriebsart"))) + (end_list) + (set_tile "antriebsart" "0") + ;; Die Radiobutton-Gruppe meldet den KEY des gewaehlten Buttons + ;; ("v0"/"v1"), nicht dessen Index - daher kf-radio-index. + (action_tile "variante" "(setq *kf-dlg-variante* (kf-radio-index $value))") + (action_tile "hoehe" "(setq *kf-dlg-hoehe* (atof $value))") + (action_tile "verbindung" "(setq *kf-dlg-verbindung* (atoi $value))") + (action_tile "farbe" "(setq *kf-dlg-farbe* (atoi $value))") + (action_tile "antriebsmotor" "(setq *kf-dlg-antriebsmotor* (atoi $value))") + (action_tile "movimot" "(setq *kf-dlg-movimot* (atoi $value))") + (action_tile "standard_steuerung" "(setq *kf-dlg-steuerung* (atoi $value))") + ;; Zweite Hoehen-Eingabeart: Dialog schliessen, der Aufrufer laesst + ;; zwei Punkte waehlen und zeigt ihn danach erneut. + (action_tile "hoehe_messen" "(done_dialog 2)") + (action_tile "accept" "(done_dialog 1)") + (action_tile "cancel" "(done_dialog 0)") + (setq idx (start_dialog)) + (unload_dialog dcl-id) + (vl-file-delete dcl-pfad) + idx))))) + +;; DCL-Pfad aufloesen: DXFM_DCL, sonst dcl/ unter der Projektwurzel. +;; Gleiches Vorgehen wie geruest-dcl-pfad (GeruestInsert.lsp) - bewusst eine +;; eigene kurze Funktion statt eines Zugriffs quer ins Geruest-Modul, damit +;; dieses Modul ohne GeruestInsert ladbar bleibt. +(defun kf-dcl-pfad (datei / basis) + (setq basis (cond ((getenv "DXFM_DCL")) + ((strcat (getenv "DXFMAKRO") "/dcl")))) + (if (and basis (/= basis "")) + (findfile (strcat basis "/" datei)) + nil)) + +;; ============================================================ +;; KONSOLEN-RUECKFALL (ohne GUI, fuer automatische Tests) +;; ============================================================ +;; Eine Auswahlliste auf der Konsole abfragen. Rueckgabe: 0-basierter Index +;; (bei ungueltiger Eingabe bleibt die Vorgabe stehen). Alle vier Auswahlen +;; laufen hierueber - vorher stand derselbe Block viermal untereinander. +(defun kf-konsole-wahl (liste header-key prompt-key vorgabe-idx / i v antwort) + (princ (ssg-text header-key)) + (setq i 1) + (foreach v liste + (princ (ssg-textf "kf-konsole-option" (list (itoa i) (ssg-json-get v "name")))) + (setq i (1+ i))) + (setq antwort (ssg-in-int (ssg-text prompt-key) (1+ vorgabe-idx))) + (if (or (null antwort) (< antwort 1) (> antwort (length liste))) + vorgabe-idx + (1- antwort))) + +(defun kf-konsole (daten / varianten verbindungen farben motoren movimots + steuerungen hoehe) + (setq varianten (ssg-json-get daten "varianten") + verbindungen (ssg-json-get daten "verbindungselemente") + farben (ssg-json-get daten "farbe") + motoren (ssg-json-get daten "antriebsmotor") + movimots (ssg-json-get daten "movimot") + steuerungen (ssg-json-get daten "standard_steuerung")) + (setq *kf-dlg-variante* + (kf-konsole-wahl varianten "kf-konsole-variante-header" + "kf-konsole-variante-prompt" *kf-dlg-variante*)) + ;; Hoehe: Zahl tippen ODER 0 eingeben und zwei Punkte messen (zweite + ;; Eingabeart, entspricht dem Knopf im Dialog). + (princ (ssg-text "kf-konsole-hoehe-hinweis")) + (setq hoehe (ssg-in-real (ssg-text "kf-konsole-hoehe-prompt") + (cond (*kf-dlg-hoehe*) (1500.0)))) + (if (and hoehe (<= hoehe 0.0)) + (setq hoehe (kf-hoehe-aus-punkten))) + (if (null hoehe) (setq hoehe (cond (*kf-dlg-hoehe*) (1500.0)))) + (setq *kf-dlg-hoehe* hoehe) + ;; Reihenfolge wie im Dialog und im Sivas-Merkmalstamm: 361 vor 354. + (setq *kf-dlg-steuerung* + (kf-konsole-wahl steuerungen "kf-konsole-steuerung-header" + "kf-konsole-steuerung-prompt" *kf-dlg-steuerung*)) + (setq *kf-dlg-farbe* + (kf-konsole-wahl farben "kf-konsole-farbe-header" + "kf-konsole-farbe-prompt" *kf-dlg-farbe*)) + (setq *kf-dlg-antriebsmotor* + (kf-konsole-wahl motoren "kf-konsole-antriebsmotor-header" + "kf-konsole-antriebsmotor-prompt" *kf-dlg-antriebsmotor*)) + (setq *kf-dlg-movimot* + (kf-konsole-wahl movimots "kf-konsole-movimot-header" + "kf-konsole-movimot-prompt" *kf-dlg-movimot*)) + (setq *kf-dlg-verbindung* + (kf-konsole-wahl verbindungen "kf-konsole-verbindung-header" + "kf-konsole-verbindung-prompt" *kf-dlg-verbindung*)) + (list (nth *kf-dlg-variante* varianten) + hoehe + (kf-auswahl-wert verbindungen *kf-dlg-verbindung* "Nein") + (kf-auswahl-wert farben *kf-dlg-farbe* "RAL 7035") + (kf-auswahl-wert motoren *kf-dlg-antriebsmotor* "Europa 50 Hz") + (kf-auswahl-wert movimots *kf-dlg-movimot* "0") + (kf-auswahl-wert steuerungen *kf-dlg-steuerung* "0"))) + +;; ============================================================ +;; C:KETTENFOERDERER - Hauptbefehl +;; ============================================================ +(defun c:KETTENFOERDERER ( / daten eingabe variante hoehe verbindung + farbe antriebsmotor movimot steuerung + geo erg laenge skala endpunkt + lmin lmax startpunkt drehung last-ent kf-nummer ent + t0) + ;; Laufzeit des Dialogaufbaus protokollieren (Schalter "kf-zeit", siehe + ;; ssg_dbg.lsp). Hintergrund: der Dialog erschien beim ersten Menueklick + ;; spuerbar verzoegert. Statt zu raten, wird die Zeit bis zum Dialog + ;; gemessen - so laesst sich unterscheiden, ob das Lazy-Laden des Moduls, + ;; das Lesen der JSON oder der Dialogaufbau selbst die Zeit kostet. + (setq t0 (getvar "MILLISECS")) + (setq daten (kf-daten)) + (kf-zeit "Daten geladen" t0) + (if (null daten) + (princ (ssg-text "kf-fehler-daten-leer")) + (progn + (setq lmin (kf-zahl (ssg-json-get (ssg-json-get daten "laenge") "min")) + lmax (kf-zahl (ssg-json-get (ssg-json-get daten "laenge") "max"))) + (kf-zeit "vor Dialog" t0) + (setq eingabe (if (ssg-gui-p) (kf-dialog daten) (kf-konsole daten))) + (if (null eingabe) + (princ (ssg-text "kf-abgebrochen")) + (progn + (setq variante (nth 0 eingabe) + hoehe (nth 1 eingabe) + verbindung (nth 2 eingabe) + farbe (nth 3 eingabe) + antriebsmotor (nth 4 eingabe) + movimot (nth 5 eingabe) + steuerung (nth 6 eingabe)) + (setq geo (kf-geometrie-messen variante)) + (setq erg (kf-laenge-fuer-hoehe geo hoehe lmin lmax)) + (if (caddr erg) + (progn + (if (ssg-gui-p) (alert (ssg-text (caddr erg)))) + (princ (ssg-text (caddr erg)))) + (progn + (setq laenge (car erg) skala (cadr erg)) + (setq startpunkt (getpoint (ssg-text "kf-prompt-startpunkt"))) + (if (null startpunkt) + (princ (ssg-text "kf-abgebrochen")) + (progn + (setq drehung (getangle startpunkt (ssg-text "kf-prompt-drehung"))) + (setq drehung (if drehung (/ (* 180.0 drehung) pi) 0.0)) + (ssg-start "Kettenfoerderer" '(("OSMODE") ("ATTREQ") ("ATTDIA"))) + (setvar "OSMODE" 0) + (setvar "ATTREQ" 0) + (setvar "ATTDIA" 0) + (setq last-ent (ssg-lastent-ohne-attribute)) + (setq kf-nummer (kf-naechste-nummer)) + ;; Kette und Draufsicht liegen DECKUNGSGLEICH - beide + ;; beginnen am gewaehlten Punkt. Die Draufsicht gehoert mit + ;; in dieselbe Baugruppe, darum VOR kf-block-erstellen. + (setq endpunkt (kf-kette-bauen variante geo skala startpunkt drehung)) + (kf-ansicht-2d-bauen daten startpunkt endpunkt drehung) + (setq ent (kf-block-erstellen variante geo hoehe laenge verbindung + startpunkt last-ent kf-nummer farbe antriebsmotor movimot + steuerung drehung)) + (ssg-end) + (princ (ssg-textf "kf-fertig" + (list (strcat "KF_" (itoa kf-nummer)) + (rtos (float hoehe) 2 0) + (rtos laenge 2 0)))))))))))) + (princ)) + +;; ============================================================ +;; C:KF_EDIT - Doppelklick auf einen KF_n-Block +;; ============================================================ +;; Zeigt den Dialog mit den Werten des gewaehlten Blocks und baut ihn nach OK +;; an SEINER Stelle neu auf. Vorbild: GEFAELLESTRECKE_EDIT. +;; +;; Einfuegepunkt und Drehung kommen aus dem Block selbst (Gruppencode 10 und +;; 50), nicht aus XDATA: der Kettenfoerderer hat keine Aufbau-Historie, die +;; ueber diese beiden Werte hinausgeht - alles Uebrige steht in den +;; Attributen. Ein von Hand verschobener oder gedrehter Block wird dadurch +;; korrekt an seiner NEUEN Lage neu gebaut. +;; +;; Der alte Block wird erst geloescht, wenn der Benutzer den Dialog mit OK +;; bestaetigt hat - ein Abbruch laesst die Zeichnung unveraendert. + +;; Dialogzustand aus den Attributen eines Blocks vorbelegen. Sucht je +;; Auswahlliste den Index, dessen "wert" zum Attributwert passt; ein +;; unbekannter Wert (von Hand editiert) laesst die Vorgabe stehen, statt den +;; Dialog scheitern zu lassen. +(defun kf-index-fuer-wert (liste wert vorgabe / i treffer) + (setq i 0 treffer nil) + (foreach e liste + (if (and (null treffer) wert + (equal (ssg-json-get e "wert") wert)) + (setq treffer i)) + (setq i (1+ i))) + (cond (treffer) (vorgabe))) + +(defun kf-dlg-aus-attributen (daten attribs / w v) + (setq w (cdr (assoc "WINKEL" attribs))) + (if w + (progn + (setq v (kf-variante-finden (atof w) (ssg-json-get daten "varianten"))) + (if v + (setq *kf-dlg-variante* + (kf-tag-index-liste v (ssg-json-get daten "varianten")))))) + (setq w (cdr (assoc "H_EINBAUHOEHE_mm" attribs))) + (if (and w (/= w "")) (setq *kf-dlg-hoehe* (atof w))) + (setq *kf-dlg-farbe* + (kf-index-fuer-wert (ssg-json-get daten "farbe") + (cdr (assoc "FARBE" attribs)) *kf-dlg-farbe*)) + (setq *kf-dlg-antriebsmotor* + (kf-index-fuer-wert (ssg-json-get daten "antriebsmotor") + (cdr (assoc "ANTRIEBSMOTOR" attribs)) *kf-dlg-antriebsmotor*)) + (setq *kf-dlg-movimot* + (kf-index-fuer-wert (ssg-json-get daten "movimot") + (cdr (assoc "MOVIMOT" attribs)) *kf-dlg-movimot*)) + (setq *kf-dlg-steuerung* + (kf-index-fuer-wert (ssg-json-get daten "standard_steuerung") + (cdr (assoc "STANDARD_STEUERUNG" attribs)) *kf-dlg-steuerung*)) + (setq *kf-dlg-verbindung* + (kf-index-fuer-wert (ssg-json-get daten "verbindungselemente") + (cdr (assoc "VERBINDUNGSELEMENTE" attribs)) *kf-dlg-verbindung*)) + ;; Die Variante wurde eben aus dem Block gesetzt - die Standard-Vorauswahl + ;; darf sie nicht mehr ueberschreiben. + (setq *kf-dlg-variante-gesetzt* T) + (princ)) + +;; Position eines Eintrags in einer Liste (0-basiert), 0 wenn nicht gefunden. +(defun kf-tag-index-liste (eintrag liste / i treffer) + (setq i 0 treffer nil) + (foreach e liste + (if (and (null treffer) (equal e eintrag)) (setq treffer i)) + (setq i (1+ i))) + (cond (treffer) (0))) + +(defun c:KF_EDIT ( / ent ed bname attribs daten eingabe variante hoehe + verbindung farbe antriebsmotor movimot steuerung + geo erg laenge skala lmin lmax startpunkt drehung + last-ent kf-nummer endpunkt) + (setq ent (car (entsel (ssg-text "kf-edit-waehlen")))) + (if (null ent) + (princ (ssg-text "kf-abgebrochen")) + (progn + (setq ed (entget ent)) + (setq bname (cdr (assoc 2 ed))) + (if (or (/= (cdr (assoc 0 ed)) "INSERT") (not (wcmatch bname "KF_*"))) + (alert (ssg-text "kf-edit-kein-kf")) + (progn + (setq daten (kf-daten)) + (if (null daten) + (princ (ssg-text "kf-fehler-daten-leer")) + (progn + (setq attribs (ssg-attrib-read ent)) + (setq startpunkt (cdr (assoc 10 ed))) + ;; Der gebaute Winkel steckt in der XDATA, eine nachtraegliche + ;; Drehung der Referenz in Gruppencode 50 - beides zaehlt. + (setq drehung (kf-drehung-gesamt (kf-xdata-lesen ent) + (cdr (assoc 50 ed)))) + (kf-dlg-aus-attributen daten attribs) + (setq lmin (kf-zahl (ssg-json-get (ssg-json-get daten "laenge") "min")) + lmax (kf-zahl (ssg-json-get (ssg-json-get daten "laenge") "max"))) + (setq eingabe (if (ssg-gui-p) (kf-dialog daten) (kf-konsole daten))) + (if (null eingabe) + (princ (ssg-text "kf-abgebrochen")) + (progn + (setq variante (nth 0 eingabe) + hoehe (nth 1 eingabe) + verbindung (nth 2 eingabe) + farbe (nth 3 eingabe) + antriebsmotor (nth 4 eingabe) + movimot (nth 5 eingabe) + steuerung (nth 6 eingabe)) + (setq geo (kf-geometrie-messen variante)) + (setq erg (kf-laenge-fuer-hoehe geo hoehe lmin lmax)) + (if (caddr erg) + (progn + (if (ssg-gui-p) (alert (ssg-text (caddr erg)))) + (princ (ssg-text (caddr erg)))) + (progn + (setq laenge (car erg) skala (cadr erg)) + (ssg-start "Kettenfoerderer Edit" + '(("OSMODE") ("ATTREQ") ("ATTDIA"))) + (setvar "OSMODE" 0) + (setvar "ATTREQ" 0) + (setvar "ATTDIA" 0) + ;; Erst jetzt loeschen - ein Abbruch oben laesst die + ;; Zeichnung unveraendert. + (entdel ent) + (setq last-ent (ssg-lastent-ohne-attribute)) + (setq kf-nummer (kf-naechste-nummer)) + (setq endpunkt (kf-kette-bauen variante geo skala + startpunkt drehung)) + (kf-ansicht-2d-bauen daten startpunkt endpunkt drehung) + (kf-block-erstellen variante geo hoehe laenge verbindung + startpunkt last-ent kf-nummer farbe antriebsmotor + movimot steuerung drehung) + (ssg-end) + (princ (ssg-textf "kf-edit-fertig" + (list bname (strcat "KF_" (itoa kf-nummer))))))))))))))) + (princ)) + +;; ============================================================ +;; C:KF_KS_PRUEFEN - Diagnose +;; ============================================================ +;; Liest fuer jede Variante die KS-Lage aller drei Bloecke aus und gibt sie +;; aus: Ursprung und Richtung von KS_EIN/KS_AUS, daraus die abgeleiteten +;; Einbauwinkel und Hoehenbeitraege. Erste Anlaufstelle, wenn eine Kette +;; nicht zusammenpasst - zeigt sofort, ob ein Block kein KS_EIN/KS_AUS hat +;; oder ob seine Achsen anders liegen als erwartet. +(defun c:KF_KS_PRUEFEN ( / daten varianten geo b) + (setq daten (kf-daten)) + (if (null daten) + (princ (ssg-text "kf-fehler-daten-leer")) + (progn + (setq varianten (ssg-json-get daten "varianten")) + (princ (ssg-text "kf-pruef-kopf")) + (foreach v varianten + (princ (ssg-textf "kf-pruef-variante" (list (ssg-json-get v "name")))) + (foreach feld '("block_umlenkung" "block_laenge" "block_antrieb") + (setq b (ssg-json-get v feld)) + (kf-pruef-block b)) + (setq geo (kf-geometrie-messen v)) + (if (cdr (assoc "fehler" geo)) + (princ (ssg-textf "kf-pruef-fehler" (list (ssg-text (cdr (assoc "fehler" geo)))))) + (princ (ssg-textf "kf-pruef-geo" + (list (rtos (cdr (assoc "hz-um" geo)) 2 2) + (rtos (cdr (assoc "hz-l" geo)) 2 2) + (rtos (cdr (assoc "hz-an" geo)) 2 2) + (rtos (cdr (assoc "dy-um" geo)) 2 2) + (rtos (cdr (assoc "dy-an" geo)) 2 2) + (rtos (cdr (assoc "dx-l" geo)) 2 2) + (rtos (cdr (assoc "dy-l" geo)) 2 2)))))))) + (princ)) + +;; Einen Block vermessen und protokollieren (Helfer von KF_KS_PRUEFEN). +(defun kf-pruef-block (blockname / ks ein aus) + (if (null (kf-block-laden blockname)) + (princ (ssg-textf "kf-pruef-block-fehlt" (list blockname))) + (progn + (setq ks (ks-block-messen blockname)) + (setq ein (cadr (assoc "KS_EIN" ks)) + aus (cadr (assoc "KS_AUS" ks))) + (if (not (and ein aus)) + (princ (ssg-textf "kf-pruef-ks-fehlt" + (list blockname + (if ein (ssg-text "kf-pruef-ja") (ssg-text "kf-pruef-nein")) + (if aus (ssg-text "kf-pruef-ja") (ssg-text "kf-pruef-nein"))))) + (princ (ssg-textf "kf-pruef-block" + (list blockname + (rtos (car (car ein)) 2 2) (rtos (cadr (car ein)) 2 2) + (cond ((rtos (ks-xy-winkel ein) 2 2)) ("-")) + (rtos (car (car aus)) 2 2) (rtos (cadr (car aus)) 2 2) + (cond ((rtos (ks-xy-winkel aus) 2 2)) ("-"))))))))) + +(setq *ssg-KettenFoerderer-loaded* T) +(princ "\n>>> KettenFoerderer.lsp geladen (KETTENFOERDERER, KF_KS_PRUEFEN)") +(princ) diff --git a/Lisp/OmniModulInsert.lsp b/Lisp/OmniModulInsert.lsp index 181f136..19aefc2 100644 --- a/Lisp/OmniModulInsert.lsp +++ b/Lisp/OmniModulInsert.lsp @@ -1004,8 +1004,7 @@ ;; hoehe = Hoehe in mm als String (wird als HOEHE-Attribut gesetzt) ;; drehung = Drehwinkel in Grad als String (Block-Rotation) ;; Rueckgabe: Einfuegepunkt oder nil bei Abbruch -(defun omni:insert-dxf (sivasnr-str hoehe drehung / dxf-pfad omniflo-pfad angleDeg - drehung-anzeige blockEnt attribs layer-name ed pt10 zval zdelta) +(defun omni:insert-dxf (sivasnr-str hoehe drehung / dxf-pfad omniflo-pfad) (setq omniflo-pfad (getenv "DXFM_OMNIFLO")) (if (null omniflo-pfad) (progn @@ -1019,94 +1018,102 @@ (princ (ssg-textf "omni-fehler-dxf-nicht-gefunden" (list (strcat omniflo-pfad "/" sivasnr-str ".dxf")))) nil ) - (progn - (ssg-start "OMNI DXF Insert" '(("ATTREQ") ("ATTDIA"))) - (setvar "ATTREQ" 0) - (setvar "ATTDIA" 0) - - ;; Absolute Z-Hoehe fuer den Einfuegepunkt bestimmen - (setq zval (if (and hoehe (/= hoehe "")) (atof hoehe) 0.0)) - - ;; Interaktives Einfuegen mit Live-Vorschau am Mauszeiger: - ;; dxf-pfad -> Block aus Datei definieren/waehlen - ;; 1. 'pause -> Einfuegepunkt; Objekt haengt sichtbar am Cursor und - ;; verschiebt sich mit der Maus (erster Klick positioniert) - ;; "" "" -> X-/Y-Massstab = 1 - ;; Drehung -> aus Dialog fest, sonst 2. 'pause: Objekt dreht sich - ;; beim Ziehen sichtbar mit, zweiter Klick beendet - (if drehung - (progn - (setq angleDeg (atof drehung)) - (setq drehung-anzeige drehung) - (command "_.INSERT" dxf-pfad pause "" "" angleDeg) - ) - (command "_.INSERT" dxf-pfad pause "" "" pause) - ) - ;; INSERT vollstaendig abschliessen (bei Bedarf weitere Eingabe zulassen) - (while (> (getvar "CMDACTIVE") 0) (command pause)) - - (setq blockEnt (entlast)) - - (if (and blockEnt (= (cdr (assoc 0 (entget blockEnt))) "INSERT")) - (progn - (setq ed (entget blockEnt)) - - ;; Tatsaechlich per Maus gesetzte Drehung ermitteln (interaktiv) - (if (null drehung) - (progn - (setq angleDeg (* (cdr (assoc 50 ed)) (/ 180.0 pi))) - (setq drehung-anzeige (rtos angleDeg 2 1)) - ) - ) - - ;; Z-Hoehe absolut anwenden: Block (inkl. Attribute) per MOVE um - ;; die Differenz zum aktuellen Einfuegepunkt-Z verschieben. Osnap - ;; beim interaktiven Einfuegen kann eine abweichende Z-Lage liefern, - ;; daher Differenz statt fixem Wert (vgl. GF-Z-Versatz-Bug). - ;; Explizite Koordinaten unterliegen keinem Objektfang. - (setq pt10 (cdr (assoc 10 ed))) - (setq zdelta (- zval (caddr pt10))) - (if (/= zdelta 0.0) - (command "_.MOVE" blockEnt "" (list 0.0 0.0 0.0) (list 0.0 0.0 zdelta)) - ) - - ;; HOEHE und DREHUNG Attribute setzen - (ssg-attrib-set-on blockEnt - (list (cons "HOEHE" (if hoehe hoehe (ssg-cfg-or "omniflo" "default_hoehe" "2000"))) - (cons "DREHUNG" drehung-anzeige))) - - ;; Layer aus der Block-Vorgabe (LAYER-Attribut) setzen - (setq attribs (ssg-attrib-read blockEnt)) - (setq layer-name (ssg-block-layer-vorgabe blockEnt sivasnr-str attribs)) - ) - ) - - ;; Fallback fuer Anzeige, falls keine Drehung ermittelt wurde - (if (null drehung-anzeige) - (setq drehung-anzeige (rtos (if angleDeg angleDeg 0.0) 2 1)) - ) - - ;; Eindeutige ID zuweisen - (if (and blockEnt (atoms-family 1 '("ssg-id-generate"))) - (ssg-id-generate blockEnt) - ) - - (princ (ssg-textf "omni-dxf-eingefuegt" - (list - sivasnr-str - (if hoehe hoehe (ssg-cfg-or "omniflo" "default_hoehe" "2000")) - drehung-anzeige - (if layer-name (strcat " Layer=" layer-name) "") - ))) - (ssg-end) - ;; Rueckgabe: tatsaechlicher Einfuegepunkt - (if blockEnt (cdr (assoc 10 (entget blockEnt)))) - ) + (omni:insert-datei dxf-pfad sivasnr-str hoehe drehung) ) ) ) ) +;; --- Block-Datei (DXF/DWG) interaktiv einfuegen --- +;; dxf-pfad = vollstaendiger Pfad der Blockdatei (bereits auf Existenz geprueft) +;; name = Anzeigename/Blockname fuer Meldung und Layer-Vorgabe +;; hoehe, drehung wie omni:insert-dxf +;; Rueckgabe: Einfuegepunkt oder nil bei Abbruch +(defun omni:insert-datei (dxf-pfad name hoehe drehung / angleDeg + drehung-anzeige blockEnt attribs layer-name ed pt10 zval zdelta) + (ssg-start "OMNI DXF Insert" '(("ATTREQ") ("ATTDIA"))) + (setvar "ATTREQ" 0) + (setvar "ATTDIA" 0) + + ;; Absolute Z-Hoehe fuer den Einfuegepunkt bestimmen + (setq zval (if (and hoehe (/= hoehe "")) (atof hoehe) 0.0)) + + ;; Interaktives Einfuegen mit Live-Vorschau am Mauszeiger: + ;; dxf-pfad -> Block aus Datei definieren/waehlen + ;; 1. 'pause -> Einfuegepunkt; Objekt haengt sichtbar am Cursor und + ;; verschiebt sich mit der Maus (erster Klick positioniert) + ;; "" "" -> X-/Y-Massstab = 1 + ;; Drehung -> aus Dialog fest, sonst 2. 'pause: Objekt dreht sich + ;; beim Ziehen sichtbar mit, zweiter Klick beendet + (if drehung + (progn + (setq angleDeg (atof drehung)) + (setq drehung-anzeige drehung) + (command "_.INSERT" dxf-pfad pause "" "" angleDeg) + ) + (command "_.INSERT" dxf-pfad pause "" "" pause) + ) + ;; INSERT vollstaendig abschliessen (bei Bedarf weitere Eingabe zulassen) + (while (> (getvar "CMDACTIVE") 0) (command pause)) + + (setq blockEnt (entlast)) + + (if (and blockEnt (= (cdr (assoc 0 (entget blockEnt))) "INSERT")) + (progn + (setq ed (entget blockEnt)) + + ;; Tatsaechlich per Maus gesetzte Drehung ermitteln (interaktiv) + (if (null drehung) + (progn + (setq angleDeg (* (cdr (assoc 50 ed)) (/ 180.0 pi))) + (setq drehung-anzeige (rtos angleDeg 2 1)) + ) + ) + + ;; Z-Hoehe absolut anwenden: Block (inkl. Attribute) per MOVE um + ;; die Differenz zum aktuellen Einfuegepunkt-Z verschieben. Osnap + ;; beim interaktiven Einfuegen kann eine abweichende Z-Lage liefern, + ;; daher Differenz statt fixem Wert (vgl. GF-Z-Versatz-Bug). + ;; Explizite Koordinaten unterliegen keinem Objektfang. + (setq pt10 (cdr (assoc 10 ed))) + (setq zdelta (- zval (caddr pt10))) + (if (/= zdelta 0.0) + (command "_.MOVE" blockEnt "" (list 0.0 0.0 0.0) (list 0.0 0.0 zdelta)) + ) + + ;; HOEHE und DREHUNG Attribute setzen + (ssg-attrib-set-on blockEnt + (list (cons "HOEHE" (if hoehe hoehe (ssg-cfg-or "omniflo" "default_hoehe" "2000"))) + (cons "DREHUNG" drehung-anzeige))) + + ;; Layer aus der Block-Vorgabe (LAYER-Attribut) setzen + (setq attribs (ssg-attrib-read blockEnt)) + (setq layer-name (ssg-block-layer-vorgabe blockEnt name attribs)) + ) + ) + + ;; Fallback fuer Anzeige, falls keine Drehung ermittelt wurde + (if (null drehung-anzeige) + (setq drehung-anzeige (rtos (if angleDeg angleDeg 0.0) 2 1)) + ) + + ;; Eindeutige ID zuweisen + (if (and blockEnt (atoms-family 1 '("ssg-id-generate"))) + (ssg-id-generate blockEnt) + ) + + (princ (ssg-textf "omni-dxf-eingefuegt" + (list + name + (if hoehe hoehe (ssg-cfg-or "omniflo" "default_hoehe" "2000")) + drehung-anzeige + (if layer-name (strcat " Layer=" layer-name) "") + ))) + (ssg-end) + ;; Rueckgabe: tatsaechlicher Einfuegepunkt + (if blockEnt (cdr (assoc 10 (entget blockEnt)))) +) + ;; --- Eintrag aus Dialog-Ergebnis einfuegen --- ;; dlg-result = (eintrag hoehe drehung) aus omni:bogen-dialog / omni:weichen-dialog @@ -1531,10 +1538,12 @@ ) ;; --- Omniflo / KettenFoerderer --- -(defun c:OMNI_KettenFoerderer () - (princ "\n[DUMMY] KettenFoerderer") - (princ) -) +;; Der Platzhalter c:OMNI_KettenFoerderer (reiner Dummy, gab nur "[DUMMY] +;; KettenFoerderer" aus und war im Menue ausgegraut) wurde entfernt: der +;; Kettenfoerderer ist seit 2026-10-22 als eigene Baugruppe umgesetzt, der +;; Menueeintrag zeigt jetzt auf (ssg-ensure "KettenFoerderer") KETTENFOERDERER +;; (Lisp/KettenFoerderer.lsp). Damit war der Dummy toter Code - auf ihn verwies +;; nur noch der Menueeintrag selbst. ;; --- Omniflo / Ladeschleifen --- @@ -1650,76 +1659,106 @@ ) ;; --- Omniflo / Verbinder --- +;; Verbinder-Bloecke liegen dimensionsunabhaengig als DWG in +;; data/omniflo/Verbinder (nicht unter DXFM_OMNIFLO = data/omniflo/). +;; Einfuegen wie die festen TEF-Bauteile ueber omni:insert-datei: Punkt und +;; Drehung interaktiv, Layer aus dem LAYER-Attribut, ID per ssg-id-generate. +;; Befehl -> DWG-Name steht direkt im jeweiligen c:OMNI_TV_*-Befehl. + +;; Pfad der Verbinder-DWG aus Datenverzeichnis + Dateiname (ohne .dwg) +(defun omni:verbinder-pfad (data-pfad datei) + (strcat (vl-string-right-trim "/" (vl-string-translate "\\" "/" data-pfad)) + "/omniflo/Verbinder/" datei ".dwg") +) + +;; Verbinder-DWG interaktiv einfuegen. Rueckgabe: Einfuegepunkt oder nil +(defun omni:insert-verbinder (datei / data-pfad pfad) + (setq data-pfad (getenv "DXFM_DATA")) + (cond + ((null data-pfad) + (princ (ssg-text "omni-fehler-dxfm-data")) + nil) + ((not (findfile (setq pfad (omni:verbinder-pfad data-pfad datei)))) + (princ (ssg-textf "omni-fehler-dxf-nicht-gefunden" (list pfad))) + nil) + (t (omni:insert-datei pfad datei nil nil)) + ) +) + (defun c:OMNI_TV_W_W () - (princ "\n[DUMMY] TV W-W kpl") + (omni:insert-verbinder "TV_W-W_kpl") (princ) ) (defun c:OMNI_TV_W_AP110 () - (princ "\n[DUMMY] TV W-AP110 kpl") + (omni:insert-verbinder "TV_W-AP110_kpl") (princ) ) (defun c:OMNI_TV_W_AP60 () - (princ "\n[DUMMY] TV W-AP60 oben kpl.") + (omni:insert-verbinder "TV_W-AP60_oben") + (princ) +) +(defun c:OMNI_TV_W_AP60_KPL () + (omni:insert-verbinder "TV_W-AP60_kpl") (princ) ) (defun c:OMNI_TV_W_AP110_W () - (princ "\n[DUMMY] TV W-AP110-W kpl") - (princ) -) -(defun c:OMNI_TV_W_AP () - (princ "\n[DUMMY] TV W-AP oben kpl") + (omni:insert-verbinder "TV_W-AP110-W_kpl") (princ) ) (defun c:OMNI_TV_80 () - (princ "\n[DUMMY] TV 80") + (omni:insert-verbinder "TV_80_kpl") (princ) ) (defun c:OMNI_TV_50 () - (princ "\n[DUMMY] TV 50") + (omni:insert-verbinder "TV_50_kpl") (princ) ) (defun c:OMNI_TV_ENDPLATTE () - (princ "\n[DUMMY] Endplatte Al-Profil AP schraubbar") + (omni:insert-verbinder "VB_ENDP_AP") (princ) ) (defun c:OMNI_TV_ANSCHLAG () - (princ "\n[DUMMY] Anschlag AP-Ende fuer Spulenzug") + (omni:insert-verbinder "VB_ENDP_AP_Spulenzug") (princ) ) (defun c:OMNI_TV_A_AP110_AP60 () - (princ "\n[DUMMY] TV-A fuer AP110/AP60 kpl") + (omni:insert-verbinder "TV_AP110-AP60_kpl") (princ) ) (defun c:OMNI_TV_A_AP60_ST () - (princ "\n[DUMMY] TV-A fuer AP60/ST") + (omni:insert-verbinder "TV_AP60-ST_kpl") (princ) ) (defun c:OMNI_TV_A_AP110_ST () - (princ "\n[DUMMY] TV-A fuer AP110/ST kpl") + (omni:insert-verbinder "TV_AP110-ST_kpl") (princ) ) (defun c:OMNI_TV_SW_II_SW_SW () - (princ "\n[DUMMY] TV-SW II fuer SW-SW") + (omni:insert-verbinder "TV_SW-SW") (princ) ) (defun c:OMNI_TV_SW_III_AP110_SW () - (princ "\n[DUMMY] TV-SW III fuer SW-AP110-SW") + (omni:insert-verbinder "TV_SW-AP110-SW") (princ) ) -(defun c:OMNI_TV_SW_III_AP110 () - (princ "\n[DUMMY] TV-SW III fuer SW-AP110") +(defun c:OMNI_TV_W_AP60_KPL () + (omni:insert-verbinder "TV_W-AP60_kpl") + (princ) +) +(defun c:OMNI_TV_SW_I_AP110 () + (omni:insert-verbinder "TV_SW_I_SW-AP110") (princ) ) (defun c:OMNI_TV_SW_IV_AP60 () - (princ "\n[DUMMY] TV-SW IV fuer Anschluss SW-AP60") + (omni:insert-verbinder "TV_SW_IV_SW-AP60") (princ) ) (defun c:OMNI_TV_SW_IV_ST () - (princ "\n[DUMMY] TV-SW IV fuer SW-ST") + (omni:insert-verbinder "TV_SW_IV_SW-ST") (princ) ) (defun c:OMNI_TV_MUFFE () - (princ "\n[DUMMY] Muffe") + (omni:insert-verbinder "VB_Muffe") (princ) ) diff --git a/Lisp/README.md b/Lisp/README.md index 68091b0..a693db8 100644 --- a/Lisp/README.md +++ b/Lisp/README.md @@ -38,22 +38,22 @@ am Label-Anfang, bei Submenue-Schliessern hinter dem `<-` (`[<-~Label]`). | Menuebereich | Eintraege | Definiert in | | --- | --- | --- | -| Omniflo ▸ Anbaugruppen | `OMNI_KettenFoerderer` | `OmniModulInsert.lsp` | -| Omniflo ▸ Verbinder | alle `OMNI_TV_*` (18) | `OmniModulInsert.lsp` | | Omniflo ▸ Boegen fuer Weichen | alle `OMNI_APBW_*` (14) | `OmniModulInsert.lsp` | -| ILS ▸ Zusatzmodule/Kurven | `ILS_ETF_Etagenfoerderer`, `ILS_K{90,60,30}{L,R}{A,I}` (12), `ILS_Gefaellestrecke` | `SSG_LIB_Commands.lsp` | | Geruest | `GERUEST` (Gattertraeger-Platzhalter, derselbe Befehl wie Saeulen/Rohrabhaenger/Wandbefestigung) | `GeruestInsert.lsp` | `OMNI_TEF_*` (UmlenkR/L, AntriebL/R, TEF Gerade) sind entgegen frueherem Stand -**implementiert** (echtes `omni:insert-dxf`), nur `OMNI_KettenFoerderer` ist -weiterhin Dummy. +**implementiert** (echtes `omni:insert-dxf`). Der Menueeintrag KettenFoerderer ist +ebenfalls aktiv (Modul `KettenFoerderer.lsp`, Beschreibung in `CLAUDE.md`). Aktiv (implementiert) sind u.a.: Kreisel, Eckrad, VarioFoerderer (Standard/Etage/ Linienzug), Gefaellestrecke, Geruest (Saeulen/Rohrabhaenger/Wandbefestigung/ Rohr-Geruest-Traeger), TRO-Marker, Connections, BTMT Be-/Entladung, Scanner/ Separator, Omniflo Boegen (APB)/TEF-Elemente/Aluprofil-Geraden (AP)/alle Weichen -(W90/W45/WP/WK/WKomb)/Ladeschleifen, Export (Sivas/CSV), Werkzeuge (Block-/ -Text-Tools, Planquadrate) und die Tests. +(W90/W45/WP/WK/WKomb)/Ladeschleifen/Schwenkschienen/Fahrstrecke, Kettenfoerderer, +Export (Sivas/CSV), Werkzeuge (Block-/Text-Tools, Faehnchen + Stueckliste, +DIN-Formate, Planquadrate) und die Tests. Die frueheren Dummy-Befehle fuer ILS-Kurven +(`ILS_K*`), Etagenfoerderer (`ILS_ETF_*`) und `ILS_Gefaellestrecke` wurden samt +Menueeintraegen entfernt. --- @@ -384,6 +384,10 @@ Gefaellestrecke/`vf_core` geladen sein; Kern-Modul. | `extract-ks-from-block[-raw] name` | KS_EIN/KS_AUS-Punkte eines Blocks ermitteln (Cache `*ks-cache*`) | | `insert-block-by-ks name ks-nr pt` | Block anhand KS-Punkt einfuegen (nur Rz-Rotation) | | `insert-inclined-scaled-block` / `insert-rotated-block-with-ks` | Geneigten/rotierten Block mit KS-Offset einfuegen (Rz*Ry) | +| `ks-xy-winkel ks-eintrag` | Richtung der X-Achse eines KS in der XY-Ebene (Grad); `nil` bei senkrechter Achse | +| `ks-block-messen name` / `ks-versatz ks-data` | KS eines Blocks messen, ohne bleibende Einfuegung / Versatz KS_AUS-KS_EIN | +| `insert-block-ks-skaliert name pt hz skala` | Wie `insert-block-by-ks`, zusaetzlich in X skaliert | +| `insert-block-ks-matrix name pt R skala` | Einfuegen mit **freier 3x3-Rotationsmatrix** (`ks-rot-x/-y/-z`), z.B. fuer aufgerichtete Baugruppen | --- @@ -579,9 +583,9 @@ umbiegen. Falls das bereits passiert ist, hilft nur ein manuelles --- -### `tests.lsp` – Testbefehle +### `external_call.lsp` – Python-Aufruf testen -Testbefehle für die Python-Integration. Export-Funktionen wurden in `export.lsp` ausgelagert. +Testbefehl für die Python-Integration (frueher `tests.lsp`). Export-Funktionen liegen in `export.lsp`. | Befehl | Beschreibung | | --- | --- | @@ -606,7 +610,7 @@ Verzeichnisstruktur: [`../tests/README.md`](../tests/README.md)): Welche JSON-Angaben pro Element-Typ nötig sind (abgeleitet aus den Produktions-Routinen, nicht aus den Test-Wrappern), dokumentiert -[`../tests/testdata/object_data.md`](../tests/testdata/object_data.md) – +[`../doc/json-input-lisp.md`](../doc/json-input-lisp.md) (Nachfolger des geloeschten `tests/testdata/object_data.md`) – inkl. der Unterscheidung scriptbar vs. nur-interaktiv. ### LISP-Unit-Tests (`test_unit.lsp`) @@ -702,8 +706,8 @@ AutoLISP-Implementierung fuer alle Omniflo-Komponenten: Boegen, Weichen, Verbind | Geraden | `OMNI_AP60`, `OMNI_AP110`, `OMNI_APG110` | Omniflo-Geradenstuecke | | Ladeschleifen | `OMNI_LADESCHLEIFE_AP110` | Ladeschleife aus `omniflo_ladeschleifen.json` ueber DCL-Dialog (`dcl/omniflo_ladeschleifen.dcl`) einfuegen; Daten per `ssg-json-laden` (Beschreibungen enthalten Kommas). Blockdatei `.dwg` unter `DXFM_OMNIFLO` (`omni:insert-dxf` faellt auf `.dwg` zurueck, wenn keine `.dxf` existiert). Per `OMNI_EDIT` editierbar | | TEF Elemente | `OMNI_TEF_UmlenkR/L`, `OMNI_TEF_AntriebL/R`, `OMNI_TEF_Gerade` | Feste TEF-Bauteile ohne Sivas-Auswahl, direkt per `omni:insert-dxf` an gewaehltem Punkt eingefuegt (Dateien unter `DXFM_OMNIFLO`) | -| Anbaugruppen ⚠️ | `OMNI_KettenFoerderer` | **Dummy** (noch nicht implementiert, im Menue ausgegraut); `OMNI_STOPPER`/`OMNI_SCANNER`/`OMNI_BUERSTENBREMSE` sind implementiert | -| Transferwagen ⚠️ | `OMNI_TV_*` | **Dummy** (noch nicht implementiert, im Menue ausgegraut) | +| Anbaugruppen | `OMNI_STOPPER`, `OMNI_SCANNER`, `OMNI_BUERSTENBREMSE` | Implementiert | +| Verbinder | `OMNI_TV_*` | Verbinder-DWG aus `data/omniflo/Verbinder` (dimensionsunabhaengig, `omni:insert-verbinder` -> `omni:insert-datei`, Punkt + Drehung interaktiv). Zuordnung Befehl -> DWG nach Dateiname, z.B. `OMNI_TV_W_AP60` -> `TV_W-AP60_oben`, `OMNI_TV_ENDPLATTE` -> `VB_ENDP_AP`, `OMNI_TV_W_AP60_KPL` -> `TV_W-AP60_kpl`, `OMNI_TV_ANSCHLAG` -> `VB_ENDP_AP_Spulenzug`, `OMNI_TV_SW_I_AP110` -> `TV_SW_I_SW-AP110`, `OMNI_TV_MUFFE` -> `VB_Muffe`. Alle 18 Eintraege aktiv | | Bogenweichen ⚠️ | `OMNI_APBW_*` | **Dummy** (noch nicht implementiert, im Menue ausgegraut) | | Bearbeiten | `OMNI_EDIT` | Omniflo-Block selektieren und Attribute bearbeiten | @@ -713,13 +717,12 @@ nicht zu verwechseln mit den einzelnen `OMNI_TEF_*`-Befehlen oben. --- -### `SSG_LIB_Commands.lsp` – BTMT, Sensoren, Dummy-Befehle, Konfiguration und SSG_BLOCKEDIT +### `SSG_LIB_Commands.lsp` – BTMT, Sensoren, Konfiguration und SSG_BLOCKEDIT -Sammeldatei fuer Menue-Befehle: teils Platzhalter fuer noch nicht implementierte -Eintraege, teils bereits **echte** Funktionalitaet (BTMT Be-/Entladung, Sensoren, -Konfiguration, Doppelklick-Dispatcher). Alle noch offenen Dummy-Menueintraege sind in -`menu/SSG_LIB.mnu` mit `~` ausgegraut (siehe Abschnitt -["Status: noch offene Menueintraege"](#status-noch-offene-menueintraege-im-menue-ausgegraut)). +Sammeldatei fuer Menue-Befehle: BTMT Be-/Entladung, Sensoren, Eingang/Ausgang, +Konfiguration und der Doppelklick-Dispatcher. Die frueheren Dummy-Befehle (ILS-Kurven, +Etagenfoerderer) sind entfernt; noch offene Menueintraege anderer Module siehe Abschnitt +["Status: noch offene Menueintraege"](#status-noch-offene-menueintraege-im-menue-ausgegraut). **Sensoren einfuegen** (real, ueber `ils-insert-sensor` → wiederholtes `_.INSERT` mit interaktivem Einfuegepunkt/Rotation, Blockdatei via `ssg-ils-block-datei`): @@ -761,15 +764,6 @@ Sivas-Export zusaetzlich in den Summenzaehlern "Anzahl aller BTBeladung"/ dieselbe `ils-insert-station`-Routine wie BTMT Be-/Entladung (frei platzierbar, Blöcke `Eingang_.dwg`/`Ausgang_.dwg` in `data/ils`). -Registrierte Dummy-Befehle: - -| Gruppe | Befehle | -| --- | --- | -| ILS Zusatzmodule | `ILS_ETF_Etagenfoerderer`| -| ILS Kurven angetrieben Aussen | `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 Gefaellestrecken-Kurven | `ILS_Gefaellestrecke` | - > `FOERDERANLAGE` ist nicht hier definiert – dieser Befehl ist in `VarioFoerderer.lsp` implementiert. **Konfigurationsbefehle** (Menue → Konfiguration): @@ -777,11 +771,12 @@ Registrierte Dummy-Befehle: | Befehl | Beschreibung | | --- | --- | | `SSG_DIM_SWITCH` | Schaltet zwischen 2D/3D-Bloecken um (setzt `DXFM_DIM`, `DXFM_BLOCKS`, `DXFM_OMNIFLO`) | +| `SSG_DIM_ALL_2D` / `SSG_DIM_ALL_3D` | Alle VF_n-/GF_n-Bloecke der Zeichnung nach 2D bzw. 3D umbauen | | `SSG_SPRACHE` | Oeffnet Dialog `sprache.dcl`, setzt `*ssg-lang*` und persistiert via `DXFM_LANG` (siehe [`ssg_lang.lsp`](#ssg_langlsp--sprachumschaltung-deutschenglisch)) | **SSG_BLOCKEDIT** – Doppelklick/Kontextmenue-Dispatcher: -Erkennt den Blocktyp des selektierten INSERT-Blocks und ruft den passenden Bearbeitungsbefehl auf (Reihenfolge wichtig: `GR_*` **vor** dem Omniflo-Zweig, da Geruest-Bloecke ebenfalls ein TEILEART-Attribut tragen): +Erkennt den Blocktyp des selektierten INSERT-Blocks und ruft den passenden Bearbeitungsbefehl auf (Reihenfolge wichtig: `GR_*` und `KF_*` **vor** dem Omniflo-Zweig, da diese Bloecke ebenfalls ein TEILEART-Attribut tragen koennen): | Blockmuster | Aktion | | --- | --- | @@ -789,8 +784,11 @@ Erkennt den Blocktyp des selektierten INSERT-Blocks und ruft den passenden Bearb | `ECKRAD_*` | `EckradEdit` | | `GF_*` | `GEFAELLESTRECKE_EDIT` | | `VF_*` | `VARIOFOERDERER_EDIT` | -| `GR_*` | Geruest – `BEDIT` (kein eigener Edit-Pfad; siehe `GeruestInsert.lsp`) | +| `CONNECTION_*` | `CONNECTION_EDIT` | +| `JAM_*` | `JAM_EDIT` | | `TRO_*` | `TRO_EDIT` | +| `GR_*` | Geruest – nativer Attribut-Editor `_.EATTEDIT` (kein eigener Edit-Pfad; siehe `GeruestInsert.lsp`) | +| `KF_*` | `KF_EDIT` | | Omniflo (TEILEART-Attribut, AP110*, numerisch) | `OMNI_EDIT` | | Sonstige | `BEDIT` (Block-Editor) | @@ -801,18 +799,20 @@ Erkennt den Blocktyp des selektierten INSERT-Blocks und ruft den passenden Bearb Rohr-Geruest-Baugruppen (Saeulen, Rohrabhaenger, Wandbefestigung, Rohr-Geruest-Traeger) aus [`data/json/geruest.json`](../data/json/geruest.json) bzw. [`data/json/geruest_traeger.json`](../data/json/geruest_traeger.json) konfigurieren -und einfuegen. Die Dialogdefinition wird **zur Laufzeit erzeugt** -(`geruest-dcl-schreiben`, temporaere DCL-Datei) – es gibt keine feste -`dcl/geruest.dcl`, weil je Anbauteil ein eigenes Mengenfeld gebraucht wird. +und einfuegen. Das Dialog-Layout steht als **Vorlage** in `dcl/geruest.dcl` bzw. +`dcl/geruest_traeger.dcl`; nur die datenabhaengigen Bloecke (Varianten-Radiobuttons, +Mengenfeld je Anbauteil) werden zur Laufzeit an Markerzeilen `//@NAME@` eingesetzt +(`ssg-dcl-vorlage-fuellen`, temporaere DCL-Datei). Ausfuehrliche Beschreibung (Konfigurationen, Attribut-Schema, Querstreben/Muffe, Traeger-Beschriftung): siehe `../CLAUDE.md` Abschnitt "AutoLISP-Module". | Befehl | Beschreibung | | --- | --- | -| `c:GERUEST` | Dialog ohne Vorgabe-Bereich (Dropdown Rohrabhaenger/Saeulen/Wandbefestigung) | -| `c:GERUEST_SAEULEN` / `c:GERUEST_ROHRABHAENGER` / `c:GERUEST_WANDBEFESTIGUNG` | Dialog mit vorgewaehltem Bereich (derselbe Dialog wie `GERUEST`) | +| `c:GERUEST_SAEULEN` / `c:GERUEST_ROHRABHAENGER` / `c:GERUEST_WANDBEFESTIGUNG` | Je eigener Dialog fuer den Bereich (keine Umschaltung im Dialog) | +| `c:GERUEST` | Ohne Bereich nur ein Hinweis (im Menue Platzhalter fuer den Gattertraeger) | | `c:GERUEST_TRAEGER` | Eigener fester Dialog (`dcl/geruest_traeger.dcl`): Rohr-Geruest-Traeger mit Linien-Logik (Start-/Endpunkt oder Laenge, Laengenabzuege, Querstreben/Muffe-Verteilung) | | `c:GERUEST_TRAEGER_BESCHRIFTEN` | Alle Traeger der Zeichnung neu beschriften (eigenes TEXT-Objekt, verknuepft per XDATA `SSG_GR_BESCHR`) | +| `c:OMNI_FAHRSTRECKE` / `c:OMNI_FAHRSTRECKE_BESCHRIFTEN` | Omniflo-Fahrstrecke mit derselben Linien-Logik (Daten `omniflo_fahrstrecke.json`, Vorlage `dcl/fahrstrecke.dcl`) bzw. Neubeschriftung | Block-Praefix `GR__` – **nicht kosmetisch**: `SSG_BLOCKEDIT` muss `GR_*` vor dem Omniflo-Zweig abfangen, da Geruest-Bloecke ebenfalls ein @@ -864,3 +864,59 @@ Einfuegepunkt oder den Zeichnungs-Extents. Lazy geladen ueber Das fertige Raster (Linien + Zaehl-Texte) wird zu einem einzigen Block `ZZ_PLANQUADRATE` bei (0,0,0) zusammengefasst; Layer aus `cfg/layer.cfg`. + +--- + +### `Jam_Edit.lsp` – Staubereiche (SPS) + +Staubereiche zeichnet sps_skel (`tro_annotate.py --anlage`) als Block `JAM_AREA` +(Name `Jam_`). + +| Befehl | Beschreibung | +| --- | --- | +| `c:JAM_EDIT` | Foerderer und laufende Nummer per Dialog (`dcl/jam_edit.dcl`) aendern; Knopf zurueck auf den abgeleiteten Wert, Warnung bei doppeltem Namen. Auch per Doppelklick (`SSG_BLOCKEDIT`, `JAM_*`) | + +--- + +### `KettenFoerderer.lsp` – Kettenfoerderer/Schraegfoerderer Stahl + +| Befehl | Beschreibung | +| --- | --- | +| `c:KETTENFOERDERER` | Baut aus `KF_UM_` -> `KF_LAENGE` -> `KF_AN_` plus Draufsicht `KF_2D` einen Block `KF_` (Dialog `dcl/kettenfoerderer.dcl`, Daten `data/json/kettenfoerderer.json`) | +| `c:KF_EDIT` | `KF_n` bearbeiten und an derselben Stelle neu aufbauen (auch per Doppelklick) | +| `c:KF_KS_PRUEFEN` | Diagnose (nicht im Menue) | + +Details (aufgerichtete Geometrie, Attribut-Schema, Sivas-Export): `../CLAUDE.md`. + +--- + +### Werkzeuge: `ssg_stueckliste.lsp`, `DinFormate.lsp` + +| Befehl | Beschreibung | +| --- | --- | +| `c:SSG_FAEHNCHEN_STUECKLISTE` | Positions-Faehnchen je Element und grob gruppierte Stuecklistentabelle, komplett aus der Zeichnung (kein Datei-Import) | +| `c:DIN_FORMATE` | DIN-Rahmen A0-A4 und optional Schriftkopf (KOPF11, DE/EN/FR/IT) aus `cfg/rahmen/` einfuegen (Dialog `dcl/dinformate.dcl`) | + +--- + +### Export-Hilfen: `count_sep_scan.lsp`, `check_hoehen.lsp` + +| Befehl | Beschreibung | +| --- | --- | +| `c:ZAEHLE_SEP_SCAN` | Scanner/Separatoren je Kreisel/VF/GF zaehlen und in `ANZAHL_SCANNER`/`ANZAHL_SEPARATOR` schreiben (laeuft auch vor jedem Export) | +| `c:HOEHEN_CHECK` | Hoehen von Kreiseln/VF/GF messen, auf 0/negativ pruefen und in die Hoehen-Attribute schreiben | + +--- + +### Entwickler-/Pflege-Module + +| Datei | Befehle | Zweck | +| --- | --- | --- | +| `addattribute.lsp` | `ILS_ATTR_SYNC`, `ILS_ATTR_REPLACE` | ATTDEFs der Block-DWGs mit `data/ils/allocations.json` abgleichen | +| `collect_attributes.lsp` | `ILS_ATTR_COLLECT` | ATTDEF-Werte aller DWGs nach `allocations_collected.json` schreiben | +| `list_blocks.lsp` | `ILS_BLOCK_LIST` | Sub-Block-Definitionen aller DWGs auflisten (Kollisionen 2D/3D) | +| `purge_blocks.lsp` | `ILS_BLOCK_PURGE` | Unbenutzte Bloecke/Layer in allen DWGs entfernen | +| `ks_pruefung.lsp` | `KS_PRUEFEN` | KS_EIN/KS_AUS der 2D- gegen die 3D-Variante vergleichen (CSV) | +| `menu-inventory.lsp` | `MenuInventory` | BricsCAD-Menuegruppen, Plugins, Startdateien auflisten | +| `EtageVarioFoerderer.lsp` | - | Kompatibilitaets-Wrapper, laedt `vf_core.lsp` | +| `tro_types.lsp` | - | Von `tro_annotate.py --emit-lisp` erzeugte TRO-Typliste | diff --git a/Lisp/SSG_LIB_Commands.lsp b/Lisp/SSG_LIB_Commands.lsp index c01dd2b..a3da2bf 100644 --- a/Lisp/SSG_LIB_Commands.lsp +++ b/Lisp/SSG_LIB_Commands.lsp @@ -425,6 +425,24 @@ (command "_.EATTEDIT") ) + ;; Kettenfoerderer (KF_n, KettenFoerderer.lsp) -> KF_EDIT (DCL-Dialog mit + ;; Neuaufbau an derselben Stelle). MUSS - aus demselben Grund wie GR_* - + ;; vor dem Omniflo-Zweig stehen: traegt die Baugruppe ein TEILEART- + ;; Attribut, wuerde dort sonst der Omniflo-Elementdialog aufgehen. + ((wcmatch bname "KF_*") + (princ (ssg-textf "cmd-kettenfoerderer-bearbeiten" (list bname))) + (if (and (null *ssg-KettenFoerderer-loaded*) (atoms-family 1 '("SSG-ENSURE"))) + (ssg-ensure "KettenFoerderer") + ) + (if (atoms-family 1 '("C:KF_EDIT")) + (c:KF_EDIT) + (progn + (princ (ssg-textf "tro-edit-modul-fehlt" (list "KettenFoerderer.lsp"))) + (command "_.EATTEDIT") + ) + ) + ) + ;; Omniflo-Bloecke -> OMNI_EDIT ;; Erkennung: TEILEART-Attribut vorhanden, AP110-Blockname oder rein numerisch ((progn diff --git a/Lisp/export.lsp b/Lisp/export.lsp index 197f25b..cfb93a7 100644 --- a/Lisp/export.lsp +++ b/Lisp/export.lsp @@ -2394,6 +2394,14 @@ ;; GeruestInsert.lsp). Wie BTMT eigenstaendig und von keinem anderen ;; Element mitgezaehlt - export_csv.py UND export_sivas.py fuehren sie ;; beide als eigene TeileArt-Zeilen. +;; VB_*/TV_* = Omniflo-Verbinder (siehe pattern_verbinder in +;; cfg/export.cfg, OMNI_TV_* in OmniModulInsert.lsp). export_sivas.py +;; fuehrt sie ueber TEILEART/ARTINR im allgemeinen Omniflo-Zweig. +;; KF_* = Kettenfoerderer/Schraegfoerderer Stahl (siehe +;; pattern_kettenfoerderer in cfg/export.cfg, KettenFoerderer.lsp). Wie +;; GR_* eine selbst zusammengebaute Baugruppe mit eigenen Attributen +;; (TEILEART/ARTINR), darum eigenstaendig gesammelt - die drei Bausteine +;; darin werden NICHT einzeln gezaehlt. ;; Bloecke auf GEFRORENEN Layern (und die Hilfsobjekte gefrorener VF_n/GF_n) ;; werden ausgelassen, solange *csv-gefrorene-ausschliessen* an ist (Standard, ;; Dialog CSV_EXPORT_KONFIG); ausgeschaltete Layer zaehlen nicht als gefroren. @@ -2445,6 +2453,8 @@ (wcmatch bname (export:pattern "pattern_eingang" "Eingang*")) (wcmatch bname (export:pattern "pattern_ausgang" "Ausgang*")) (wcmatch bname (export:pattern "pattern_geruest" "GR_*")) + (wcmatch bname (export:pattern "pattern_verbinder" "VB_*,TV_*")) + (wcmatch bname (export:pattern "pattern_kettenfoerderer" "KF_*")) (wcmatch bname (export:pattern "pattern_unit_marker" "ZZ_UNIT_MARKER*")) ;; Rein numerische Namen = Omniflo SivasNr (Boegen/Weichen) ;; Rein LISP-intern (Python klassifiziert Omniflo stattdessen diff --git a/Lisp/ssg_core.lsp b/Lisp/ssg_core.lsp index d344015..53af850 100644 --- a/Lisp/ssg_core.lsp +++ b/Lisp/ssg_core.lsp @@ -1264,6 +1264,13 @@ ("L_VF_m" "0.000") ("ANTRIEBFAHRTRICHTUNG" "Auf") ("VF_WINKEL" "0") + ;; Hoehe je VF-SEGMENT in Metern (3 Nachkommastellen), kommagetrennt und + ;; Eintrag fuer Eintrag parallel zu L_VF_m/VF_WINKEL: Mittelwert aus KS_EIN + ;; und KS_AUS des jeweiligen geraden VF-Abschnitts (vf-vfhoehe-segment in + ;; vf_core.lsp, erfasst in vfs-vf-koerper). Zwischen Umlenk- und + ;; Motorstation koennen mehrere Abschnitte liegen (auf/ab/horizontal). + ;; Sivas-Merkmale 4433-4437 (bis zu fuenf Abschnitte je Gruppe). + ("VF_HOEHE_m" "0.000") ("VF_Bogen_A_90" "0") ("VF_Bogen_A_60" "0") ("VF_Bogen_A_30" "0") diff --git a/Lisp/ssg_dbg.lsp b/Lisp/ssg_dbg.lsp index adaf886..178fd1a 100644 --- a/Lisp/ssg_dbg.lsp +++ b/Lisp/ssg_dbg.lsp @@ -86,8 +86,12 @@ ;; Einheiten-Proxies selbst ab; Separator-/Element- ;; Kopien sammeln sich dagegen an - Zeichnung mit ;; eingeschaltetem Schalter nicht speichern. +;; kf-zeit - Zwischenzeiten beim Aufruf von KETTENFOERDERER +;; (Daten lesen / Dialogaufbau), siehe kf-zeit in +;; KettenFoerderer.lsp. Standard 0 - nur einschalten, +;; wenn der Dialog spuerbar verzoegert erscheint. ;; ------------------------------------------------------------ -(foreach nm '(("vf-sepliste" . 1) ("csv_leave_proxies" . 0)) +(foreach nm '(("vf-sepliste" . 1) ("csv_leave_proxies" . 0) ("kf-zeit" . 0)) (if (not (assoc (car nm) *dbg-schalter*)) (setq *dbg-schalter* (cons nm *dbg-schalter*)))) diff --git a/Lisp/ssg_id.lsp b/Lisp/ssg_id.lsp index b4a936a..47b3063 100644 --- a/Lisp/ssg_id.lsp +++ b/Lisp/ssg_id.lsp @@ -45,6 +45,11 @@ ;; Spalte (auch auf Kreiseln) bekommen. ;; GR_* (Geruest-Baugruppen, siehe pattern_geruest in cfg/export.cfg) ebenso - ;; das ID-ATTDEF steht seit *geruest-attrib-defs* zur Verfuegung. +;; VB_*/TV_* (Omniflo-Verbinder, siehe pattern_verbinder in +;; cfg/export.cfg) ebenso - fest im Code wie GR_*. +;; KF_* (Kettenfoerderer, siehe pattern_kettenfoerderer in cfg/export.cfg, +;; KettenFoerderer.lsp) ebenso - das ID-ATTDEF kommt aus kf-attrib-defs, das +;; auf dem gemeinsamen Strecken-Schema aufsetzt und darum ID bereits fuehrt. ;; Gefaellebogen_* (siehe pattern_nested_bogen in cfg/export.cfg): einer der ;; Bausteine einer GF-Kette, verpackt in VF_n/GF_n; wird beim Export ebenso ;; als temporaere Kopie ausgepackt wie die uebrigen Vario_*/Staustrecke_*- @@ -81,6 +86,8 @@ (wcmatch bname "BTMT-Beladung*,SC_Entladung*") (wcmatch bname "Eingang*,Ausgang*") (wcmatch bname "GR_*") + (wcmatch bname "VB_*,TV_*") + (wcmatch bname "KF_*") (wcmatch bname "#*") ) (ssadd ename ss-out) diff --git a/Lisp/ssg_ks_insert.lsp b/Lisp/ssg_ks_insert.lsp index 35e21e4..f1c49dd 100644 --- a/Lisp/ssg_ks_insert.lsp +++ b/Lisp/ssg_ks_insert.lsp @@ -72,11 +72,31 @@ ;; Block unter seinem effektiven, dim-suffigierten Namen und GIBT DIESEN ZURUECK, ;; damit Aufrufer ihn zum Einfuegen (vla-InsertBlock/tblsearch) verwenden. ;; Meldung nur bei Fehlschlag. -(defun ensure-block-loaded (blockname / ) - (if (not (ssg-ils-block-laden blockname)) - (princ (ssg-textf "vfc-fehler-block-datei-fehlt" (list blockname))) +;; Sonderfall Bloecke OHNE Dimensionssuffix (data/omniflo//, z.B. die +;; Kettenfoerderer-Bausteine): ssg-ils-blockname wuerde "KF_UM_26" zu +;; "KF_UM_26_2D" machen - das ist die Konvention der FLACHEN Ablage data/ils, +;; die Omniflo-Ordner arbeiten stattdessen mit getrennten Verzeichnissen und +;; unsuffigierten Namen. Liegt die Definition unter dem Rohnamen bereits in +;; der Zeichnung und gibt es KEINE suffigierte Variante, wird der Rohname +;; unveraendert verwendet. Die Bedingung ist bewusst eng gefasst (BEIDE Teile +;; muessen zutreffen), damit die Dim-Aufloesung fuer alle data/ils-Bloecke +;; unberuehrt bleibt: dort existiert die suffigierte Variante, sobald der +;; Block geladen ist, und der erste Zweig greift nie. +;; Realer Fehler, den das behebt: die KS-Messung eines KF-Bausteins lief ins +;; Leere und meldete "KS_EIN/KS_AUS fehlt", obwohl beide KS im Block vorhanden +;; waren - gesucht wurde nur ein Blockname, den es nicht gibt. +(defun ensure-block-loaded (blockname / eff) + (setq eff (ssg-ils-blockname blockname)) + (if (and (not (tblsearch "BLOCK" eff)) + (tblsearch "BLOCK" blockname)) + blockname + (progn + (if (not (ssg-ils-block-laden blockname)) + (princ (ssg-textf "vfc-fehler-block-datei-fehlt" (list blockname))) + ) + eff + ) ) - (ssg-ils-blockname blockname) ) ;; ------------------------------------------------------------ @@ -379,6 +399,265 @@ ) ) +;; ------------------------------------------------------------ +;; KS-ORIENTIERUNG + SKALIERTE KS-EINFUEGUNG +;; ------------------------------------------------------------ +;; Ergaenzt fuer den Kettenfoerderer (KettenFoerderer.lsp): dort ist die +;; Neigung KEIN freier Parameter, sondern steckt fest in der Geometrie der +;; Blockvarianten (KF_UM_26 gegen KF_UM_30). Der Einbauwinkel eines +;; Folgebausteins ergibt sich darum aus der RICHTUNG des KS_AUS seines +;; Vorgaengers. Dafuer reicht der bisher allein ausgewertete KS-URSPRUNG +;; nicht - die X-Achse des KS muss mit gelesen werden. extract-ks-from-block +;; liefert sie als (origin x-end y-end z-end) bereits mit, sie wurde bislang +;; nur von keinem Aufrufer genutzt. + +;; Winkel der X-Achse eines KS-Eintrags in der XY-Ebene, in Grad (-180..180). +;; ks-eintrag = (origin x-end y-end z-end), also genau der cadr-Teil eines +;; extract-ks-from-block-Ergebnisses. Rueckgabe nil, wenn die X-Achse keine +;; XY-Laenge hat (senkrecht stehendes KS) oder der Eintrag unbrauchbar ist. +(defun ks-xy-winkel (ks-eintrag / org xend dx dy) + (if (and ks-eintrag (listp ks-eintrag) (>= (length ks-eintrag) 2) + (listp (car ks-eintrag)) (listp (cadr ks-eintrag))) + (progn + (setq org (car ks-eintrag) xend (cadr ks-eintrag)) + (setq dx (- (car xend) (car org)) + dy (- (cadr xend) (cadr org))) + (if (< (+ (* dx dx) (* dy dy)) 1e-12) + nil + (/ (* 180.0 (atan dy dx)) pi))) + nil)) + +;; Winkel auf -180..180 Grad normalisieren. Reiner Rechenkern. +(defun ks-winkel-normalisieren (w) + (if (null w) + nil + (progn + (setq w (float w)) + (while (> w 180.0) (setq w (- w 360.0))) + (while (<= w -180.0) (setq w (+ w 360.0))) + w))) + +;; Lokalen KS_AUS-KS_EIN-Versatz eines Blocks als (dx dy dz) liefern. +;; ks-data = Ergebnis von extract-ks-from-block/ks-block-messen. +;; Rueckgabe nil, wenn eines der beiden KS fehlt. +(defun ks-versatz (ks-data / ein aus) + (setq ein (cadr (assoc "KS_EIN" ks-data)) + aus (cadr (assoc "KS_AUS" ks-data))) + (if (and ein aus) + (list (- (car (car aus)) (car (car ein))) + (- (cadr (car aus)) (cadr (car ein))) + (- (caddr (car aus)) (caddr (car ein)))) + nil)) + +;; Misst KS_EIN/KS_AUS eines Blocks, ohne eine bleibende Einfuegung zu +;; hinterlassen: der Block wird bei Massstab 1 am Ursprung eingefuegt, +;; vermessen und wieder geloescht. extract-ks-from-block cached das Ergebnis +;; je Blockname, der zweite Aufruf kostet also nichts mehr. +;; Rueckgabe wie extract-ks-from-block (Blockkoordinaten), sonst nil. +(defun ks-block-messen (blockname / eff temp-obj daten) + (setq eff (ensure-block-loaded blockname)) + (if (tblsearch "BLOCK" eff) + (progn + (setq temp-obj (vla-InsertBlock modelspace + (vlax-3D-point '(0 0 0)) eff 1.0 1.0 1.0 0)) + (setq daten (extract-ks-from-block temp-obj)) + (if (not (vlax-erased-p temp-obj)) (vla-Delete temp-obj)) + daten) + nil)) + +;; --- Block per KS_EIN/KS_AUS einfuegen, in X SKALIERT (nur Rz-Rotation) --- +;; Wie insert-block-by-ks, zusaetzlich mit X-Massstab skala - fuer laengen- +;; variable Zwischenstuecke (Kettenfoerderer KF_LAENGE, dieselbe Rolle wie +;; die Staustrecke beim VarioFoerderer). Die lokalen KS-Punkte werden VOR der +;; Rotation in X mitskaliert; nur so liegt KS_EIN exakt auf einfuegepunkt und +;; der zurueckgegebene KS_AUS traegt den skalierten Versatz. +;; Rueckgabe: Weltpunkt von KS_AUS (fuer die Verkettung), sonst einfuegepunkt. +(defun insert-block-ks-skaliert (blockname einfuegepunkt hz skala / + block-obj ks-data ks-ein ks-aus rad-h chv shv + ein-x ein-y ein-z aus-x dx-loc dy-loc dz-loc + offset ausgang) + (if (or (null einfuegepunkt) (not (listp einfuegepunkt))) + (progn + (princ (ssg-textf "vfc-fehler-ungueltiger-einfuegepunkt" (list blockname))) + (exit)) + ) + (if (or (null skala) (<= skala 0.0)) (setq skala 1.0)) + (setq blockname (ensure-block-loaded blockname)) + (if (not (tblsearch "BLOCK" blockname)) + (progn + (princ (ssg-textf "vfc-fehler-block-nicht-in-bibliothek-abgebrochen" (list blockname))) + (exit)) + ) + (princ (ssg-textf "vfc-fuege-block-ein-hz" (list blockname (rtos (float hz) 2 1) (chr 176)))) + (setq rad-h (* (float hz) (/ pi 180.0))) + (setq chv (cos rad-h) shv (sin rad-h)) + ;; KS am UNSKALIERTEN Block messen (der Cache arbeitet je Blockname), die + ;; lokalen Punkte danach selbst in X skalieren. + (setq ks-data (ks-block-messen blockname)) + (setq ks-ein (cadr (assoc "KS_EIN" ks-data))) + (setq ks-aus (cadr (assoc "KS_AUS" ks-data))) + (setq block-obj (vla-InsertBlock modelspace + (vlax-3D-point '(0 0 0)) + blockname skala 1.0 1.0 0)) + (ssg-ils-block-auf-ebene block-obj blockname) + (if (> (abs hz) 0.0001) + (vla-TransformBy block-obj (vlax-tmatrix + (list (list chv (- shv) 0 0) + (list shv chv 0 0) + (list 0 0 1 0) + (list 0 0 0 1)))) + ) + (if (and ks-ein ks-aus) + (progn + (setq ein-x (* skala (car (car ks-ein))) + ein-y (cadr (car ks-ein)) + ein-z (caddr (car ks-ein))) + (setq aus-x (* skala (car (car ks-aus)))) + (setq offset (list + (- (car einfuegepunkt) (- (* chv ein-x) (* shv ein-y))) + (- (cadr einfuegepunkt) (+ (* shv ein-x) (* chv ein-y))) + (- (caddr einfuegepunkt) ein-z))) + (vla-Move block-obj + (vlax-3D-point '(0 0 0)) + (vlax-3D-point offset)) + (setq dx-loc (- aus-x ein-x)) + (setq dy-loc (- (cadr (car ks-aus)) ein-y)) + (setq dz-loc (- (caddr (car ks-aus)) ein-z)) + (setq ausgang (list + (+ (car einfuegepunkt) (- (* chv dx-loc) (* shv dy-loc))) + (+ (cadr einfuegepunkt) (+ (* shv dx-loc) (* chv dy-loc))) + (+ (caddr einfuegepunkt) dz-loc))) + (ssg-sepliste-dbg + (strcat "insert-block-ks-skaliert " blockname + " hz=" (rtos (float hz) 2 2) " skala=" (rtos (float skala) 2 4) + " einfuegepunkt=" (ssg-sepliste-dbg-pt einfuegepunkt) + " offset(=Gruppencode 10)=" (ssg-sepliste-dbg-pt offset) + " ausgang=" (ssg-sepliste-dbg-pt ausgang))) + (princ (ssg-textf "vfc-ks-aus-xyz" + (list (rtos (car ausgang) 2 2) (rtos (cadr ausgang) 2 2) (rtos (caddr ausgang) 2 2)))) + ausgang + ) + (progn + (princ (ssg-text "vfc-warnung-ks-nicht-gefunden")) + einfuegepunkt + ) + ) +) + +;; ------------------------------------------------------------ +;; FREI ROTIERTE KS-EINFUEGUNG (beliebige 3x3-Matrix) +;; ------------------------------------------------------------ +;; Verallgemeinerung von insert-block-by-ks/insert-block-ks-skaliert: statt +;; einer festen Rz- bzw. Rz*Ry-Drehung nimmt sie eine FERTIGE 3x3-Rotations- +;; matrix entgegen. Noetig geworden fuer AUFRECHT eingebaute Baugruppen: der +;; Kettenfoerderer ist in der XY-Ebene gezeichnet (X = Fahrtrichtung, +;; Y = Hoehe), soll aber im Modell stehen - seine Hoehe muss also nach Z. Das +;; ist eine Drehung um X, die weder insert-block-by-ks (nur Rz) noch +;; ssg-rot-matrix-zy (Rz*Ry) erzeugen kann. +;; +;; Bewusst matrixbasiert statt mit einem weiteren Winkelparameter: die +;; Aufrichtung ist nur EIN Anwendungsfall, und jeder weitere haette eine +;; weitere Spezialfunktion gebraucht. Den Aufrufern bleibt freigestellt, +;; welche Drehungen sie kombinieren (beim Kettenfoerderer +;; Rz(basis) * Rx(90) * Rz(eigen), siehe kf-matrix-aufrecht). + +;; Elementare Rotationsmatrizen (3x3, Winkel in GRAD). +(defun ks-rot-x (grad / r c s) + (setq r (* (float grad) (/ pi 180.0)) c (cos r) s (sin r)) + (list (list 1.0 0.0 0.0) + (list 0.0 c (- s)) + (list 0.0 s c ))) + +(defun ks-rot-y (grad / r c s) + (setq r (* (float grad) (/ pi 180.0)) c (cos r) s (sin r)) + (list (list c 0.0 s ) + (list 0.0 1.0 0.0) + (list (- s) 0.0 c ))) + +(defun ks-rot-z (grad / r c s) + (setq r (* (float grad) (/ pi 180.0)) c (cos r) s (sin r)) + (list (list c (- s) 0.0) + (list s c 0.0) + (list 0.0 0.0 1.0))) + +;; 3x3-Rotation in die 4x4-Form bringen, die vla-TransformBy erwartet. +(defun ks-mat3->mat4 (R) + (list (append (car R) '(0.0)) + (append (cadr R) '(0.0)) + (append (caddr R) '(0.0)) + '(0.0 0.0 0.0 1.0))) + +;; --- Block per KS_EIN/KS_AUS einfuegen, frei rotiert und in X skaliert --- +;; blockname Rohname (wird ueber ensure-block-loaded aufgeloest) +;; einfuegepunkt Weltpunkt, auf den KS_EIN zu liegen kommt +;; R 3x3-Rotationsmatrix (Blockkoordinaten -> Welt) +;; skala X-Massstab (1.0 = unskaliert) +;; Rueckgabe: Weltpunkt von KS_AUS (fuer die Verkettung), sonst einfuegepunkt. +;; +;; Reihenfolge wie bei den uebrigen Primitiven: am Ursprung einfuegen, +;; skalieren, drehen, dann so verschieben, dass das GEDREHTE KS_EIN exakt auf +;; einfuegepunkt liegt. Die lokalen KS-Punkte werden dabei zuerst in X +;; mitskaliert - sonst zeigt der zurueckgegebene KS_AUS am skalierten Block +;; vorbei. +(defun insert-block-ks-matrix (blockname einfuegepunkt R skala / + block-obj ks-data ks-ein ks-aus + ein-lok aus-lok ein-welt aus-welt offset ausgang) + (if (or (null einfuegepunkt) (not (listp einfuegepunkt))) + (progn + (princ (ssg-textf "vfc-fehler-ungueltiger-einfuegepunkt" (list blockname))) + (exit)) + ) + (if (or (null skala) (<= skala 0.0)) (setq skala 1.0)) + (setq blockname (ensure-block-loaded blockname)) + (if (not (tblsearch "BLOCK" blockname)) + (progn + (princ (ssg-textf "vfc-fehler-block-nicht-in-bibliothek-abgebrochen" (list blockname))) + (exit)) + ) + (setq ks-data (ks-block-messen blockname)) + (setq ks-ein (cadr (assoc "KS_EIN" ks-data))) + (setq ks-aus (cadr (assoc "KS_AUS" ks-data))) + (setq block-obj (vla-InsertBlock modelspace + (vlax-3D-point '(0 0 0)) + blockname skala 1.0 1.0 0)) + (ssg-ils-block-auf-ebene block-obj blockname) + (vla-TransformBy block-obj (vlax-tmatrix (ks-mat3->mat4 R))) + (if (and ks-ein ks-aus) + (progn + ;; lokale KS-Punkte, in X mitskaliert + (setq ein-lok (list (* skala (car (car ks-ein))) + (cadr (car ks-ein)) + (caddr (car ks-ein)))) + (setq aus-lok (list (* skala (car (car ks-aus))) + (cadr (car ks-aus)) + (caddr (car ks-aus)))) + (setq ein-welt (mat3-mul-vec3 R ein-lok)) + (setq aus-welt (mat3-mul-vec3 R aus-lok)) + (setq offset (list (- (car einfuegepunkt) (car ein-welt)) + (- (cadr einfuegepunkt) (cadr ein-welt)) + (- (caddr einfuegepunkt) (caddr ein-welt)))) + (vla-Move block-obj + (vlax-3D-point '(0 0 0)) + (vlax-3D-point offset)) + (setq ausgang (list (+ (car einfuegepunkt) (- (car aus-welt) (car ein-welt))) + (+ (cadr einfuegepunkt) (- (cadr aus-welt) (cadr ein-welt))) + (+ (caddr einfuegepunkt) (- (caddr aus-welt) (caddr ein-welt))))) + (ssg-sepliste-dbg + (strcat "insert-block-ks-matrix " blockname + " skala=" (rtos (float skala) 2 4) + " einfuegepunkt=" (ssg-sepliste-dbg-pt einfuegepunkt) + " ks_ein_welt=" (ssg-sepliste-dbg-pt ein-welt) + " ks_aus_welt=" (ssg-sepliste-dbg-pt aus-welt) + " ausgang=" (ssg-sepliste-dbg-pt ausgang))) + ausgang + ) + (progn + (princ (ssg-text "vfc-warnung-ks-nicht-gefunden")) + einfuegepunkt + ) + ) +) + ;; ------------------------------------------------------------ ;; SEPLISTE: Separator-/AS-/ES-Reihenfolge als XDATA am fertigen Wrapper ;; ------------------------------------------------------------ diff --git a/Lisp/vf_core.lsp b/Lisp/vf_core.lsp index 4afba48..63cf9f1 100644 --- a/Lisp/vf_core.lsp +++ b/Lisp/vf_core.lsp @@ -218,6 +218,102 @@ (defun vf-motorseite-aktuell ( / ) (if (member *vf-motorseite* '("links" "rechts")) *vf-motorseite* "rechts")) +;; ============================================================ +;; VF-HOEHE JE SEGMENT (Attribut VF_HOEHE_m, Sivas 4433-4437) +;; ============================================================ +;; Sivas erwartet je Streckengruppe bis zu fuenf Variofoerderer-Hoehen. Ein +;; Eintrag gehoert zu EINEM VF-Segment (Koerper) - nicht zu einer ganzen +;; Foerdereinheit und nicht zur ganzen Kette (Nutzer-Korrektur 2026-10-21): +;; +;; Hoehe = Mittelwert aus KS_EIN und KS_AUS DIESES Segments. +;; +;; Eine Kette, die durch Vario-Boegen in drei Abschnitte geteilt ist, bekommt +;; dadurch drei Werte - die Liste laeuft Eintrag fuer Eintrag parallel zu +;; L_VF_m, VF_WINKEL und ANTRIEBFAHRTRICHTUNG. +;; +;; Erfasst wird an genau EINER Stelle: vfs-vf-koerper baut ein Segment, kennt +;; dessen KS_EIN als Eingangspunkt und liefert dessen KS_AUS zurueck. Alle +;; Modi (Standard, Etage, Linienzug) bauen ihre VF-Koerper darueber, deshalb +;; muss der verzweigte Bau-Pfad selbst nicht angefasst werden. +;; +;; Einheit: Meter mit 3 Nachkommastellen (wie L_VF_m), kommagetrennt ueber +;; vfl-join-komma - Reihenfolge = Bau-Reihenfolge. +(if (not (boundp '*vf-acc-vfhoehe*)) (setq *vf-acc-vfhoehe* '())) + +(defun vf-vfhoehe-reset () + (setq *vf-acc-vfhoehe* '())) + +;; Ein VF-Segment erfassen: z-ein = Z des KS_EIN, z-aus = Z des KS_AUS (mm). +;; Fehlt einer der Werte, wird NICHTS angehaengt - sonst verschoebe sich die +;; Liste gegen L_VF_m/VF_WINKEL und im Export landete eine Hoehe beim falschen +;; Foerderer. +(defun vf-vfhoehe-segment (z-ein z-aus) + (if (and (numberp z-ein) (numberp z-aus)) + (setq *vf-acc-vfhoehe* + (append *vf-acc-vfhoehe* (list (vf-meter-3 (/ (+ z-ein z-aus) 2.0))))))) + +;; Bequemes Paar fuer die Bau-Pfade: vor dem Einbau den Startpunkt merken, +;; danach mit dem Endpunkt abschliessen. Beide geben ihren Punkt zurueck, +;; lassen sich also ohne zusaetzliche lokale Variable einsetzen: +;; +;; (vf-vfhoehe-merke pt) +;; (setq pt (insert-inclined-scaled-block ...)) +;; (vf-vfhoehe-schliesse pt) +;; +;; Noetig, weil die VF-Segmente NICHT alle ueber vfs-vf-koerper laufen: die +;; horizontalen Zwischenstuecke und die Modus-2-Fuellstuecke bauen direkt mit +;; insert-inclined-scaled-block. Wurde dort nicht erfasst, fehlten ihre +;; Hoehen und VF_HOEHE_m war kuerzer als L_VF_m (realer Befund 2026-10-21: +;; L_VF_m hatte drei Eintraege, VF_HOEHE_m nur einen). +;; +;; REGEL: Jede Stelle, die (vfl-acc-vf-seg ...) aufruft, MUSS auch eine Hoehe +;; erfassen - sonst verschiebt sich die Liste gegen L_VF_m/VF_WINKEL und im +;; Sivas-Export landet eine Hoehe beim falschen Foerderer. +(if (not (boundp '*vf-vfhoehe-merk*)) (setq *vf-vfhoehe-merk* nil)) + +(defun vf-vfhoehe-merke (pt) + (setq *vf-vfhoehe-merk* (if (listp pt) (caddr pt) nil)) + pt) + +(defun vf-vfhoehe-schliesse (pt) + (vf-vfhoehe-segment *vf-vfhoehe-merk* (if (listp pt) (caddr pt) nil)) + (setq *vf-vfhoehe-merk* nil) + pt) + +;; SONDERFALL Standard/Etage: Hoehe ueber die GANZE Kette. +;; +;; Diese beiden Typen haben nur EINEN Motor und nur EINEN geraden +;; VF-Abschnitt (Nutzer-Vorgabe 2026-10-21). Statt des Segmentwerts gilt dort +;; der Mittelwert der ganzen Anlage: +;; Anfang = KS_EIN des AS-Elements (Startpunkt der Anlage) +;; Ende = KS_AUS des ES-Elements (Rueckgabewert der Einfuegefunktion) +;; +;; ERSETZT die Liste bewusst, statt anzuhaengen: vfs-vf-koerper hat beim Bau +;; bereits den Segmentwert gesammelt, der hier nicht gelten soll. Ergebnis ist +;; genau ein Eintrag. +;; +;; Gerechnet wird aus der GEBAUTEN Geometrie, nicht aus der Soll-Vorgabe +;; (anders als MONTAGEHOEHE_m, dessen hoehe-bis aus deltaH abgeleitet ist). +;; Beide Hoehen in mm. +(defun vf-vfhoehe-kette (z-anfang z-ende) + (if (and (numberp z-anfang) (numberp z-ende)) + (setq *vf-acc-vfhoehe* (list (vf-meter-3 (/ (+ z-anfang z-ende) 2.0)))) + (setq *vf-acc-vfhoehe* '()))) + +;; Millimeter -> Meter als String mit GENAU 3 Nachkommastellen. +;; +;; (rtos x 2 3) allein genuegt nicht: je nach DIMZIN schneidet es nachfolgende +;; Nullen ab und liefert "2.5" statt "2.500" bzw. "-1" statt "-1.000" (real +;; beobachtet im Testlauf). Fuer eine Merkmalsliste ist die feste Stellenzahl +;; aber gewollt, darum wird hier aufgefuellt - unabhaengig von der +;; Zeichnungseinstellung. +(defun vf-meter-3 (mm / s pos) + (setq s (rtos (/ (float mm) 1000.0) 2 3)) + (if (not (vl-string-search "." s)) (setq s (strcat s "."))) + (setq pos (vl-string-search "." s)) + (while (< (- (strlen s) pos 1) 3) (setq s (strcat s "0"))) + s) + ;; ============================================================ ;; TEIL 5: KS_EIN/KS_AUS EXTRAKTION ;; ============================================================ @@ -977,6 +1073,9 @@ (cons "L_VF_m" (rtos (/ L_VF 1000.0) 2 3)) (cons "ANTRIEBFAHRTRICHTUNG" richtung) (cons "VF_WINKEL" (itoa best-winkel)) + ;; Hoehe der (einen) Foerdereinheit - beim Standard-/Etage-Typ + ;; fuellen vfs-vf-entry/-exit genau einen Listeneintrag. + (cons "VF_HOEHE_m" (vfl-join-komma *vf-acc-vfhoehe*)) (cons "ANZAHL_SEPARATOR" "2") (cons "ANZAHL_SCANNER" (itoa n-scanner)) (cons "GERUEST_EINZELMODUL" geruest-einzelmodul) @@ -1013,6 +1112,10 @@ horizontal-info winkelwahl best-winkel L_GF L_VF L_GF1 L_GF2 verteilung-modus n-scanner hoehe-von hoehe-bis lastEnt vf-insert vf-endpunkt staustrecke-basis) + ;; VF-Hoehen-Akkumulator pro Anlage zuruecksetzen - sonst erbte die naechste + ;; Anlage die Hoehen der vorherigen. (Im Linienzug erledigt das + ;; vfl-acc-reset; Standard/Etage laufen nicht darueber.) + (vf-vfhoehe-reset) (setq berechne-fn (vf-registry-berechne-fn typ)) (setq einfuege-fn (vf-registry-einfuege-fn typ)) (setq ergebnis (apply berechne-fn (list deltaL deltaH richtung seite))) @@ -1064,6 +1167,15 @@ (setq vf-endpunkt (apply einfuege-fn (list deltaL deltaH richtung best-winkel L_GF1 L_GF2 L_VF startpunkt seite hz))) + ;; VF_HOEHE_m fuer Standard/Etage: Mittelwert ueber die GANZE Kette + ;; (AS-KS_EIN = startpunkt, ES-KS_AUS = Rueckgabe der Einfuegefunktion), + ;; weil es hier nur einen Motor und nur einen geraden VF-Abschnitt + ;; gibt. Ersetzt den beim Bau gesammelten Segmentwert - siehe + ;; vf-vfhoehe-kette. Der Linienzug laeuft NICHT hier durch und behaelt + ;; daher seine Segmentliste. + (vf-vfhoehe-kette (caddr startpunkt) + (if (and vf-endpunkt (listp vf-endpunkt)) + (caddr vf-endpunkt) nil)) (setq vf-insert (vf-block-erstellen typ seite vf-nummer n-scanner hoehe-von hoehe-bis deltaH deltaL L_VF L_GF1 L_GF2 diff --git a/Lisp/vf_konstanten.lsp b/Lisp/vf_konstanten.lsp index b9c3f82..7f4ed78 100644 --- a/Lisp/vf_konstanten.lsp +++ b/Lisp/vf_konstanten.lsp @@ -101,8 +101,8 @@ (if (null *vfk-etage-hz-winkel*) (setq *vfk-etage-hz-winkel* 30.0)) ;; Eckwinkel-Toleranz bei der automatischen Pfad-Klassifizierung (Modus 3, -;; vf-linienzug-modus3 -> vfl2-pruefe-eckwinkel). Aktiv referenziert in -;; vf_linienzug.lsp (beide Aufrufstellen von vfl2-pruefe-eckwinkel). +;; vf-linienzug-modus3 -> vfl-pfad-eckwinkel-pruefen). Aktiv referenziert in +;; vf_linienzug.lsp (beide Aufrufstellen von vfl-pfad-eckwinkel-pruefen). (if (null *vfk-eckwinkel-toleranz*) (setq *vfk-eckwinkel-toleranz* 5.0)) ;; Schwellwert (Grad), ab dem ein Frame noch als "flach" (~0 Grad) gilt. @@ -123,7 +123,7 @@ ;; (vf_etage.lsp Z.41) ;; - Linienzug-Kettenende/Body-Abschluss (nur Motor+1 Separator, KEIN ;; Umlenk-Anteil): 800 als rohes Literal an >10 Stellen in -;; vf_linienzug.lsp (vfl-body-zerlegung, vfl3-waehle-winkel, ...) +;; vf_linienzug.lsp (vfl-body-zerlegung, vfl-zsolve-winkel-waehlen, ...) ;; Diese vier NICHT vereinheitlichen ohne sorgfaeltige Pruefung - sie ;; entstehen aus unterschiedlicher Bauteil-Zusammensetzung (siehe jeweiliger ;; Kommentar im Modul), keine Kopiergleichheit. @@ -166,7 +166,7 @@ ;; Mindestlaenge (mm) fuer die 3-Grad-GF-Anschlussstrecke (GF1 am Einlauf ;; einer VF-Einheit). Bereits als *vfl-gf-min-laenge* in vf_linienzug.lsp ;; benannt (Wert 400.0) - hier nur gespiegelt. Das fruehere rohe 400.0- -;; Duplikat (br-gf1 in vfl3-*) referenziert jetzt *vfl-gf-min-laenge*. +;; Duplikat (br-gf1 in vfl-zsolve-*) referenziert jetzt *vfl-gf-min-laenge*. (if (null *vfk-gf-anschluss-mindestlaenge*) (setq *vfk-gf-anschluss-mindestlaenge* 400.0)) ;; ============================================================ @@ -303,6 +303,13 @@ ;; Ueberschreiten, kein Abbruch. Aktiv referenziert. (if (null *vfk-vf-laenge-max*) (setq *vfk-vf-laenge-max* 25000.0)) +;; Hoechstzahl Vario-Kurven INNERHALB einer VF-Einheit (zwischen Umlenk- und +;; Motorstation) - Nutzer-Regel 2026-10-22. Zwei Kurven bedeuten hoechstens +;; drei VF-Geraden im selben Lauf; danach muss die Einheit mit einer +;; Motorstation schliessen und eine neue mit Umlenkstation beginnen. +;; Geprueft in vfl-m2-lauf-grenzen (vf_linienzug.lsp, Modus 2). +(if (null *vfk-vf-kurven-max*) (setq *vfk-vf-kurven-max* 2)) + (setq *vfk-konstanten-geladen* t) (princ) (princ) diff --git a/Lisp/vf_linienzug.lsp b/Lisp/vf_linienzug.lsp index b7127b8..f60cdb2 100644 --- a/Lisp/vf_linienzug.lsp +++ b/Lisp/vf_linienzug.lsp @@ -82,7 +82,12 @@ ;; sichern): nil (normal) / "zurueck" (letztes Glied verwerfen und neu ;; fragen) / "abbrechen" (Bau hier stoppen, Baustand bleibt stehen). *vfl-wizard-abbruch-grund* nil - *vfl-abbruch-letztes-ent* nil)) + *vfl-abbruch-letztes-ent* nil) + ;; VF-Hoehen je SEGMENT (Attribut VF_HOEHE_m, Sivas 4433-4437). + ;; Die Liste fuellt vfs-vf-koerper beim Bau jedes geraden VF-Abschnitts + ;; (siehe vf-vfhoehe-segment in vf_core.lsp); hier wird sie - wie alle + ;; anderen Akkumulatoren - pro Kette zurueckgesetzt. + (vf-vfhoehe-reset)) ;; Alist-Zaehler erhoehen / lesen (defun vfl-inc-count (al key / e) @@ -377,6 +382,18 @@ (while (and q (= (car (car q)) "STEP")) (setq q (cdr q))) (if q (car (car q)) nil)) +;; WERT des naechsten Replay-Eintrags, ohne ihn zu verbrauchen (nil bei leerer +;; Queue). Gegenstueck zu vfl-replay-peek-art fuer den Fall, dass die ART +;; allein nicht reicht: wird an einer Stelle eine neue Frage GLEICHEN Typs +;; eingefuegt, unterscheidet nur noch der Wert alt von neu. Genutzt in +;; vf-linienzug-modus3, wo seit 2026-10-22 ein "AS bauen?" (STR "1"/"2") VOR +;; dem AS-Winkel (STR "30"/"90") steht - die beiden Wertemengen sind disjunkt, +;; ein Blick auf den Wert erkennt das Alt-Journal also eindeutig. +(defun vfl-replay-peek-wert ( / q) + (setq q *vfl-replay-queue*) + (while (and q (= (car (car q)) "STEP")) (setq q (cdr q))) + (if q (cdr (car q)) nil)) + ;; ============================================================ ;; TEIL 0b-1b: GLIED-SCHEMA (single source of truth) ;; ============================================================ @@ -408,6 +425,10 @@ ;; Fallback, falls vf_konstanten (aus irgendeinem Grund) nicht geladen wurde. (if (null *vfk-gf-bogen-winkel*) (setq *vfk-gf-bogen-winkel* '(30 60 90))) (if (null *vfk-as-es-winkel*) (setq *vfk-as-es-winkel* '("30" "90"))) +;; Grenzen einer VF-Einheit (Modus 2) - Fallback wie oben, falls +;; vf_konstanten.lsp nicht geladen wurde. +(if (null *vfk-vf-laenge-max*) (setq *vfk-vf-laenge-max* 25000.0)) +(if (null *vfk-vf-kurven-max*) (setq *vfk-vf-kurven-max* 2)) (setq *vfl-glied-schema* (list (cons "AS" @@ -666,13 +687,70 @@ ;; Generischer Zahlen-Dialog (ersetzt getreal). Rueckgabe: reale Zahl oder ;; nil (Abbruch/leer - wie getreal bei blossem Enter, von den Aufrufern ;; bereits ueberall mit einem Default abgefangen). -(defun vflw-zahl-impl (prompt / dat dcl-pfad dlg-wert ergebnis) +;; Vorgabewert aus einem Prompt ziehen, damit der Zahlen-Dialog sein Eingabe- +;; feld damit vorbelegen kann. Die Konsolen-Prompts tragen ihn seit jeher in +;; Klammern ("[3]", "<2154.0>"); im Dialog blieb das Feld trotzdem leer und +;; der Wert war nur in der Kopfzeile ablesbar (Nutzer-Wunsch 2026-10-22: +;; gleich eintragen). Bewusst GENERISCH statt an einer Aufrufstelle: dieselbe +;; Luecke hatten alle Zahlen-Dialoge des Assistenten. +;; +;; Gesucht wird die LETZTE Klammergruppe, deren Inhalt eine Zahl ist - damit +;; stoeren Klammern im uebrigen Text nicht. Beispiel: +;; "Neigungswinkel (Grad, 0 < Winkel <= 3) [3]: " -> "3" +;; Das "<" in "0 < Winkel" hat kein schliessendes ">" und faellt weg, "(Grad, +;; ...)" ist keine Zahl. Rueckgabe: Zahl als String oder nil. +(defun vflw-vorgabe-aus-prompt (prompt / i n c zu inhalt ergebnis) + (setq n (strlen prompt) i 1 ergebnis nil) + (while (<= i n) + (setq c (substr prompt i 1)) + (if (or (= c "[") (= c "<")) + (progn + ;; vl-string-search zaehlt 0-basiert, substr 1-basiert: die 1-basierte + ;; Position i der oeffnenden Klammer ist als 0-basierter Startwert + ;; genau die Stelle DAHINTER. + (setq zu (vl-string-search (if (= c "[") "]" ">") prompt i)) + (if zu + (progn + (setq inhalt (substr prompt (1+ i) (- zu i))) + (if (distof inhalt 2) (setq ergebnis inhalt)))))) + (setq i (1+ i))) + ergebnis) + +;; Segmentkopf fuer die GENERISCHEN Wizard-Dialoge. +;; +;; Die Segment-Gruppendialoge (vflw_seg_*) tragen "Segment i/n: ..." schon in +;; ihrer Kopfzeile. Sobald eine Frage aber auf einen generischen Dialog +;; zurueckfaellt - weil der Gruppendialog uebersprungen wurde oder weil es +;; eine Anschlussfrage ist (Separator vor/nach, Vario-Variante) -, stand dort +;; nur die Frage ohne Bezug: man sah nicht mehr, zu welchem Segment sie +;; gehoert, waehrend die Konsole es die ganze Zeit mitschreibt (Nutzer-Befund +;; 2026-10-22). *vflw-seg-kopf* wird von der Segment-Schleife gesetzt und +;; hier vorangestellt; ausserhalb der Schleife ist es nil und alles bleibt +;; wie bisher. +;; Trenner bewusst ": " und KEIN Zeilenumbruch: der Radio-Dialog baut seine +;; Kopfzeile als DCL-"label", und ein Umbruch im Label-String macht die +;; erzeugte DCL-Datei ungueltig. Die text-Tiles der anderen Dialoge sind +;; ohnehin einzeilig. *vflw-seg-kopf* traegt darum die KURZE Form +;; ("Segment 2/5"), nicht die volle Segmentbeschreibung - sonst wird die +;; Kopfzeile zu lang und schneidet ab. +(if (null *vflw-seg-kopf*) (setq *vflw-seg-kopf* nil)) +(defun vflw-kopf-text (prompt) + (if (and (boundp '*vflw-seg-kopf*) *vflw-seg-kopf*) + (strcat *vflw-seg-kopf* ": " (vflw-clean prompt)) + (vflw-clean prompt))) + +(defun vflw-zahl-impl (prompt / dat dcl-pfad dlg-wert ergebnis vorgabe) (setq dcl-pfad (vflw-dcl-pfad)) (setq dat (load_dialog dcl-pfad)) (if (not (new_dialog "vflw_zahl" dat)) (progn (if (and dat (>= dat 0)) (unload_dialog dat)) nil) (progn - (set_tile "kopf" (vflw-clean prompt)) + (set_tile "kopf" (vflw-kopf-text prompt)) + ;; Vorgabe ins Feld schreiben - "Ok Weiter" ohne Aenderung liefert damit + ;; denselben Wert wie frueher das leere Feld (dort griff der Default + ;; beim Aufrufer). + (setq vorgabe (vflw-vorgabe-aus-prompt prompt)) + (if vorgabe (set_tile "wert" vorgabe)) (action_tile "accept" "(setq dlg-wert (get_tile \"wert\")) (done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (action_tile "back" "(done_dialog 2)") @@ -698,7 +776,7 @@ (if (not (new_dialog "vflw_wahl" dat)) (progn (if (and dat (>= dat 0)) (unload_dialog dat)) "") (progn - (set_tile "kopf" (vflw-clean prompt)) + (set_tile "kopf" (vflw-kopf-text prompt)) (start_list "opts") (foreach opt optionen (add_list (vflw-clean opt))) (end_list) @@ -744,7 +822,7 @@ (setq zeilen (append (list "vflw_radio_dyn : dialog {" - (strcat " label = \"" (ssg-dcl-label-escape (vflw-clean prompt)) "\";")) + (strcat " label = \"" (ssg-dcl-label-escape (vflw-kopf-text prompt)) "\";")) (vfs-dcl-radio-gruppe-zeilen "vflwopt" "" sauber) (list " ok_cancel;" "}"))) (setq dcl-pfad (ssg-dcl-temp-schreiben "vflwradio" zeilen)) @@ -848,39 +926,136 @@ ;; im Aufrufer-Code) - beides braucht daher keinen eigenen Parameter. ;; Original-Reihenfolge/-Journal: vfl-in-string (Ja/Nein), dann bei Ja ;; vfl-in-value (Winkel) + vfl-in-string (Seite) - bleibt unveraendert. -(defun vflw-gruppe-as-impl (kopf-key / dat dcl-pfad ergebnis gsetzen gwinkel gseite) - (setq dat (load_dialog (vflw-dcl-pfad))) - (if (not (new_dialog "vflw_as" dat)) - (if (and dat (>= dat 0)) (unload_dialog dat)) - (progn - (set_tile "kopf" (vflw-clean (ssg-text kopf-key))) - (set_tile "setzen" "1") - (set_tile "winkel_90" "1") - (set_tile "seite_links" "1") - (action_tile "setzen" - "(mode_tile \"winkel_90\" (if (= (get_tile \"setzen\") \"1\") 0 1)) - (mode_tile \"winkel_30\" (if (= (get_tile \"setzen\") \"1\") 0 1)) - (mode_tile \"seite_links\" (if (= (get_tile \"setzen\") \"1\") 0 1)) - (mode_tile \"seite_rechts\" (if (= (get_tile \"setzen\") \"1\") 0 1))") - (action_tile "accept" - "(setq gsetzen (get_tile \"setzen\")) - (setq gwinkel (if (= (get_tile \"winkel_30\") \"1\") \"30\" \"90\")) - (setq gseite (if (= (get_tile \"seite_rechts\") \"1\") \"2\" \"1\")) - (done_dialog 1)") - (action_tile "cancel" "(done_dialog 0)") - (action_tile "back" "(done_dialog 2)") - (setq ergebnis (start_dialog)) - (unload_dialog dat) - (cond - ((= ergebnis 1) - (if (= gsetzen "1") - ;; Winkel-Slot wird von vfl-in-value (AS-Winkel, ueber - ;; vf-frage-element-winkel) konsumiert - der erwartet direkt - ;; "30"/"90", NICHT den Auswahl-Index wie beim Seite-Slot. - (vflw-pending-push-all (list "1" gwinkel gseite)) - (vflw-pending-push-all (list "2")))) - ((= ergebnis 2) (setq *vfl-wizard-abbruch-grund* "zurueck")) - (t (setq *vfl-wizard-abbruch-grund* "abbrechen")) +;; +;; achse-basis (NUR das AS-Element am Kettenanfang von Modus 1, Nutzer-Vorgabe +;; 2026-10-21; nil = wie bisher, sonst der Kettenstartpunkt): zeigt +;; zusaetzlich die Zufuehrungsachse (2. Punkt) im SELBEN +;; Bildschirm (Dialog vflw_as_achse) und legt deren Punkt als VIERTEN Wert in +;; die Pending-Queue - Reihenfolge wie im Bau-Ablauf: ja/nein, Winkel, Seite, +;; Achsen-Punkt. Beide Angaben zusammen legen das AS vollstaendig fest: der +;; 2. Punkt gibt die KS_EIN-Achse (Zufuehrung/Fahrtrichtung), links/rechts die +;; AS-Variante und damit die KS_AUS-Richtung der Kette. Wird KEIN Punkt +;; gewaehlt, geht ein nil in die Queue (Journal-Eintrag "NIL") und die Kette +;; laeuft wie bisher ueber die Richtung des naechsten Klicks. +;; Ohne achse-basis (ES-Element, Modi 2/3) bleibt alles unveraendert - +;; inklusive der ausgegrauten Seite beim 30-Grad-Element. +;; +;; Der Punkt-Button schliesst den Dialog (done_dialog 2) - (getpoint) direkt +;; aus einem action_tile-Callback funktioniert in BricsCAD nicht (siehe +;; vflw-g-punkt-str). Picken laeuft danach auf der Kommandozeile, und MIT +;; Punkt ist der Dialog fertig: er wird NICHT erneut gezeigt (Nutzer-Wunsch +;; 2026-10-22), anders als bei vflw-gruppe-punkt-hoehe-impl, wo nach dem Punkt +;; noch ein Zahlenfeld zu fuellen ist. Nur ein mit ESC abgebrochener Pick +;; zeigt den Dialog wieder. Fuer genau diesen Fall liest schon der Pick-Button +;; die Auswahl aus und der Dialog stellt sie beim Neuaufbau wieder her - +;; new_dialog setzt sonst alle Kacheln auf die DCL-Vorgaben (90/Links) zurueck. +(defun vflw-gruppe-as-impl (kopf-key achse-basis / + mit-achse dat dlg-name ergebnis + gsetzen gwinkel gseite gpunkt fertig) + ;; achse-basis traegt BEIDES: nil = kein Achsen-Dialog (ES, Modi 2/3), sonst + ;; der Kettenstartpunkt als Basis fuers Gummiband der Punktwahl - genau der + ;; Punkt, von dem aus die Zufuehrungsachse gemessen wird. + (setq mit-achse (if achse-basis t nil)) + (setq dlg-name (if mit-achse "vflw_as_achse" "vflw_as")) + (setq gsetzen "1" gwinkel "90" gseite "1" gpunkt nil fertig nil) + (while (not fertig) + (setq dat (load_dialog (vflw-dcl-pfad))) + (if (not (new_dialog dlg-name dat)) + (progn (if (and dat (>= dat 0)) (unload_dialog dat)) (setq fertig t)) + (progn + (set_tile "kopf" (vflw-clean (ssg-text kopf-key))) + (set_tile "setzen" gsetzen) + (set_tile (if (= gwinkel "30") "winkel_30" "winkel_90") "1") + (set_tile (if (= gseite "2") "seite_rechts" "seite_links") "1") + ;; Startpunkt IMMER zeigen - er ist der Ausgangspunkt der Achse und + ;; haengt waehrend der Punktwahl am Gummiband. Der 2. Punkt samt + ;; daraus entstehender Achsrichtung erscheint nur, wenn der Dialog + ;; ueberhaupt noch einmal kommt (abgebrochene Punktwahl, s.u.); nach + ;; einem erfolgreichen Pick schliesst der Dialog direkt, die Richtung + ;; meldet dann vfl-frage-as-winkel-seite-oder-achse auf der Konsole. + (if mit-achse + (progn + ;; Beim AS ist der Punkt der Kettenanfang, beim ES (Rueckwaerts- + ;; Bau) das Kettenende - die Beschriftung folgt der Kopfzeile. + (set_tile "start_anzeige" + (strcat (if (= kopf-key "vfl-es-setzen-frage") "Endpunkt: " "Startpunkt: ") + (vflw-g-punkt-str achse-basis))) + (if gpunkt + (set_tile "pt_anzeige" + (strcat (vflw-g-punkt-str gpunkt) + " -> Achse " + (rtos (vfl-planar-hz achse-basis gpunkt) 2 1) + " Grad"))))) + ;; Die Seite ist in JEDEM verbleibenden Anwendungsfall noetig und daher + ;; auch beim 30-Grad-Element waehlbar. Bis 2026-10-22 wurde sie dort + ;; ausgegraut und NICHT in die Pending-Queue gelegt - das war eine + ;; reine Modus-1-Regel (dort ersetzte die Zufuehrungsachse die + ;; Seitenfrage). Modus 1 hat seit 2026-10-21 seinen eigenen Dialog + ;; (vflw_as_achse), uebrig bleiben ES-Element sowie Modus 2/3 - und + ;; dort fuehrte die Ausgrauung dazu, dass bei 30 Grad ein ZWEITES + ;; Fenster nur fuer die Seite aufging (die nachfolgende Frage fand + ;; keinen Wert in der Queue). + (action_tile "setzen" + (strcat + "(mode_tile \"winkel_90\" (if (= (get_tile \"setzen\") \"1\") 0 1)) + (mode_tile \"winkel_30\" (if (= (get_tile \"setzen\") \"1\") 0 1)) + (mode_tile \"seite_links\" (if (= (get_tile \"setzen\") \"1\") 0 1)) + (mode_tile \"seite_rechts\" (if (= (get_tile \"setzen\") \"1\") 0 1))" + (if mit-achse + "(mode_tile \"pick\" (if (= (get_tile \"setzen\") \"1\") 0 1))" + ""))) + (if mit-achse + (action_tile "pick" + "(setq gsetzen (get_tile \"setzen\")) + (setq gwinkel (if (= (get_tile \"winkel_30\") \"1\") \"30\" \"90\")) + (setq gseite (if (= (get_tile \"seite_rechts\") \"1\") \"2\" \"1\")) + (done_dialog 2)")) + (action_tile "accept" + "(setq gsetzen (get_tile \"setzen\")) + (setq gwinkel (if (= (get_tile \"winkel_30\") \"1\") \"30\" \"90\")) + (setq gseite (if (= (get_tile \"seite_rechts\") \"1\") \"2\" \"1\")) + (done_dialog 1)") + (action_tile "cancel" "(done_dialog 0)") + ;; MIT Punkt-Button ist Code 2 belegt -> "Zurueck" nutzt 3 (wie in + ;; vflw_punkt_zahl/vflw-gruppe-punkt-hoehe-impl). + (action_tile "back" (if mit-achse "(done_dialog 3)" "(done_dialog 2)")) + (setq ergebnis (start_dialog)) + (unload_dialog dat) + ;; Punkt-Button: Dialog ist zu, die Zeichnung hat den Fokus, getpoint + ;; laeuft normal. MIT Punkt ist danach alles beisammen - der Ablauf + ;; geht direkt in den "Ok Weiter"-Zweig, der Dialog wird NICHT noch + ;; einmal gezeigt (Nutzer-Wunsch 2026-10-22: er stand vorher zweimal + ;; da, einmal vor und einmal nach der Punktwahl - alle uebrigen + ;; Angaben stehen beim Druck auf den Button ja schon fest, der Punkt + ;; ist die letzte offene). OHNE Punkt (Abbruch mit ESC) wird der + ;; Dialog dagegen erneut gezeigt, sonst waere nach einem Fehlklick + ;; die ganze Eingabe weg. + (if (and mit-achse (= ergebnis 2)) + (progn + (setq gpunkt (vfl-getpoint achse-basis (ssg-text "vfl-prompt-as-achse-p2"))) + (if gpunkt (setq ergebnis 1)))) + (cond + ((= ergebnis 1) + (setq fertig t) + (if (= gsetzen "1") + ;; Winkel-Slot wird von vfl-in-value (AS-Winkel, ueber + ;; vf-frage-element-winkel) konsumiert - der erwartet direkt + ;; "30"/"90", NICHT den Auswahl-Index wie beim Seite-Slot. + ;; Die Seite geht IMMER mit (siehe Kommentar oben), nur der + ;; Achsen-Punkt haengt am Dialogtyp. + (if mit-achse + (vflw-pending-push-all (list "1" gwinkel gseite gpunkt)) + (vflw-pending-push-all (list "1" gwinkel gseite))) + (vflw-pending-push-all (list "2")))) + ((= ergebnis (if mit-achse 3 2)) + (setq fertig t) (setq *vfl-wizard-abbruch-grund* "zurueck")) + ;; Code 2 steht hier NUR noch fuer "Punktwahl mit ESC abgebrochen" + ;; (mit Punkt ist ergebnis oben auf 1 gesetzt worden): fertig bleibt + ;; nil, die Schleife zeigt den Dialog mit den gemerkten Werten + ;; erneut - das ist KEIN Abbruch der ganzen Kette. + ((and mit-achse (= ergebnis 2)) nil) + (t (setq fertig t) (setq *vfl-wizard-abbruch-grund* "abbrechen")) + ) ) ) ) @@ -1087,16 +1262,22 @@ ;; separaten Dialog (vflw-gruppe-gf-steigend-untermodus-impl, weiter unten) - ;; der 3-Optionen-Dialog hier waere dort irrefuehrend (dritte Kachel ;; "Steigend" existiert in diesem Kontext gar nicht mehr). -(defun vflw-gruppe-gf-laenge-modus-impl ( / dat ergebnis gwahl) +;; mit-parallel: T, wenn "Parallel zum Kreisel" hier ueberhaupt baubar ist +;; (Kettenanfang MIT AS-Element UND festgelegter Zufuehrungsachse - ohne +;; Bezugsachse gibt es keinen Abstand). Sonst wird die Kachel deaktiviert, +;; statt sie anzubieten und die Antwort hinterher abzulehnen. +(defun vflw-gruppe-gf-laenge-modus-impl (mit-parallel / dat ergebnis gwahl) (setq dat (load_dialog (vflw-dcl-pfad))) (if (not (new_dialog "vflw_gf_laenge_modus" dat)) (if (and dat (>= dat 0)) (unload_dialog dat)) (progn (set_tile "kopf" (vflw-clean (ssg-text "vfl-gf-laenge-modus-header"))) + (if (not mit-parallel) (mode_tile "modus_parallel" 1)) (action_tile "accept" "(setq gwahl (cond ((= (get_tile \"modus_hoehe\") \"1\") \"2\") ((= (get_tile \"modus_steigend\") \"1\") \"3\") ((= (get_tile \"modus_qc\") \"1\") \"4\") + ((= (get_tile \"modus_parallel\") \"1\") \"5\") (t \"1\"))) (done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") @@ -1159,7 +1340,12 @@ (set_tile "kopf" (vflw-clean (ssg-text "vfl-sep-gf-header"))) (set_tile "sepvor" "0") (set_tile "sepnach" "0") - (if es-folgt-sep (mode_tile "sepnach" 1)) + ;; Gesperrte Kachel ohne Begruendung verwirrt - daher die Hinweiszeile + ;; (Nutzer-Wunsch 2026-10-23): sie sagt, dass der Separator zwischen GF + ;; und ES automatisch gesetzt wird. + (if es-folgt-sep + (progn (mode_tile "sepnach" 1) + (set_tile "sephinweis" (vflw-clean (ssg-text "vfl-sep-gf-es-automatisch"))))) (action_tile "accept" "(setq gsepvor (get_tile \"sepvor\")) (setq gsepnach (get_tile \"sepnach\")) (done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") @@ -1423,20 +1609,36 @@ (princ)) ;; --- Modus 2: Lauf-Anfang (NUR wenn der VF-Lauf der Pfadanfang ist) --- -;; "1"=ohne Umlenkstation (offener Anfang) / "2"=Umlenkstation direkt (kein -;; GF1/Separator) / "3"=Umlenkstation mit GF1+Separator (heutiges Standard- -;; verhalten). Plain ok_cancel, analog vflw-m2-lauf-abschluss-impl. -(defun vflw-m2-lauf-anfang-impl (kopf-txt / dat ergebnis gwahl) +;; Legt den selbstbeschreibenden WERT ab, nicht die Auswahl-Ziffer: +;; "mit-gf1" = Umlenkstation mit GF1+Separator (Regelfall, Option 1), +;; "direkt" = Umlenkstation direkt ohne GF1/Separator (Option 2), +;; "ohne" = ohne Umlenkstation, offener Anfang (Option 3). +;; Begruendung und Alt-Zuordnung: siehe vfl-m2-anfang-norm. +;; Plain ok_cancel, analog vflw-m2-lauf-abschluss-impl. +;; as-gesetzt: T, wenn der Nutzer vorher ein AS-Element gewaehlt hat. Dann +;; ist "Ohne Umlenkstation" gesperrt (Nutzer-Vorgabe 2026-10-23) - diese +;; Option setzt intern as-vorhanden wieder auf nil und wuerde das AS also +;; stillschweigend verwerfen; ausserdem braucht ein Lauf mit AS zwingend eine +;; Umlenkstation. Ohne AS bleibt sie waehlbar. +(defun vflw-m2-lauf-anfang-impl (kopf-txt as-gesetzt / dat ergebnis gwahl) (setq dat (load_dialog (vflw-dcl-pfad))) (if (not (new_dialog "vflw_m2_lauf_anfang" dat)) (if (and dat (>= dat 0)) (unload_dialog dat)) (progn (set_tile "kopf" (vflw-clean kopf-txt)) (set_tile "anfang_umlenk_gf1" "1") + (if as-gesetzt + (progn (mode_tile "anfang_offen" 1) + ;; Kurzform in Klammern (wie in der Konsolenliste unter der + ;; gesperrten Option) - der volle Satz passte nicht in die + ;; Zeile und wurde abgeschnitten. Als Messagebox-Text bleibt + ;; er in vfl-m2-anfang-offen-gesperrt stehen. + (set_tile "anfanghinweis" + (vflw-clean (ssg-text "vfl-m2-anfang-offen-gesperrt-zeile"))))) (action_tile "accept" - "(setq gwahl (cond ((= (get_tile \"anfang_offen\") \"1\") \"1\") - ((= (get_tile \"anfang_umlenk\") \"1\") \"2\") - (t \"3\"))) + "(setq gwahl (cond ((= (get_tile \"anfang_offen\") \"1\") \"ohne\") + ((= (get_tile \"anfang_umlenk\") \"1\") \"direkt\") + (t \"mit-gf1\"))) (done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq ergebnis (start_dialog)) @@ -1741,7 +1943,18 @@ ;; Original-Reihenfolge/-Journal im Loop: vfl-menu (Typ), dann bei GF ;; vfl-in-real (Neigung). Bei VF wird KEIN Neigungswert gefragt -> nur "2" ;; in die Pending-Queue. neigung-default: Vorbelegung Neigungsfeld (Grad). -(defun vflw-seg-linie-m2-impl (kopf-txt neigung-default / dat ergebnis gtyp gwert gsepvor gsepnach) +;; es-folgt-sep: T, wenn direkt hinter diesem Segment das ES-Element sitzt. +;; Dann ist "Separator NACH" gesperrt - vfl-insert-es-element bringt seinen +;; Separator immer selbst mit, ein zweiter stuende unmittelbar daneben +;; (Nutzer-Befund 2026-10-23, im Bau-Log zweimal +;; "Staustrecke_Separator_SP_300_mm" in Folge). Die Sperre gehoert GENAU +;; hierher: in Modus 2 sitzen die Separator-Kacheln in DIESEM Segment-Dialog, +;; nicht im separaten vflw_sep_gf von Modus 1. Ein zusaetzlicher Dialog waere +;; doppelt UND wuerde zwei ueberzaehlige Antworten in die Pending-Queue legen. +;; Die Antwort selbst bleibt erhalten (gesperrte Kachel = "Nein"), das +;; Journal-Format aendert sich also nicht. +(defun vflw-seg-linie-m2-impl (kopf-txt neigung-default es-folgt-sep / + dat ergebnis gtyp gwert gsepvor gsepnach) (setq dat (load_dialog (vflw-dcl-pfad))) (if (not (new_dialog "vflw_seg_linie_m2" dat)) (if (and dat (>= dat 0)) (unload_dialog dat)) @@ -1749,9 +1962,15 @@ (set_tile "kopf" (vflw-clean kopf-txt)) (set_tile "typ_gf" "1") (set_tile "wert" (rtos (float neigung-default) 2 1)) - ;; Neigungsfeld + Separator-Toggles nur bei GF aktiv. + (if es-folgt-sep + (progn (mode_tile "sep_nach" 1) + (set_tile "sephinweis" (vflw-clean (ssg-text "vfl-sep-gf-es-automatisch"))))) + ;; Neigungsfeld + Separator-Toggles nur bei GF aktiv - "NACH" bleibt + ;; dabei gesperrt, wenn das ES folgt (sonst machte der Wechsel + ;; GF/VF/GF die Sperre wieder zunichte). (action_tile "typ_gf" - "(mode_tile \"wert\" 0) (mode_tile \"sep_vor\" 0) (mode_tile \"sep_nach\" 0)") + (strcat "(mode_tile \"wert\" 0) (mode_tile \"sep_vor\" 0) (mode_tile \"sep_nach\" " + (if es-folgt-sep "1" "0") ")")) (action_tile "typ_vf" "(mode_tile \"wert\" 1) (mode_tile \"sep_vor\" 1) (mode_tile \"sep_nach\" 1)") (action_tile "accept" @@ -1915,6 +2134,16 @@ (defun vfl-in-point (base prompt) (vfl-in-value "PT" (function (lambda () (vfl-getpoint base prompt))))) +;; Wie vfl-in-point, aber der Cursor haengt auf einer ACHSE (SNAPANG+ORTHO, +;; siehe vfl-getpoint-achse) statt frei in der Ebene. Fuer Punkte, deren +;; Richtung bereits feststeht und bei denen der Klick nur noch die LAENGE +;; beisteuert - dort fuehrt ein frei schwenkendes Gummiband sonst in die Irre +;; (Nutzer-Befund 2026-10-22 beim Rueckwaerts-Bau: der Kettenanfang kann nur +;; auf der Achse des Separator-KS_EIN liegen, die Gummiband-Linie zeigte aber +;; schraeg daneben). Journal-Format unveraendert: ein "PT"-Eintrag. +(defun vfl-in-point-achse (base prompt hz) + (vfl-in-value "PT" (function (lambda () (vfl-getpoint-achse base prompt hz))))) + ;; Objektauswahl (Modus 2: Pfad-Objekte). Wie die anderen Wrapper repliziert ;; bzw. journalisiert - aber KEIN Wizard-Dialog (Objektwahl braucht wie ;; Punktwahl die Zeichnung, kein DCL-Fenster wuerde hier helfen). Beim Replay @@ -2030,6 +2259,33 @@ (setq *vflw-menu-radio* T) (vfl-in-string prompt)) +;; Wie vfl-menu-radio, journalisiert aber den WERT der Auswahl statt des +;; Auswahl-Index ("vor"/"rueck" statt "1"/"2"). Gebraucht, wo eine NEUE Frage +;; VOR eine bestehende gesetzt wird: mit einem Index waere beim Replay nicht +;; mehr unterscheidbar, ob der naechste Eintrag zur neuen oder zur alten Frage +;; gehoert - die Folgefrage benutzt ja dieselben "1"/"2". Mit einem eigenen +;; Wertevorrat sind die Mengen disjunkt und ein Blick per +;; vfl-replay-peek-wert genuegt. Entspricht der Konvention "Werte +;; selbstbeschreibend fuehren, nicht als positionsabhaengige Indizes" +;; (CLAUDE.md) - dieselbe Begruendung wie bei vfl-menu-winkel. +;; werte: Rueckgabewerte in der Reihenfolge der Labels. +(defun vfl-menu-strwert (prompt option-labels werte default-idx frage-key / + *vflw-menu-optionen* *vflw-menu-default* *vflw-menu-frage* + *vflw-menu-radio*) + (setq *vflw-menu-optionen* option-labels) + (setq *vflw-menu-default* default-idx) + (setq *vflw-menu-frage* frage-key) + (setq *vflw-menu-radio* T) + (vfl-in-value "STR" + (function (lambda ( / i k) + (setq i (if (and (vfl-wizard-mode-p) *vflw-menu-optionen*) + (vflw-radio-wahl (ssg-text frage-key) *vflw-menu-optionen* *vflw-menu-default*) + (getstring prompt))) + (setq k (if (and i (/= i "")) (atoi i) *vflw-menu-default*)) + (if (and (>= k 1) (<= k (length werte))) + (nth (1- k) werte) + (nth (1- *vflw-menu-default*) werte)))))) + (defun vfl-menu-int (prompt option-labels default-idx frage-key / *vflw-menu-optionen* *vflw-menu-default* *vflw-menu-frage*) (setq *vflw-menu-optionen* option-labels) @@ -2108,8 +2364,17 @@ (if (and v (member kind '("STR" "INT"))) (progn (setq label nil) - (if (and *vflw-menu-optionen* - (setq idx (if (= kind "INT") v (atoi v))) + ;; idx MUSS vor dem Vergleich eine Zahl sein. Bei kind "INT" wird der + ;; Wert unveraendert durchgereicht - steht dort (z.B. nach einem + ;; Queue-Versatz oder aus einem Alt-Journal) ein String oder eine + ;; Liste, brach (>= idx 1) frueher mit "bad argument type" ab und riss + ;; den ganzen Bau mit (realer Absturz 2026-10-23 in der Winkelwahl). + ;; Eine reine ECHO-Funktion darf das nie: im Zweifel wird der Wert + ;; eben roh ausgegeben statt als Options-Text. + (setq idx (cond ((= kind "INT") (if (numberp v) v nil)) + ((= (type v) 'STR) (atoi v)) + (t nil))) + (if (and *vflw-menu-optionen* idx (numberp idx) (>= idx 1) (<= idx (length *vflw-menu-optionen*))) (setq label (vflw-clean (nth (1- idx) *vflw-menu-optionen*)))) (vfl-echo-wahl (if label label (if (= kind "STR") v (vl-princ-to-string v)))) @@ -2679,8 +2944,20 @@ (defun vfl-journal-replay-start (forward-journal) (setq *vfl-replay-queue* forward-journal *vfl-journal* '() *vfl-seg-glied-letzte* 0) + ;; Herkunft des Journals zuruecksetzen - der Aufrufer traegt sie direkt + ;; danach nach, wenn er einen Block kennt (vfl-replay-kette-setzen). + (setq *vfl-replay-kette* nil) (if (boundp '*vflw-pending*) (setq *vflw-pending* nil))) +;; Ketten-Fundstelle fuer Meldungen waehrend eines Replays: Blockname der +;; gerade abgespielten Kette, "-" wenn unbekannt (Live-Bau). Die Aufrufer von +;; vfl-journal-replay-start setzen *vfl-replay-kette* direkt danach - den Namen +;; muessen sie VOR dem entdel des Altblocks gelesen haben, aus der Zeichnung +;; ist er danach nicht mehr zu holen. Rein diagnostisch, kein Bau-Pfad liest ihn. +(defun vfl-replay-kette-text ( / k) + (setq k (if (boundp '*vfl-replay-kette*) *vfl-replay-kette* nil)) + (if (and k (= (type k) 'STR) (/= k "")) k "-")) + ;; --- Glied-Zerlegung fuer den Editier-Dialog --- ;; Labels der Glieder (STEP-Marker) in Bau-Reihenfolge. (defun vfl-journal-glieder (forward-journal / out) @@ -3811,6 +4088,35 @@ ;; genommen (vlax-curve-*): fuer eine LINE ist das exakt die Linie selbst, fuer ;; eine Polylinie genau das angeklickte Segment - ohne Segment-Suche von Hand. ;; Rueckgabe: (pa pb) oder nil. +;; ============================================================ +;; AS-BASISLINIE: Zufuehrungsachse am Kettenanfang +;; ============================================================ +;; Der Startpunkt einer Kette mit AS-Element ist geometrisch KEINE Position, +;; sondern eine ACHSE: das AS sitzt an einer durchlaufenden Strecke (z.B. einer +;; Kreiselkette) und schleust daraus aus - seine KS_EIN-Achse MUSS auf dieser +;; Zufuehrungsachse liegen (Nutzer-Einsicht 2026-10-14, dieselbe wie beim +;; Endpunkt: "der Punkt ist eigentlich eine Linie"). +;; +;; Beim AS_Element_90 faellt das kaum auf, beim AS_Element_30 steht das Element +;; sichtbar falsch: vfl-insert-as-element richtet heute das KS_AUS entlang der +;; Kettenrichtung aus, wodurch das KS_EIN um den Blockschwenk verdreht steht. +;; +;; Auf welcher Seite der Zufuehrung das AS ausschleust, ergibt sich dann aus der +;; Lage des naechsten Kettenpunkts zur Basislinie - es muss nicht gefragt werden +;; (Nutzer-Entscheidung 2026-10-14). Im Punkt-Modus bleibt die Seitenfrage +;; dagegen unveraendert erhalten. +;; +;; Reine Rechnung, in tests/test_unit.lsp getestet: +;; Vorzeichen des 2D-Kreuzprodukts (p2-p1) x (ziel-p1). +;; > 0 -> ziel liegt LINKS der Richtung p1->p2 +;; < 0 -> rechts +;; Genau auf der Linie (0) gilt als "links" (willkuerlich, aber deterministisch - +;; der Aufrufer sollte diesen Fall ohnehin nicht erzeugen). +(defun vfl-seite-aus-lage (p1 p2 ziel / kr) + (setq kr (vfl-kreuz2 (- (car p2) (car p1)) (- (cadr p2) (cadr p1)) + (- (car ziel) (car p1)) (- (cadr ziel) (cadr p1)))) + (if (< kr 0.0) "rechts" "links")) + ;; Ziellinie durch ZWEI selbst gesetzte Punkte definieren. ;; ;; Allgemeiner als das Anklicken eines vorhandenen Objekts (Nutzer-Idee @@ -4665,6 +4971,656 @@ ) ) +;; ------------------------------------------------------------------ +;; "Parallel zum Kreisel weiterbauen" (5. Option der gf-laenge-modus-Frage, +;; intern "parallel"; Nutzer-Vorgabe 2026-10-21): der Regelfall an einer +;; Kreisel-Ausschleusung. Gebaut wird AS -> kurzes GF-Stueck (Standard- +;; Gefaelle) -> GF-Bogen, sodass die Kette danach PARALLEL zur +;; Zufuehrungsachse (= Kreisel-Laufrichtung) weiterlaeuft. +;; +;; EINZIGE Eingabe ist der ABSTAND, gemessen SENKRECHT zur Zufuehrungsachse +;; von KS_EIN des AS-Elements bis KS_AUS des Bogens. AS- und Bogen-Queranteil +;; sind durch die Bausteine fest; die Laenge des GF-Stuecks dazwischen ist die +;; einzige Unbekannte und folgt aus dem Abstand: +;; abstand = quer(AS) + L * sin(hz0 - hz_achse) + quer(Bogen) +;; (L = horizontale Laenge des GF-Stuecks wie bei vfl-insert-gf-segment). +;; +;; Warum hier KEIN Endpunkt geklickt wird: Zufuehrungsachse (2. Punkt) UND +;; AS-Seite stehen seit 2026-10-21 beide schon aus dem AS-Dialog fest (siehe +;; vfl-frage-as-winkel-seite-oder-achse) - die Achse gibt die KS_EIN-Richtung, +;; die Seite die AS-Variante und damit die KS_AUS-Richtung. Die Fahrtrichtung +;; nach dem AS ist dadurch bekannt, bevor irgendetwas gebaut ist. +;; +;; Bogenwahl NICHT fest verdrahtet: gesucht ist der Bogen, der den real +;; gemessenen Grundriss-Schwenk des AS-Blocks GENAU aufhebt +;; (as-turn + bogen-turn = 0, vf-element-plan-turn wie in vfl-qc-linie-mit-gf), +;; immer zur GEGENSEITE der AS-Seite. Mit den vorhandenen Bausteinen ergibt +;; das genau die Vorgabe-Tabelle: AS 30 Grad -> 30-Grad-Bogen, AS 90 Grad -> +;; 90-Grad-Bogen (AS links -> Bogen rechts und umgekehrt). Genau DARUM wird +;; gemessen statt eine Tabelle gepflegt: die Zuordnung folgt den Bloecken, +;; auch wenn ein Element anders vermessen ist als erwartet. Passt kein Bogen +;; in die Toleranz, wird das gemeldet statt schief gebaut. +;; +;; Quer-Anteile werden GEMESSEN, nicht gerechnet: AS ueber sein echtes KS_EIN +;; (der Klickpunkt ist der Block-URSPRUNG, KS_EIN liegt beim Drehteller- +;; Anschluss seitlich versetzt - siehe vfl-block-ks-punkt), der Bogen ueber +;; einen Probe-Bau, der danach wieder geloescht wird (dasselbe Prinzip und +;; derselbe Grund wie in vfl-qc-linie-mit-gf: die Bogen-Bausteine haengen an +;; einem bereits geneigten Rahmen, Messen ist zuverlaessiger als eine weitere +;; Rotationsformel). Der Probe-Bau haengt nur an der ANKUNFTS-Orientierung, +;; nicht an der Position - er liefert daher denselben Versatz wie der spaetere +;; echte Bau hinter dem GF-Stueck. +;; +;; KEIN Separator zwischen GF-Stueck und Bogen (Nutzer-Entscheidung +;; 2026-10-21) - der Abstand wird dadurch exakt getroffen. +;; +;; Die Kettenende-Frage stellt dieser Zweig SELBST, und zwar NACH dem Bau +;; (anders als die Zweige A/B/C, die sie vorab brauchen, um den ES-Fussabdruck +;; von der gepickten Laenge abzuziehen): hier gibt es keine gepickte Laenge, +;; von der etwas abzuziehen waere, und erst nach dem Bogen steht fest, wo die +;; Kette weiterlaeuft. +;; +;; Nutzt - wie vfl-qc-linie-mit-gf - die dynamisch sichtbaren Lokalvariablen +;; des Aufrufers vf-linienzug-modus (frame, p-aktuell, as-seite, as-vorhanden, +;; kettenanfang, fertig, es-seite, anzahl-gf, letzter-typ, +;; gf-kettenende-antwort). +;; +;; Die beiden Rechenkerne stehen bewusst als eigene, zeichnungsfreie +;; Funktionen davor (vfl-par-bogen-waehlen / vfl-par-gf-laenge) - so sind sie +;; in tests/test_unit.lsp ohne Zeichnung pruefbar (tu-tests-vfl-parallel). + +;; Welcher Bogen hebt den AS-Schwenk auf? kandidaten ist eine Liste +;; (winkel . plan-turn) der real vorhandenen Bogen-Varianten EINER Seite; +;; gesucht ist der mit dem kleinsten |as-turn + plan-turn| innerhalb von tol. +;; Rueckgabe: Winkel (Int) oder nil, wenn keiner passt. +(defun vfl-par-bogen-waehlen (as-turn kandidaten tol / best best-diff diff kand) + (setq best nil best-diff nil) + (foreach kand kandidaten + (setq diff (abs (+ as-turn (cdr kand)))) + (if (or (null best-diff) (< diff best-diff)) + (setq best-diff diff best (car kand)))) + (if (and best (<= best-diff tol)) best nil)) + +;; Horizontale Laenge des GF-Stuecks zwischen AS und Bogen. +;; abstand = gewuenschter Abstand (Betrag, senkrecht zur Zufuehrungsachse) +;; perp-as = Querversatz AS-KS_EIN -> AS-KS_AUS (vorzeichenbehaftet) +;; perp-bog = Querversatz des Bogens (KS_EIN -> KS_AUS, vorzeichenbehaftet) +;; k = sin(hz0 - hz-achse), Querversatz je Laengeneinheit GF +;; Die Seite steht ueber die AS-Variante schon fest - sie steckt im Vorzeichen +;; von k. Der Nutzer tippt deshalb einen reinen Betrag, das Ziel-Vorzeichen +;; wird daraus abgeleitet. Rueckgabe: Laenge (kann <= 0 sein, wenn der Abstand +;; kleiner ist als der feste Anteil von AS + Bogen) oder nil, wenn das AS gar +;; nicht aus der Achse schwenkt (k ~ 0, keine Loesung). +(defun vfl-par-gf-laenge (abstand perp-as perp-bog k / s) + (if (< (abs k) 1e-6) + nil + (progn + (setq s (if (> k 0.0) 1.0 -1.0)) + (/ (- (* (abs abstand) s) perp-as perp-bog) k)))) + +(defun vfl-gf-parallel-kreisel ( / as-w as-turn bogen-seite bogen-winkel + kandidaten tol w + abstand abstand-min + checkpoint as-ent p-ein hz-a rad-a nx ny hz0 k + perp-as perp-bogen l-gf perp-ist rad3 + acc-gfbogen-save acc-sep-save basis-frame + probe-checkpoint probe-frame dxp dyp + hz-nach erg-bogen) + (if (or (not kettenanfang) (not as-vorhanden) (null *vfl-as-basis-hz*)) + (vfl-meldung (ssg-text "vfl-par-nur-kettenanfang")) + (progn + (setq as-w (vfl-as-winkel)) + (setq as-turn (vf-element-plan-turn (strcat "AS_Element_" as-w "_" as-seite))) + ;; Bogen zur Gegenseite der AS-Seite; Winkel aus den real vorhandenen + ;; Varianten, der den AS-Schwenk am besten aufhebt. + (setq bogen-seite (if (= as-seite "rechts") "links" "rechts")) + (setq kandidaten '()) + (foreach w *vfk-gf-bogen-winkel* + (setq kandidaten + (cons (cons w (vf-element-plan-turn (gf-bogen-blockname w bogen-seite))) + kandidaten))) + (setq tol 2.0) ; gleiche Toleranz wie in vfl-qc-linie-mit-gf + (setq bogen-winkel (vfl-par-bogen-waehlen as-turn (reverse kandidaten) tol)) + (if (null bogen-winkel) + (vfl-meldung (ssg-textf "vfl-par-kein-bogen" + (list (rtos as-turn 2 1) bogen-seite))) + (progn + ;; --- Abstand abfragen (VOR dem Bau: ein Abbruch laesst dann + ;; garantiert nichts Halbfertiges stehen) --- + (setq abstand (vfl-in-real (ssg-text "vfl-par-prompt-abstand"))) + (if (or (null abstand) (<= (abs abstand) 0.0)) + (princ (ssg-text "vfl-abgebrochen")) + (progn + (setq checkpoint (ssg-lastent-ohne-attribute)) + ;; --- AS bauen: KS_EIN-Achse auf die Zufuehrungsachse --- + (setq frame (vfl-insert-as-element-auf-achse "GF" p-aktuell + *vfl-as-basis-hz* as-seite)) + (setq as-ent (entlast)) + (setq p-ein (if as-ent + (vfl-block-ks-punkt (vlax-ename->vla-object as-ent) "KS_EIN") + nil)) + (if (null p-ein) (setq p-ein p-aktuell)) + (setq hz-a *vfl-as-basis-hz*) + (setq rad-a (* (float hz-a) (/ pi 180.0))) + (setq nx (- (sin rad-a)) ny (cos rad-a)) ; Normale zur Zufuehrungsachse + (setq hz0 (car (frame->hz-winkel frame))) ; Fahrtrichtung nach dem AS + (setq perp-as (+ (* (- (car (car frame)) (car p-ein)) nx) + (* (- (cadr (car frame)) (cadr p-ein)) ny))) + ;; --- Bogen probeweise bauen, Querversatz messen, wieder weg --- + ;; WICHTIG - die Probe muss auf GENAU dem Rahmen sitzen, auf dem + ;; der echte Bogen spaeter steht, sonst misst sie eine andere + ;; Lage. Das ist NICHT der Ausgangsrahmen des AS-Elements: der + ;; traegt die reale Neigung des AS-KS_AUS, waehrend der Bogen + ;; hinter dem GF-Stueck auf dessen IDEALISIERTEM Rahmen sitzt + ;; (make-frame-from-dir + hz-winkel->xu mit genau hz0 und dem + ;; Standard-Gefaellewinkel, siehe vfl-insert-gf-segment). Realer + ;; Befund 2026-10-22 (BricsCAD): auf dem AS-Rahmen gemessen fiel + ;; der Probe-Bogen 31.3 mm statt 22.6 mm - die daraus falsche + ;; Verdrehung liess den Abstand um 0.5 mm danebenliegen. Mit dem + ;; idealisierten Rahmen sind Probe und echter Bau per + ;; Konstruktion identisch. + ;; vfl-insert-gf-bogen-block zaehlt intern mit (GF_Bogen_L/R_xx) - + ;; die Probe darf diese Zaehler nicht verfaelschen. + (setq basis-frame + (make-frame-from-dir (car frame) + (hz-winkel->xu hz0 (fix *vfk-gefaelle-winkel*)))) + (setq acc-gfbogen-save *vfl-acc-gfbogen* acc-sep-save *vfl-acc-separator*) + (setq probe-checkpoint (ssg-lastent-ohne-attribute)) + (setq probe-frame (vfl-insert-gf-bogen-block basis-frame bogen-winkel bogen-seite)) + (setq dxp (- (car (car probe-frame)) (car (car basis-frame)))) + (setq dyp (- (cadr (car probe-frame)) (cadr (car basis-frame)))) + (vfl-loesche-seit probe-checkpoint) + (setq *vfl-acc-gfbogen* acc-gfbogen-save *vfl-acc-separator* acc-sep-save) + (setq perp-bogen (+ (* dxp nx) (* dyp ny))) + ;; --- GF-Laenge aus dem Abstand loesen (reiner Kern) --- + (setq k (sin (* (- hz0 hz-a) (/ pi 180.0)))) + (setq l-gf (vfl-par-gf-laenge abstand perp-as perp-bogen k)) + (if (null l-gf) + (progn + (vfl-meldung (ssg-text "vfl-par-kein-versatz")) + (vfl-loesche-seit checkpoint)) + (progn + ;; Kleinster erreichbarer Abstand = der von AS und Bogen + ;; allein (GF-Stueck = 0). + (setq abstand-min (abs (+ perp-as perp-bogen))) + (if (< l-gf 1.0) + (progn + (vfl-meldung (ssg-textf "vfl-par-zu-klein" + (list (rtos (abs abstand) 2 1) (rtos abstand-min 2 1)))) + (vfl-loesche-seit checkpoint)) + (progn + (setq rad3 (* (float (fix *vfk-gefaelle-winkel*)) (/ pi 180.0))) + (setq frame (vfl-insert-gf-segment (car frame) hz0 l-gf + (fix *vfk-gefaelle-winkel*))) + (vfl-acc-gf-seg (/ l-gf (cos rad3)) (fix *vfk-gefaelle-winkel*)) + (setq anzahl-gf (1+ anzahl-gf)) + (setq frame (vfl-insert-gf-bogen-block frame bogen-winkel bogen-seite)) + (setq p-aktuell (car frame)) + (setq letzter-typ "GF") + (setq perp-ist (abs (+ (* (- (car p-aktuell) (car p-ein)) nx) + (* (- (cadr p-aktuell) (cadr p-ein)) ny)))) + (princ (ssg-textf "vfl-par-erfolg" + (list (rtos l-gf 2 1) (itoa bogen-winkel) bogen-seite + (rtos perp-ist 2 1)))) + ;; --- Kettenende/ES (siehe Kopfkommentar: hier NACH dem Bau) --- + (setq hz-nach (car (frame->hz-winkel frame))) + (setq gf-kettenende-antwort (vfl-frage-ist-kettenende)) + (cond + ((= gf-kettenende-antwort "1") + (setq es-seite (vfl-frage-es-seite nil)) + ;; Uebergangsbogen pruefen (No-Op, wenn die Kette hier + ;; ohnehin auf der Fallend-Basis ankommt) - dieselbe + ;; Absicherung wie im gemeinsamen Abschluss der Zweige + ;; A/B/C. + (setq erg-bogen (vfl-gf-bogen-uebergang frame *vfk-gefaelle-winkel*)) + (setq frame (car erg-bogen)) + (setq frame (vfl-insert-es-element "GF" frame hz-nach + *vfk-gefaelle-winkel* (caddr (car frame)) es-seite)) + (setq p-aktuell (car frame)) + (setq fertig t)) + ((= gf-kettenende-antwort "2") (setq fertig t)) + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) + ) +) + +;; ================================================================== +;; RUECKWAERTS BAUEN (Modus 1, Nutzer-Vorgabe 2026-10-22) +;; ================================================================== +;; Normalfall ist "vorwaerts": der geklickte Punkt ist der KettenANFANG, dort +;; sitzt das AS-Element, und die Kette waechst von da weg - die Endhoehe ist +;; das Ergebnis. Manchmal steht aber das ANDERE Ende fest (typisch: der +;; Anschluss an einen Kreisel). Dann ist der geklickte Punkt das KS_AUS des +;; ES-Elements, und gebaut wird von dort nach hinten. +;; +;; ANKER-ENTSCHEIDUNG (Nutzer, 2026-10-22): das ES wird ZUERST mit seinem +;; KS_AUS exakt auf den geklickten Punkt gesetzt; alles Weitere wird daraus +;; rueckwaerts bestimmt. Eine Rest-Ungenauigkeit landet damit am +;; Kettenanfang, wo sie nicht stoert - genau spiegelbildlich zum +;; Vorwaerts-Fall, wo das AS-KS_EIN der exakte Anker ist. +;; +;; Umfang zunaechst bewusst klein (Nutzer-Vorgabe): ES + EIN GF-Stueck +;; (+ bei "Parallel zum Kreisel" ein Bogen davor), danach ist die Kette +;; fertig. Die Spiegel-Frage "Ist das der Kettenanfang?" (mit optionalem +;; AS-Element und Weiterbauen) ist bewusst NICHT eingebaut. +;; +;; Alle Bausteine sind GERADE bzw. haben einen messbaren Fussabdruck, darum +;; wird nirgends "rueckwaerts eingefuegt": es wird der jeweilige +;; START-Punkt ausgerechnet und dann ganz normal vorwaerts platziert. Das +;; Ergebnis ist identisch, nutzt aber die erprobten Einfuege-Primitiven. + +;; ES-Winkel + Seite + Abfuehrungsachse (2. Punkt) - Spiegelbild von +;; vfl-frage-as-winkel-seite-oder-achse. Die Achse ist hier NICHT optional: +;; ohne Richtung laesst sich das ES gar nicht platzieren (vorwaerts kommt die +;; Richtung aus dem ersten Streckenklick, den es hier nicht gibt). +;; Setzt *vfl-es-winkel*, die ES-Masse (vf-set-es-masse) und +;; *vfl-es-basis-hz*. Rueckgabe: Seite ("links"/"rechts") oder nil, wenn +;; keine brauchbare Achse gewaehlt wurde. +;; Fahrtrichtung ueber einen zweiten Punkt. Rueckgabe: hz in Grad oder nil. +;; Eigene kleine Schale, weil sie an ZWEI Stellen gebraucht wird: mit +;; ES-Element (dort bestimmt sie zugleich dessen Lage) und ohne ES-Element +;; (dann endet die Kette direkt am geklickten Punkt, die Richtung muss aber +;; trotzdem bekannt sein - vorwaerts kaeme sie aus dem ersten Streckenklick, +;; den es rueckwaerts nicht gibt). +(defun vfl-frage-fahrtrichtung-p2 (basis / p2) + (setq p2 (vfl-in-point basis (ssg-text "vfl-prompt-es-achse-p2"))) + (if (and p2 + (or (> (abs (- (car p2) (car basis))) 1e-9) + (> (abs (- (cadr p2) (cadr basis))) 1e-9))) + (progn + (setq *vfl-es-basis-hz* (vfl-planar-hz basis p2)) + (princ (ssg-textf "vfl-es-basislinie-info" (list (rtos *vfl-es-basis-hz* 2 1)))) + *vfl-es-basis-hz*) + (progn (princ (ssg-text "vfl-basislinie-punkte-gleich")) nil))) + +(defun vfl-frage-es-winkel-seite-achse (startpunkt / antwort es-seite) + (setq *vfl-es-basis-hz* nil) + (princ (ssg-text "vf-winkel-ein-header")) + (princ (ssg-text "vf-winkel-90")) + (princ (ssg-text "vf-winkel-30")) + (setq *vfl-es-winkel* + (vfl-in-value "STR" + (function (lambda () (vf-frage-element-winkel "vf-winkel-ein-header"))))) + (princ (ssg-text "gf-seite-ein-header")) + (princ (ssg-text "gf-seite-links")) + (princ (ssg-text "gf-seite-rechts")) + (setq antwort (vfl-menu (ssg-text "prompt-wahl-1-2") + (list (ssg-text "gf-seite-links") (ssg-text "gf-seite-rechts")) 1 + "gf-seite-ein-header")) + (setq es-seite (if (= antwort "2") "rechts" "links")) + (vf-set-es-masse *vfl-es-winkel* es-seite) + (if (vfl-frage-fahrtrichtung-p2 startpunkt) es-seite nil)) + +;; Bau-Grenzen EINER VF-Einheit pruefen (Nutzer-Regel 2026-10-22). +;; +;; Eine VF-Einheit ist alles zwischen Umlenkstation und Motorstation. Sie darf +;; - hoechstens max-kurven Vario-Kurven enthalten (Vorgabe 2, also maximal +;; drei VF-Geraden), und +;; - max-laenge nicht ueberschreiten (Vorgabe *vfk-vf-laenge-max* = 25 m). +;; Gemessen wird die Pfadlaenge der Segmente des Laufs - konservativ, weil +;; GF1/GF2 darin noch mitzaehlen, obwohl sie ausserhalb von Umlenk..Motor +;; liegen. Lieber etwas zu frueh warnen als eine nicht baubare Einheit. +;; +;; Reiner Listen-Kern ohne Zeichnung: plan ist die Klassifizierungs-Liste +;; ("Linie"/"Bogen" ...), vf-start/vf-ende grenzen den Lauf ein. +;; +;; Rueckgabe: (laenge kurven teil-idx) +;; laenge - aufsummierte Pfadlaenge des Laufs +;; kurven - Zahl der Vario-Kurven darin +;; teil-idx - nil, wenn alles in den Grenzen liegt; sonst der Index des +;; BOGENS, an dem geteilt werden sollte (dort einen GF-Bogen +;; setzen, damit zwei Einheiten entstehen). Gibt es keinen +;; geeigneten Bogen, ist teil-idx -1 ("zu lang, nicht teilbar"). +(defun vfl-m2-lauf-grenzen (plan vf-start vf-ende max-laenge max-kurven / + i seg summe kurven teil-idx) + (setq i vf-start summe 0.0 kurven 0 teil-idx nil) + (while (<= i vf-ende) + (setq seg (nth i plan)) + (if (= (car seg) "Bogen") + (progn + ;; An DIESEM Bogen teilen, wenn die Einheit davor schon voll ist - + ;; entweder weil sie die erlaubten Kurven schon hat oder weil die + ;; Laenge bis hierher die Grenze reisst. + (if (and (null teil-idx) + (or (>= kurven max-kurven) (> summe max-laenge))) + (setq teil-idx i)) + (setq kurven (1+ kurven)))) + (setq summe (+ summe (caddr seg))) + (setq i (1+ i))) + ;; Grenze gerissen, aber kein Bogen zum Teilen gefunden (reine Gerade oder + ;; alle Boegen liegen zu frueh): nicht teilbar. + (if (and (null teil-idx) (or (> summe max-laenge) (> kurven max-kurven))) + (setq teil-idx -1)) + (list summe kurven teil-idx)) + +;; Formatmarke der Modus-2-Plan-Phase schreiben bzw. beim Replay erkennen. +;; Rueckgabe: T = neues Format (Bogentyp wird auch nach einer VF-Geraden +;; gefragt), nil = Alt-Journal ohne diese Antwort. +;; +;; Live wird die Marke IMMER geschrieben (ohne Frage an den Nutzer, der +;; livefn liefert sie einfach). Beim Replay wird sie NUR konsumiert, wenn sie +;; auch dasteht - sonst bliebe die Queue aus dem Takt. Dasselbe Muster wie +;; die Richtungswahl in Modus 1, nur dass hier gar keine Nutzerfrage dahinter +;; steckt: es geht allein um die Unterscheidbarkeit der Journal-Formate. +(defun vfl-m2-formatmarke ( / ) + (if (and *vfl-replay-queue* (not (equal (vfl-replay-peek-wert) "m2v2"))) + nil + (progn (vfl-in-value "STR" (function (lambda () "m2v2"))) t))) + +;; --- Modus 2: Lauf-Anfang, Antwortwerte ------------------------------------- +;; Die Antwort wird seit 2026-10-23 als selbstbeschreibender WERT journalisiert +;; ("mit-gf1"/"direkt"/"ohne"), nicht mehr als Auswahl-Ziffer. Anlass war die +;; Umstellung der Dialogreihenfolge (Regelfall zuerst): mit einer Ziffer haette +;; dieselbe "3" vor und nach der Umstellung Verschiedenes bedeutet, eine alte +;; Kette waere beim Doppelklick still mit einer ANDEREN Anfangsvariante neu +;; gebaut worden. Mit eigenem Wertevorrat ist jedes kuenftige Umsortieren +;; folgenlos (CLAUDE.md: "Werte selbstbeschreibend fuehren, nicht als +;; positionsabhaengige Indizes/Flags"). +;; Reihenfolge = Reihenfolge der Dialog-/Konsolenoptionen 1..3. +(setq *vfl-m2-anfang-werte* '("mit-gf1" "direkt" "ohne")) + +;; Alt -> Neu (nur fuer Bestandsketten): die Ziffern der ALTEN Optionsfolge +;; 1 = Ohne Umlenkstation, 2 = Umlenkstation direkt, 3 = Umlenkstation mit GF1. +;; Bewusst als Tabelle und nicht als cond-Kette: die Zuordnung ist aus dem +;; heutigen Code nicht mehr ableitbar, und ein Test kann sie direkt durchlaufen. +(setq *vfl-m2-anfang-alt* '(("1" . "ohne") ("2" . "direkt") ("3" . "mit-gf1"))) + +;; Journal-/Antwortwert -> kanonischer Wert, nil bei unbekanntem Wert. +;; nil heisst fuer den Aufrufer: ABBRECHEN. Ein Rueckfall auf eine geratene +;; Anfangsvariante waere genau der lautlose Fehlaufbau, den die Wertumstellung +;; verhindern soll - lieber ein harter Abbruch mit Fundstelle. +(defun vfl-m2-anfang-norm (wert / tr) + (cond + ((not (and wert (= (type wert) 'STR))) nil) + ((member wert *vfl-m2-anfang-werte*) wert) + ((setq tr (assoc wert *vfl-m2-anfang-alt*)) (cdr tr)) + (t nil))) + +;; Punkt um eine Strecke ENTGEGEN der Fahrtrichtung zurueckversetzen. +;; laenge-planar = horizontale (Grundriss-)Laenge, winkel = Gefaelle in Grad +;; (positiv = fallend). Vorwaerts gilt +;; P_next = P + (L*cos(hz), L*sin(hz), -L*tan(winkel)) +;; - rueckwaerts also mit umgekehrtem Vorzeichen. Damit liegt der Startpunkt +;; eines Bausteins fest, der an einem BEKANNTEN Endpunkt ankommen soll. +(defun vfl-rueck-punkt (p hz laenge-planar winkel / rad radw) + (setq rad (* (float hz) (/ pi 180.0))) + (setq radw (* (float winkel) (/ pi 180.0))) + (list (- (car p) (* laenge-planar (cos rad))) + (- (cadr p) (* laenge-planar (sin rad))) + (+ (caddr p) (* laenge-planar (/ (sin radw) (cos radw)))))) + +;; ES-Element so platzieren, dass sein KS_AUS EXAKT auf p-ende liegt und von +;; dort in Richtung hz-achse weiterzeigt; davor den Separator, den das +;; ES-Element im Vorwaerts-Bau immer mitbringt (vfl-insert-es-element). +;; +;; insert-block-mixed-to-ks dreht den Block IMMER so, dass sein KS_EIN auf den +;; uebergebenen Rahmen passt - xy-ref/z-ref steuern nur die Verschiebung. +;; Fuer "KS_AUS zeigt entlang hz-achse" muss der Rahmen also um den +;; Grundriss-Schwenk des ES zurueckgedreht werden: hz-ein = hz-achse - es-turn +;; (dieselbe Rechnung wie in vfl-insert-as-element, nur andersherum gebraucht). +;; Rueckgabe: (frame-vor-dem-Separator hz-ein) - der Punkt, an dem das +;; GF-Stueck ankommen muss. +(defun vfl-rueck-es-setzen (es-w es-s p-ende hz-achse / + es-turn hz-ein w rad-w frame-ziel p-ein p-sep) + (setq es-turn (vf-element-plan-turn (strcat "ES_Element_" es-w "_" es-s))) + (setq hz-ein (- hz-achse es-turn)) + (setq w (fix *vfk-gefaelle-winkel*)) + ;; Zielrahmen traegt die Standard-Fallneigung: so kommt die Kette am ES an + ;; (vgl. vfl-insert-es-element, das den ES ebenfalls auf den geneigten + ;; Rahmen setzt). + (setq frame-ziel (make-frame-from-dir p-ende (hz-winkel->xu hz-ein w))) + (insert-block-mixed-to-ks (strcat "ES_Element_" es-w "_" es-s) + frame-ziel (caddr p-ende) "KS_AUS" "KS_AUS") + ;; KS_EIN des GERADE gesetzten ES messen - der Versatz KS_EIN->KS_AUS ist + ;; beim ES seitlich und laesst sich nicht aus dem Klickpunkt ableiten. + (setq p-ein (vfl-block-ks-punkt (vlax-ename->vla-object (entlast)) "KS_EIN")) + (if (null p-ein) (setq p-ein p-ende)) + ;; Separator rueckwaerts davor: sein KS_AUS trifft das ES-KS_EIN. + (setq p-sep (vfl-rueck-punkt p-ein hz-ein + (* *vfk-separator-laenge* (cos (* (float w) (/ pi 180.0)))) w)) + (gf-insert-hz-with-ks "Staustrecke_Separator_SP_300_mm" p-sep hz-ein w + *vfk-separator-laenge* 0) + (if (boundp '*vfl-acc-separator*) + (setq *vfl-acc-separator* (1+ *vfl-acc-separator*))) + (list p-sep hz-ein)) + +;; GF-Gerade rueckwaerts: sie soll an p-ziel ANKOMMEN, Grundrisslaenge +;; laenge-planar, Neigung winkel. Rueckgabe: ihr Startpunkt (= neues +;; Kettenende nach hinten). +(defun vfl-rueck-gf (p-ziel hz laenge-planar winkel / p-start) + (setq p-start (vfl-rueck-punkt p-ziel hz laenge-planar winkel)) + (vfl-insert-gf-segment p-start hz laenge-planar winkel) + (vfl-acc-gf-seg (/ laenge-planar (cos (* (float winkel) (/ pi 180.0)))) winkel) + p-start) + +;; ------------------------------------------------------------------ +;; Rueckwaerts-Ablauf (Treiber). Nutzt - wie die uebrigen Bau-Zweige - die +;; dynamisch sichtbaren Lokalvariablen des Aufrufers vf-linienzug-modus +;; (startpunkt = geklicktes KETTENENDE, frame, p-aktuell, anzahl-gf, +;; es-seite, fertig, letzter-typ). +(defun vfl-rueckwaerts-bauen ( / es-w es-s es-vorhanden hz-achse erg p-ziel hz-ein + modus gf-max-winkel winkel laenge deltaH + p-pick p-start h-start rad + bogen-seite bogen-winkel bogen-turn hz-bogen + kandidaten tol w + abstand perp-ziel perp-bogen nx ny rad-a bw + acc-gfbogen-save acc-sep-save probe-checkpoint + probe-frame basis-frame dxp dyp dzp p-bogen-start) + ;; --- ES-Element: "setzen?" + Winkel + Seite + Fahrtrichtung --- + ;; WICHTIG: vflw-gruppe-as-impl legt VIER Werte in die Pending-Queue + ;; (ja/nein, Winkel, Seite, Punkt). Die Ja/Nein-Antwort MUSS hier zuerst + ;; konsumiert werden - fehlt dieser Schritt, rutscht alles um eine Position + ;; und der Winkel bekommt die "1" der Ja/Nein-Frage (realer Fehler + ;; 2026-10-22: Blockname "ES_Element_1_links"). + (if (vfl-wizard-aktiv) + (vl-catch-all-apply 'vflw-gruppe-as-impl (list "vfl-es-setzen-frage" startpunkt))) + (princ (ssg-text "vfl-es-setzen-frage")) + (princ (ssg-text "vfl-ja")) + (princ (ssg-text "vfl-nein")) + (setq es-vorhanden + (/= "2" (vfl-menu-radio (ssg-text "prompt-wahl-1-2") + (list (ssg-text "vfl-ja") (ssg-text "vfl-nein")) 1 + "vfl-es-setzen-frage"))) + (setq w (fix *vfk-gefaelle-winkel*)) + (if es-vorhanden + (progn + (setq es-s (vfl-frage-es-winkel-seite-achse startpunkt)) + (if (null es-s) (progn (princ (ssg-text "vfl-abgebrochen")) (exit))) + (setq es-seite es-s) + (setq es-w (vfl-es-winkel)) + (setq hz-achse *vfl-es-basis-hz*) + ;; ES + Separator setzen - Anker: KS_AUS exakt auf dem geklickten Punkt. + (setq erg (vfl-rueck-es-setzen es-w es-s startpunkt hz-achse)) + (setq p-ziel (nth 0 erg) hz-ein (nth 1 erg))) + (progn + ;; Ohne ES endet die Kette direkt am geklickten Punkt; die Richtung + ;; muss trotzdem bekannt sein. + (setq hz-achse (vfl-frage-fahrtrichtung-p2 startpunkt)) + (if (null hz-achse) (progn (princ (ssg-text "vfl-abgebrochen")) (exit))) + (setq p-ziel startpunkt hz-ein hz-achse))) + (setq gf-max-winkel (float (ssg-cfg-or "vario" "gefaelle_winkel" 3))) + ;; --- Nur EINE Element-Option (Nutzer-Vorgabe): Neue Linie GF --- + ;; vfl-menu-radio statt vfl-menu: Radio-Buttons statt Auswahlliste, wie bei + ;; den uebrigen kurzen Entscheidungen im Assistenten (Nutzer-Wunsch + ;; 2026-10-22). Journal-Semantik ist identisch - derselbe STR-Eintrag. + (princ (ssg-text "vfl-naechstes-element-header")) + (princ (ssg-text "vfl-rueck-menu-linie-gf")) + (vfl-menu-radio (ssg-text "prompt-wahl-1-2") + (list (ssg-text "vfl-rueck-menu-linie-gf")) 1 "vfl-naechstes-element-header") + ;; --- Laengen-Frage: drei Optionen (Nutzer-Vorgabe) --- + ;; "Parallel zum Kreisel" braucht das ES als Bezug (sein Grundriss-Schwenk + ;; bestimmt den Bogen) - ohne ES-Element entfaellt die Option. + (princ (ssg-text "vfl-gf-laenge-modus-header")) + (princ (ssg-text "vfl-rueck-laenge-opt-anfangspunkt")) + (princ (ssg-text "vfl-rueck-laenge-opt-anfangshoehe")) + (if es-vorhanden (princ (ssg-text "vfl-gf-laenge-modus-opt-parallel"))) + (setq modus (vfl-menu-radio (ssg-text "prompt-wahl-1-2") + (if es-vorhanden + (list (ssg-text "vfl-rueck-laenge-opt-anfangspunkt") + (ssg-text "vfl-rueck-laenge-opt-anfangshoehe") + (ssg-text "vfl-gf-laenge-modus-opt-parallel")) + (list (ssg-text "vfl-rueck-laenge-opt-anfangspunkt") + (ssg-text "vfl-rueck-laenge-opt-anfangshoehe"))) 1 + "vfl-gf-laenge-modus-header")) + (cond + ;; --- Option 3: Parallel zum Kreisel (Spiegelbild von + ;; vfl-gf-parallel-kreisel) --- + ((= modus "3") + ;; Bogen zur GEGENSEITE der ES-Seite, Winkel so, dass er den + ;; Grundriss-Schwenk des ES aufhebt - identische Regel wie vorwaerts, + ;; nur mit es-turn statt as-turn. Ergibt mit den vorhandenen Bausteinen + ;; die Nutzer-Tabelle: ES 30 links -> 30-Grad-Bogen rechts usw. + (setq bogen-seite (if (= es-s "rechts") "links" "rechts")) + (setq kandidaten '()) + (foreach bw *vfk-gf-bogen-winkel* + (setq kandidaten + (cons (cons bw (vf-element-plan-turn (gf-bogen-blockname bw bogen-seite))) + kandidaten))) + (setq tol 2.0) ; wie in vfl-qc-linie-mit-gf + (setq bogen-winkel + (vfl-par-bogen-waehlen + (vf-element-plan-turn (strcat "ES_Element_" es-w "_" es-s)) + (reverse kandidaten) tol)) + (if (null bogen-winkel) + (vfl-meldung (ssg-textf "vfl-par-kein-bogen" + (list (rtos (vf-element-plan-turn + (strcat "ES_Element_" es-w "_" es-s)) 2 1) + bogen-seite))) + (progn + (setq abstand (vfl-in-real (ssg-text "vfl-par-prompt-abstand"))) + (if (or (null abstand) (<= (abs abstand) 0.0)) + (princ (ssg-text "vfl-abgebrochen")) + (progn + ;; Normale zur Abfuehrungsachse; alle Querversatz-Werte beziehen + ;; sich auf den geklickten Punkt (= ES-KS_AUS, perp = 0). + (setq rad-a (* (float hz-achse) (/ pi 180.0))) + (setq nx (- (sin rad-a)) ny (cos rad-a)) + (setq perp-ziel (+ (* (- (car p-ziel) (car startpunkt)) nx) + (* (- (cadr p-ziel) (cadr startpunkt)) ny))) + ;; Bogen-Querversatz messen - Probe auf GENAU dem Rahmen, auf dem + ;; der echte Bogen spaeter sitzt (idealisierter Gefaelle-Rahmen, + ;; siehe gleichlautende Begruendung in vfl-gf-parallel-kreisel). + ;; + ;; RUECKWAERTS-BESONDERHEIT: der Bogen sitzt VOR dem GF-Stueck, + ;; sein AUSGANG muss also auf der GF-Richtung hz-ein liegen. + ;; insert-block-ks-to-ks richtet aber immer den EINGANG am + ;; uebergebenen Rahmen aus - der Eingang muss daher um den + ;; Bogenschwenk vorgedreht werden: hz-bogen = hz-ein - bogen-turn. + ;; Ohne diese Drehung zeigt der Bogen-Ausgang um genau den + ;; Bogenwinkel neben der GF-Achse und die KS treffen sich nicht + ;; (realer Fehler 2026-10-22). Vorwaerts (vfl-gf-parallel-kreisel) + ;; tritt das nicht auf: dort folgt der Bogen dem GF-Stueck, sein + ;; Eingang liegt also ohnehin schon auf der GF-Richtung. + (setq bogen-turn (cdr (assoc bogen-winkel kandidaten))) + (setq hz-bogen (- hz-ein bogen-turn)) + (setq acc-gfbogen-save *vfl-acc-gfbogen* acc-sep-save *vfl-acc-separator*) + (setq probe-checkpoint (ssg-lastent-ohne-attribute)) + (setq basis-frame (make-frame-from-dir p-ziel (hz-winkel->xu hz-bogen w))) + (setq probe-frame (vfl-insert-gf-bogen-block basis-frame bogen-winkel bogen-seite)) + (setq dxp (- (car (car probe-frame)) (car (car basis-frame)))) + (setq dyp (- (cadr (car probe-frame)) (cadr (car basis-frame)))) + (setq dzp (- (caddr (car probe-frame)) (caddr (car basis-frame)))) + (vfl-loesche-seit probe-checkpoint) + (setq *vfl-acc-gfbogen* acc-gfbogen-save *vfl-acc-separator* acc-sep-save) + (setq perp-bogen (+ (* dxp nx) (* dyp ny))) + ;; Querversatz des GF-Stuecks je Laengeneinheit: es laeuft auf + ;; hz-ein, die Achse auf hz-achse - die Differenz ist genau der + ;; ES-Schwenk. Rueckwaerts gezaehlt kehrt sich das Vorzeichen um. + (setq laenge (vfl-par-gf-laenge abstand perp-ziel (- perp-bogen) + (sin (* (- hz-achse hz-ein) (/ pi 180.0))))) + (cond + ((null laenge) (vfl-meldung (ssg-text "vfl-par-kein-versatz"))) + ((< laenge 1.0) + (vfl-meldung (ssg-textf "vfl-par-zu-klein" + (list (rtos (abs abstand) 2 1) + (rtos (abs (- perp-ziel perp-bogen)) 2 1))))) + (t + (setq p-start (vfl-rueck-gf p-ziel hz-ein laenge w)) + (setq anzahl-gf (1+ anzahl-gf)) + ;; Bogen rueckwaerts: sein KS_AUS muss den GF-Start treffen - + ;; also um den GEMESSENEN Versatz (inkl. Hoehe) zurueckgesetzt. + (setq p-bogen-start (list (- (car p-start) dxp) + (- (cadr p-start) dyp) + (- (caddr p-start) dzp))) + ;; Gleiche Eingangsdrehung wie bei der Probe (s.o.) - nur so + ;; passt der gemessene Versatz und der Ausgang landet auf der + ;; GF-Achse. + (setq basis-frame (make-frame-from-dir p-bogen-start (hz-winkel->xu hz-bogen w))) + (setq frame (vfl-insert-gf-bogen-block basis-frame bogen-winkel bogen-seite)) + (setq p-aktuell p-bogen-start) + (princ (ssg-textf "vfl-rueck-erfolg-parallel" + (list (rtos laenge 2 1) (itoa bogen-winkel) bogen-seite))) + (setq fertig t)))))))) + ;; --- Option 2: Anfangshoehe vorgeben, Laenge ergibt sich --- + ((= modus "2") + (setq h-start (vfl-in-real (ssg-textf "vfl-rueck-prompt-anfangshoehe" + (list (rtos (caddr p-ziel) 2 1))))) + (if (null h-start) (setq h-start (caddr p-ziel))) + (setq deltaH (- h-start (caddr p-ziel))) + (setq winkel (vfl-in-real (ssg-textf "vfl-prompt-neigungswinkel-laenge-berechnet" + (list (rtos gf-max-winkel 2 1))))) + (if (null winkel) (setq winkel gf-max-winkel)) + (cond + ((<= deltaH 0.0) (vfl-meldung (ssg-text "vfl-rueck-alert-hoehe-zu-klein"))) + ((or (<= winkel 0.0) (> winkel gf-max-winkel)) + (vfl-meldung (ssg-textf "vfl-alert-winkel-ungueltig" + (list (rtos winkel 2 1) (rtos gf-max-winkel 2 1))))) + (t + (setq laenge (/ deltaH (/ (sin (* winkel (/ pi 180.0))) + (cos (* winkel (/ pi 180.0)))))) + (if (< laenge 1.0) + (princ (ssg-text "vfl-fehler-linie-zu-kurz")) + (progn + (setq p-start (vfl-rueck-gf p-ziel hz-ein laenge winkel)) + (setq anzahl-gf (1+ anzahl-gf)) + (setq frame (make-frame-from-dir p-start (hz-winkel->xu hz-ein winkel))) + (setq p-aktuell p-start) + (princ (ssg-textf "vfl-rueck-erfolg-hoehe" + (list (rtos laenge 2 1) (rtos (caddr p-start) 2 1)))) + (setq fertig t)))))) + ;; --- Option 1: Kettenanfang klicken, Anfangshoehe ergibt sich --- + (t + ;; Cursor auf die Kettenachse zwingen: ab hier kann nur noch ENTLANG + ;; hz-ein gebaut werden (der Separator gibt die Richtung vor), ein frei + ;; schwenkendes Gummiband wuerde eine Freiheit vorgaukeln, die es nicht + ;; gibt. ORTHO laesst beide Richtungen der Achse zu - gemessen wird + ;; ohnehin die Projektion. + (setq p-pick (vfl-in-point-achse p-ziel (ssg-text "vfl-rueck-prompt-anfangspunkt") hz-ein)) + (if (null p-pick) + (progn (princ (ssg-text "vfl-abgebrochen")) (exit))) + ;; Der Klick gibt nur die LAENGE her - die Richtung steht ueber die + ;; Abfuehrungsachse schon fest. Darum auf hz-ein zurueckprojizieren + ;; (entgegen der Fahrtrichtung gemessen). + (setq rad (* (float hz-ein) (/ pi 180.0))) + (setq laenge (+ (* (- (car p-ziel) (car p-pick)) (cos rad)) + (* (- (cadr p-ziel) (cadr p-pick)) (sin rad)))) + (setq winkel (vfl-in-real (ssg-textf "vfl-prompt-neigungswinkel" + (list (rtos gf-max-winkel 2 1))))) + (if (null winkel) (setq winkel gf-max-winkel)) + (cond + ((< laenge 1.0) (princ (ssg-text "vfl-fehler-linie-zu-kurz"))) + ((or (<= winkel 0.0) (> winkel gf-max-winkel)) + (vfl-meldung (ssg-textf "vfl-alert-winkel-ungueltig" + (list (rtos winkel 2 1) (rtos gf-max-winkel 2 1))))) + (t + (setq p-start (vfl-rueck-gf p-ziel hz-ein laenge winkel)) + (setq anzahl-gf (1+ anzahl-gf)) + (setq frame (make-frame-from-dir p-start (hz-winkel->xu hz-ein winkel))) + (setq p-aktuell p-start) + (princ (ssg-textf "vfl-rueck-erfolg-punkt" + (list (rtos laenge 2 1) (rtos (caddr p-start) 2 1)))) + (setq fertig t))))) + (setq letzter-typ "GF") + (princ)) + ;; ------------------------------------------------------------------ ;; "QC Linie mit GF und U-Form" (Option 5 der gf-laenge-modus-Frage, ;; Nutzer-Vorgabe 2026-09-13, nach mehreren Praezisierungsrunden - inkl. echter @@ -5063,7 +6019,10 @@ (if sep-vor (setq pt (vfl-sep-hz pt hz))) ;; horizontale Zwischenstrecke (0 Grad) (princ (ssg-textf "vfl-horizontale-zwischenstrecke" (list (rtos dL 2 2)))) + ;; Hoehe dieses (horizontalen) VF-Segments erfassen - siehe vf-vfhoehe-merke. + (vf-vfhoehe-merke pt) (setq pt (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" pt dL 0 hz)) + (vf-vfhoehe-schliesse pt) (vfl-acc-vf-seg "horizontal" 0 dL) ;; optionaler Separator NACH (jetzt tatsaechlich bauen) (if sep-nach (setq pt (vfl-sep-hz pt hz))) @@ -5172,7 +6131,7 @@ (princ (ssg-text "vfl-ja")) (princ (ssg-text "vfl-es-nein-zielpunkt")) (if (vfl-wizard-aktiv) - (vl-catch-all-apply 'vflw-gruppe-as-impl (list "vfl-es-setzen-frage"))) + (vl-catch-all-apply 'vflw-gruppe-as-impl (list "vfl-es-setzen-frage" nil))) (setq es-antwort (vfl-menu (ssg-text "prompt-wahl-1-2") (list (ssg-text "vfl-ja") (ssg-text "vfl-es-nein-zielpunkt")) 1 "vfl-es-setzen-frage")) @@ -5587,9 +6546,11 @@ ;; (Ausgang in vfl-vf-einheit) erledigt den einzigen wirklich ;; noetigen Bogen. ((and schon-flach (= typ "VF") (= w 0) lvf (> lvf 1.0)) + (vf-vfhoehe-merke (car frame)) (setq frame (make-frame-from-dir (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" (car frame) lvf 0 hzn) (hz-winkel->xu hzn 0.0))) + (vf-vfhoehe-schliesse (car frame)) (vfl-acc-vf-seg "horizontal" 0 lvf) (setq cnt (1+ cnt))) ;; Normalfall: gewinkelter ODER horizontaler Koerper - vfs-vf-koerper @@ -6508,10 +7469,61 @@ ;; die noetige Restlaenge ist damit einfach die urspruengliche Distanz MINUS ;; die tatsaechliche (gemessene) AS-Fussabdrucklaenge, keine Punkt-Projektion ;; noetig (Ersatz fuer das fruehere vfl-projiziere-distanz auf pick-punkt). -(defun vfl-kettenanfang-baustein (p-aktuell hz-neu deltaL as-seite as-vorhanden / frame fussabdruck) +;; AS-Element so einfuegen, dass seine KS_EIN-ACHSE auf der Zufuehrungsachse +;; (ein-hz) liegt - Gegenstueck zu vfl-insert-as-element, das stattdessen das +;; KS_AUS entlang der Kettenrichtung ausrichtet. +;; +;; Unterschied in einer Zeile: dort wird der Blockschwenk abgezogen +;; (ein-hz = hz - as-turn), hier NICHT - die uebergebene Richtung IST schon die +;; des KS_EIN. Das KS_AUS zeigt danach um den Blockschwenk gedreht weiter, also +;; beim AS_Element_30 um 30 Grad von der Zufuehrung weg: genau das reale +;; Ausschleusen aus einer durchlaufenden Strecke (Nutzer-Einsicht 2026-10-14). +(defun vfl-insert-as-element-auf-achse (typ startpunkt ein-hz as-seite / rad-h xu-ein) + (setq rad-h (* (float ein-hz) (/ pi 180.0))) + (setq xu-ein (list (cos rad-h) (sin rad-h) 0.0)) + (insert-block-mixed-to-ks + (strcat "AS_Element_" (vfl-as-winkel) "_" as-seite) + (make-frame-from-dir startpunkt xu-ein) + (caddr startpunkt) nil "KS_EIN") +) + +(defun vfl-kettenanfang-baustein (p-aktuell hz-neu deltaL as-seite as-vorhanden + / frame fussabdruck ziel rad) (if as-vorhanden (progn - (setq frame (vfl-insert-as-element "GF" p-aktuell hz-neu 0.0 as-seite)) + ;; BASISLINIEN-Modus: das AS gehoert mit seinem KS_EIN auf die + ;; Zufuehrungsachse (*vfl-as-basis-hz*), nicht mit dem KS_AUS auf die + ;; Kettenrichtung. + ;; + ;; Die Seite kommt seit 2026-10-21 normalerweise AUS DEM DIALOG + ;; (*vfl-as-seite-explizit*) - sie ist die AS-Variante und darf dann + ;; nicht mehr ueberschrieben werden. Nur beim Replay eines + ;; Alt-Achsen-Journals (30 Grad, 2026-10-14..10-20) wurde sie gar nicht + ;; gefragt; dort ergibt sie sich wie bisher aus der Lage des naechsten + ;; Kettenpunkts zur Basislinie: der liegt in Richtung hz-neu, deltaL + ;; entfernt. + (if *vfl-as-basis-hz* + (progn + (if (not *vfl-as-seite-explizit*) + (progn + (setq rad (* (float hz-neu) (/ pi 180.0))) + (setq ziel (list (+ (car p-aktuell) (* deltaL (cos rad))) + (+ (cadr p-aktuell) (* deltaL (sin rad))) + (caddr p-aktuell))) + (setq as-seite (vfl-seite-aus-lage *vfl-as-basis-p1* + (list (+ (car *vfl-as-basis-p1*) + (cos (* *vfl-as-basis-hz* (/ pi 180.0)))) + (+ (cadr *vfl-as-basis-p1*) + (sin (* *vfl-as-basis-hz* (/ pi 180.0)))) + 0.0) + ziel)) + ;; Masse auf die jetzt bekannte Seite umstellen (Winkel steht schon). + (vf-set-as-masse (vfl-as-winkel) as-seite) + (princ (ssg-textf "vfl-as-seite-ermittelt" (list as-seite))))) + ;; KS_EIN auf die Zufuehrungsachse legen - NICHT KS_AUS auf hz-neu. + (setq frame (vfl-insert-as-element-auf-achse "GF" p-aktuell + *vfl-as-basis-hz* as-seite))) + (setq frame (vfl-insert-as-element "GF" p-aktuell hz-neu 0.0 as-seite))) (setq fussabdruck (vfl-planar-dist p-aktuell (car frame))) (setq deltaL (- deltaL fussabdruck)) (princ (ssg-textf "vfl-info-as-eingefuegt" (list (rtos deltaL 2 1)))) @@ -6595,6 +7607,95 @@ (vf-set-as-masse *vfl-as-winkel* as-seite) ; Masse fuer Variante as-seite) +;; AS-Winkel abfragen, danach die Seite UND - fuer BEIDE Winkel - eine +;; optionale Zufuehrungsachse (Nutzer-Vorgabe 2026-10-21; bis dahin galt die +;; Achse nur fuer das 30-Grad-Element und ERSETZTE dort die Seitenfrage). +;; +;; Warum beides und warum in dieser Reihenfolge: die zwei Angaben beschreiben +;; verschiedene Dinge und legen das AS erst ZUSAMMEN vollstaendig fest - +;; 2. Punkt -> Richtung der KS_EIN-Achse (die Zufuehrung, z.B. die +;; Kreisel-Laufrichtung); der Startpunkt bleibt der Sitz des +;; AS-Elements, der zweite Punkt gibt nur die Richtung. +;; links/rechts -> AS-Variante und damit die KS_AUS-Richtung, also wohin die +;; Kette nach dem Ausschleusen laeuft. +;; Damit steht die Kettenrichtung schon vor dem ersten Streckenklick fest - +;; Voraussetzung fuer "Parallel zum Kreisel" (vfl-gf-parallel-kreisel), das +;; gar keinen Endpunkt mehr klickt, sondern nur noch einen Abstand bekommt. +;; Die Achse ist optional: ohne Punkt laeuft alles wie frueher ueber die +;; Richtung des naechsten Klicks. +;; +;; JOURNAL - Eintragsfolge an dieser Stelle: +;; neu : [STR winkel] [STR seite] [PT p2] (ohne Achse: [NIL]) +;; 30 + Achse alt : [STR winkel] [PT p2] (2026-10-14..10-20) +;; ganz alt : [STR winkel] [STR seite] +;; Welche Fragen gestellt werden, wird BEWUSST NICHT journalisiert: es ist aus +;; der Art des jeweils naechsten Eintrags eindeutig rekonstruierbar (PT direkt +;; nach dem Winkel = Alt-Achse ohne Seite; PT/NIL nach der Seite = neue Achse; +;; alles andere = Altbestand ohne Achse). Dadurch bleiben alle aelteren Ketten +;; ohne Sonderbehandlung editierbar. Ein neues Glied beginnt immer mit seiner +;; Menue-Antwort (STR) bzw. - im erzwungenen QC-Modus - mit einer Richtung +;; (REAL); ein PT/NIL an dieser Stelle kann daher nur die Achse sein. +;; +;; Setzt *vfl-as-basis-hz*/-p1 (nil, wenn keine Achse gewaehlt wurde) und +;; *vfl-as-seite-explizit* (T, wenn die Seite wirklich gefragt wurde - nur +;; dann darf vfl-kettenanfang-baustein sie NICHT mehr aus der Lage des +;; naechsten Punkts ueberschreiben). +;; Rueckgabe: Seite. Beim Alt-Achsen-Journal vorlaeufig "links" - die +;; endgueltige Seite folgt dort aus der Lage des naechsten Kettenpunkts +;; (Laengsverbrauch ist seitengleich, nur das Vorzeichen des Querversatzes +;; dreht). +(defun vfl-frage-as-winkel-seite-oder-achse (seiten-headerkey startpunkt + / antwort as-seite p2 mit-seite mit-achse) + (setq *vfl-as-basis-hz* nil *vfl-as-basis-p1* nil *vfl-as-seite-explizit* nil) + (princ (ssg-text "vf-winkel-aus-header")) + (princ (ssg-text "vf-winkel-90")) + (princ (ssg-text "vf-winkel-30")) + (setq *vfl-as-winkel* + (vfl-in-value "STR" + (function (lambda () (vf-frage-element-winkel "vf-winkel-aus-header"))))) + ;; --- Seite (links/rechts) --- + ;; Uebersprungen NUR beim Replay eines Alt-Achsen-Journals (30 Grad, + ;; 2026-10-14..10-20): dort steht direkt hinter dem Winkel der Achsenpunkt. + (setq mit-seite (not (and *vfl-replay-queue* (= (vfl-replay-peek-art) "PT")))) + (if mit-seite + (progn + (princ (ssg-text seiten-headerkey)) + (princ (ssg-text "gf-seite-links")) + (princ (ssg-text "gf-seite-rechts")) + (setq antwort (vfl-menu (ssg-text "prompt-wahl-1-2") + (list (ssg-text "gf-seite-links") (ssg-text "gf-seite-rechts")) 1 + seiten-headerkey)) + (setq as-seite (if (= antwort "2") "rechts" "links")) + (setq *vfl-as-seite-explizit* t)) + (setq as-seite "links")) ; vorlaeufig, s.o. + ;; --- Zufuehrungsachse (2. Punkt, optional) --- + ;; Beim Replay nur lesen, wenn an dieser Stelle wirklich ein Achsen-Eintrag + ;; steht (PT = Punkt, NIL = bewusst ohne Achse gebaut) - sonst ist es ein + ;; Altbestand ohne diese Frage und der naechste Eintrag gehoert schon zum + ;; ersten Glied. + (setq mit-achse + (if *vfl-replay-queue* + (if (member (vfl-replay-peek-art) '("PT" "NIL")) t nil) + t)) + (if mit-achse + (progn + (setq p2 (vfl-in-point startpunkt (ssg-text "vfl-prompt-as-achse-p2"))) + (if (and p2 + (or (> (abs (- (car p2) (car startpunkt))) 1e-9) + (> (abs (- (cadr p2) (cadr startpunkt))) 1e-9))) + (progn + (setq *vfl-as-basis-p1* startpunkt) + (setq *vfl-as-basis-hz* (vfl-planar-hz startpunkt p2)) + (princ (ssg-textf "vfl-basislinie-info" (list (rtos *vfl-as-basis-hz* 2 1))))) + ;; Kein (brauchbarer) Punkt -> keine Achse. KEIN Abbruch mehr: die + ;; Achse ist seit 2026-10-21 optional, die Kette laeuft dann wie + ;; frueher ueber die Richtung des naechsten Klicks. Der Journal- + ;; Eintrag (PT bzw. NIL) steht trotzdem und wird beim Replay wieder + ;; genauso gelesen. + (princ (ssg-text "vfl-basislinie-ohne"))))) + (vf-set-as-masse *vfl-as-winkel* as-seite) + as-seite) + ;; ES-Winkel (30/90) + Seite abfragen - MARKER-FREIE Schale fuer die Modi 2/3, ;; die das ES-Element als eigene Praeambel (Start/Ziel bereits fest) abfragen ;; und ihr eigenes Journal-/Masse-Schema fuehren. Unterscheidet sich bewusst @@ -6731,6 +7832,9 @@ (cons "L_VF_m" (vfl-join-komma *vfl-acc-lvf*)) (cons "ANTRIEBFAHRTRICHTUNG" (vfl-join-komma *vfl-acc-richtung*)) (cons "VF_WINKEL" (vfl-join-komma *vfl-acc-winkel*)) + ;; Hoehe je Foerdereinheit (Mittelwert Umlenk-KS_EIN / Motor-KS_AUS), + ;; Meter mit 3 Nachkommastellen - Sivas 4433-4437. + (cons "VF_HOEHE_m" (vfl-join-komma *vf-acc-vfhoehe*)) ;; Vario-Kurven (Richtungswechsel im VF-Teil), A=aussen / I=innen (cons "VF_Bogen_A_90" (itoa (vfl-get-count *vfl-acc-variokurve* "A_90"))) (cons "VF_Bogen_A_60" (itoa (vfl-get-count *vfl-acc-variokurve* "A_60"))) @@ -6882,7 +7986,8 @@ startpunkt-familie gf-kettenende-antwort vorab-antwort vorab-es-gewuenscht vorab-es-seite save-eindx-vorab save-eindz-vorab erg-es vorab-ziel-punkt - rad3-sep sep-eindx-add sep-eindz-add) + rad3-sep sep-eindx-add sep-eindz-add gf-parallel-moeglich + bau-richtung) ;; "Zurueck"/"Abbrechen"-Flag ganz am Anfang zuruecksetzen (auch schon vor ;; der ersten Praeambel-Frage) - sonst wuerde ein von einem VORHERIGEN Lauf ;; noch gesetztes Flag (z.B. nach "Abbrechen") den allerersten vfl-in-*- @@ -6974,6 +8079,30 @@ ;; faellt dann auf einen neutralen Text zurueck (kein falsches "GF"/"VF"). ;; Nur wenn GAR KEIN KS_AUS in Toleranz gefunden wurde, wird wie bisher ;; gefragt. + ;; --- Bau-Richtung (Nutzer-Vorgabe 2026-10-22) --- + ;; "vor" = der geklickte Punkt ist der KettenANFANG (alles wie bisher). + ;; "rueck"= er ist das KettenENDE, genauer das KS_AUS des ES-Elements; + ;; gebaut wird von dort nach hinten (vfl-rueckwaerts-bauen). + ;; Journalisiert wird der WERT, nicht der Auswahl-Index (vfl-menu-strwert): + ;; die Frage steht VOR der AS-Ja/Nein-Frage, die ebenfalls "1"/"2" schreibt - + ;; mit einem Index waere ein Alt-Journal (ohne diese Frage) beim Replay nicht + ;; mehr davon zu unterscheiden. So genuegt ein Blick auf den Wert. + (setq bau-richtung + (if (and *vfl-replay-queue* + (not (member (vfl-replay-peek-wert) '("vor" "rueck")))) + "vor" ; Altbestand ohne diese Frage + (progn + (princ (ssg-text "vfl-richtung-header")) + (princ (ssg-text "vfl-richtung-opt-vor")) + (princ (ssg-text "vfl-richtung-opt-rueck")) + (vfl-menu-strwert (ssg-text "prompt-wahl-1-2") + (list (ssg-text "vfl-richtung-opt-vor") (ssg-text "vfl-richtung-opt-rueck")) + (list "vor" "rueck") 1 "vfl-richtung-header")))) + ;; Startpunkt-Erkennung und AS-Praeambel gelten NUR vorwaerts - rueckwaerts + ;; gibt es kein AS-Element am geklickten Punkt, sondern ein ES. + (if (= bau-richtung "rueck") + (setq as-vorhanden nil startpunkt-familie nil) + (progn (setq erg (vfl-ks-aus-hz-an-punkt startpunkt)) (setq startpunkt-familie (if erg (vfl-kette-typ-familie (cdr erg)) nil)) (if erg @@ -6982,7 +8111,10 @@ (setq as-vorhanden nil)) (progn (if (vfl-wizard-aktiv) - (vl-catch-all-apply 'vflw-gruppe-as-impl (list "vfl-as-setzen-frage"))) + ;; startpunkt = Zufuehrungsachse (2. Punkt) gehoert hier in DENSELBEN + ;; Dialog wie Winkel/Seite (Nutzer-Vorgabe 2026-10-21); der Punkt ist + ;; zugleich die Gummiband-Basis der Punktwahl. + (vl-catch-all-apply 'vflw-gruppe-as-impl (list "vfl-as-setzen-frage" startpunkt))) (princ (ssg-text "vfl-as-setzen-frage")) (princ (ssg-text "vfl-ja")) (princ (ssg-text "vfl-as-nein")) @@ -6995,16 +8127,27 @@ ;; werden - sonst wuerde ein WINKEL_AS-Attribut den Wert der VORHERIGEN Kette ;; tragen, wenn diesmal kein AS gewaehlt wird. (setq *vfl-as-winkel* nil *vfl-es-winkel* nil) + ;; Gilt genauso fuer die Achsen-Globals: ohne AS-Element bleibt sonst die + ;; Zufuehrungsachse der VORHERIGEN Kette stehen. + (setq *vfl-as-basis-hz* nil *vfl-as-basis-p1* nil *vfl-as-seite-explizit* nil) + ;; Winkel, dann Seite UND eine optionale Zufuehrungsachse (2. Punkt) - siehe + ;; vfl-frage-as-winkel-seite-oder-achse. Beide zusammen legen AS-Lage und + ;; Kettenrichtung fest; ohne Achse laeuft alles wie frueher ueber die + ;; Richtung des naechsten Klicks. (if as-vorhanden - (setq as-seite (vfl-frage-as-winkel-seite "vfl-aus-seite-header")) - ) + (setq as-seite (vfl-frage-as-winkel-seite-oder-achse "vfl-aus-seite-header" startpunkt))) ;; ES-Seite wird erst am Kettenende abgefragt (siehe vfl-frage-es-seite), ;; da das ES-Element erst dort eingefuegt wird. + )) (setq p-aktuell startpunkt) (setq letzter-typ nil fertig nil frame nil) (setq anzahl-gf 0 anzahl-vf 0) (vfl-acc-reset) + ;; Rueckwaerts: ES + GF (+ Bogen) komplett hier bauen und fertig=t setzen - + ;; die Hauptschleife unten laeuft dann gar nicht erst an, der gemeinsame + ;; Abschluss (Block, Attribute, Journal-XDATA) danach aber ganz normal. + (if (= bau-richtung "rueck") (vfl-rueckwaerts-bauen)) ;; *vfl-journal*-Reset steht jetzt GANZ AM ANFANG der Funktion (vor der ;; Startpunkt/Hoehe/AS-Praeambel) - siehe Kommentar dort. Hier NICHT mehr ;; noetig (und schaedlich: wuerde die bereits aufgezeichnete Praeambel @@ -7291,18 +8434,38 @@ (setq *vfl-forciere-qc-modus* nil) ) (progn - (if (vfl-wizard-aktiv) (vl-catch-all-apply 'vflw-gruppe-gf-laenge-modus-impl nil)) + ;; "Parallel zum Kreisel" braucht AS-Element UND Zufuehrungsachse + ;; als Bezug - sonst gibt es keinen Abstand, zu dem parallel + ;; gebaut werden koennte. + (setq gf-parallel-moeglich + (and kettenanfang as-vorhanden *vfl-as-basis-hz*)) + (if (vfl-wizard-aktiv) + (vl-catch-all-apply 'vflw-gruppe-gf-laenge-modus-impl (list gf-parallel-moeglich))) (princ (ssg-text "vfl-gf-laenge-modus-header")) (princ (ssg-text "vfl-gf-laenge-modus-opt-endpunkt")) (princ (ssg-text "vfl-gf-laenge-modus-opt-hoehe")) (princ (ssg-text "vfl-gf-laenge-modus-opt-steigend")) (princ (ssg-text "vfl-gf-laenge-modus-opt-qc")) + (if gf-parallel-moeglich (princ (ssg-text "vfl-gf-laenge-modus-opt-parallel"))) (setq gf-laenge-modus (vfl-menu (ssg-text "prompt-wahl-1-2") - (list (ssg-text "vfl-gf-laenge-modus-opt-endpunkt") - (ssg-text "vfl-gf-laenge-modus-opt-hoehe") - (ssg-text "vfl-gf-laenge-modus-opt-steigend") - (ssg-text "vfl-gf-laenge-modus-opt-qc")) 1 + (if gf-parallel-moeglich + (list (ssg-text "vfl-gf-laenge-modus-opt-endpunkt") + (ssg-text "vfl-gf-laenge-modus-opt-hoehe") + (ssg-text "vfl-gf-laenge-modus-opt-steigend") + (ssg-text "vfl-gf-laenge-modus-opt-qc") + (ssg-text "vfl-gf-laenge-modus-opt-parallel")) + (list (ssg-text "vfl-gf-laenge-modus-opt-endpunkt") + (ssg-text "vfl-gf-laenge-modus-opt-hoehe") + (ssg-text "vfl-gf-laenge-modus-opt-steigend") + (ssg-text "vfl-gf-laenge-modus-opt-qc"))) 1 "vfl-gf-laenge-modus-header")) + ;; Menue-Antwort "5" (die neue 5. Option) auf einen SPRECHENDEN + ;; internen Wert abbilden: "5" ist intern bereits durch die + ;; erzwungene U-Form belegt (*vfl-forciere-qc-modus*, Linienzug- + ;; Modus 5), die diese Frage ueberspringt und daher nie eine "5" + ;; ins Journal schreibt. Journalisiert wird weiterhin die rohe + ;; Menue-Antwort; die Abbildung passiert beim Replay identisch. + (if (= gf-laenge-modus "5") (setq gf-laenge-modus "parallel")) ) ) ;; Option 4 ("QC Linie mit GF"): eigenstaendiger, vollstaendig @@ -7317,6 +8480,11 @@ (cond ((= gf-laenge-modus "4") (vfl-qc-linie-mit-gf)) ((= gf-laenge-modus "5") (vfl-qc-linie-mit-gf-uform)) + ;; "Parallel zum Kreisel": ebenfalls eigenstaendig - baut AS + GF + + ;; Bogen aus EINEM Abstandswert und stellt die Kettenende-Frage + ;; selbst (sie kommt hier NACH dem Bau, nicht davor: erst nach dem + ;; Bogen steht fest, wo die Kette weiterlaeuft). + ((= gf-laenge-modus "parallel") (vfl-gf-parallel-kreisel)) (t (progn ;; NEU: Kettenende/ES JETZT fragen - VOR der Laengen-/Gefaelle- @@ -8067,7 +9235,7 @@ (princ (ssg-text "vfl-ja")) (princ (ssg-text "vfl-es-nein-zielpunkt")) (if (vfl-wizard-aktiv) - (vl-catch-all-apply 'vflw-gruppe-as-impl (list "vfl-es-setzen-frage"))) + (vl-catch-all-apply 'vflw-gruppe-as-impl (list "vfl-es-setzen-frage" nil))) (setq antwort (vfl-menu (ssg-text "prompt-wahl-1-2") (list (ssg-text "vfl-ja") (ssg-text "vfl-es-nein-zielpunkt")) 1 "vfl-es-setzen-frage")) @@ -8825,6 +9993,7 @@ (setq *ssg-ils-dim* ziel-dim) ; Zieldim erzwingen (entdel ent) ; alten Block weg (vfl-journal-replay-start journal) ; volle Queue, KEIN Truncate + (setq *vfl-replay-kette* bname) ; Fundstelle fuer Replay-Meldungen (setq ok (vl-catch-all-apply (cond ((= marker "linienzug2") 'vf-linienzug-modus2) ((= marker "linienzug3") 'vf-linienzug-modus3) @@ -8940,15 +10109,19 @@ ;; 'vf-linienzug-modus3 fuer "linienzug3" (Segment-Essenz per SEGS - unabhaengig ;; von den Original-Objekten). Beide Modi haben eine flache Klassifizierungs- ;; Schleife ohne editierbare Einzelglieder, daher derselbe volle Reset. -(defun vfl-edit-ent-voll (ent journal bau-fn / dim) +(defun vfl-edit-ent-voll (ent journal bau-fn / dim bname) ;; Dimension des Bestandsblocks VOR dem entdel merken und beim Neubau als ;; Override erzwingen (dimensionstreuer Doppelklick-Neubau, sonst globale ;; DXFM_DIM). Danach Override zuruecksetzen. (setq dim (ssg-dim-xdata-lesen ent)) + ;; Blockname ebenfalls VOR dem entdel sichern - danach ist er weg, eine + ;; Meldung aus dem Replay koennte die Kette sonst nicht mehr benennen. + (setq bname (cdr (assoc 2 (entget ent)))) (entdel ent) (princ (ssg-text "vfl-edit2-reset-info")) (if dim (setq *ssg-ils-dim* dim)) (vfl-journal-replay-start journal) + (setq *vfl-replay-kette* bname) ;; DIREKTER Aufruf, KEIN vl-catch-all-apply - identische Begruendung wie im ;; Sektions-Zweig von vfl-edit-ent (siehe dortiger Kommentar): der alte Block ;; ist per entdel schon weg, bei einem Abbruch muss der *error*-Handler der @@ -9252,9 +10425,22 @@ ;; - GF-Bogen hat feste Eigen-Neigung -> bei unterschiedlichen Nachbar- ;; Neigungen entsteht ein (akzeptierter) Knick. +;; ============================================================ +;; PFAD-HELFER (vfl-pfad-*) - geteilt von MODUS 2 UND MODUS 3 +;; ============================================================ +;; Alles, was auf dem GEZEICHNETEN Pfad arbeitet: Eckwinkel pruefen, +;; AS-Element einfuegen, VF-Einheit oeffnen/schliessen. Bewusst OHNE +;; Modus-Nummer im Namen - bis 2026-10-22 hiessen sie vfl2-*, was zu Modus 2 +;; passte, obwohl die Haelfte davon zu Modus 3 gehoert und drei von ihnen von +;; BEIDEN Modi benutzt werden (vfl-pfad-eckwinkel-pruefen, +;; vfl-pfad-as-gf-einfuegen, vfl-pfad-as-vf-einfuegen). Eine Nummer waere hier +;; also gar nicht richtig vergebbar; der Name nennt jetzt die Rolle. +;; Gegenstueck: vfl-zsolve-* (Hoehen-Rechenkern von Modus 2, weiter unten). +;; ============================================================ + ;; Alle Eck-Winkel des Pfades gegen 30/60/90 Grad pruefen (Toleranz tol). ;; Rueckgabe: nil (alle ok) oder der erste abweichende Winkel (Grad). -(defun vfl2-pruefe-eckwinkel (kette tol / item obj sa ea sweep bad) +(defun vfl-pfad-eckwinkel-pruefen (kette tol / item obj sa ea sweep bad) (setq bad nil) (foreach item kette (setq obj (car item)) @@ -9281,12 +10467,12 @@ ;; Ergebnis: KS_EIN.X = Startpunkt.X, KS_EIN quer um das AS-Y-Mass versetzt, ;; KS_AUS liegt exakt auf dem Pfad -> die ganze Kette folgt der Mittellinie. ;; Rueckgabe: (korrigierter) Frame am KS_AUS. -;; winkel-Parameter bleibt aus Call-Kompatibilitaet bestehen (vfl2-insert-as-vf +;; winkel-Parameter bleibt aus Call-Kompatibilitaet bestehen (vfl-pfad-as-vf-einfuegen ;; ruft mit 0.0), wird aber NICHT mehr fuer eine Kippung verwendet: das AS- ;; Element hat keine eigene Neigung (per Einzel-Insert-Test in BricsCAD ;; bestaetigt, siehe vfl-insert-as-element in Modus 1) - unabhaengig vom ;; folgenden Segmenttyp (GF/VF) wird es IMMER flach eingefuegt. -(defun vfl2-insert-as-gf (startpunkt hz winkel as-seite / +(defun vfl-pfad-as-gf-einfuegen (startpunkt hz winkel as-seite / ein-hz-as rad-h xu-ein frame blk ks-aus rad-hz perp-x perp-y d-perp sx sy as-turn rad-ein de-x de-y de-dot-np t-shift) @@ -9329,12 +10515,12 @@ ;; (0 Grad Neigung). Das AS wird mit KS_EIN auf den Startpunkt gesetzt und dann ;; senkrecht zu hz auf den Pfad geschoben (reine KS-Kettung, KS_AUS auf Pfad). ;; Damit liegt auch eine mit VF beginnende Kette auf dem gezeichneten Pfad. -(defun vfl2-insert-as-vf (startpunkt hz as-seite) - (vfl2-insert-as-gf startpunkt hz 0.0 as-seite)) +(defun vfl-pfad-as-vf-einfuegen (startpunkt hz as-seite) + (vfl-pfad-as-gf-einfuegen startpunkt hz 0.0 as-seite)) ;; VF-Einheit OEFFNEN (Modus 2): GF1 (Basis-Staustrecke) + Separator + ;; Umlenkstation. Rueckgabe: Frame nach der Umlenkstation (Beginn reiner VF). -(defun vfl2-vf-open (frame hz / f) +(defun vfl-pfad-vf-oeffnen (frame hz / f) (setq f (vfl-frame-3grad (vfs-vf-entry (car frame) *vfl-gf-min-laenge* hz nil) hz)) (if (> *vfl-gf-min-laenge* 0.1) (vfl-acc-gf-seg *vfl-gf-min-laenge* (ssg-cfg-or "vario" "gefaelle_winkel" 3))) @@ -9343,7 +10529,7 @@ ;; VF-Einheit SCHLIESSEN (Modus 2): Motorstation + GF2 (Basis), KEIN Separator ;; (der sitzt erst am Kettenende bzw. optional zwischen Foerderern). Rueckgabe: ;; Frame nach GF2. -(defun vfl2-vf-close (frame hz / f) +(defun vfl-pfad-vf-schliessen (frame hz / f) (setq *vfl-acc-motorseite* (append *vfl-acc-motorseite* (list "rechts"))) (setq f (vfl-frame-3grad (vfs-vf-exit (car frame) *vfl-gf-min-laenge* hz nil) hz)) (if (> *vfl-gf-min-laenge* 0.1) @@ -9351,7 +10537,7 @@ f) ;; Vario-Winkel (Vertikalbogen) auf die verfuegbaren Werte 3..51 einrasten. -(defun vfl2-snap-vfwinkel (w / liste best bd d) +(defun vfl-pfad-vfwinkel-snappen (w / liste best bd d) (setq liste (ssg-cfg-or "vario" "bogen_winkel" '(3 6 9 12 15 18 21 27 33 39 45 51))) (setq best (car liste) bd 1e9) (foreach x liste (setq d (abs (- x w))) (if (< d bd) (setq bd d best x))) @@ -9448,7 +10634,7 @@ (vfl-journal-record "NIL" nil) nil) (progn (setq segmente (gf-analysiere-kette kette)) - (setq ecke-bad (vfl2-pruefe-eckwinkel kette ecke-tol)) + (setq ecke-bad (vfl-pfad-eckwinkel-pruefen kette ecke-tol)) (if ecke-bad (progn (vfl-meldung (ssg-textf "vfl-vwnb-alert-eckwinkel" (list (rtos ecke-bad 2 1)))) @@ -9465,6 +10651,7 @@ ecke-bad first-line last-line letzt-winkel aus ein soll-ende ist-ende run-typ richtn best-w kvariante L_VF ent-fp rad3 just-open + as-vorhanden es-vorhanden alt-journal dbg-an old-error dbg-old-error vfl-ins) (princ "\n\n=========================================") (princ (ssg-text "vfl-vwnb-titel")) @@ -9509,27 +10696,76 @@ ;; Startpunkt + Hoehe (gemeinsame Praeambel-Schale, siehe vfl-frage-punkt-hoehe). (setq startpunkt (vfl-frage-punkt-hoehe "vfl-m3-prompt-startpunkt" "vfl-prompt-hoehe-startpunkt" "vfl-abgebrochen" "Starthoehe (Z, mm):")) - ;; AS-Element (in Modus 3 immer gesetzt): Winkel(30/90) + Seite als EIN - ;; Gruppen-Dialog. vflw-gruppe-winkel-seite-impl legt Winkel ("90"/"30") - ;; und Seite ("1"/"2") in *vflw-pending* ab - genau die Reihenfolge, die - ;; die beiden Reads unten erwarten. AS-Winkel ueber vfl-in-value (pending- - ;; aware; vf-frage-element-winkel selbst ist es NICHT), damit der vom Dialog - ;; abgelegte Wert konsumiert wird statt live erneut zu fragen. - (if (vfl-wizard-aktiv) - (vl-catch-all-apply 'vflw-gruppe-winkel-seite-impl - (list "vf-winkel-aus-header" - (list (ssg-text "vf-winkel-90") (ssg-text "vf-winkel-30")) - (list "90" "30")))) - (princ (ssg-text "vf-winkel-aus-header")) - (princ (ssg-text "vf-winkel-90")) - (princ (ssg-text "vf-winkel-30")) - (setq *vfl-as-winkel* - (vfl-in-value "STR" - (function (lambda () (vf-frage-element-winkel "vf-winkel-aus-header"))))) ; 30/90 vor Seite + ;; --- ALT-JOURNAL-ERKENNUNG (einmal, gilt fuer AS UND ES) --- + ;; Bis 2026-10-22 kannte Modus 3 weder "AS bauen?" noch "ES bauen?", und die + ;; ES-Frage stand am ENDE (nach dem Bau). Seither steht vor dem AS-Winkel + ;; ein Ja/Nein und die ES-Frage VOR dem Bau - beides aendert die Reihenfolge + ;; im Journal. Ketten, die vorher gebaut wurden, muessen per Doppelklick + ;; weiter nachbaubar bleiben; erkannt werden sie am WERT des naechsten + ;; Eintrags: dort steht im Altbestand direkt der AS-Winkel ("30"/"90"), im + ;; neuen Format die Ja/Nein-Antwort ("1"/"2"). Die Wertemengen sind + ;; disjunkt, die Unterscheidung also eindeutig (vfl-replay-peek-wert). + ;; Live (ohne Replay-Queue) ist alt-journal immer nil = neuer Ablauf. + (setq alt-journal + (and *vfl-replay-queue* + (= (vfl-replay-peek-art) "STR") + (member (vfl-replay-peek-wert) '("30" "90")))) + (if alt-journal (princ (ssg-text "vfl-m3-alt-journal"))) + ;; Winkel-Globals pro Lauf zuruecksetzen (wie in Modus 1/2): ohne AS bzw. + ;; ES wuerde sonst der Wert der VORHERIGEN Kette in die Block-Attribute + ;; WINKEL_AS/WINKEL_ES wandern. + (setq *vfl-as-winkel* nil *vfl-es-winkel* nil) + + ;; AS-Element: "bauen?" + Winkel(30/90) + Seite als EIN Gruppen-Dialog - + ;; dasselbe Muster wie in Modus 2 (vflw-gruppe-as-impl legt Ja/Nein, Winkel + ;; "90"/"30" und Seite "1"/"2" in *vflw-pending* ab, genau in der + ;; Reihenfolge, die die Reads unten erwarten). Die Ja/Nein-Frage war in + ;; Modus 3 bis 2026-10-22 gar nicht vorhanden (AS wurde immer gebaut, + ;; Nutzer-Wunsch). + (if alt-journal + (setq as-vorhanden t) + (progn + (if (vfl-wizard-aktiv) + (vl-catch-all-apply 'vflw-gruppe-as-impl (list "vfl-as-setzen-frage" nil))) + (princ (ssg-text "vfl-as-setzen-frage")) + (princ (ssg-text "vfl-ja")) + (princ (ssg-text "vfl-m3-as-nein")) + (setq antwort (vfl-menu (ssg-text "prompt-wahl-1-2") + (list (ssg-text "vfl-ja") (ssg-text "vfl-m3-as-nein")) 1 + "vfl-as-setzen-frage")) + (setq as-vorhanden (/= antwort "2")))) + ;; Winkel + Seite (setzt *vfl-as-winkel* und ueber vf-set-as-masse die + ;; aus-dx/aus-dz der Variante) - gemeinsame Schale mit Modus 2. + (if as-vorhanden + (setq as-seite (vfl-frage-as-winkel-seite "gf-seite-aus-header"))) (if dbg-an (progn (dbgmsg "AS-Winkel:") (dbg '*vfl-as-winkel*) (dbgflush))) - (princ (ssg-text "vfl-vwnb-aus-seite-menu")) - (setq as-seite (if (= (vfl-in-string (ssg-text "prompt-wahl-1-2")) "2") "rechts" "links")) - (vf-set-as-masse *vfl-as-winkel* as-seite) ; Masse fuer Variante + + ;; --- ES-Element JETZT fragen, VOR dem Bau (Nutzer-Vorgabe 2026-10-22, + ;; wie in Modus 1) --- + ;; Erst damit steht der ECHTE ES-Fussabdruck fest (ein-dx/ein-dz haengen an + ;; Winkel UND Seite), den die Trimmung der LETZTEN Geraden unten abzieht. + ;; Vorher wurde dort ein Wert benutzt, der zu diesem Zeitpunkt noch gar + ;; nicht gesetzt war: beim ersten Lauf griff der Schaetzwert + ;; *vfk-as-es-fallback-dx*, bei jedem weiteren stand dort der Wert der + ;; VORHERIGEN Kette. Beim Alt-Journal bleibt die Frage an ihrer alten + ;; Stelle (Schritt 7), damit die Replay-Reihenfolge stimmt. + (if alt-journal + (setq es-vorhanden t) ; Frage folgt in Schritt 7 + (progn + (if (vfl-wizard-aktiv) + (vl-catch-all-apply 'vflw-gruppe-as-impl (list "vfl-es-setzen-frage" nil))) + (princ (ssg-text "vfl-es-setzen-frage")) + (princ (ssg-text "vfl-ja")) + (princ (ssg-text "vfl-nein")) + (setq antwort (vfl-menu (ssg-text "prompt-wahl-1-2") + (list (ssg-text "vfl-ja") (ssg-text "vfl-nein")) 1 + "vfl-es-setzen-frage")) + (setq es-vorhanden (/= antwort "2")) + (if es-vorhanden + (setq es-seite (vfl-frage-es-winkel-seite "gf-seite-ein-header")) + ;; Ohne ES wird auch kein Fussabdruck reserviert - sonst bliebe die + ;; letzte Gerade um Separator+ES zu kurz. + (setq ein-dx 0.0 ein-dz 0.0)))) ;; --- 3. Pfad waehlen + Sortieren + Analysieren + Eck-Vorpruefung --- ;; vfl-in-segmente kapselt Live (ssget -> gf-sortiere-objekte -> @@ -9631,21 +10867,32 @@ ;; --- GF-Gerade --- ((or (= antwort "") (= antwort "1")) (if (= run-typ "VF") ; offenen VF-Lauf schliessen - (progn (setq frame (vfl2-vf-close frame (car (frame->hz-winkel frame)))) + (progn (setq frame (vfl-pfad-vf-schliessen frame (car (frame->hz-winkel frame)))) (setq run-typ nil))) (setq winkel (vfl-in-real (ssg-text "vfl-m3-prompt-gf-neigung"))) (if (null winkel) (setq winkel *vfk-gefaelle-winkel*)) (if (> winkel *vfk-gefaelle-winkel*) (progn (princ (ssg-text "vfl-m3-hinweis-gf-max")) (setq winkel *vfk-gefaelle-winkel*))) + ;; Ohne AS beginnt die Kette direkt am Startpunkt - nur ein flacher + ;; Rahmen, kein Block (wie vfl-kettenanfang-baustein in Modus 1). + ;; Die Fussabdruck-Trimmung unten rechnet dann automatisch 0, weil + ;; (car frame) und startpunkt zusammenfallen. (if (null frame) - (setq frame (vfl2-insert-as-gf startpunkt hz winkel as-seite))) + (setq frame (if as-vorhanden + (vfl-pfad-as-gf-einfuegen startpunkt hz winkel as-seite) + (make-frame-from-dir startpunkt (hz-winkel->xu hz 0.0))))) (setq deltaL laenge) ;; erste Gerade: AS-Fussabdruck ENTLANG des Pfads exakt aus KS_AUS abziehen (if (= i first-line) (setq deltaL (- deltaL (+ (* (- (car (car frame)) (car startpunkt)) (cos (* hz (/ pi 180.0)))) (* (- (cadr (car frame)) (cadr startpunkt)) (sin (* hz (/ pi 180.0)))))))) - (if (= i last-line) (setq deltaL (- deltaL *vfk-separator-laenge* ein))) + ;; letzte Gerade: Platz fuer Separator + ES freihalten - aber nur, + ;; wenn ueberhaupt ein ES kommt (seit 2026-10-22 abfragbar). "ein" + ;; traegt jetzt den ECHTEN ein-dx der gewaehlten ES-Variante, weil + ;; die ES-Frage vor dem Bau steht. + (if (and (= i last-line) es-vorhanden) + (setq deltaL (- deltaL *vfk-separator-laenge* ein))) (setq deltaL (max *vfk-restlaenge-min-clamp* deltaL)) (setq frame (vfl-insert-gf-segment (car frame) hz deltaL winkel)) (vfl-acc-gf-seg (/ deltaL (cos (* winkel (/ pi 180.0)))) winkel) @@ -9655,16 +10902,18 @@ (setq richtn (cond ((= antwort "3") "Auf") ((= antwort "4") "horizontal") (t "Ab"))) (setq just-open nil) (if (null frame) ; AS (flach) am Kettenanfang, KS_AUS auf Pfad - (setq frame (vfl2-insert-as-vf startpunkt hz as-seite))) + (setq frame (if as-vorhanden + (vfl-pfad-as-vf-einfuegen startpunkt hz as-seite) + (make-frame-from-dir startpunkt (hz-winkel->xu hz 0.0))))) (if (not (= run-typ "VF")) ; VF-Einheit oeffnen - (progn (setq frame (vfl2-vf-open frame hz)) + (progn (setq frame (vfl-pfad-vf-oeffnen frame hz)) (setq run-typ "VF" just-open t))) (if (= richtn "horizontal") (setq best-w 0) (progn (setq best-w (vfl-in-int (ssg-text "vfl-vwnb-prompt-vario-winkel"))) (if (null best-w) (setq best-w 3)) - (setq best-w (vfl2-snap-vfwinkel best-w)) + (setq best-w (vfl-pfad-vfwinkel-snappen best-w)) (if dbg-an (progn (dbgmsg "Vario-Winkel (gesnapt):") (dbg 'best-w) (dbgflush))))) (setq L_VF laenge) (if just-open (setq L_VF (- L_VF ent-fp))) ; Entry-Fussabdruck reservieren @@ -9695,7 +10944,7 @@ (if (null frame) (progn (vfl-meldung (ssg-text "vfl-m3-alert-beginnt-bogen")) (exit))) (if (= run-typ "VF") ; VF-Lauf vor GF-Bogen schliessen - (progn (setq frame (vfl2-vf-close frame (car (frame->hz-winkel frame)))) + (progn (setq frame (vfl-pfad-vf-schliessen frame (car (frame->hz-winkel frame)))) (setq run-typ nil))) (setq frame (vfl-insert-gf-bogen-block frame bwinkel bseite)) (setq run-typ "GF")))) @@ -9704,16 +10953,21 @@ ;; --- 7. Kettenende: offenen VF-Lauf schliessen, dann Separator + ES --- (if (null frame) (progn (princ (ssg-text "vfl-m3-nichts-gebaut")) (exit))) + ;; Alt-Journal: dort steht die ES-Frage GENAU HIER (siehe Schritt 2) - die + ;; Replay-Reihenfolge muss stimmen, also wird sie hier nachgeholt. ;; vfl-frage-es-seite nutzt intern bereits vfl-in-value/vfl-menu - wird also ;; automatisch mitgeloggt, kein manueller dbgmsg noetig. - (setq es-seite (vfl-frage-es-seite nil)) + (if alt-journal (setq es-seite (vfl-frage-es-seite nil))) (if (= run-typ "VF") (progn - (setq frame (vfl2-vf-close frame (car (frame->hz-winkel frame)))) - (setq frame (vfl-insert-es-element "VF" frame (car (frame->hz-winkel frame)) - 0.0 (caddr (car frame)) es-seite))) - (setq frame (vfl-insert-es-element "GF" frame (car (frame->hz-winkel frame)) - (if letzt-winkel letzt-winkel *vfk-gefaelle-winkel*) (caddr (car frame)) es-seite))) + (setq frame (vfl-pfad-vf-schliessen frame (car (frame->hz-winkel frame)))) + (if es-vorhanden + (setq frame (vfl-insert-es-element "VF" frame (car (frame->hz-winkel frame)) + 0.0 (caddr (car frame)) es-seite)))) + (if es-vorhanden + (setq frame (vfl-insert-es-element "GF" frame (car (frame->hz-winkel frame)) + (if letzt-winkel letzt-winkel *vfk-gefaelle-winkel*) + (caddr (car frame)) es-seite)))) ;; --- 8. Block + Journal-XDATA + Ist-Ziel-Report --- (setq hoehe-bis (caddr (car frame))) @@ -9757,16 +11011,27 @@ ) ;; ============================================================ -;; MODUS 3: Pfad + Ziel-Hoehe (Randwert-Solver) - M3a -;; Schritt 1+2: Geruest + Klassifizierung + Anker-Report. NOCH KEIN Bauen. -;; Details siehe doc/VarioFoerderer_Linienzug_Prinzipien.md, Abschnitt 14. +;; Z-SOLVER (vfl-zsolve-*) - Rechenkern von MODUS 2 (Pfad + Ziel-Hoehe) +;; ============================================================ +;; Gehoert zu vf-linienzug-modus2 (Menue-Modus 2), NICHT zu Modus 3 - die +;; Ueberschrift sagte bis 2026-10-22 faelschlich "MODUS 3", weil die Helfer +;; aus einer Planungsphase vor der endgueltigen Menue-Zuordnung stammen. Seit +;; der Umbenennung tragen sie darum gar keine Modus-Nummer mehr, sondern ihre +;; ROLLE: sie rechnen die Hoehen (Z) durch, waehrend der Grundriss (XY) vom +;; gezeichneten Pfad kommt. Genau diese Entkopplung macht das Randwertproblem +;; loesbar (siehe doc/VarioFoerderer_Linienzug_Prinzipien.md, Abschnitt 14.1). +;; +;; Gegenstueck: die vfl-pfad-*-Helfer weiter oben arbeiten auf dem +;; gezeichneten Pfad selbst (Eckwinkel pruefen, AS einfuegen, VF oeffnen/ +;; schliessen) und werden von Modus 2 UND Modus 3 genutzt - auch sie tragen +;; deshalb bewusst keine Modus-Nummer. ;; ============================================================ ;; Signierte Z-Aenderung (mm) einer GF-Geraden: negativ = Abfall. ;; l-planar = XY-Planlaenge (aus Pfad), winkel = Neigung in Grad (fallend). ;; Ueber die Planlaenge gilt dz = -L * tan(winkel) (Fussabdruck bleibt L, ;; die 3D-Laenge waechst mit L/cos, siehe Doc 14.1). -(defun vfl3-gf-dz (l-planar winkel / rad) +(defun vfl-zsolve-gf-dz (l-planar winkel / rad) (setq rad (* (float winkel) (/ pi 180.0))) (- (* (float l-planar) (/ (sin rad) (cos rad))))) @@ -9775,10 +11040,10 @@ ;; GF-Bogen -> dz aus gf-bogen-masse (Block-KS) ;; Vario-Kurve -> 0 (auf 0 Grad geflacht) ;; VF-Gerade -> nil (unbekannt = Teil der Bruecke) -(defun vfl3-seg-dz (e) +(defun vfl-zsolve-seg-dz (e) (cond ((= (car e) "Linie") - (if (= (nth 3 e) "GF") (vfl3-gf-dz (caddr e) (nth 4 e)) nil)) + (if (= (nth 3 e) "GF") (vfl-zsolve-gf-dz (caddr e) (nth 4 e)) nil)) ((= (car e) "Bogen") (if (= (nth 5 e) "Vario-Kurve") 0.0 @@ -9792,7 +11057,12 @@ ;; ihre Laenge variiert (das ist der Ausgleich, siehe Doc 14.3). ;; dH-signiert: negativ = Auf (steigt), positiv = Ab (faellt). ;; Rueckgabe: (winkel L_GF L_VF richtung) oder nil (kein passender Winkel). -(defun vfl3-solve-bruecke (span dH-signiert extra-fest / +;; +;; HINWEIS: derzeit von NIEMANDEM aufgerufen - der Bau-Pfad loest die Bruecke +;; ueber vfl-zsolve-winkel-waehlen. Beim Umbenennen 2026-10-22 bewusst stehen +;; gelassen statt geloescht (gehoert in ein Tote-Code-Review, nicht in eine +;; Umbenennung). +(defun vfl-zsolve-bruecke (span dH-signiert extra-fest / o-adx o-adz o-eix o-eiz richtung fh res winkel) (setq richtung (if (< dH-signiert 0) "Auf" "Ab")) (setq fh (+ (if (boundp '*vfl-feste-horizontal*) *vfl-feste-horizontal* 1300.0) @@ -9808,7 +11078,7 @@ ;; GF-Bogen-dz, wenn der Bogen bei Neigung theta (Grad) KS-gekettet wird: ;; der lokale (dx,dz) des Blocks wird um theta gekippt. ;; Z-Anteil = -dx*sin(theta) + dz*cos(theta) (negativ = Abfall) -(defun vfl3-bogen-dz-incl (bwinkel bseite theta / m dx dz rad) +(defun vfl-zsolve-bogen-dz-incl (bwinkel bseite theta / m dx dz rad) (setq m (gf-bogen-masse bwinkel bseite) dx (car m) dz (cadr m)) (setq rad (* (float theta) (/ pi 180.0))) (+ (* (- dx) (sin rad)) (* dz (cos rad)))) @@ -9818,7 +11088,7 @@ ;; ES-Eigen-dz. Spiegelt den tatsaechlichen Bau (Trimmung der letzten Geraden um ;; 300+ein-fp, GF-Bogen bei Neigung). Eintritts-Neigung = 3 Grad (die Bruecke ;; endet mit GF2 auf 3 Grad). So wird die Junction-Hoehe exakt statt geschaetzt. -(defun vfl3-dback (plan start-idx n last-idx ein-fp / i seg drop inc w dL rad) +(defun vfl-zsolve-rueckanker (plan start-idx n last-idx ein-fp / i seg drop inc w dL rad) (setq drop 0.0 inc *vfk-gefaelle-winkel* i start-idx) (while (< i n) (setq seg (nth i plan)) @@ -9832,7 +11102,7 @@ (setq inc w)) ((= (car seg) "Bogen") (if (= (nth 5 seg) "GF-Bogen") - (setq drop (- drop (vfl3-bogen-dz-incl (nth 3 seg) (nth 4 seg) inc)))))) + (setq drop (- drop (vfl-zsolve-bogen-dz-incl (nth 3 seg) (nth 4 seg) inc)))))) (setq i (1+ i))) ;; Auslauf-Separator (300 mm bei aktueller Neigung inc) + ES-Eigen-dz (setq rad (* (float inc) (/ pi 180.0))) @@ -9846,7 +11116,7 @@ ;; Horizontal-Mitte-Koerper zwei 3-Grad-Uebergangsboegen. Einbau-Rotationen wie ;; in vfs-vf-koerper; Bogen-dz_eff = -dx*sin(rot) + dz_roh*cos(rot) (am Log ;; verifiziert). So ist die Hoehe rein rechnerisch bestimmt -> Kletterlaenge folgt. -(defun vfl3-einheit-fix-dz (w n-climb n-hor gf1 richtung / +(defun vfl-zsolve-einheit-fix-dz (w n-climb n-hor gf1 richtung / pi180 rad3 s3 tot m1 m2 r1 r2 dz1 dz2) (setq pi180 (/ pi 180.0) rad3 (* *vfk-gefaelle-winkel* pi180) s3 (sin rad3) tot 0.0) ;; feste 3-Grad-Teile senken immer ab (GF1 + Separator + Umlenk + Motor) @@ -9872,7 +11142,7 @@ ;; + je Kletterer die zwei Boegen + je Horizontal-Mitte-Koerper die zwei ;; 3-Grad-Boegen. dx_eff = dx*cos(rot) + dz_roh*sin(rot) (am Log verifiziert). ;; Dient der Winkelwahl: Fussabdruck + Kletter-Planlaenge soll die Lauflaenge treffen. -(defun vfl3-einheit-fix-dx (w n-climb n-hor gf1 richtung / +(defun vfl-zsolve-einheit-fix-dx (w n-climb n-hor gf1 richtung / pi180 rad3 tot m1 m2 r1 r2 dx1 dx2) (setq pi180 (/ pi 180.0) rad3 (* *vfk-gefaelle-winkel* pi180) tot 0.0) (setq tot (* (+ (float gf1) *vfk-separator-laenge* *vfk-stations-laenge* *vfk-stations-laenge*) (cos rad3))) ; Stationen planar @@ -9892,13 +11162,13 @@ ;; Uebergang von der 3-Grad-Kletterbasis in die FLACHE Zone (0 Grad): EIN auf_3-Bogen ;; (Rotation 3 Grad). Rueckgabe: neuer Punkt. -(defun vfl3-flach-ein (pt hz / m) +(defun vfl-zsolve-flach-ein (pt hz / m) (setq m (get-bogen-mass bogen-auf 3)) (insert-rotated-block-with-ks "Vario_Bogen_auf_3_TEF_rechts" pt 3 (car m) (caddr m) hz)) ;; Uebergang aus der flachen Zone (0 Grad) zurueck auf 3-Grad-Basis: EIN ab_3-Bogen ;; (Rotation 0 Grad). Rueckgabe: neuer Punkt. -(defun vfl3-flach-aus (pt hz / m) +(defun vfl-zsolve-flach-aus (pt hz / m) (setq m (get-bogen-mass bogen-ab 3)) (insert-rotated-block-with-ks "Vario_Bogen_ab_3_TEF_rechts" pt 0 (car m) (caddr m) hz)) @@ -9906,7 +11176,7 @@ ;; Mittige Bruecke -> KEIN terminales AS/ES (Masse auf 0, Save/Restore). feste = fester ;; Horizontal-Anteil des Kletter-Segments (Umlenk+Separator = 800; Motor sitzt spaeter ;; am Kettenende). Rueckgabe: (winkel L_GF L_VF richtung) oder nil. -(defun vfl3-waehle-winkel (span dH-signiert feste / +(defun vfl-zsolve-winkel-waehlen (span dH-signiert feste / o-adx o-adz o-eix o-eiz richtung res wahl) (setq richtung (if (< dH-signiert 0) "Auf" "Ab")) (setq o-adx aus-dx o-adz aus-dz o-eix ein-dx o-eiz ein-dz) @@ -9918,14 +11188,14 @@ ;; ES-Element-Fussabdruck ENTLANG/QUER zu einer Fahrtrichtung seg-hz (Welt- ;; Komponenten), aus der REALEN Blockgeometrie (vf-element-ks-info) berechnet. -;; Kernstueck von vfl3-es-fueller, hier ausgelagert, damit AUCH die feste-vf- +;; Kernstueck von vfl-zsolve-es-fueller, hier ausgelagert, damit AUCH die feste-vf- ;; Berechnung in vf-linienzug-modus2 (Fall hor-pairs=0, OHNE flache -;; Zone/vfl3-es-fueller) denselben Wert nutzen kann, statt den ES-Laengsanteil +;; Zone/vfl-zsolve-es-fueller) denselben Wert nutzen kann, statt den ES-Laengsanteil ;; im Laengenbudget des Solvers stillschweigend zu vergessen (realer Bug: ;; Kette ueberschoss um ungefaehr along-es+Separator, siehe dortiger Kommentar). ;; Rueckgabe: (list along-es perp-es) oder nil, wenn der Block nicht lesbar ;; ist (Aufrufer faellt dann auf eine grobe Naeherung zurueck). -(defun vfl3-es-vektor (es-block seg-hz / info theta dpx dpy npx npy phi vx vy vwx vwy) +(defun vfl-zsolve-es-vektor (es-block seg-hz / info theta dpx dpy npx npy phi vx vy vwx vwy) (setq info (vf-element-ks-info es-block)) (if (null info) nil @@ -9949,10 +11219,10 @@ ;; KS_AUS = pt + (fill + C)*dp + perp-es*np ;; C = 196 (ab_3) + (Motor 500 + GF2 + Sep 300)*cos3 + along-es ;; Achse u_a = seg-hz + (KS_AUS.xu - KS_EIN.xu)_Block ; (Endpunkt-KS_AUS)*n_a=0 -> fill -(defun vfl3-es-fueller (pt endp seg-hz es-block gf2 rad3 / +(defun vfl-zsolve-es-fueller (pt endp seg-hz es-block gf2 rad3 / vek theta dpx dpy npx npy info along-es perp-es ua na-x na-y cc dp-na np-na ep-na) - (setq vek (vfl3-es-vektor es-block seg-hz)) + (setq vek (vfl-zsolve-es-vektor es-block seg-hz)) (if (null vek) (- (+ (* (- (car endp) (car pt)) (cos (* seg-hz (/ pi 180.0)))) (* (- (cadr endp) (cadr pt)) (sin (* seg-hz (/ pi 180.0))))) @@ -9986,11 +11256,13 @@ hoehe-bis soll-ende ist-ende old-error vfl-ins vf-run-member carrier-idx kv-variante seg-hz letzt-koerper-hz vf-first-line vf-last-line climber-span mid-hor + m2-format-neu grenz-erg letzte-linie es-folgt-sep + uebergang-fp br-lvf this-lvf nach-kurve nach-vf sep-vor-gf sep-nach-gf n-climb n-hor target-climb winkel-list fdz fdx wslope lvf planar-len ang-diff best-diff w - climb-thresh longest-idx climbers nonclimber-len + longest-idx climbers nonclimber-len nonclimber-cnt nkurve kurve-chords run-span hor-koerper-len hor-pairs flat-p flat-zone-erste fill-len wahl3 rad3v feste-vf dH-adj dir-x dir-y fill-D end-hz @@ -9999,7 +11271,8 @@ gf-total br-gf-mode br-gf2-exp filler-A-len filler-a-done as-vorhanden es-vorhanden dbg-an dbg-old-error m2-lauf-antwort m2-offenes-ende es-frueh-abgelehnt - m2-front-antwort m2-offener-anfang m2-kein-gf1-vorne entry-fixed) + m2-front-roh m2-front-antwort m2-offener-anfang + m2-kein-gf1-vorne entry-fixed) (princ "\n\n=========================================") (princ (ssg-text "vfl-m3-titel")) (princ "\n=========================================") @@ -10053,7 +11326,7 @@ "vfl-prompt-hoehe-startpunkt" "gf-status-abgebrochen" "Starthoehe (Z, mm):")) (setq start-hoehe (caddr startpunkt)) (if (vfl-wizard-aktiv) - (vl-catch-all-apply 'vflw-gruppe-as-impl (list "vfl-as-setzen-frage"))) + (vl-catch-all-apply 'vflw-gruppe-as-impl (list "vfl-as-setzen-frage" nil))) (princ (ssg-text "vfl-as-setzen-frage")) (princ (ssg-text "vfl-ja")) (princ (ssg-text "vfl-m3-as-nein")) @@ -10074,7 +11347,7 @@ "vfl-m3-prompt-zielhoehe" "gf-status-abgebrochen" "Zielhoehe (Z, mm):")) (setq end-hoehe (caddr endpunkt)) (if (vfl-wizard-aktiv) - (vl-catch-all-apply 'vflw-gruppe-as-impl (list "vfl-es-setzen-frage"))) + (vl-catch-all-apply 'vflw-gruppe-as-impl (list "vfl-es-setzen-frage" nil))) (princ (ssg-text "vfl-es-setzen-frage")) (princ (ssg-text "vfl-ja")) (princ (ssg-text "vfl-es-nein-zielpunkt")) @@ -10100,7 +11373,31 @@ ;; --- 5. Klassifizierung (Phase A: nur speichern, nichts bauen) --- ;; Plan-Eintrag Gerade: ("Linie" hz laenge klass winkel) klass=GF/VF ;; Plan-Eintrag Bogen : ("Bogen" hz chord bwinkel bseite klass) + ;; + ;; FORMATMARKE der Plan-Phase. Seit 2026-10-22 wird der Typ eines Bogens + ;; AUCH nach einer VF-Geraden gefragt (vorher Vario-Kurve erzwungen, ohne + ;; Journal-Eintrag). Aeltere "linienzug2"-Ketten haben diese Antwort also + ;; nicht, und am WERT allein ist das nicht zu erkennen: Bogentyp und + ;; Vario-Variante benutzen beide "1"/"2". Darum eine eigene, selbst- + ;; beschreibende Marke ("m2v2") vor der Schleife - sie steht im Journal nur + ;; bei neu gebauten Ketten und wird beim Replay nur dann konsumiert, wenn + ;; sie wirklich da ist. Alles Alte laeuft unveraendert im Zwangs-Modus. + (setq m2-format-neu (vfl-m2-formatmarke)) (setq n (length segmente) i 0 plan '()) + ;; Index der LETZTEN Geraden im Pfad. Nur dort schliesst das ES-Element + ;; direkt an - und das bringt seinen Separator IMMER selbst mit + ;; (vfl-insert-es-element). Die Frage "Separator NACH dieser + ;; Gefaellestrecke" wird dort darum gesperrt; ohne das standen zwei + ;; Separatoren unmittelbar hintereinander vor dem ES (Nutzer-Befund + ;; 2026-10-23, im Bau-Log zweimal "Staustrecke_Separator_SP_300_mm" in + ;; Folge). Gesperrt wird im Segment-Dialog selbst (vflw-seg-linie-m2-impl, + ;; Parameter es-folgt-sep) - Modus 1 macht dasselbe in seinem eigenen + ;; Dialog vflw_sep_gf. + (setq letzte-linie -1) + (while (< i n) + (if (= (car (nth i segmente)) "Linie") (setq letzte-linie i)) + (setq i (1+ i))) + (setq i 0) (while (< i n) (setq seg (nth i segmente) typ (car seg) hz (cadr seg) laenge (caddr seg)) ;; seg-ent: KEINE Live-Entity mehr - Modus 2 baut jetzt aus der Segment- @@ -10110,21 +11407,33 @@ ;; Original-Objekten, ein Highlight haette beim Doppelklick-Neubau ohnehin ;; keine Entity mehr. (setq seg-ent nil) + ;; Segmentkopf fuer ALLE Dialoge dieses Segments setzen - auch fuer die, + ;; die auf einen generischen Dialog zurueckfallen (Vario-Variante, + ;; Separator vor/nach). Ohne ihn stand dort nur die Frage, ohne Bezug zum + ;; Segment (Nutzer-Befund 2026-10-22). Siehe vflw-kopf-text. + (setq *vflw-seg-kopf* (strcat "Segment " (itoa (1+ i)) "/" (itoa n))) + ;; Schliesst an DIESES Segment direkt das ES-Element an? Dann bringt es + ;; seinen Separator selbst mit und "Separator NACH" muss gesperrt sein + ;; (siehe letzte-linie oben). Wird sowohl dem Segment-Dialog als auch dem + ;; Konsolenweg unten uebergeben. + (setq es-folgt-sep (and es-vorhanden (= i letzte-linie))) ;; Wizard: alle Fragen dieses Segments in EINEM Dialog erfassen (die ;; unveraenderten vfl-menu/vfl-in-*-Aufrufe unten konsumieren die Antworten ;; aus *vflw-pending*). Der nach-kurve-Fall stellt keine Frage (auto-VF) -> - ;; kein Dialog. Ebenso nach-vf bei einem Bogen: Vario-Kurve ist dann - ;; erzwungen (eine VF-Einheit kann nicht in einen GF-Bogen auslaufen). + ;; kein Dialog. Beim Bogen NACH einer VF-Geraden gibt es seit 2026-10-22 + ;; wieder eine Typ-Frage (siehe unten) - der Dialog kommt also auch dort; + ;; nur beim Nachbau eines Alt-Journals bleibt er aus, weil dessen Antwort + ;; an der Stelle fehlt. (if (and (vfl-wizard-aktiv) (not (and (= typ "Linie") nach-kurve)) - (not (and (= typ "Bogen") nach-vf))) + (not (and (= typ "Bogen") nach-vf (not m2-format-neu)))) (progn (vfl-seg-highlight seg-ent T) (if (= typ "Linie") (vflw-seg-linie-m2-impl (vfl-seg-kopf (1+ i) n (strcat "Gerade L=" (rtos laenge 2 0) " mm hz=" (rtos hz 2 1))) - *vfk-gefaelle-winkel*) + *vfk-gefaelle-winkel* es-folgt-sep) (vflw-seg-bogen-impl (vfl-seg-kopf (1+ i) n (strcat "Eck/Bogen " (itoa (nth 3 seg)) " Grad " (nth 4 seg))) @@ -10159,6 +11468,12 @@ ;; Planlaenge bleibt hier UNVERAENDERT (reale Pfadlaenge, fuer ;; die Anker-Vorschau noetig); die Trennung in GF-Koerper+ ;; Separator passiert erst beim Bauen (Phase B). + ;; Hinweis fuer den Konsolenweg; im Wizard sperrt der + ;; Segment-Dialog die Kachel "Separator NACH" selbst (siehe + ;; vflw-seg-linie-m2-impl, Parameter es-folgt-sep) - ein + ;; ZUSAETZLICHER Dialog waere hier falsch, er wuerde zwei + ;; ueberzaehlige Antworten in die Pending-Queue legen. + (if es-folgt-sep (princ (ssg-text "vfl-sep-gf-es-automatisch"))) (princ (ssg-text "vfl-sep-vor-gf-frage")) (setq sep-vor-gf (= (vfl-menu (ssg-text "vfl-prompt-wahl-1-2-def2") (list (ssg-text "vfl-ja") (ssg-text "vfl-nein")) 2 @@ -10167,18 +11482,38 @@ (setq sep-nach-gf (= (vfl-menu (ssg-text "vfl-prompt-wahl-1-2-def2") (list (ssg-text "vfl-ja") (ssg-text "vfl-nein")) 2 "vfl-sep-nach-gf-frage") "1")) + ;; Sicherheitsnetz fuer den reinen Konsolenpfad (dort gibt es + ;; kein Ausgrauen): Antwort verwerfen und melden - wie Modus 1. + (if (and sep-nach-gf es-folgt-sep) + (progn (vfl-meldung (ssg-text "vfl-sep-nach-durch-es-ueberschrieben")) + (setq sep-nach-gf nil))) (setq plan (cons (list "Linie" hz laenge "GF" winkel sep-vor-gf sep-nach-gf) plan)) (setq nach-vf nil)))))) ((= typ "Bogen") (setq bwinkel (nth 3 seg) bseite (nth 4 seg)) (princ (ssg-textf "vfl-m3-seg-bogen" (list (itoa (1+ i)) (itoa n) (itoa bwinkel) bseite))) - (if nach-vf - (setq antwort "2") ; nach VF-Gerade: Vario-Kurve erzwungen, keine Typ-Frage + ;; Nach einer VF-Geraden wurde der Bogen frueher ZWINGEND zur + ;; Vario-Kurve ("eine VF-Einheit kann nicht in einen GF-Bogen + ;; auslaufen"). Das stimmt nicht: die VF-Einheit endet mit der + ;; Motorstation, danach ist die Kette wieder auf der 3-Grad-Basis, wo + ;; ein GF-Bogen das normale Element ist - Modus 1 erlaubt genau das + ;; (Nutzer-Korrektur 2026-10-22). Gefragt wird daher immer; nach einer + ;; VF-Geraden ist die Vario-Kurve nur noch die VORAUSWAHL. + ;; Ein GF-Bogen beendet den Lauf; entstuende dadurch ein ZWEITER + ;; VF-Lauf, faengt das die bestehende "genau ein Lauf"-Pruefung ab. + ;; + ;; ALT-JOURNAL: dort fehlt die Antwort an dieser Stelle (die Frage gab + ;; es nicht). Erkannt wird das an der Formatmarke am Anfang der + ;; Plan-Phase (m2-format-neu) - am WERT der naechsten Antwort ginge es + ;; nicht, denn Typ und Variante benutzen beide "1"/"2". + (if (and nach-vf (not m2-format-neu)) + (setq antwort "2") ; Alt-Journal: Vario-Kurve war erzwungen (progn (princ (ssg-text "vfl-m3-typ-bogen")) (setq antwort (vfl-menu (ssg-text "prompt-wahl-1-2") - (list "GF-Bogen" "Vario-Kurve") 1 + (list "GF-Bogen" "Vario-Kurve") + (if nach-vf 2 1) "vfl-m3-typ-bogen")))) (setq nach-vf nil) (if (= antwort "2") @@ -10194,6 +11529,9 @@ (setq plan (cons (list "Bogen" hz laenge bwinkel bseite "GF-Bogen" nil) plan)) (setq nach-kurve nil))))) (setq i (1+ i))) + ;; Segmentkopf wieder abschalten - ab hier sind die Fragen nicht mehr einem + ;; einzelnen Pfad-Segment zugeordnet (Lauf-Anfang/-Ende, Winkelwahl). + (setq *vflw-seg-kopf* nil) (setq plan (reverse plan)) ;; --- 6. VF-Lauf finden: VF-Geraden UND Vario-Kurven bilden EINEN Lauf --- @@ -10222,6 +11560,34 @@ ;; headless nur princ - blockiert also einen Batch-Lauf nicht). (vfl-meldung (ssg-textf "vfl-m3-vf-lauf-alert" (list (itoa vf-count)))) (exit))) + + ;; --- Bau-Grenzen der VF-Einheit (Nutzer-Regel 2026-10-22) --- + ;; Zwischen Umlenkstation und Motorstation: hoechstens 2 Vario-Kurven (also + ;; maximal drei VF-Geraden) und hoechstens *vfk-vf-laenge-max* (25 m). + ;; Bisher war die Laenge nur ein HINWEIS nach dem Solver - die Kette wurde + ;; trotzdem gebaut, obwohl sie so nicht herstellbar ist. Jetzt wird vor dem + ;; Bau abgebrochen, und zwar MIT der Stelle, an der zu teilen ist: den dort + ;; genannten Bogen als GF-Bogen klassifizieren, dann entstehen zwei + ;; Einheiten (die automatische Teilung kommt mit der Mehr-Lauf-Stufe M3b, + ;; siehe vfl-m3-vf-lauf-m3b). + (setq grenz-erg (vfl-m2-lauf-grenzen plan vf-start vf-ende + *vfk-vf-laenge-max* *vfk-vf-kurven-max*)) + (if (nth 2 grenz-erg) + (progn + (if (< (nth 2 grenz-erg) 0) + (vfl-meldung (ssg-textf "vfl-m2-einheit-grenze-unteilbar" + (list (rtos (/ (nth 0 grenz-erg) 1000.0) 2 1) + (itoa (nth 1 grenz-erg)) + (rtos (/ *vfk-vf-laenge-max* 1000.0) 2 1) + (itoa (fix *vfk-vf-kurven-max*))))) + (vfl-meldung (ssg-textf "vfl-m2-einheit-grenze" + (list (rtos (/ (nth 0 grenz-erg) 1000.0) 2 1) + (itoa (nth 1 grenz-erg)) + (rtos (/ *vfk-vf-laenge-max* 1000.0) 2 1) + (itoa (fix *vfk-vf-kurven-max*)) + (itoa (1+ (nth 2 grenz-erg))))))) + (exit))) + ;; Traeger-Stueck = laengste VF-Gerade im Lauf (traegt die ganze Hoehe). (setq carrier-idx -1 i vf-start) (while (<= i vf-ende) @@ -10237,14 +11603,14 @@ ;; Vorwaerts: Start-Z durch alle Front-Segmente (Index < vf-start). (setq z-front (float start-hoehe) i 0) (while (< i vf-start) - (setq dz (vfl3-seg-dz (nth i plan))) + (setq dz (vfl-zsolve-seg-dz (nth i plan))) (if dz (setq z-front (+ z-front dz))) (setq i (1+ i))) ;; Rueckwaerts: Ziel-Z durch alle Back-Segmente (Index > vf-ende). ;; Vorwaerts gilt Z_next = Z_prev + dz -> rueckwaerts Z_prev = Z_next - dz. (setq z-junction (float end-hoehe) i (1- n)) (while (> i vf-ende) - (setq dz (vfl3-seg-dz (nth i plan))) + (setq dz (vfl-zsolve-seg-dz (nth i plan))) (if dz (setq z-junction (- z-junction dz))) (setq i (1- i))) @@ -10293,28 +11659,50 @@ (setq m2-offener-anfang nil m2-kein-gf1-vorne nil) (if (= vf-start 0) (progn + ;; Reihenfolge UND Nummerierung wie im Dialog: Regelfall zuerst, + ;; Sonderfall zuletzt (Nutzer-Wunsch 2026-10-23). Die Ziffer ist reine + ;; Anzeige - journalisiert wird der WERT (vfl-menu-strwert), ein + ;; Umsortieren beruehrt bestehende Ketten darum nicht. (princ (ssg-text "vfl-m3-lauf-anfang-header")) - (princ (ssg-text "vfl-m3-lauf-anfang-opt-offen")) - (princ (ssg-text "vfl-m3-lauf-anfang-opt-umlenk")) (princ (ssg-text "vfl-m3-lauf-anfang-opt-umlenk-gf1")) + (princ (ssg-text "vfl-m3-lauf-anfang-opt-umlenk")) + (princ (ssg-text "vfl-m3-lauf-anfang-opt-offen")) + ;; Begruendung direkt unter der gesperrten Option. + (if as-vorhanden (princ (ssg-text "vfl-m2-anfang-offen-gesperrt-zeile"))) (if (vfl-wizard-aktiv) - (vl-catch-all-apply 'vflw-m2-lauf-anfang-impl (list (ssg-text "vfl-m3-lauf-anfang-header")))) - (setq m2-front-antwort (vfl-menu (ssg-text "vfl-prompt-wahl-1-3-def3") - (list (ssg-text "vfl-m3-lauf-anfang-opt-offen") - (ssg-text "vfl-m3-lauf-anfang-opt-umlenk") - (ssg-text "vfl-m3-lauf-anfang-opt-umlenk-gf1")) 3 - "vfl-m3-lauf-anfang-header")) + (vl-catch-all-apply 'vflw-m2-lauf-anfang-impl + (list (ssg-text "vfl-m3-lauf-anfang-header") as-vorhanden))) + (setq m2-front-roh + (vfl-menu-strwert (ssg-text "vfl-prompt-wahl-1-3-def1") + (list (ssg-text "vfl-m3-lauf-anfang-opt-umlenk-gf1") + (ssg-text "vfl-m3-lauf-anfang-opt-umlenk") + (ssg-text "vfl-m3-lauf-anfang-opt-offen")) + *vfl-m2-anfang-werte* 1 + "vfl-m3-lauf-anfang-header")) + (setq m2-front-antwort (vfl-m2-anfang-norm m2-front-roh)) (cond - ((= m2-front-antwort "1") + ;; Unbekannter Wert (weder Alt-Ziffer noch gueltiger Wert): abbrechen + ;; statt zu raten - mit Kette und Wert, damit die Fundstelle bleibt. + ((null m2-front-antwort) + (vfl-meldung (ssg-textf "vfl-m2-anfang-wert-unbekannt" + (list (vfl-replay-kette-text) + (vl-princ-to-string m2-front-roh)))) + (exit)) + ;; Sicherheitsnetz fuer den Konsolenweg (dort gibt es kein + ;; Ausgrauen): "Ohne Umlenkstation" mit gesetztem AS wuerde das + ;; AS-Element verwerfen - abweisen und auf den Regelfall gehen. + ((and (= m2-front-antwort "ohne") as-vorhanden) + (vfl-meldung (ssg-text "vfl-m2-anfang-offen-gesperrt"))) + ((= m2-front-antwort "ohne") (setq as-vorhanden nil m2-offener-anfang t) (princ (ssg-text "vfl-m3-lauf-anfang-offen-hinweis"))) - ((= m2-front-antwort "2") (setq m2-kein-gf1-vorne t))))) + ((= m2-front-antwort "direkt") (setq m2-kein-gf1-vorne t))))) ;; --- Lauf-Abschluss waehlen, NUR wenn der VF-Lauf das Pfadende ist (kein ;; Back-Lauf danach) - sonst bleibt die Steuerung komplett unveraendert ;; (es-vorhanden aus der Upfront-Frage, Motorstation immer gebaut). "Ohne ;; Motorstation" muss VOR der Phase-B2-Zielhoehen-Berechnung feststehen, - ;; da sie die Separator/ES-Naeherung in vfl3-dback wieder aufhebt. + ;; da sie die Separator/ES-Naeherung in vfl-zsolve-rueckanker wieder aufhebt. (setq m2-offenes-ende nil) (if (= vf-ende (1- n)) (progn @@ -10399,7 +11787,7 @@ ;; (car frame) bereits gleich startpunkt ist. (if (null frame) (setq frame (if as-vorhanden - (vfl2-insert-as-gf startpunkt hz winkel as-seite) + (vfl-pfad-as-gf-einfuegen startpunkt hz winkel as-seite) (make-frame-from-dir startpunkt (hz-winkel->xu hz 0.0))))) (setq deltaL (caddr seg)) ;; erste Gerade: AS-Fussabdruck ENTLANG des Pfads exakt aus KS_AUS abziehen @@ -10447,17 +11835,17 @@ (setq hz (cadr (nth vf-start plan))) (if (null frame) (setq frame (if as-vorhanden - (vfl2-insert-as-vf startpunkt hz as-seite) + (vfl-pfad-as-vf-einfuegen startpunkt hz as-seite) (make-frame-from-dir startpunkt (hz-winkel->xu hz 0.0))))) (setq z-front (caddr (car frame))) ;; --- B2: Back-Abstieg -> Junction; Kletterer + Horizontal-Mitte bestimmen --- (setq z-junction (+ (float end-hoehe) - (vfl3-dback plan (1+ vf-ende) n last-line ein))) + (vfl-zsolve-rueckanker plan (1+ vf-ende) n last-line ein))) ;; Offenes Ende (kein Motor/Separator/ES danach) ODER Motor+GF2 OHNE ES ;; danach (Lauf-Abschluss "Motorstation", es-vorhanden nil - Motor selbst ;; ist bereits ueber dH-adj/*vfk-bruecke-korrektur* separat eingerechnet, - ;; siehe Phase B weiter unten): vfl3-dback's Tail-Naeherung (reserviert + ;; siehe Phase B weiter unten): vfl-zsolve-rueckanker's Tail-Naeherung (reserviert ;; IMMER einen Separator+ES-Fussabdruck) ist in BEIDEN Faellen falsch - die ;; Zielhoehe fuer den Loeser ist exakt end-hoehe. Realer Bug, bis dahin nur ;; fuer m2-offenes-ende behandelt: "Motorstation ohne ES" fiel durch dieselbe @@ -10465,11 +11853,29 @@ ;; faelschlich angenommenen Separator+ES-Abstiegs. (if (or m2-offenes-ende (not es-vorhanden)) (setq z-junction (float end-hoehe))) (setq dH-bruecke (- z-front z-junction)) - ;; Modell: EIN Vario mit Horizontal-Mitte. Nur VF-Geraden, die LANG GENUG sind - ;; (Vertikalboegen brauchen viel Platz), tragen die Hoehe (Kletterer, gleicher - ;; Winkel). Zu kurze VF-Geraden werden horizontal (nur Anschluss/Motor). - ;; Mindestens die laengste VF-Gerade klettert immer. - (setq climb-thresh (if (boundp '*vfl-min-climber-laenge*) *vfl-min-climber-laenge* 3000.0)) + ;; Modell: EIN Vario mit Horizontal-Mitte. GENAU EINE VF-Gerade traegt die + ;; Hoehe - die LAENGSTE des Laufs; alle anderen werden flache Fueller. + ;; + ;; REGEL (Nutzer-Vorgabe 2026-10-22): verbindet eine Vario-Kurve zwei + ;; VF-Geraden, wird die KUERZERE flach gebaut und die LAENGERE klettert. + ;; Bei mehr als zwei Geraden im Lauf ist das genau "nur die laengste + ;; klettert". + ;; + ;; WARUM das keine Geschmacksfrage ist: der Solver unten budgetiert EIN + ;; Kletterstueck mit EINEM Paar Vertikalboegen (auf_6/ab_6). Der Bau setzt + ;; dieses Paar aber je Kletterer. Frueher klettete zusaetzlich jede + ;; VF-Gerade ab *vfl-min-climber-laenge* (3000 mm) - bei zwei Kletterern + ;; fehlten dadurch ein zweites Bogenpaar UND die Uebergaenge der zusaetzlich + ;; entstehenden flachen Zone im Laengenbudget. Realer Fehler 2026-10-22: + ;; zwei Kletterer (9700 + 4296 mm), das erste Segment wurde 1355.9 mm zu + ;; lang gebaut, die ganze Kette ueberschoss um 3185 mm - bei korrekter + ;; Hoehe (dZ nur -10.2 mm), also rein ein Laengen-, kein Hoehenproblem. + ;; Mit genau einem Kletterer passt das Modell wieder zum Bau; die + ;; verbleibende Laenge der flachen Zone faengt der letzte Fueller ab, der + ;; ohnehin auf den Zielpunkt rechnet (vfl-zsolve-es-fueller). + ;; + ;; *vfl-min-climber-laenge* wird dadurch fuer die Auswahl nicht mehr + ;; gebraucht (siehe doc/VarioFoerderer_Linienzug_Prinzipien.md, Abschnitt 14). (setq longest-idx -1 i vf-start) (while (<= i vf-ende) (setq seg (nth i plan)) @@ -10483,7 +11889,9 @@ (setq seg (nth i plan)) (cond ((and (= (car seg) "Linie") (= (nth 3 seg) "VF")) - (if (or (= i longest-idx) (>= (caddr seg) climb-thresh)) + ;; NUR die laengste VF-Gerade klettert (siehe Regel oben) - jede + ;; weitere wird flacher Fueller. + (if (= i longest-idx) (setq climbers (cons i climbers) climber-span (+ climber-span (caddr seg))) (setq nonclimber-len (+ nonclimber-len (caddr seg)) nonclimber-cnt (1+ nonclimber-cnt)))) ((= (car seg) "Bogen") @@ -10529,7 +11937,7 @@ (setq feste-vf entry-fixed dH-adj (- dH-bruecke (+ (* *vfk-stations-laenge* (sin rad3v)) *vfk-bruecke-korrektur*))) ; Motor + auf_3/ab_3 (progn - ;; OHNE flache Zone gibt es KEIN vfl3-es-fueller, das den Separator+ES- + ;; OHNE flache Zone gibt es KEIN vfl-zsolve-es-fueller, das den Separator+ES- ;; Laengsanteil selbststaendig gegen den echten Zielpunkt korrigiert - ;; beide fehlten hier bislang komplett im Laengenbudget des Solvers ;; (realer Bug: die Kette ueberschoss um ungefaehr Separator+along-es, @@ -10537,7 +11945,7 @@ ;; WICHTIG: NUR die Laenge korrigieren, NICHT ueber feste-vf/dH-adj - ;; feste-vf fliesst in berechne-alle-winkel per sin(3°) AUCH in die ;; Hoehenbilanz ein, waehrend die reale Hoehe von Separator+ES bereits - ;; VOLLSTAENDIG ueber z-junction/vfl3-dback erfasst ist (Separator dort + ;; VOLLSTAENDIG ueber z-junction/vfl-zsolve-rueckanker erfasst ist (Separator dort ;; per tan(3°), ES-Eigenhoehe per ein-dz - siehe dortiger Kommentar). ;; Ueber feste-vf haette das die Hoehe ein zweites Mal (und fuer ;; along-es sogar physikalisch falsch, da along-es keinen sin(3°)- @@ -10547,7 +11955,7 @@ dH-adj dH-bruecke) (if es-vorhanden (progn - (setq es-vek-fix (vfl3-es-vektor + (setq es-vek-fix (vfl-zsolve-es-vektor (strcat "ES_Element_" (vfl-es-winkel) "_" es-seite) (cadr (nth vf-ende plan)))) (setq es-along-fix @@ -10559,7 +11967,31 @@ ;; es-along-fix (reine Laenge, siehe oben) NUR aus dem Laengenbudget (span) ;; abziehen - NICHT aus feste-vf, sonst floss es faelschlich ueber sin(3°) ;; auch in die Hoehenbilanz ein (siehe Kommentar oben). - (setq wahl3 (vfl3-waehle-winkel (- climber-span es-along-fix) dH-adj feste-vf)) + ;; --- Uebergangsboegen der flachen Zone ins LAENGENbudget --- + ;; vfl-zsolve-flach-ein (Vario_Bogen_auf_3) wird mit der Richtung des + ;; KLETTERERS eingebaut, liegt also physisch noch in dessen Pfad-Segment - + ;; im Solver-Budget kam er bisher gar nicht vor. Realer Befund 2026-10-23: + ;; Segment 1 (9700 mm) war mit Einlauf + auf_9 + Koerper + ab_9 exakt + ;; gefuellt, der auf_3 schob die Vario-Kurve danach um 199.9 mm hinter die + ;; gezeichnete Ecke; alles Folgende war mitverschoben. Spiegelbildlich gilt + ;; das fuer vfl-zsolve-flach-aus (Vario_Bogen_ab_3) beim EINTRITT in den + ;; Kletterer, wenn eine flache Zone vorausgeht. + ;; Nur die LAENGE wird korrigiert - die Hoehe dieser Boegen steckt bereits + ;; in *vfk-bruecke-korrektur* (siehe dH-adj oben). + (setq uebergang-fp 0.0) + (if (> n-climb 0) + (progn + (if (< (car climbers) vf-ende) ; flache Zone FOLGT -> flach-ein + (setq uebergang-fp + (+ uebergang-fp + (car (vfl-projiziere-neigung (car (get-bogen-mass bogen-auf 3)) + (caddr (get-bogen-mass bogen-auf 3)) + (fix *vfk-gefaelle-winkel*)))))) + (if (> (car climbers) vf-start) ; flache Zone GEHT VORAUS -> flach-aus + (setq uebergang-fp + (+ uebergang-fp (car (get-bogen-mass bogen-ab 3))))))) + (setq wahl3 (vfl-zsolve-winkel-waehlen + (- climber-span es-along-fix uebergang-fp) dH-adj feste-vf)) (if (null wahl3) (progn ;; Stufe 2: KEIN Tabellenwinkel passt (der/die Kletterer sind bei JEDER @@ -10638,7 +12070,7 @@ (cond ;; --- Kletterer (geneigt, 3-Grad-Basis) --- ((and (= (car seg) "Linie") (member i climbers)) - (if flat-p (progn (setq pt (vfl3-flach-aus pt seg-hz)) (setq flat-p nil))) + (if flat-p (progn (setq pt (vfl-zsolve-flach-aus pt seg-hz)) (setq flat-p nil))) (setq this-lvf (max *vfk-restlaenge-min-clamp* (* br-lvf (/ (caddr seg) climber-span)))) (setq pt (vfs-vf-koerper pt br-richtn br-winkel this-lvf seg-hz)) (vfl-acc-vf-seg br-richtn br-winkel this-lvf) @@ -10647,14 +12079,27 @@ ((= (car seg) "Linie") (setq flat-zone-erste (not flat-p)) (if (not flat-p) - (progn (setq pt (vfl3-flach-ein pt letzt-koerper-hz)) (setq flat-p t) + (progn (setq pt (vfl-zsolve-flach-ein pt letzt-koerper-hz)) (setq flat-p t) ;; Fueller-A: der im Kletter-Segment durch 1/2 GF1 frei werdende Platz (if (and (> filler-A-len 0.1) (not filler-a-done)) - (progn (setq pt (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" + (progn (vf-vfhoehe-merke pt) + (setq pt (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" pt filler-A-len 0 letzt-koerper-hz)) + (vf-vfhoehe-schliesse pt) (vfl-acc-vf-seg "horizontal" 0 filler-A-len) (setq anzahl-vf (1+ anzahl-vf) filler-a-done t))))) - (if (= i vf-ende) + ;; Der Ziel-Solve des letzten Fuellers gilt NUR, wenn der VF-Lauf + ;; zugleich das Pfadende ist. Seine Annahme steht unten im Kommentar: + ;; der Schwanz verschiebt sich STARR entlang seg-hz. Folgt nach dem + ;; Lauf noch ein Back-Lauf (GF-Bogen und/oder GF-Gerade), stimmt das + ;; nicht mehr - die Kette knickt dort ab, und der Fueller wurde mit + ;; einem falschen Modell bemessen (realer Befund 2026-10-23: Lauf + ;; endete bei Segment 3, danach kamen GF-Bogen + GF; Endpunkt lag + ;; 111.6 mm NEBEN der ES-Achse, bei exakter Hoehe). In diesem Fall + ;; bekommt der Fueller schlicht die Restlaenge seines Segments; um + ;; Separator + ES kuemmert sich der Back-Lauf selbst (siehe dort die + ;; last-line-Reservierung). + (if (and (= i vf-ende) (= vf-ende (1- n))) ;; letzter Fueller, MIT ES-Element (unveraendert): Laenge so, dass der ;; ENDPUNKT auf der ES-KS_AUS-ACHSE liegt (Spiegel der AS-Regel). Der ;; Schwanz (Fueller + ab_3 + Motor + GF2 + Separator + ES) verschiebt @@ -10665,7 +12110,7 @@ ;; nichts mehr gebaut wird - Fueller zielt direkt auf den Endpunkt. (setq fill-len (if es-vorhanden - (vfl3-es-fueller pt endpunkt seg-hz + (vfl-zsolve-es-fueller pt endpunkt seg-hz (strcat "ES_Element_" (vfl-es-winkel) "_" es-seite) br-gf2-exp rad3v) (- (+ (* (- (car endpunkt) (car pt)) (cos (* seg-hz (/ pi 180.0)))) @@ -10684,17 +12129,21 @@ "vfl-m3-warnung-fueller-ausgang-zu-kurz") (list (rtos fill-len 2 0) (rtos *vfk-restlaenge-min-clamp* 2 0))))) (setq fill-len (max *vfk-restlaenge-min-clamp* fill-len)) + (vf-vfhoehe-merke pt) (setq pt (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" pt fill-len 0 seg-hz)) + (vf-vfhoehe-schliesse pt) (vfl-acc-vf-seg "horizontal" 0 fill-len) (setq anzahl-vf (1+ anzahl-vf)) (setq letzt-koerper-hz seg-hz)) ;; --- Vario-Kurve (flach, direkt bei 0 Grad) --- ((= (car seg) "Bogen") (if (not flat-p) - (progn (setq pt (vfl3-flach-ein pt letzt-koerper-hz)) (setq flat-p t) + (progn (setq pt (vfl-zsolve-flach-ein pt letzt-koerper-hz)) (setq flat-p t) ;; Fueller-A: der im Kletter-Segment durch 1/2 GF1 frei werdende Platz (if (and (> filler-A-len 0.1) (not filler-a-done)) - (progn (setq pt (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" + (progn (vf-vfhoehe-merke pt) + (setq pt (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" pt filler-A-len 0 letzt-koerper-hz)) + (vf-vfhoehe-schliesse pt) (vfl-acc-vf-seg "horizontal" 0 filler-A-len) (setq anzahl-vf (1+ anzahl-vf) filler-a-done t))))) (setq bwinkel (nth 3 seg) bseite (nth 4 seg) kv-variante (nth 6 seg)) @@ -10710,13 +12159,14 @@ ;; Rueck-Uebergang auf 3 Grad, KEINE Motorstation/GF2. (setq frame (make-frame-from-dir pt (hz-winkel->xu letzt-koerper-hz 0.0))) (progn - (if flat-p (progn (setq pt (vfl3-flach-aus pt letzt-koerper-hz)) (setq flat-p nil))) ; zurueck 3 Grad - ;; Motorstation + GF2 in EINEM Schritt mit dem im Solve (vfl3-waehle- - ;; winkel/GF-Verteilung, siehe br-gf2-exp oben) bereits geplanten Wert - + (if flat-p (progn (setq pt (vfl-zsolve-flach-aus pt letzt-koerper-hz)) (setq flat-p nil))) ; zurueck 3 Grad + ;; Motorstation + GF2 in EINEM Schritt mit dem im Solve + ;; (vfl-zsolve-winkel-waehlen/GF-Verteilung, siehe br-gf2-exp oben) + ;; bereits geplanten Wert - ;; NICHT mehr unabhaengig aus der gemessenen Resthoehe neu herleiten. ;; Die alte Zwei-Loesungen-Variante (Motor mit L_GF2=0.0, GF2 danach aus ;; z-aftermotor/z-junction gemessen) widersprach der Fueller-Position - ;; (fill-len, vfl3-es-fueller), die bereits br-gf2-exp als GF2-Laenge + ;; (fill-len, vfl-zsolve-es-fueller), die bereits br-gf2-exp als GF2-Laenge ;; angenommen hatte - jede Differenz zwischen den beiden GF2-Werten ;; verschob das Kettenende entlang der Fahrtrichtung (realer Bug: ;; "letztes Segment baut zu lang"). Identische Fehlerklasse wie der @@ -11230,6 +12680,12 @@ (setq gemessen (vfl-kette-neigung (vfl-kette-rec-ein entry-info) (vfl-kette-rec-aus rec))) (setq betrag (vfl-kette-round (abs gemessen))) (setq richtung (if (< gemessen 0.0) "Auf" "Ab")))) + ;; Hoehe dieses Segments aus DENSELBEN Punkten, aus denen auch + ;; die Laenge kommt (Ende des Eingangsbogens bis Anfang des + ;; Ausgangsbogens) - dadurch bleiben VF_HOEHE_m und L_VF_m auch + ;; beim Rekonstruieren aus bestehenden Bloecken gleich lang. + (vf-vfhoehe-segment (caddr (vfl-kette-rec-aus entry-info)) + (caddr (vfl-kette-rec-ein rec))) (vfl-acc-vf-seg richtung betrag (distance (vfl-kette-rec-aus entry-info) (vfl-kette-rec-ein rec))) (setq entry-info nil) @@ -11286,6 +12742,8 @@ (cons "L_VF_m" (vfl-join-komma *vfl-acc-lvf*)) (cons "ANTRIEBFAHRTRICHTUNG" (vfl-join-komma *vfl-acc-richtung*)) (cons "VF_WINKEL" (vfl-join-komma *vfl-acc-winkel*)) + ;; Hoehe je Foerdereinheit - siehe oben. + (cons "VF_HOEHE_m" (vfl-join-komma *vf-acc-vfhoehe*)) (cons "VF_Bogen_A_90" (itoa (vfl-get-count *vfl-acc-variokurve* "A_90"))) (cons "VF_Bogen_A_60" (itoa (vfl-get-count *vfl-acc-variokurve* "A_60"))) (cons "VF_Bogen_A_30" (itoa (vfl-get-count *vfl-acc-variokurve* "A_30"))) diff --git a/Lisp/vf_spec.lsp b/Lisp/vf_spec.lsp index bd8fe61..bdb1994 100644 --- a/Lisp/vf_spec.lsp +++ b/Lisp/vf_spec.lsp @@ -274,7 +274,18 @@ ((and (= (type v) 'STR) (= (strcase v) "AUTO")) (vsp-raus "NIL" nil)) (T (vsp-zahl "REAL" v "eingang_hoehe")))) -(defun vsp-praeambel (kopf / punkt) +;; Praeambel-Tokens: PT(Startpunkt) REAL(Starthoehe) STR(AS ja/nein) +;; [STR(Winkel) STR(Seite) (PT|NIL)(Zufuehrungsachse)]. +;; +;; Das Achsen-Feld "as_achse" ist OPTIONAL (Gegenstueck zu +;; vfl-frage-as-winkel-seite-oder-achse und zu praeambel() in +;; lib/vf_linienzug_grammatik.py): +;; [x, y, z] -> PT (Zufuehrungsachse ueber einen zweiten Punkt) +;; "ohne" -> NIL (bewusst ohne Achse gebaut) +;; fehlt -> gar kein Token = Journalformat VOR 2026-10-21. Das replayt +;; unveraendert; die Kettenrichtung kommt dann wie frueher aus +;; dem naechsten Klick. +(defun vsp-praeambel (kopf / punkt achse) (setq *vsp-wo* "start") (setq punkt (ssg-val kopf "start_punkt")) (if (and punkt (listp punkt) (>= (length punkt) 3)) @@ -287,7 +298,13 @@ (if (vsp-ja-p (ssg-val kopf "as")) (progn (vsp-wert-str (ssg-val kopf "as_winkel") "as_winkel") - (vsp-code-raus *vsp-tab-seite* (ssg-val kopf "as_seite") "as_seite")))) + (vsp-code-raus *vsp-tab-seite* (ssg-val kopf "as_seite") "as_seite") + (setq achse (ssg-val kopf "as_achse")) + (cond + ((and achse (listp achse) (>= (length achse) 3)) + (vsp-raus "PT" (mapcar 'float achse))) + ((equal achse "ohne") (vsp-raus "NIL" nil)) + )))) ;; naechste: Felder der NAECHSTEN Top-Level-Sektion (oder nil) - wird nur fuer ;; "Linie-GF" gebraucht (siehe dort). *vsp-es-verbraucht* (Ausgabe-Flag, vom diff --git a/Lisp/vf_standard.lsp b/Lisp/vf_standard.lsp index 658bf1f..53f3d9d 100644 --- a/Lisp/vf_standard.lsp +++ b/Lisp/vf_standard.lsp @@ -612,9 +612,15 @@ ;; beliebig aneinanderreihen (siehe doc/VarioFoerderer_Linienzug_Prinzipien.md). ;; best-winkel=0 => horizontales Sub-Segment (Boegen fest auf_3/ab_3). (defun vfs-vf-koerper (aktueller-punkt richtung best-winkel L_VF hz / - bogen-name bogen-mass bogen-dx bogen-dz) + bogen-name bogen-mass bogen-dx bogen-dz z-ein) (if (null hz) (setq hz 0.0)) (setq hz (float hz)) + ;; Hoehe DIESES VF-Segments (Attribut VF_HOEHE_m, Sivas 4433-4437): + ;; KS_EIN ist der Punkt beim Eintritt, KS_AUS der Rueckgabewert am Ende - + ;; der Mittelwert beider wird unten angehaengt. Eine Kette mit drei durch + ;; Vario-Boegen getrennten Abschnitten bekommt dadurch drei Werte, parallel + ;; zu L_VF_m und VF_WINKEL (Nutzer-Vorgabe 2026-10-21). + (setq z-ein (caddr aktueller-punkt)) ;; 5. 1. Vertikalbogen ;; Sonderfall best-winkel=0 (horizontale Zwischenstrecke, siehe @@ -717,6 +723,8 @@ ) ) + ;; Segment-Hoehe anhaengen: Mittelwert aus KS_EIN (z-ein) und KS_AUS. + (vf-vfhoehe-segment z-ein (caddr aktueller-punkt)) aktueller-punkt ) diff --git a/README.md b/README.md index 9715b25..89a9e1c 100644 --- a/README.md +++ b/README.md @@ -2,62 +2,77 @@ AutoLISP-Makros (SSG_LIB) fuer BricsCAD Pro zur automatisierten Erstellung von Foerderanlagen-Layouts (ILS Kreisel, Omniflo, VarioFoerderer, Gefaellestrecke, Geruest). +**Einstieg:** + +- [doc/faq.md](doc/faq.md) - haeufige Fragen und erste Schritte mit dem Programm +- [doc/cad-datenaufbereitung.md](doc/cad-datenaufbereitung.md) - neue CAD-Bausteine anlegen: Koordinatensysteme, Platzierung, Datenablage + ## Menustruktur (SSG_LIB) ``` SSG_LIB ├── ILS │ ├── Kreisel-Module -│ │ ├── Einfuegen → KreiselInsert -│ │ ├── Verbinden → KreiselConnect -│ │ ├── Bearbeiten → KreiselEdit -│ │ └── Eckrad → ILS_Eckrad +│ │ ├── Einfuegen / Verbinden / Bearbeiten → KreiselInsert / KreiselConnect / KreiselEdit +│ │ ├── Eckrad / Eckrad bearbeiten → ILS_Eckrad / EckradEdit +│ │ └── Weichenpunkte ermitteln → KREISEL_WEICHEN │ ├── Zusatzmodul -│ │ ├── BTMT-Beladung → ILS_BTMT_Beladung -│ │ ├── BTMT-Entladung → ILS_BTMT_Entladung -│ │ ├── Scanner einfuegen → ILS_SCANNER_INSERT -│ │ └── Separator einfuegen → ILS_SEPARATOR_INSERT +│ │ ├── BTMT-Beladung / -Entladung → ILS_BTMT_Beladung / ILS_BTMT_Entladung +│ │ └── Scanner / Separator einfuegen → ILS_SCANNER_INSERT / ILS_SEPARATOR_INSERT │ ├── Foerderer -│ │ ├── Standard → StandardVarioFoerderer / StandardVarioFoerderer3D -│ │ ├── Etage → EtageVarioFoerderer / EtageVarioFoerderer3D -│ │ ├── Streckengruppe (Linienzug) → LinienzugVarioFoerdererManuell / -Zielhoehe / -Stueckweise -│ │ └── Vario_Kette_Merge / VARIOFOERDERER_NACHRUESTEN +│ │ ├── Standard (Werte manuell / aus 3D-Linie) → StandardVarioFoerderer / StandardVarioFoerderer3D +│ │ ├── Etage (Werte manuell / aus 3D-Linie) → EtageVarioFoerderer / EtageVarioFoerderer3D +│ │ ├── Streckengruppe (Linienzug) → LinienzugVarioFoerdererManuell / -Zielhoehe / -Stueckweise +│ │ └── Vario_Kette_Merge / VarioFoerderer nachruesten → Vario_Kette_Merge / VARIOFOERDERER_NACHRUESTEN │ └── Gefaellestrecke -│ ├── einfach → GEFAELLESTRECKE_EINFACH -│ ├── aus 3D-Linie → GEFAELLESTRECKE_3DLINIE -│ └── aus Linienzug → GEFAELLESTRECKE_LINIENZUG +│ ├── einfach / aus 3D-Linie / aus Linienzug → GEFAELLESTRECKE_EINFACH / _3DLINIE / _LINIENZUG +│ └── QC Linie mit GF (auch U-Form) → QcLinieMitGf / QcLinieMitGfUForm ├── Omniflo -│ ├── Boegen APB110/APB60 -│ ├── Aluprofil Gerade (AP60/AP110/APG110) -│ ├── Weichen (90/45/Parallel/Weichenkoerper/Weichenkombinationen) -│ ├── TEF Elemente, Anbaugruppen, Verbinder, Boegen fuer Weichen -│ ├── Element bearbeiten → OMNI_EDIT -│ └── Ladeschleifen (AP110) → OMNI_LADESCHLEIFE_AP110 +│ ├── Fahrstrecke / Fahrstrecken beschriften → OMNI_FAHRSTRECKE / OMNI_FAHRSTRECKE_BESCHRIFTEN +│ ├── Boegen APB110 / APB60, Aluprofil Gerade (AP60/AP110/APG110) +│ ├── Weichen (90/45/Parallel/22.5, Delta, Star) +│ ├── TEF Elemente (inkl. TEF Gerade auf Linie → TEF_FOERDERER_LINIE) +│ ├── Anbaugruppen (Stopper, Scanner, Buerstenbremse) +│ ├── Spez. Streckenelemente ▸ Tuerloesungen ▸ Schwenkschienen → OMNI_SCHW_400_* +│ ├── KettenFoerderer → KETTENFOERDERER +│ ├── Ladeschleifen → OMNI_LADESCHLEIFE_AP110 +│ ├── Verbinder → OMNI_TV_* +│ ├── Boegen fuer Weichen (ausgegraut, Dummy) → OMNI_APBW_* +│ └── Element bearbeiten → OMNI_EDIT ├── Geruest -│ ├── Rohr-Geruest-Traeger → GERUEST_TRAEGER -│ ├── Saeulen / Rohrabhaenger / Wandbefestigung → GERUEST -│ └── Funktionen ▸ Traeger beschriften → GERUEST_TRAEGER_BESCHRIFTEN +│ ├── Rohr-Geruest-Traeger → GERUEST_TRAEGER +│ ├── Saeulen / Rohrabhaenger / Wandbefestigung → GERUEST_SAEULEN / GERUEST_ROHRABHAENGER / GERUEST_WANDBEFESTIGUNG +│ ├── Gattertraeger (Platzhalter) → GERUEST +│ └── Funktionen ▸ Traeger beschriften → GERUEST_TRAEGER_BESCHRIFTEN ├── SPS -│ ├── TRO (Marker einfuegen/bearbeiten) → TRO_INSERT / TRO_EDIT -│ └── Connections (einfuegen/bearbeiten, Eingang/Ausgang) → CONNECTION_INSERT / CONNECTION_EDIT / ILS_EINGANG_INSERT / ILS_AUSGANG_INSERT +│ ├── TRO (Marker einfuegen/bearbeiten) → TRO_INSERT / TRO_EDIT +│ ├── Connections (einfuegen/bearbeiten) → CONNECTION_INSERT / CONNECTION_EDIT +│ └── Eingang / Ausgang → ILS_EINGANG_INSERT / ILS_AUSGANG_INSERT ├── Export -│ ├── Export Sivas → EXPORTSIVAS -│ └── Export CSV → EXPORTCSV +│ ├── Export Sivas → EXPORTSIVAS +│ └── Export CSV → EXPORTCSV ├── Konfiguration -│ ├── Umschalten 2D und 3D → SSG_DIM_SWITCH -│ ├── Sprache → SSG_SPRACHE -│ └── Planquadrate an/aus → PLANQUADRATE_TOGGLE +│ ├── Umschalten 2D und 3D → SSG_DIM_SWITCH +│ ├── Alle Bloecke auf 2D / 3D → SSG_DIM_ALL_2D / SSG_DIM_ALL_3D +│ ├── Sprache → SSG_SPRACHE +│ ├── Planquadrate an/aus → PLANQUADRATE_TOGGLE +│ └── CSV-Export → CSV_EXPORT_KONFIG ├── Werkzeuge -│ ├── Bloecke zaehlen/loeschen, Attribute ersetzen → ssg_blocktools -│ └── Text ersetzen/parallel/Hoehe/Stil → ssg_texttools -└── Tests (Testsuiten ausfuehren und exportieren) +│ ├── Bloecke zaehlen / loeschen, Attribute ersetzen → SSG_BLOCK_COUNT / SSG_BLOCK_DELETE / SSG_ATTR_ERSETZEN +│ ├── Text ersetzen / parallel / Hoehe / Stil → SSG_TEXT_ERSETZEN / _PARALLEL / _HOEHE / _STIL +│ ├── Faehnchen + Stueckliste aus Zeichnung → SSG_FAEHNCHEN_STUECKLISTE +│ └── Din Formate → DIN_FORMATE +└── Tests (alle Testsuiten, einzelne Szenarien, Export CSV/Sivas ALL, KS 2D/3D pruefen) ``` +Doppelklick auf einen Block ruft `SSG_BLOCKEDIT` auf und verzweigt nach Blockname +(Kreisel, Eckrad, VF_/GF_, KF_, Omniflo, GR_, TRO_, CONNECTION_, JAM_ → passender Edit-Befehl). + Vollstaendige, laufend aktualisierte Befehls-/Modulzuordnung: siehe `CLAUDE.md` (Abschnitt "Modulzuordnung im Menue") und `menu/SSG_LIB.mnu`. ## Lademechanismus -Module werden per Lazy-Loading ueber das Menuesystem geladen (`ssg-ensure` in `SSG_LIB.mnl`). Einmalige Einrichtung pro BricsCAD-Installation: +Die Module werden beim Laden des Menues ueber `SSG_LIB.mnl` initialisiert (`ssg-ensure`, ueberspringt bereits geladene Module; einzelne Module wie `DrawPlanquadrate`, `DinFormate`, `Tro_Edit`, `Jam_Edit` werden erst beim ersten Aufruf nachgeladen). Einmalige Einrichtung pro BricsCAD-Installation: 1. `bin/setenv.bat` ausfuehren (setzt `DXFM_LISP` u.a.) 2. BricsCAD starten @@ -70,16 +85,18 @@ Details und die Core-Ladereihenfolge: siehe `CLAUDE.md` Abschnitt "Lademechanism ```text dxfmakros/ ├── Lisp/ # AutoLISP-Makros und Kernbibliotheken (Details: Lisp/README.md) -├── bin/ # Hilfs-Skripte (setenv.bat, start_briscad.bat) +├── bin/ # Hilfs-Skripte (setenv, start_briscad, run_tests, Python-Wrapper) ├── cfg/ # Konfigurationsdateien -├── data/ # JSON-Daten, DXF-Quellen, Block-Libraries - nicht im Git +├── data/ # JSON-Komponentendaten, DWG-/DXF-Bloecke, Block-Libraries ├── dcl/ # DCL-Dialogdefinitionen ├── doc/ # Dokumentation (doc/plan Architektur/Analysen, doc/todo offene Fahrplaene) +├── lang/ # Benutzertexte de_DE.json / en_GB.json (ssg-text) ├── lib/ # Python-Skripte (DXF-Bearbeitung, Export) -├── log/ # Logdateien - nicht im Git +├── logs/ # Logdateien und .dbg-Ausgaben (DXFM_LOG) - nicht im Git ├── menu/ # BricsCAD-Menudefinition (SSG_LIB.mnu, SSG_LIB.mnl) ├── results/ # Ergebnisse / Exporte - nicht im Git ├── tests/ # Testskripte und Referenzdaten +├── tools/ # Einmal-Werkzeuge (z.B. Migration der Sprachtexte) ├── LICENSE ├── README.md └── requirements.txt @@ -110,11 +127,18 @@ Headless-Unit-Tests (file- und zeichnungsfrei): bin\run_tests.bat --lisp ``` +Python-Tests (in der `.venv`): + +```bat +pytest tests/ +bin\run_tests.bat --check +``` + Zeichnungs-/Szenario-Tests laufen interaktiv in BricsCAD ueber das Menue `Tests` bzw. `SSG_RUN_ALL_TESTS`. Details: `doc/LispTests.md`, `tests/README.md`. ## Dokumentation -Ausfuehrliche Modul- und Befehlsdokumentation: `CLAUDE.md` (Projektanweisungen) und `Lisp/README.md`. Weitere Anwender-/Entwickler-Themen direkt in `doc/` (u.a. `variofoerderer.md`, `csv-export.md`, `faq.md`, `kommandos.md`). Architektur-Analysen und Planungsdokumente in `doc/plan/` (u.a. `translate.md`, `Entwicklungsplan.md`), offene Fahrplaene/TODOs in `doc/todo/`. +Ausfuehrliche Modul- und Befehlsdokumentation: `CLAUDE.md` (Projektanweisungen) und `Lisp/README.md`. Weitere Anwender-/Entwickler-Themen direkt in `doc/` (u.a. `kommandos.md` - Uebersicht aller Befehle und Skripte, `variofoerderer.md`, `vf_linienzug_modus1_anleitung.md`, `csv-export.md`, `json-input-lisp.md`, `faq.md`). Architektur-Analysen und Planungsdokumente in `doc/plan/` (u.a. `translate.md`, `Entwicklungsplan.md`), alle offenen TODOs gesammelt in `doc/todo.md` (Detail-Fahrplaene in `doc/todo/`). ## Lizenz diff --git a/bin/create_tests.bat b/bin/create_tests.bat deleted file mode 100644 index 37b600d..0000000 --- a/bin/create_tests.bat +++ /dev/null @@ -1,42 +0,0 @@ -@echo off -REM ================================================================ -REM create_tests.bat - ILS Testlauf -REM -REM Ablauf: -REM 1. Umgebung setzen -REM 2. Python: ILStest.dxf mit Linien erzeugen -REM 3. BricsCAD: Kreisel einfuegen, exportieren, speichern -REM 4. Python: Ergebnisse gegen Referenzen validieren -REM ================================================================ - -call "%~dp0setenv.bat" - -echo. -echo ================================================================ -echo ILS TEST - Schritt 1: Basis-DXF erzeugen -echo ================================================================ -python "%DXFM_TESTS%\create_ILStest_dxf.py" "%DXFM_TESTS%\ILStest.dxf" -if errorlevel 1 ( - echo FEHLER: DXF-Erzeugung fehlgeschlagen! - pause - exit /b 1 -) - -echo. -echo ================================================================ -echo ILS TEST - Schritt 2: BricsCAD starten und Kreisel erzeugen -echo ================================================================ -echo BricsCAD wird gestartet mit dem Testskript... -echo Nach Abschluss des Tests BricsCAD schliessen. -echo. -REM /b = Skript ausfuehren (NICHT /s - das ist der Support-Ordner-Schalter). -start /wait "" "%BRICSCAD%" /b "%DXFM_TESTS%\ILS_test.scr" - -echo. -echo ================================================================ -echo ILS TEST - Schritt 3: Ergebnisse validieren -echo ================================================================ -python "%DXFM_TESTS%\validate_tests.py" "%DXFM_RESULTS%" "%DXFM_TESTS%\references" - -echo. -pause diff --git a/cfg/Merkmalsstamm_in_Sivas.xlsx b/cfg/Merkmalsstamm_in_Sivas.xlsx index ad4c3ba..7d6c57e 100644 Binary files a/cfg/Merkmalsstamm_in_Sivas.xlsx and b/cfg/Merkmalsstamm_in_Sivas.xlsx differ diff --git a/cfg/export.cfg b/cfg/export.cfg index b3c4909..22c1efa 100644 --- a/cfg/export.cfg +++ b/cfg/export.cfg @@ -71,6 +71,20 @@ # Eigenstaendig wie BTMT, kein ANZAHL_*-Attribut an einem Carrier - export_csv.py # UND export_sivas.py fuehren sie als eigene TeileArt-Zeilen. # +# pattern_verbinder: Omniflo-Verbinder (OMNI_TV_*, DWGs in data/omniflo/ +# Verbinder). Nur fuer Lisp's Block-SAMMLUNG und ID-Vergabe - export_sivas.py +# erkennt sie wie alle Omniflo-Teile ueber TEILEART "Omniflo ..." und schreibt +# je Nummer aus ARTINR eine Omniflo-Zeile. +# +# pattern_kettenfoerderer: Kettenfoerderer/Schraegfoerderer Stahl +# (KettenFoerderer.lsp, KF_). Eine selbst zusammengebaute Baugruppe wie +# GR_*, mit eigenen Attributen TEILEART ("Omniflo Kettenfoerderer ...") und +# ARTINR - erkannt wird sie darum im allgemeinen Omniflo-Zweig von +# export_sivas.py. Die drei Bausteine darin (Umlenkstation, skaliertes +# Zwischenstueck, Antriebsstation) werden NICHT einzeln gezaehlt. Die im +# Dialog gewaehlten Verbindungselemente stehen als Attribut +# VERBINDUNGSELEMENTE am Block und landen im Merkmale-/details-JSON. +# # pattern_nested_bogen/_streckenelement/_umlenkstation/_motorstation: die # uebrigen Bausteine einer VF_n/GF_n-Kette (Boegen, gerade Foerderer-/ # Gefaellestrecken-Segmente, Umlenk-/Motorstation). Wie pattern_schleuselement @@ -130,6 +144,8 @@ pattern_ks_subblocks= KS_EIN, KS_AUS, K1, K2, K3, K4 pattern_gerade= AP110*, AP_110*, AP60* # Gerüst pattern_geruest= GR_* +pattern_verbinder= VB_*, TV_* +pattern_kettenfoerderer= KF_* [python] # Interpreter fuer die Export-Skripte (lib/export_csv.py, lib/export_sivas.py). diff --git a/cfg/layer.cfg b/cfg/layer.cfg index 3593504..3ec6992 100644 --- a/cfg/layer.cfg +++ b/cfg/layer.cfg @@ -168,6 +168,13 @@ gf_beschriftung = GF_Beschriftung, 7 # Lisp/DrawPlanquadrate.lsp (DRAW_PLANQUADRATE). planquadrate = ZZ_Planquadrate, 8 +# Kettenfoerderer (Schraegfoerderer Stahl), aus Umlenkstation + skaliertem +# Zwischenstueck + Antriebsstation zusammengebauter Block KF_n - siehe +# Lisp/KettenFoerderer.lsp (KETTENFOERDERER). Wie VF_n/GF_n eine +# ZUSAMMENGEBAUTE Baugruppe ohne eigene Blockdatei, der Layer muss darum hier +# stehen. Die drei Bausteine darin behalten ihre eigenen Layer. +kettenfoerderer = Omni_Kettenfoerderer, 4 + # ============================================================ # Farben fuer Layer OHNE Baugruppen-Key diff --git a/cfg/sivas.cfg b/cfg/sivas.cfg index aa11925..c18b63e 100644 --- a/cfg/sivas.cfg +++ b/cfg/sivas.cfg @@ -28,19 +28,45 @@ # (TRANSFORMS-Dict), die den ermittelten Rohwert # (Attribut- oder Default-Wert) in die Sivas-Anzeige # umwandelt (z.B. "0"/"1" -> "Ja"/"Nein"). Bekannte Namen: -# ja_nein, geruest_typ_anzeige. Ein unbekannter Name +# ja_nein, geruest_typ_anzeige, mm_zu_m, as_es_vorhanden, +# as_es_winkel, as_seite, es_seite. Ein unbekannter Name # bricht NICHT ab, der Rohwert wird unveraendert # uebernommen (siehe sivas_mapping.anwenden). +# Soll ein Merkmal ohne eigenes Attribut nur per Transform +# entstehen, braucht die Zeile trotzdem den ":" vor dem +# "|" ("WINKEL_AS : | as_es_vorhanden") - sonst gilt der +# Transform-Name als Fallback-Attributname. +# Transforms, die mit @braucht_attribs markiert sind +# (as_seite/es_seite), sehen zusaetzlich alle uebrigen +# Attribute des Blocks - noetig, wenn ein Merkmal von +# einem ZWEITEN Attribut abhaengt (Seite nur, wenn der +# zugehoerige Winkel ueberhaupt ein Element ausweist). # # Abschnittsnamen entsprechen den bisherigen build_*_details-Funktionen in # export_sivas.py: [gefaellestrecke], [kreisel], [eckrad], [geruest]. Die -# geruest-typ-Anzeige-Tabelle (ASCII-Attributwert -> Sivas-Klartext mit -# Umlauten) UND SEPARATOR_BEARBEITUNG_ANZEIGE bleiben eigene, kleine -# Abschnitte weiter unten. +# Anzeige-Tabellen (ASCII-Attributwert -> Sivas-Klartext/Optionswert: +# [geruest_typ_anzeige], [as_es_winkel_anzeige]) UND +# SEPARATOR_BEARBEITUNG_ANZEIGE bleiben eigene, kleine Abschnitte weiter +# unten. +# +# [gefaellestrecke] und [variofoerderer] fuehren die AS-/ES-Merkmale +# (4427-4432) absichtlich DOPPELT: GF_N- und VF_N-Bloecke tragen dieselben +# Attribute des gemeinsamen Strecken-Schemas, und jeder Abschnitt soll fuer +# sich lesbar bleiben. Aenderungen dort bitte in beiden nachziehen (der Test +# tests/test_export_sivas_as_es.py::test_zuordnung_steht_in_der_config wacht +# darueber). # ============================================================ [gefaellestrecke] 2950= MONTAGEHOEHE_m : 0 +# AS-/ES-Element, Reihenfolge wie die Sivas-Hierarchie (identisch in +# [variofoerderer]): 4431/4432 Ja/Nein schalten Winkel und Seite frei. +4431= WINKEL_AS : | as_es_vorhanden +4427= WINKEL_AS : | as_es_winkel +4428= SEITE_AS : | as_seite +4432= WINKEL_ES : | as_es_vorhanden +4429= WINKEL_ES : | as_es_winkel +4430= SEITE_ES : | es_seite 4384= : Gefällestrecke 4318= L_GF_m 4391= GF_WINKEL @@ -79,12 +105,55 @@ [geruest] Farbe= FARBE +[kettenfoerderer] +# Kettenfoerderer / Schraegfoerderer Stahl (KF_n, Lisp/KettenFoerderer.lsp). +# Merkmalnummern laut Merkmalstamm des Schraegfoerderers. +# +# 350 kommt aus FOERDERERTYP (Bauart im Klartext). Der Default greift nur +# bei Altbestands-Bloecken ohne das Attribut. +# 359 kommt aus WINKEL, das den Neigungswinkel als nackte Zahl fuehrt +# ("26"/"30"); die Anzeige-Tabelle [kf_typ_anzeige] weiter unten macht +# daraus den Sivas-Optionstext mit Gradzeichen. Grund fuer die +# Zweiteilung: Block-Attribute bleiben laut Projektkonvention ASCII. +# 353 (Anzahl der gleichen KF) steht ABSICHTLICH NICHT hier: der Wert +# entsteht erst aus der Gruppierung baugleicher Bloecke +# (kettenfoerderer_signature in export_sivas.py) und ist damit kein +# flaches Attribut-Mapping - gleiche Bauart wie 3510/3512 beim Kreisel. +# 356 und 361 nutzen den vorhandenen Transform ja_nein, die Attribute +# fuehren "1"/"0". +# 357 "Antriebsart" ist beim Kettenfoerderer FEST (1.1 kW): im Dialog ein +# Dropdown mit genau einer, zwingend gewaehlten Option - das Attribut gibt es trotzdem, damit der Wert am +# Block steht und nicht nur im Export auftaucht. +# 354 "Farbe Foerderer" und 355 "Antriebsmotor Foerderer" sind ZWEI getrennte +# Merkmale (nicht ein kombinierter Text) - im Dialog darum auch zwei +# Felder, Attribute FARBE und ANTRIEBSMOTOR. +# 354/355/391 tragen bereits den vollen Sivas-Optionstext im Attribut (die +# Auswahllisten in data/json/kettenfoerderer.json liefern ihn so) - +# darum kein Transform. +350= FOERDERERTYP : Schrägförderer Stahl +359= WINKEL : 26 | kf_typ_anzeige +361= STANDARD_STEUERUNG : 0 | ja_nein +354= FARBE : RAL 7035 +355= ANTRIEBSMOTOR : Europa 50 Hz +357= ANTRIEBSART : 1.1 kW +356= MOVIMOT : 0 | ja_nein +360= H_EINBAUHOEHE_mm : 0 +391= VERBINDUNGSELEMENTE : Nein + [variofoerderer] # Nur die von der Segmentanzahl UNABHAENGIGEN Top-Level-Felder einer VF_N- # Streckengruppe (siehe build_variofoerderer_details in export_sivas.py). # Die Gefaelle-/Vario-Segmentpaare (4312-4392, 4353/4354/4386) haengen an der # Listenlaenge von L_GF_m/L_VF_m und bleiben Code. 2950= MONTAGEHOEHE_m : 0 +# AS-/ES-Element, Reihenfolge wie die Sivas-Hierarchie (identisch in +# [gefaellestrecke]): 4431/4432 Ja/Nein schalten Winkel und Seite frei. +4431= WINKEL_AS : | as_es_vorhanden +4427= WINKEL_AS : | as_es_winkel +4428= SEITE_AS : | as_seite +4432= WINKEL_ES : | as_es_vorhanden +4429= WINKEL_ES : | as_es_winkel +4430= SEITE_ES : | es_seite 4329= GF_Bogen_L_90 : 0 4330= GF_Bogen_L_60 : 0 4331= GF_Bogen_L_30 : 0 @@ -103,11 +172,35 @@ Farbe= FARBE 3992= GERUEST_EINZELMODUL : 0 | ja_nein 3993= GERUEST_TYP : Schoenenberger Geruest | geruest_typ_anzeige +[as_es_winkel_anzeige] +# Attributwert WINKEL_AS/WINKEL_ES -> Optionswert der Sivas-Auswahlliste zu +# Merkmal 4427/4429. Im Merkmalstamm heissen die Optionen "30 °"/"90 °" (mit +# Leerzeichen vor dem Gradzeichen) - das Attribut in der Zeichnung bleibt die +# nackte Zahl. Gleiche Bauart wie [geruest_typ_anzeige]: steht ein Winkel +# hier NICHT drin, wird er unveraendert uebernommen. +# +# >>> Falls Sivas den Import mit "30 °" ablehnt, ist DIESE Tabelle die +# >>> einzige Stelle zum Nachziehen (z.B. auf "30°" ohne Leerzeichen oder +# >>> auf die nackte Zahl) - der Code bleibt unberuehrt. +30= 30 ° +90= 90 ° + [geruest_typ_anzeige] # ASCII-Attributwert (GERUEST_TYP) -> Sivas-Klartext mit Umlauten/Sonder- # zeichen (Attribute selbst bleiben ASCII, siehe CLAUDE.md-Konvention). Schoenenberger Geruest= Schönenberger-Gerüst +[kf_typ_anzeige] +# Attributwert WINKEL (Neigungswinkel als nackte Zahl) -> Optionswert der +# Sivas-Auswahlliste zu Merkmal 359. Gleiche Bauart wie +# [geruest_typ_anzeige]/[as_es_winkel_anzeige]: steht ein Wert hier NICHT +# drin, wird er unveraendert uebernommen. +# +# >>> Lehnt Sivas den Import ab, ist DIESE Tabelle die einzige Stelle zum +# >>> Nachziehen (z.B. "26 °" mit Leerzeichen) - der Code bleibt unberuehrt. +26= Schrägförderer Stahl 26° +30= Schrägförderer Stahl 30° + [weichen] # ILS 2.0 Weiche (6216): eine Summenzeile, Werte aus den Kreisel-Beruehr- # punkten des LISP-Exports (kreisel_weichen.json). Ein Beruehrpunkt ist eine diff --git a/cfg/sivas_merkmal_zuordnung.md b/cfg/sivas_merkmal_zuordnung.md index 700403a..5b5abda 100644 --- a/cfg/sivas_merkmal_zuordnung.md +++ b/cfg/sivas_merkmal_zuordnung.md @@ -8,7 +8,8 @@ der Wahrheit ist der Code in `lib/export_sivas.py` - diese Datei ist ein Backup/Nachschlagewerk, bei Aenderungen am Code bitte hier nachziehen. Stand: abgeglichen mit `lib/export_sivas.py` nach der Umstellung von -beschreibenden JSON-Keys auf reine Merkmalnummern (Sept. 2026). +beschreibenden JSON-Keys auf reine Merkmalnummern (Sept. 2026), ergaenzt um +die AS-/ES-Element-Merkmale 4427-4432 (Okt. 2026). ## ILS 2.0 Kreisel (SivasNr 6200, Dispogruppe 20) @@ -59,6 +60,7 @@ immer 1. Sivas kennt je Streckengruppe nur EIN Gefaelle-Segment-Paar | 4381 | Streckengruppe - Anzahl der Separatoren - Variofoerderer | `ANZAHL_SEPARATOR` | **voller Blockwert** (Aufteilung noch offen, siehe 4337) | | 4382 | (dieselbe Bezeichnung wie 4338 im Merkmalstamm) | - | fest `SEPARATOR_BEARBEITUNG_ANZEIGE` | | 4383 | Streckengruppe - Anzahl der Scanner (Vario-Anteil) | `ANZAHL_SCANNER` | **voller Blockwert** | +| 4427-4432 | AS-/ES-Element (vorhanden/Winkel/Seite) | `WINKEL_AS`/`SEITE_AS`/`WINKEL_ES`/`SEITE_ES` | siehe eigener Abschnitt unten | | 3992 | Geruest fuer Einzelmodul | `GERUEST_EINZELMODUL` | wie Kreisel | | 3993 | Geruestoption fuer Einzelmodul | `GERUEST_TYP` | wie Kreisel | @@ -86,9 +88,56 @@ Stueckzahl der Gruppe steht im Merkmal 4311. | 4337 | Streckengruppe - Anzahl der Separatoren - Gefaellestrecke | `ANZAHL_SEPARATOR` | direkt (kein Split noetig, kein Vario-Anteil vorhanden) | | 4338 | Streckengruppe - Bearbeitung Gefaellestreckenteilstueck fuer Separator (829516050) | - | fest `SEPARATOR_BEARBEITUNG_ANZEIGE` | | 4339 | Streckengruppe - Anzahl der Scanner | `ANZAHL_SCANNER` | direkt | +| 4427-4432 | AS-/ES-Element (vorhanden/Winkel/Seite) | `WINKEL_AS`/`SEITE_AS`/`WINKEL_ES`/`SEITE_ES` | siehe eigener Abschnitt unten | | 3992 | Geruest fuer Einzelmodul | `GERUEST_EINZELMODUL` | wie Kreisel | | 3993 | Geruestoption fuer Einzelmodul | `GERUEST_TYP` | wie Kreisel | +Die Gruppierung (`gefaellestrecke_signature`) beruecksichtigt AS-/ES-Element +mit: zwei sonst baugleiche Gefaellestrecken mit AS links bzw. AS rechts +bleiben getrennte Zeilen, sonst zeigte die gemeinsame Zeile nur die Seite des +ersten Blocks. + +## AS-/ES-Element (4427-4432) - gilt fuer VF_N UND GF_N + +Die Zuordnung steht vollstaendig in `cfg/sivas.cfg` - mit denselben sechs +Zeilen in `[gefaellestrecke]` UND `[variofoerderer]`, weil beide Blockarten +dieselben Attribute des gemeinsamen Strecken-Schemas tragen +(`*strecke-attr-front*` in `ssg_core.lsp`). In `export_sivas.py` stehen nur +die Transform-Funktionen. + +Sivas-Hierarchie (Merkmalstamm): 4431/4432 (`"Ja"`/`"Nein"`) sind die +Oberknoten, Winkel und Seite haengen als Unterknoten darunter - darum auch +diese Reihenfolge in der Config. + +| Merkmalnr | Bezeichnung (Merkmalstamm) | Block-Attribut | Transform | Berechnung | +|---|---|---|---|---| +| 4431 | AS-Element | `WINKEL_AS` | `as_es_vorhanden` | `"Ja"`, wenn ein Winkel gesetzt ist, sonst `"Nein"` | +| 4427 | AS-Element - Winkel | `WINKEL_AS` | `as_es_winkel` | Optionswert der Auswahlliste (`"30"` -> `"30 °"`, Tabelle `[as_es_winkel_anzeige]`); leer, wenn kein AS-Element | +| 4428 | AS-Element - Seite | `SEITE_AS` | `as_seite` | kleingeschrieben (`"links"`/`"rechts"`); leer, wenn kein AS-Element | +| 4432 | ES-Element | `WINKEL_ES` | `as_es_vorhanden` | wie 4431 | +| 4429 | ES-Element - Winkel | `WINKEL_ES` | `as_es_winkel` | wie 4427 | +| 4430 | ES-Element - Seite | `SEITE_ES` | `es_seite` | wie 4428 | + +**Warum der Winkel ueber das Vorhandensein entscheidet und nicht die Seite:** +das Schema laesst `WINKEL_AS`/`WINKEL_ES` leer, wenn kein Element gewaehlt +wurde, waehrend `SEITE_AS`/`SEITE_ES` mit `"rechts"` immer einen Vorgabewert +tragen. Ohne Element bleiben darum Winkel UND Seite leer - sonst stuende in +Sivas eine Seite unter einem `"Nein"`-Knoten. + +**Winkel-Schreibweise:** die Sivas-Auswahlliste fuehrt `"30 °"`/`"90 °"` (mit +Leerzeichen vor dem Gradzeichen), das Block-Attribut dagegen die nackte Zahl. +Die Uebersetzung steht als Tabelle `[as_es_winkel_anzeige]` in `sivas.cfg` +(gleiche Bauart wie `[geruest_typ_anzeige]`) - weicht Sivas davon ab, ist das +die einzige Stelle zum Nachziehen. Ein Winkel ohne Eintrag dort wird +unveraendert uebernommen. + +**Neu im Mapping-Mechanismus:** `4428`/`4430` brauchen ein ZWEITES Attribut +(die Seite haengt am Winkel). Dafuer gibt es in `sivas_mapping.py` den +Dekorator `@braucht_attribs` - ein so markierter Transform wird als +`fn(wert, attribs)` statt `fn(wert)` aufgerufen und sieht damit die uebrigen +Attribute des Blocks. Ohne diese Klammer muessten bedingte Merkmale wieder +als Python-Code aus der Config herauswandern. + ## ILS 2.0 Zusatzmodul (SivasNr 6215, Dispogruppe 20) BTMT-Beladestationen UND Abwurfstationen (Klammerbuegel-Entladung) in EINER diff --git a/data/json/kettenfoerderer.json b/data/json/kettenfoerderer.json new file mode 100644 index 0000000..07d2122 --- /dev/null +++ b/data/json/kettenfoerderer.json @@ -0,0 +1,67 @@ +{ + "kettenfoerderer": { + "id": "Kettenfoerderer", + "titel": "Kettenfoerderer (Schraegfoerderer Stahl)", + "layer": "kettenfoerderer", + "teileart": "Schraegfoerderer Stahl", + "foerderertyp": "Schrägförderer Stahl", + + "einbauhoehe": { "vorgabe": 1500, "min": 300, "max": 8000 }, + "laenge": { "min": 100, "max": 20000 }, + + "_hinweis_ansicht": "KF_2D liegt DECKUNGSGLEICH mit der Kette (KS_EIN auf KS_EIN der Umlenkung, KS_AUS auf KS_AUS des Antriebs) - die Baugruppe ist EIN Koerper. Den frueheren Versatz (versatz_y) gibt es nicht mehr, seit die Kette aufgerichtet eingebaut wird.", + "ansicht_2d": { "block": "KF_2D" }, + + "_hinweis_antriebsart": "Merkmal 357 ist beim Kettenfoerderer FEST: die Liste hat genau EINEN Eintrag, der im Dialog als Dropdown erscheint und zwingend gewaehlt ist. Weitere Antriebsarten (z.B. 0.55 kW) waeren einfach eine weitere Zeile.", + "antriebsart": [ + { "name": "1.1 kW", "wert": "1.1 kW" } + ], + + "farbe": [ + { "name": "RAL 7035", "wert": "RAL 7035" }, + { "name": "RAL 2000", "wert": "RAL 2000" }, + { "name": "RAL 5018", "wert": "RAL 5018" }, + { "name": "Sonderfarbe", "wert": "Sonderfarbe" } + ], + + "antriebsmotor": [ + { "name": "Europa 50 Hz", "wert": "Europa 50 Hz" } + ], + + "movimot": [ + { "name": "Nein", "wert": "0" }, + { "name": "Ja", "wert": "1" } + ], + + "standard_steuerung": [ + { "name": "Nein", "wert": "0" }, + { "name": "Ja", "wert": "1" } + ], + + "verbindungselemente": [ + { "name": "Verbindungselemente an AP", "wert": "Verbindungselemente an AP" }, + { "name": "Verbindungselemente an ST", "wert": "Verbindungselemente an ST" }, + { "name": "Nein", "wert": "Nein" } + ], + + "varianten": [ + { + "name": "Schraegfoerderer Stahl 26 Grad", + "winkel": 26, + "standard": true, + "block_umlenkung": "KF_UM_26", + "block_laenge": "KF_LAENGE", + "block_antrieb": "KF_AN_26", + "sivas_id": "6120" + }, + { + "name": "Schraegfoerderer Stahl 30 Grad", + "winkel": 30, + "block_umlenkung": "KF_UM_30", + "block_laenge": "KF_LAENGE", + "block_antrieb": "KF_AN_30", + "sivas_id": "6120" + } + ] + } +} diff --git a/data/omniflo/2D/KF_2D.dwg b/data/omniflo/2D/KF_2D.dwg new file mode 100644 index 0000000..91ecddd Binary files /dev/null and b/data/omniflo/2D/KF_2D.dwg differ diff --git a/data/omniflo/2D/KF_AN_26.dwg b/data/omniflo/2D/KF_AN_26.dwg new file mode 100644 index 0000000..882ec1a Binary files /dev/null and b/data/omniflo/2D/KF_AN_26.dwg differ diff --git a/data/omniflo/2D/KF_AN_30.dwg b/data/omniflo/2D/KF_AN_30.dwg new file mode 100644 index 0000000..50beae3 Binary files /dev/null and b/data/omniflo/2D/KF_AN_30.dwg differ diff --git a/data/omniflo/2D/KF_LAENGE.dwg b/data/omniflo/2D/KF_LAENGE.dwg new file mode 100644 index 0000000..d82ce37 Binary files /dev/null and b/data/omniflo/2D/KF_LAENGE.dwg differ diff --git a/data/omniflo/2D/KF_UM_26.dwg b/data/omniflo/2D/KF_UM_26.dwg new file mode 100644 index 0000000..69ff450 Binary files /dev/null and b/data/omniflo/2D/KF_UM_26.dwg differ diff --git a/data/omniflo/2D/KF_UM_30.dwg b/data/omniflo/2D/KF_UM_30.dwg new file mode 100644 index 0000000..1735c18 Binary files /dev/null and b/data/omniflo/2D/KF_UM_30.dwg differ diff --git a/data/omniflo/Verbinder/TV_50_kpl.dwg b/data/omniflo/Verbinder/TV_50_kpl.dwg new file mode 100644 index 0000000..fe36410 Binary files /dev/null and b/data/omniflo/Verbinder/TV_50_kpl.dwg differ diff --git a/data/omniflo/Verbinder/TV_80_kpl.dwg b/data/omniflo/Verbinder/TV_80_kpl.dwg new file mode 100644 index 0000000..413581e Binary files /dev/null and b/data/omniflo/Verbinder/TV_80_kpl.dwg differ diff --git a/data/omniflo/Verbinder/TV_AP110-AP60_kpl.dwg b/data/omniflo/Verbinder/TV_AP110-AP60_kpl.dwg new file mode 100644 index 0000000..755a994 Binary files /dev/null and b/data/omniflo/Verbinder/TV_AP110-AP60_kpl.dwg differ diff --git a/data/omniflo/Verbinder/TV_AP110-ST_kpl.dwg b/data/omniflo/Verbinder/TV_AP110-ST_kpl.dwg new file mode 100644 index 0000000..49d8638 Binary files /dev/null and b/data/omniflo/Verbinder/TV_AP110-ST_kpl.dwg differ diff --git a/data/omniflo/Verbinder/TV_AP60-ST_kpl.dwg b/data/omniflo/Verbinder/TV_AP60-ST_kpl.dwg new file mode 100644 index 0000000..17f0695 Binary files /dev/null and b/data/omniflo/Verbinder/TV_AP60-ST_kpl.dwg differ diff --git a/data/omniflo/Verbinder/TV_SW-AP110-SW.dwg b/data/omniflo/Verbinder/TV_SW-AP110-SW.dwg new file mode 100644 index 0000000..bb0415e Binary files /dev/null and b/data/omniflo/Verbinder/TV_SW-AP110-SW.dwg differ diff --git a/data/omniflo/Verbinder/TV_SW-SW.dwg b/data/omniflo/Verbinder/TV_SW-SW.dwg new file mode 100644 index 0000000..8f01eff Binary files /dev/null and b/data/omniflo/Verbinder/TV_SW-SW.dwg differ diff --git a/data/omniflo/Verbinder/TV_SW_IV_SW-AP60.dwg b/data/omniflo/Verbinder/TV_SW_IV_SW-AP60.dwg new file mode 100644 index 0000000..f515a27 Binary files /dev/null and b/data/omniflo/Verbinder/TV_SW_IV_SW-AP60.dwg differ diff --git a/data/omniflo/Verbinder/TV_SW_IV_SW-ST.dwg b/data/omniflo/Verbinder/TV_SW_IV_SW-ST.dwg new file mode 100644 index 0000000..4eaa15f Binary files /dev/null and b/data/omniflo/Verbinder/TV_SW_IV_SW-ST.dwg differ diff --git a/data/omniflo/Verbinder/TV_SW_I_SW-AP110.dwg b/data/omniflo/Verbinder/TV_SW_I_SW-AP110.dwg new file mode 100644 index 0000000..a713d68 Binary files /dev/null and b/data/omniflo/Verbinder/TV_SW_I_SW-AP110.dwg differ diff --git a/data/omniflo/Verbinder/TV_W-AP110-W_kpl.dwg b/data/omniflo/Verbinder/TV_W-AP110-W_kpl.dwg new file mode 100644 index 0000000..9439429 Binary files /dev/null and b/data/omniflo/Verbinder/TV_W-AP110-W_kpl.dwg differ diff --git a/data/omniflo/Verbinder/TV_W-AP110_kpl.dwg b/data/omniflo/Verbinder/TV_W-AP110_kpl.dwg new file mode 100644 index 0000000..7163b12 Binary files /dev/null and b/data/omniflo/Verbinder/TV_W-AP110_kpl.dwg differ diff --git a/data/omniflo/Verbinder/TV_W-AP60_kpl.dwg b/data/omniflo/Verbinder/TV_W-AP60_kpl.dwg new file mode 100644 index 0000000..6efc598 Binary files /dev/null and b/data/omniflo/Verbinder/TV_W-AP60_kpl.dwg differ diff --git a/data/omniflo/Verbinder/TV_W-AP60_oben.dwg b/data/omniflo/Verbinder/TV_W-AP60_oben.dwg new file mode 100644 index 0000000..aaaa219 Binary files /dev/null and b/data/omniflo/Verbinder/TV_W-AP60_oben.dwg differ diff --git a/data/omniflo/Verbinder/TV_W-W_kpl.dwg b/data/omniflo/Verbinder/TV_W-W_kpl.dwg new file mode 100644 index 0000000..cc2f35a Binary files /dev/null and b/data/omniflo/Verbinder/TV_W-W_kpl.dwg differ diff --git a/data/omniflo/Verbinder/VB_ENDP_AP.dwg b/data/omniflo/Verbinder/VB_ENDP_AP.dwg new file mode 100644 index 0000000..ecdced7 Binary files /dev/null and b/data/omniflo/Verbinder/VB_ENDP_AP.dwg differ diff --git a/data/omniflo/Verbinder/VB_ENDP_AP_Spulenzug.dwg b/data/omniflo/Verbinder/VB_ENDP_AP_Spulenzug.dwg new file mode 100644 index 0000000..729a3e0 Binary files /dev/null and b/data/omniflo/Verbinder/VB_ENDP_AP_Spulenzug.dwg differ diff --git a/data/omniflo/Verbinder/VB_Muffe.dwg b/data/omniflo/Verbinder/VB_Muffe.dwg new file mode 100644 index 0000000..140449f Binary files /dev/null and b/data/omniflo/Verbinder/VB_Muffe.dwg differ diff --git a/dcl/kettenfoerderer.dcl b/dcl/kettenfoerderer.dcl new file mode 100644 index 0000000..f47d542 --- /dev/null +++ b/dcl/kettenfoerderer.dcl @@ -0,0 +1,104 @@ +// ============================================================ +// kettenfoerderer.dcl - Kettenfoerderer (Schraegfoerderer Stahl) +// Verwendet von KettenFoerderer.lsp (kf-dialog, Befehl KETTENFOERDERER). +// +// VORLAGE mit Markerzeilen: nur der Varianten-Block ist datenabhaengig und +// wird zur Laufzeit an //@VARIANTEN@ eingesetzt (kf-dcl-ersetzungen -> +// ssg-dcl-vorlage-fuellen in ssg_core, Temp-Datei). Grund: DCL kann +// radio_button-Tiles weder zur Laufzeit erzeugen noch ihre Labels per +// set_tile aendern - gleiches Vorgehen wie geruest_traeger.dcl. +// +// Varianten bewusst als Radiobuttons statt popup_list: es sind nur zwei +// Werte (26/30 Grad), beide sollen ohne Aufklappen sichtbar sein. +// Die Gruppenbeschriftung steht am boxed_row - ein zusaetzliches Label am +// Tile waere doppelt gemoppelt. +// +// Die Beschriftungen folgen dem Sivas-Merkmalstamm, damit Dialog und +// Stueckliste dieselbe Sprache sprechen (Merkmalnummer in Klammern): +// Schraegfoerderer Stahl Typ (359) H - Einbauhoehe Schraegfoerderer (360) +// Farbe Foerderer (354) Antriebsmotor Foerderer (355) +// Antrieb mit Movimot (356) Verbindungselemente (391) +// Farbe und Antriebsmotor sind dabei ZWEI eigenstaendige Merkmale +// (Attribute FARBE und ANTRIEBSMOTOR), nicht ein kombinierter Text. +// +// Kein Geruest-Bereich: der Kettenfoerderer traegt sich selbst. +// ============================================================ + +kettenfoerderer : dialog { + label = "Kettenfoerderer"; + width = 62; + + : boxed_radio_row { + key = "variante"; + label = "Schraegfoerderer Stahl Typ"; +//@VARIANTEN@ + } + + : boxed_column { + label = "Geometrie"; + + : row { + : edit_box { + key = "hoehe"; + label = "H - Einbauhoehe Schraegfoerderer [ mm ]:"; + edit_width = 12; + } + // Zweite Eingabeart: Hoehe aus zwei gewaehlten Punkten messen. + // Der Knopf schliesst den Dialog (done_dialog 2), der Aufrufer pickt + // die Punkte und zeigt ihn mit dem Ergebnis erneut - aus einem + // action_tile heraus laesst sich kein getpoint aufrufen. + : button { + key = "hoehe_messen"; + label = "aus 2 Punkten messen"; + } + } + } + + : boxed_column { + label = "Ausfuehrung"; + + // Reihenfolge wie im Sivas-Merkmalstamm: 361 vor 354 - Dialog, + // Attributschema und Merkmalstamm bleiben damit in derselben Folge. + : popup_list { + key = "standard_steuerung"; + label = "mit Standard Steuerung:"; + width = 40; + } + + : popup_list { + key = "farbe"; + label = "Farbe Foerderer:"; + width = 40; + } + + : popup_list { + key = "antriebsmotor"; + label = "Antriebsmotor Foerderer:"; + width = 40; + } + + // Antriebsart (Merkmal 357): Dropdown mit genau EINER Option, die immer + // gewaehlt ist - beim Kettenfoerderer ist sie fest 1.1 kW. Als Dropdown + // statt als Textzeile, damit alle Merkmale gleich aussehen; kommt spaeter + // eine zweite Antriebsart dazu, ist es nur eine weitere Zeile in der JSON. + : popup_list { + key = "antriebsart"; + label = "Antriebsart 0,55 / 1,1 kW:"; + width = 40; + } + + : popup_list { + key = "movimot"; + label = "Antrieb mit Movimot:"; + width = 40; + } + + : popup_list { + key = "verbindung"; + label = "Verbindungselemente:"; + width = 40; + } + } + + ok_cancel; +} diff --git a/dcl/stueckliste.dcl b/dcl/stueckliste.dcl deleted file mode 100644 index 4349fab..0000000 --- a/dcl/stueckliste.dcl +++ /dev/null @@ -1,38 +0,0 @@ -// ============================================================ -// stueckliste.dcl - Optionen fuer Positionen + Stueckliste -// Aufruf ueber c:SSG_FAEHNCHEN_STUECKLISTE (Lisp/ssg_stueckliste.lsp, -// ssg-sl-dialog). Vorbelegung aus cfg/stueckliste.json bzw. dem letzten Lauf. -// ============================================================ - -stueckliste : dialog { - label = "Positionen + Stueckliste"; - - : boxed_column { - label = "Layer der Positionen"; - : radio_column { - key = "modus"; - : radio_button { key = "m_suffix"; label = "Bauteil-Layer + Suffix"; } - : radio_button { key = "m_fest"; label = "Fester Layer"; } - } - : edit_box { key = "suffix"; label = "Suffix:"; edit_width = 20; } - : edit_box { key = "fest"; label = "Fester Layer:"; edit_width = 20; } - : text { label = "Regeln je Bauteiltyp: cfg/stueckliste.json"; } - } - - : boxed_column { - label = "Stueckliste"; - : edit_box { key = "tab_layer"; label = "Tabellen-Layer:"; edit_width = 20; } - : edit_box { key = "titel"; label = "Titel:"; edit_width = 30; } - } - - : boxed_column { - label = "Nummerierung / Darstellung"; - : edit_box { key = "startnr"; label = "Erste Positionsnummer:"; edit_width = 10; } - : edit_box { key = "faktor"; label = "Massstabsfaktor:"; edit_width = 10; } - : toggle { key = "alle_pos"; - label = "Alle Positionen in der Fahne (100|101|...), jede Art.-Nr. nummeriert"; } - } - - : errtile { key = "error"; } - ok_cancel; -} diff --git a/dcl/vf_linienzug_wizard.dcl b/dcl/vf_linienzug_wizard.dcl index 3a31dc8..a9cd3db 100644 --- a/dcl/vf_linienzug_wizard.dcl +++ b/dcl/vf_linienzug_wizard.dcl @@ -181,6 +181,84 @@ vflw_as : dialog { } } +// Wie vflw_as, aber ZUSAETZLICH mit der Zufuehrungsachse (2. Punkt) in +// DEMSELBEN Bildschirm - nur fuer das AS-Element am Kettenanfang von Modus 1 +// (Nutzer-Vorgabe 2026-10-21: "Achse und links/rechts gehoeren in ein +// Fenster", beide zusammen legen AS-Lage UND Kettenrichtung fest: der 2. +// Punkt gibt die KS_EIN-Achse, links/rechts die AS-Variante und damit die +// KS_AUS-Richtung). Eigener Dialog statt einer dauerhaft ausgegrauten +// Punkt-Zeile in vflw_as - denselben Dialog nutzt auch das ES-Element am +// Kettenende, wo es gar keine Zufuehrungsachse gibt (gleiche Begruendung wie +// bei vflw_winkel_seite vs. vflw_winkel_seite_30_90). +// Punktwahl-Zeile nach dem Muster von vflw_punkt_zahl: der Button schliesst +// den Dialog (done_dialog 2), danach laeuft (getpoint) auf der +// Kommandozeile, danach wird der Dialog neu gezeigt - darum nutzt "back" +// hier Code 3. +vflw_as_achse : dialog { + label = "VarioFoerderer Assistent"; + + : column { + : text { + key = "kopf"; + label = ""; + width = 60; + } + : toggle { + key = "setzen"; + label = "Ja, setzen"; + } + : boxed_radio_column { + label = "Winkel:"; + key = "winkel"; + : radio_button { key = "winkel_90"; label = "90 Grad"; value = "1"; } + : radio_button { key = "winkel_30"; label = "30 Grad"; } + } + // Beschriftungen bewusst NEUTRAL: derselbe Dialog dient dem AS-Element + // am Kettenanfang (vorwaerts) UND dem ES-Element am Kettenende + // (rueckwaerts bauen, 2026-10-22). Welches Element gemeint ist, sagt die + // Kopfzeile ("kopf"). + : boxed_radio_column { + label = "Seite (Element schleust nach):"; + key = "seite"; + : radio_button { key = "seite_links"; label = "Links"; value = "1"; } + : radio_button { key = "seite_rechts"; label = "Rechts"; } + } + : boxed_column { + label = "Fahrtrichtung (2. Punkt):"; + // Startpunkt der Kette - er ist der Sitz des AS-Elements UND der + // Ausgangspunkt der Achse; waehrend der Punktwahl haengt das + // Gummiband an ihm (vfl-getpoint mit Basispunkt). + : text { + key = "start_anzeige"; + label = ""; + width = 46; + } + : row { + : button { + key = "pick"; + label = "2. Punkt waehlen..."; + fixed_width = true; + width = 20; + } + : text { + key = "pt_anzeige"; + label = "(ohne Achse: Richtung aus dem naechsten Klick)"; + width = 46; + } + } + } + } + + : row { + alignment = centered; + : button { key = "back"; label = "Zurueck"; fixed_width = true; width = 12; } + spacer; + : button { key = "accept"; label = "Ok Weiter"; is_default = true; fixed_width = true; width = 12; } + spacer; + : button { key = "cancel"; label = "Abbrechen"; is_cancel = true; fixed_width = true; width = 12; } + } +} + // Winkel (30/60/90) + Seite - fuer GF-Bogen, wo alle drei Winkel geometrisch // gueltig sind. Fuer AS-/ES-Element (wo 60 Grad NIE gueltig ist) stattdessen // vflw_winkel_seite_30_90 verwenden (siehe vflw-gruppe-winkel-seite-impl/ @@ -402,6 +480,12 @@ vflw_gf_laenge_modus : dialog { : radio_button { key = "modus_hoehe"; label = "Zielhoehe festlegen (Laenge wird berechnet)"; } : radio_button { key = "modus_steigend"; label = "Steigende GF (Sonderfall, bis 3 Grad)"; } : radio_button { key = "modus_qc"; label = "QC Linie mit GF (automatische Auf-Ab-Berechnung)"; } + // Nur am Kettenanfang mit AS-Element UND festgelegter Zufuehrungsachse + // waehlbar - sonst fehlt die Bezugsachse fuer den Abstand. Wird in + // vflw-gruppe-gf-laenge-modus-impl per mode_tile deaktiviert (anders + // als eine NIE waehlbare Kachel ist diese kontextabhaengig, siehe + // "sepnach" in vflw_sep_gf). + : radio_button { key = "modus_parallel"; label = "Parallel zum Kreisel weiterbauen (Abstand)"; } } } @@ -463,9 +547,19 @@ vflw_sep_gf : dialog { key = "sepvor"; label = "Separator VOR dieser Gefaellestrecke"; } - : toggle { - key = "sepnach"; - label = "Separator NACH dieser Gefaellestrecke"; + // Steht am Kettenende ein ES-Element, ist "Separator NACH" gesperrt - + // der Hinweis dahinter sagt warum, in EINER Zeile mit dem Ankreuzfeld + // (gleiche Anordnung wie in vflw_seg_linie_m2). Sonst leer (set_tile ""). + : row { + : toggle { + key = "sepnach"; + label = "Separator NACH dieser Gefaellestrecke"; + } + : text { + key = "sephinweis"; + label = ""; + width = 62; + } } } @@ -1006,7 +1100,13 @@ vflw_seg_linie_m2 : dialog { : boxed_column { label = "Separator (nur bei GF):"; : toggle { key = "sep_vor"; label = "Separator VOR diesem GF-Stueck"; } - : toggle { key = "sep_nach"; label = "Separator NACH diesem GF-Stueck"; } + // Begruendung, wenn "NACH" gesperrt ist (ES folgt direkt), in EINER + // Zeile hinter dem Ankreuzfeld - sonst liest sie sich wie eine eigene + // Aussage statt wie die Erklaerung zu genau diesem Feld. Sonst leer. + : row { + : toggle { key = "sep_nach"; label = "Separator NACH diesem GF-Stueck"; } + : text { key = "sephinweis"; label = ""; width = 62; } + } } } @@ -1116,13 +1216,24 @@ vflw_m2_lauf_anfang : dialog { label = ""; width = 60; } + // Reihenfolge nach Haeufigkeit (Nutzer-Wunsch 2026-10-23): der + // Regelfall zuerst, der Sonderfall "offener Anfang" zuletzt. Die + // radio_button-KEYS bleiben dabei unveraendert; journalisiert wird der + // am Key haengende WERT ("mit-gf1"/"direkt"/"ohne", siehe + // vfl-m2-anfang-norm), nicht die Position - Umsortieren und Umnummerieren + // sind damit folgenlos fuer bestehende Ketten. : boxed_radio_column { label = "Lauf beginnen mit:"; key = "anfang"; - : radio_button { key = "anfang_offen"; label = "Ohne Umlenkstation (offener Anfang, spaeter fortsetzen)"; } - : radio_button { key = "anfang_umlenk"; label = "Umlenkstation direkt (kein GF1/Separator)"; } - : radio_button { key = "anfang_umlenk_gf1"; label = "Umlenkstation mit GF1 + Separator"; value = "1"; } + // Nummern wie in der Konsolenausgabe, damit Dialog und Protokoll + // dieselbe Option gleich benennen. + : radio_button { key = "anfang_umlenk_gf1"; label = "1 - Umlenkstation mit GF1 + Separator"; value = "1"; } + : radio_button { key = "anfang_umlenk"; label = "2 - Umlenkstation direkt (kein GF1/Separator)"; } + : radio_button { key = "anfang_offen"; label = "3 - Ohne Umlenkstation (offener Anfang, spaeter fortsetzen/verschmelzen)"; } } + // Begruendung, wenn "Ohne Umlenkstation" gesperrt ist (AS gesetzt). + // Breit genug fuer den vollen Satz - bei width = 60 wurde er abgeschnitten. + : text { key = "anfanghinweis"; label = ""; width = 76; } } ok_cancel; diff --git a/doc/cad-datenaufbereitung.md b/doc/cad-datenaufbereitung.md new file mode 100644 index 0000000..d25aa14 --- /dev/null +++ b/doc/cad-datenaufbereitung.md @@ -0,0 +1,180 @@ +# Datenaufbereitung der CAD-Bausteine + +Kurzanleitung fuer alle, die neue CAD-Modelle (DWG/DXF-Bausteine) fuer die +SSG_LIB-Makros anlegen oder bestehende ersetzen. + +Hier finden Sie Antworten auf folgende Fragen: + +1. [Wo sind Koordinatensysteme anzusetzen?](#1-wo-sind-koordinatensysteme-anzusetzen) +2. [Wie muessen sie heissen?](#2-wie-muessen-die-koordinatensysteme-heissen) +3. [Wie werden 3D-Modelle anhand der 2.5D-Skelette platziert?](#3-grundidee-platzierung-ueber-das-25d-skelett) +4. [Wo und wie werden die Dateien abgelegt?](#4-datenablage-und-benennung) + +Am Ende steht eine [Checkliste](#5-checkliste-fuer-ein-neues-modell). + +--- + +## 1. Wo sind Koordinatensysteme anzusetzen? + +Ein Koordinatensystem (KS) markiert einen **Anschlusspunkt**: die Stelle, an +der ein Baustein an seinen Vorgaenger bzw. Nachfolger andockt. Es sitzt +immer **auf der Mittellinie der Foerderstrecke** (dem Skelett, siehe +Abschnitt 3), genau am Uebergang zum Nachbarteil. + +**Aufbau eines KS** - ein kleiner Block mit drei LINEs, alle ab demselben +Ursprung: + +| Achse | Farbe | Laenge | Richtung | +|---|---|---|---| +| X | rot (1) | 1 | Foerderrichtung (bzw. Anschlussrichtung, siehe unten) | +| Y | gruen (3) | 2 | quer dazu, nach links | +| Z | blau (5) | 3 | nach oben, aus der Zeichenebene | + +Die Makros erkennen die Achsen **nur an der Linienlaenge** (1 = X, 2 = Y, +3 = Z; X darf auch 100 lang sein). Farben dienen nur der Lesbarkeit. Der +KS-Block liegt auf Layer `_KOORDINATENSYSTEME` und muss **direkt** (eine +Ebene tief) im Baustein eingefuegt sein, nicht in einem weiteren Unterblock. + +### ILS-Kettenbausteine (Vario, Gefaelle, AS/ES, Staustrecke, Separator ...) + +- **`KS_EIN`** am Einlauf, **`KS_AUS`** am Auslauf. +- Bei **beiden** zeigt die X-Achse **in Foerderrichtung**. Beim Verketten + kommt das `KS_EIN` des Nachfolgers auf das `KS_AUS` des Vorgaengers; die + Richtung des Folgebausteins wird aus der X-Achse von `KS_AUS` gemessen + (z.B. beim Kettenfoerderer). +- Laengenvariable Teile (Staustrecke, `KF_LAENGE`) liegen entlang **+X** und + werden in X skaliert - `KS_EIN` bei X=0, `KS_AUS` am Ende der + Referenzlaenge (z.B. 1000 mm). + +### Omniflo-Boegen und -Weichen + +- Anschluss-KS heissen **`K1` bis `K4`**. Die X-Achse zeigt jeweils **in + das Element hinein** (tangential zur Linie). +- Zuordnung: + +| KS | Boegen | Weichen | +|---|---|---| +| K1 | Beginn der obersten waagerechten Linie, X nach rechts | Beginn der untersten senkrechten Linie, X nach oben | +| K2 | anderes Kettenende | Ende des linken Bogenzweigs | +| K3 | - | Ende des rechten Bogenzweigs (nur bei 2+ Boegen) | +| K4 | - | oberes Ende der K1-Linie (nicht bei Doppel-/Dreifach-/Deltaweiche) | + +- K1-K4 muessen nicht von Hand gezeichnet werden: `lib/set_koords.py --set-all` + setzt sie geometrisch, vorher setzt `bin\set_einfuegepunkt.bat` + (`lib/set_einfuegepkt.py`) den Einfuegepunkt. Details: [tools.md](tools.md). + +### Bausteine ohne KS + +Einzeln frei platzierte Teile (Kreisel-Raeder `AN8`/`SP8`, BTMT-Stationen, +Scanner, Eingang/Ausgang, Geruestteile) brauchen kein KS. Hier zaehlt nur +der **Einfuegepunkt** (Basispunkt der DWG), siehe Abschnitt 3. + +--- + +## 2. Wie muessen die Koordinatensysteme heissen? + +| Name | Verwendung | +|---|---| +| `KS_EIN` | Einlauf eines ILS-Kettenbausteins | +| `KS_AUS` | Auslauf eines ILS-Kettenbausteins | +| `K1` ... `K4` | Anschluesse von Omniflo-Boegen/-Weichen | + +- Genau diese Schreibweise, **ohne** `_2D`/`_3D`-Suffix (die KS-Bloecke sind + dimensionsunabhaengig und in 2D- und 3D-Variante identisch). +- Je Baustein jedes KS **nur einmal**. +- `KSYS_EIN`/`KSYS_AUS` werden aus Altbestaenden noch gelesen, fuer neue + Modelle aber nicht mehr verwenden. + +--- + +## 3. Grundidee: Platzierung ueber das 2.5D-Skelett + +**Skelett** = die Mittellinie der Foerderstrecke als einfache Linien/Boegen. +"2.5D", weil es eine flache Grundriss-Geometrie ist, deren Punkte zusaetzlich +eine Hoehe (Z) tragen - keine echte 3D-Konstruktion. + +Das Prinzip hat zwei Seiten: + +**a) Im Baustein selbst** ist das Skelett die Bezugsgeometrie: + +- Die 2D-Variante *ist* das Skelett (plus Symbolik). +- Das 3D-Modell enthaelt **dieselben 2D-Skelettlinien** in seiner + Grundebene. Einfuegepunkt und KS liegen auf diesem Skelett - deshalb + sind sie in 2D- und 3D-Variante **deckungsgleich** und die Varianten + beliebig austauschbar. Die Omniflo-Werkzeuge (`set_einfuegepkt.py`, + `set_koords.py`) werten genau diese Skelettlinien aus; ohne sie + funktionieren sie bei 3D-Dateien nicht. +- Gezeichnet wird in der Lage "Foerderrichtung = +X, Z nach oben". Einzige + Ausnahme: aufrecht eingebaute Teile wie der Kettenfoerderer (`KF_*`) + sind in XY gezeichnet (Y = Hoehe) und werden vom Makro aufgerichtet. + +**b) In der Anlage** liefert der Anwender bzw. das Makro das Skelett +(geklickte Punkte, gezeichneter Linienzug, Hoehen). Die Makros setzen die +Bausteine darauf nacheinander: + +1. `KS_EIN` des Bausteins auf den aktuellen Skelettpunkt legen. +2. Drehen: um Z nach der Grundriss-Richtung des Segments, um Y nach dessen + Neigung (Rz * Ry). +3. Laengenteile in X auf die Segmentlaenge skalieren. +4. Weltlage von `KS_AUS` lesen = Startpunkt des naechsten Bausteins. + +Freistehende Teile ohne KS werden nur mit Einfuegepunkt + Drehung gesetzt +(z.B. `AN8` mit dem Basispunkt in der Radmitte). + +Weil 3D-Modell und 2D-Symbol am selben Skelett haengen, kann jede Anlage +wahlweise in 2D oder 3D aufgebaut und spaeter umgeschaltet werden. + +--- + +## 4. Datenablage und Benennung + +Grundregeln: + +- **Eine Datei je Baustein**, Dateiname = Blockname. +- Namen nur **ASCII, ohne Umlaute und Leerzeichen** (`ae`/`oe`/`ue`, `_` + als Trenner). +- Der Basispunkt der DWG ist der Einfuegepunkt (s. Abschnitt 3). + +| Bereich | Ablage | Benennung | +|---|---|---| +| ILS (Kreisel, Vario, Gefaelle, AS/ES, Stationen, Sensoren) | `data/ils/` **flach** | `_2D.dwg` und `_3D.dwg`, z.B. `AS_Element_30_links_3D.dwg`. Fehlt die 2D-Datei, wird automatisch die 3D-Datei genommen | +| Omniflo-Boegen/-Weichen | `data/omniflo/2D/` bzw. `data/omniflo/3D/` | Sivas-Nummer, `.dxf`, z.B. `821104024.dxf`; Kombinationen mit `+`, z.B. `821104024+0_B10081.dxf` | +| Omniflo-Verbinder | `data/omniflo/Verbinder/` | dimensionsunabhaengig, z.B. `TV_AP60-ST_kpl.dwg` | +| Kettenfoerderer | `data/omniflo/2D/` | ohne Suffix: `KF_UM_26`, `KF_AN_30`, `KF_LAENGE`, `KF_2D` | +| Geruest | `data/geruest/` | Artikelnummer, z.B. `821006031.dwg`; Platzhalter `dummy_*.dwg` | +| DIN-Rahmen/Schriftkoepfe | `cfg/rahmen/` | `A0.DWG` ... `Kopf11.dwg` | + +**Zugehoerige Daten** (Masse, Sivas-/Artikelnummern, Auswahllisten) liegen +nicht in der DWG, sondern in `data/json/` - z.B. `omniflo_boegen.json`, +`omniflo_weichen.json`, `geruest.json`, `kettenfoerderer.json`. Ein neues +Omniflo- oder Geruestteil ist erst auswaehlbar, wenn es dort eingetragen ist. + +**Attribute und Layer:** + +- Bloecke, die nur eingefuegt werden, tragen ihren Ziel-Layer als Attribut + **`LAYER`** (Vorgaben je Block in `data/ils/allocations.json`, z.B. + `AN8_2D` -> `ILS_ANTR`, `AN8_3D` -> `_3D_ILS_ANTR`). +- Ein leeres **`ID`**-Attribut mit anlegen - nur dann kann die automatische + ID-Vergabe fuer den Export es befuellen. +- Omniflo-Teile brauchen fuer den Export `TEILEART` (`Omniflo ...`) und + `ARTINR`. +- Layer/Farbe zusammengebauter Baugruppen (`KREISEL_n`, `VF_n`, `GF_n`) + stehen nicht im Modell, sondern in `cfg/layer.cfg`. + +--- + +## 5. Checkliste fuer ein neues Modell + +- [ ] Dateiname nach Tabelle in Abschnitt 4, ASCII, im richtigen Ordner +- [ ] ILS: 2D- **und** 3D-Variante, Basispunkt und KS deckungsgleich +- [ ] 3D-Modell enthaelt die 2D-Skelettlinien +- [ ] Foerderrichtung entlang +X, Z nach oben +- [ ] Kettenbaustein: `KS_EIN`/`KS_AUS` direkt im Block, X in Foerderrichtung, + Achslaengen 1/2/3 +- [ ] Omniflo: `set_einfuegepkt.py` und `set_koords.py --set-all` gelaufen, + Kontrolle per `--show-omniflo` +- [ ] Attribute `LAYER` und leeres `ID` vorhanden (Omniflo zusaetzlich + `TEILEART`, `ARTINR`) +- [ ] Eintrag in der passenden JSON unter `data/json/` bzw. `allocations.json` +- [ ] In BricsCAD einmal ueber das Menue einfuegen/verketten und pruefen, + dass der Anschluss sauber sitzt diff --git a/doc/json-input-lisp.md b/doc/json-input-lisp.md index beaf872..5fecd8f 100644 --- a/doc/json-input-lisp.md +++ b/doc/json-input-lisp.md @@ -7,8 +7,7 @@ und die Treiber in `tests/test_*.lsp`, die sie lesen. Die zugehoerigen LISP-Routinen mit Signaturen stehen in [lisp_methods.md](lisp_methods.md). Diese Seite ersetzt das fruehere -`tests/testdata/object_data.md` (geloescht in Commit `e147b89`, auf das Code- -Kommentare teilweise noch verweisen). +`tests/testdata/object_data.md` (geloescht in Commit `e147b89`). **Feldnamen als Python-Konstanten**: `lib/testdata_schema.py` buendelt die Feldnamen/festen Werte der Abschnitte 1 (Kreisel), 2 (Einzelbloecke), 3 (VF diff --git a/doc/kommandos.md b/doc/kommandos.md index f4e3513..d4ab2fb 100644 --- a/doc/kommandos.md +++ b/doc/kommandos.md @@ -37,7 +37,9 @@ Gross-/Kleinschreibung spielt an der Kommandozeile keine Rolle. | `KreiselLabelSetup` | Beschriftung einstellen (Hoehe, Farbe, Abstand, Schriftart) | | `KreiselLabelPos` | Versatz der Beschriftung (dx/dy) einstellen | | `KreiselLabelHoehe` | Texthoehe der Beschriftung einstellen | -| `ILS_Eckrad` | Eckrad an einem Tangentenpunkt mit Richtung einfuegen | +| `ILS_Eckrad` | Eckrad einfuegen (Dialog `eckrad_edit.dcl`, ohne GUI Konsolen-Rueckfall) | +| `EckradEdit` | Bestehendes Eckrad per Dialog bearbeiten (auch per Doppelklick) | +| `KREISEL_WEICHEN` | Beruehrpunkte/Weichen und Kollisionen aller Kreisel/Eckraeder gleicher Hoehe ermitteln, Marker setzen | ### VarioFoerderer (`VarioFoerderer.lsp` -> `vf_core`/`vf_standard`/`vf_etage`/`vf_linienzug`/`vf_spec`) @@ -97,18 +99,28 @@ Gross-/Kleinschreibung spielt an der Kommandozeile keine Rolle. | `OMNI_WKomb_Delta_1400`, `OMNI_WKomb_Delta_1600`, `OMNI_WKomb_Star` | Weichenkombinationen (Delta, Stern) | | `OMNI_APBW_R400_45_140`, `OMNI_APBW_R400_675_260`, `OMNI_APBW_R550_45_77`, `OMNI_APBW_R550_45_194`, `OMNI_APBW_R550_225_360`, `OMNI_APBW_R550_225_410A`/`B`/`C`, `OMNI_APBW_R550_675_58`/`_125`/`_208`/`_360`, `OMNI_APBW_R650_90_300`, `OMNI_APBW_R750_90_200` | Boegen fuer Weichen (fest, ohne Dialog) | | `OMNI_TEF_UmlenkL`/`R`, `OMNI_TEF_AntriebL`/`R`, `OMNI_TEF_Gerade` | TEF-Elemente (fest, ohne Drehung) | +| `OMNI_SCHW_400_L`/`_R`, `OMNI_SCHW_400_L_SENSORIK`/`_R_SENSORIK` | Schwenkschienen fuer Schiebetueren (Menue Spez. Streckenelemente -> Tuerloesungen) | | `OMNI_STOPPER`, `OMNI_SCANNER`, `OMNI_BUERSTENBREMSE` | Anbaugruppen | -| `OMNI_TV_W_W`, `OMNI_TV_W_AP`, `OMNI_TV_W_AP60`, `OMNI_TV_W_AP110`, `OMNI_TV_W_AP110_W`, `OMNI_TV_50`, `OMNI_TV_80`, `OMNI_TV_ENDPLATTE`, `OMNI_TV_ANSCHLAG`, `OMNI_TV_MUFFE`, `OMNI_TV_A_AP110_AP60`, `OMNI_TV_A_AP60_ST`, `OMNI_TV_A_AP110_ST`, `OMNI_TV_SW_II_SW_SW`, `OMNI_TV_SW_III_AP110`, `OMNI_TV_SW_III_AP110_SW`, `OMNI_TV_SW_IV_AP60`, `OMNI_TV_SW_IV_ST` | Verbinder | +| `OMNI_TV_W_W`, `OMNI_TV_W_AP60`, `OMNI_TV_W_AP60_KPL`, `OMNI_TV_W_AP110`, `OMNI_TV_W_AP110_W`, `OMNI_TV_50`, `OMNI_TV_80`, `OMNI_TV_ENDPLATTE`, `OMNI_TV_ANSCHLAG`, `OMNI_TV_MUFFE`, `OMNI_TV_A_AP110_AP60`, `OMNI_TV_A_AP60_ST`, `OMNI_TV_A_AP110_ST`, `OMNI_TV_SW_II_SW_SW`, `OMNI_TV_SW_I_AP110`, `OMNI_TV_SW_III_AP110_SW`, `OMNI_TV_SW_IV_AP60`, `OMNI_TV_SW_IV_ST` | Verbinder | | `OMNI_LADESCHLEIFE_AP110` | Ladeschleife (Dialog `omniflo_ladeschleifen.dcl`) | -| `OMNI_KettenFoerderer` | Platzhalter (noch ohne Funktion) | | `OMNI_EDIT` | Omniflo-Element per Dialog bearbeiten; auch per Doppelklick | +| `OMNI_FAHRSTRECKE` (`GeruestInsert.lsp`) | Omniflo-Fahrstrecke mit Linien-Logik wie `GERUEST_TRAEGER` (Dialog `fahrstrecke.dcl`) | +| `OMNI_FAHRSTRECKE_BESCHRIFTEN` | Alle Fahrstrecken der Zeichnung neu beschriften | + +### Kettenfoerderer (`KettenFoerderer.lsp`) + +| Befehl | Beschreibung | +|---|---| +| `KETTENFOERDERER` | Kettenfoerderer/Schraegfoerderer Stahl per Dialog (`kettenfoerderer.dcl`) als Block `KF_` bauen; Menue Omniflo -> KettenFoerderer | +| `KF_EDIT` | `KF_n`-Block bearbeiten und neu aufbauen; auch per Doppelklick | +| `KF_KS_PRUEFEN` | Diagnose (nicht im Menue): KS-Lage der Kettenfoerderer-Bausteine pruefen | ### Geruest (`GeruestInsert.lsp`) | Befehl | Beschreibung | |---|---| -| `GERUEST` | Geruest-Dialog (Bereich frei waehlbar) | -| `GERUEST_SAEULEN` / `GERUEST_ROHRABHAENGER` / `GERUEST_WANDBEFESTIGUNG` | Derselbe Dialog, im jeweiligen Bereich geoeffnet | +| `GERUEST_SAEULEN` / `GERUEST_ROHRABHAENGER` / `GERUEST_WANDBEFESTIGUNG` | Je eigener Dialog aus der Vorlage `geruest.dcl` (keine Umschaltung zwischen den Bereichen) | +| `GERUEST` | Ohne Bereich nur ein Hinweis; im Menue Platzhalter fuer den Gattertraeger | | `GERUEST_TRAEGER` | Rohr-Geruest-Traeger: Dialog (`geruest_traeger.dcl`), danach Start-/Endpunkt oder Laenge bis ESC/Enter | | `GERUEST_TRAEGER_BESCHRIFTEN` | Alle Traeger der Zeichnung neu beschriften, verwaiste Beschriftungen entfernen | @@ -120,6 +132,7 @@ Gross-/Kleinschreibung spielt an der Kommandozeile keine Rolle. | `TRO_EDIT` | ID/TYPE eines TRO-Markers per Dialog aendern | | `CONNECTION_INSERT` | Verbindungspfeil (Fluss) zwischen zwei Elementen zeichnen | | `CONNECTION_EDIT` | Quelle/Ziel einer Verbindung aendern | +| `JAM_EDIT` (`Jam_Edit.lsp`) | Staubereich (`JAM_AREA` aus sps_skel) bearbeiten: Foerderer und laufende Nummer; auch per Doppelklick | ### Export und IDs (`export.lsp`, `ssg_id.lsp`, `count_sep_scan.lsp`, `check_hoehen.lsp`) @@ -145,9 +158,22 @@ Gross-/Kleinschreibung spielt an der Kommandozeile keine Rolle. | `DRAW_PLANQUADRATE` | Planquadrat-Raster (Block `ZZ_PLANQUADRATE`) zeichnen bzw. neu aufbauen | | `DELETE_PLANQUADRATE` | Planquadrat-Raster entfernen | | `PLANQUADRATE_TOGGLE` | Raster an/aus (zeichnen, falls keins existiert, sonst entfernen) | -| `SSG_BLOCKEDIT` | Doppelklick-/Kontextmenue-Dispatcher: Kreisel, Omniflo, GF_*, VF_*, GR_*, TRO_* auf den passenden Edit-Befehl | +| `SSG_BLOCKEDIT` | Doppelklick-/Kontextmenue-Dispatcher: Kreisel, Eckrad, Omniflo, GF_*, VF_*, KF_*, GR_*, TRO_*, JAM_* auf den passenden Edit-Befehl | | `EATTEDIT` | Ueberschreibt den nativen Befehl, leitet an `SSG_BLOCKEDIT` weiter (Fallback `_.EATTEDIT`) | +### Werkzeuge (`ssg_blocktools.lsp`, `ssg_texttools.lsp`, `ssg_stueckliste.lsp`, `DinFormate.lsp`) + +| Befehl | Beschreibung | +|---|---| +| `SSG_BLOCK_COUNT` | Blockeinfuegungen im aktuellen Layout zaehlen (Pick, Muster oder Statistik) | +| `SSG_BLOCK_DELETE` | Alle Einfuegungen eines Blocks loeschen (mit Rueckfrage) | +| `SSG_ATTR_ERSETZEN` | Attributwerte zeichnungsweit oder in einer Auswahl suchen und ersetzen | +| `SSG_TEXT_ERSETZEN` | Suchen/Ersetzen in TEXT, MTEXT und Attributen | +| `SSG_TEXT_PARALLEL` | Text parallel zu Linie/Polylinie/Bogen setzen | +| `SSG_TEXT_HOEHE` / `SSG_TEXT_STIL` | Texthoehe bzw. Textstil aendern | +| `SSG_FAEHNCHEN_STUECKLISTE` | Positions-Faehnchen und Stuecklistentabelle aus den gewaehlten Elementen der Zeichnung | +| `DIN_FORMATE` | DIN-Rahmen (A0-A4) und optional Schriftkopf einfuegen | + ### Layer-Werkzeuge (`ssg_layer.lsp`) | Befehl | Beschreibung | @@ -202,6 +228,8 @@ Aus dem Menue "Tests" bzw. der Kommandozeile; Details in `doc/LispTests.md`. | `TEST_MUBEA` | Mubea-Nachbau aus `tests/testdata/mubea.json` | | `TEST_DEMATIC_ARVATO` | Dematic/Arvato-Nachbau (Flowpuffer/Kreisel) | | `TEST_SHOWROOM_ILS` | ILS-3.0-Showroom-Nachbau (Kreisel, Gefaellestrecken; Hoehen noch Platzhalter) | +| `TEST_LASTENT` | `ssg-lastent-ohne-attribute` (kopierter Attribut-Block verliert keine Attribute) | +| `TEST_STUECKLISTE` | Faehnchen + Stueckliste aus der Zeichnung | | `TEST_TEST_SYSTEM` | Testanlage `test_system` nachbauen (9 Kreisel, Separatoren, BTMT) - Vorlage fuer sps_skel | --- @@ -218,7 +246,6 @@ Alle Skripte rufen zuerst `setenv.bat` (bzw. `setenv.sh`) auf. | `install_py.bat` / `install_py.sh` | `.venv` anlegen und `requirements.txt` installieren (nur wenn noch nicht vorhanden) | | `activate_venv.bat` / `activate_venv.sh` | `.venv` aktivieren, Python-Version und Pakete anzeigen | | `run_tests.bat` | Testausfuehrung, siehe unten | -| `create_tests.bat` | Kompletter ILS-Testlauf: Basis-DXF erzeugen, BricsCAD mit `ILS_test.scr`, Ergebnisse validieren | | `set_einfuegepunkt.bat [schalter]` | Wrapper fuer `lib/set_einfuegepkt.py` (siehe `doc/tools.md`) | | `set_coords.bat [schalter]` | Wrapper fuer `lib/set_koords.py` (siehe `doc/tools.md`) | | `dbg2lsp.bat [argumente]` | Wrapper fuer `lib/dbg2lsp.py` (siehe `doc/dbg2lsp.md`) | diff --git a/doc/plan/Entwicklungsplan.md b/doc/plan/Entwicklungsplan.md index ae6bf44..3190ea9 100644 --- a/doc/plan/Entwicklungsplan.md +++ b/doc/plan/Entwicklungsplan.md @@ -1,33 +1,38 @@ # Kapitel 1: Meilensteinplanung +Status-Stand: 2026-10-26 (DONE = im Menue nutzbar und im Sivas-/CSV-Export erfasst). + ## Meilenstein 1: ILS für die Projektierung - ILS Kreisel DONE - ILS Eckrad DONE -- ILS Varioförder DONE -- ILS Gefällestrecke -- ILS Weichen -- ILS Horizontalvariobögen (30,60,90 r und l, innen und aussen angetrieben) -- ILS Gefällebögen (30,60,90 r und l) +- ILS Varioförder DONE (Standard, Etage, Streckengruppe/Linienzug Modus 1-3, QC-Linie mit GF) +- ILS Gefällestrecke DONE (einfach, aus 3D-Linie, aus Linienzug; Doppelklick-Edit) +- ILS Weichen TEILWEISE (Weichenpunkte zwischen Kreiseln ermitteln: KREISEL_WEICHEN, Export Merkmal 4403 + Weichenzeile; keine eigene Weichen-Geometrie) +- ILS Horizontalvariobögen (30,60,90 r und l, innen und aussen angetrieben) TEILWEISE (als Vario-Kurve innerhalb der Streckengruppe; die frueheren Einzelbefehle ILS_K* wurden entfernt) +- ILS Gefällebögen (30,60,90 r und l) TEILWEISE (als GF-Bogen innerhalb von Streckengruppe/Gefaellestrecke-Linienzug) - BTMT Beladung und Entladung DONE (Einfuegen + Sivas-/CSV-Export) -- CSV Export aller ILS Elemente +- CSV Export aller ILS Elemente DONE (EXPORTCSV / EXPORTSIVAS) ## Meilenstein 2: Ersatz von Bihler Gerüst - Gerüst - + Abhänger (3 Quetschung, 6 Abhängung oben, 4 Abhängung unten, 4 Befestiung oben, 3 Farben, Variable Länge) - + T-Abhänger mit Flansch-Rohr (3 Spannpratze, 3 Farben, Variable Länge) - + Säulen (2 Arten, 3 Farben, 2 Einbauwinkel Platte, 5 Haltearm, 4 Einbauwinkel Arm, 8 Klemmring, Länge Bodensäule) - + Wandbefestigung (4 Varianten, 3 Befestigungen) - + Träger (RT/DRT) - (4 Varianten, 3 Farben, Muffe, Längenabzug Anfang/Ende) -- CSV Export aller Gerüst Komponenten + + Abhänger (3 Quetschung, 6 Abhängung oben, 4 Abhängung unten, 4 Befestiung oben, 3 Farben, Variable Länge) DONE (GERUEST_ROHRABHAENGER) + + T-Abhänger mit Flansch-Rohr (3 Spannpratze, 3 Farben, Variable Länge) DONE (Variante der Rohrabhaenger) + + Säulen (2 Arten, 3 Farben, 2 Einbauwinkel Platte, 5 Haltearm, 4 Einbauwinkel Arm, 8 Klemmring, Länge Bodensäule) DONE (GERUEST_SAEULEN) + + Wandbefestigung (4 Varianten, 3 Befestigungen) DONE (GERUEST_WANDBEFESTIGUNG) + + Träger (RT/DRT) - (4 Varianten, 3 Farben, Muffe, Längenabzug Anfang/Ende) DONE (GERUEST_TRAEGER inkl. Beschriftung) + + Gatterträger OFFEN (Menue-Platzhalter) +- CSV Export aller Gerüst Komponenten DONE (`pattern_geruest = GR_*`) - TOS von Gerüst-Import ins Sivas ## Meilenstein 3: Ersatz von Bihler Omniflo - Omniflo Bögen (27) DONE - Omniflo Weichen (80) DONE -- Omniflo Verbinder (18 Varianten) -- Kettenförderer (3 Teile: Ein/Auslauf und Verbindung) -- TEF Geraden aus Omniflo Geraden (Umwandlungsmakro) -- CSV Export aller Omniflo Elemente +- Omniflo Verbinder (18 Varianten) DONE (OMNI_TV_*) +- Kettenförderer (3 Teile: Ein/Auslauf und Verbindung) DONE (KETTENFOERDERER / KF_EDIT) +- TEF Geraden aus Omniflo Geraden (Umwandlungsmakro) TEILWEISE (TEF_FOERDERER_LINIE belegt eine Linie mit TEF-Geraden; Umwandlung bestehender Omniflo-Geraden fehlt) +- Omniflo Fahrstrecke, Ladeschleifen, Schwenkschienen DONE +- Bögen für Weichen (OMNI_APBW_*) OFFEN (Dummy, im Menue ausgegraut) +- CSV Export aller Omniflo Elemente DONE ## Meilenstein 4: Flex - Erstellung der .dwg Dateien von Bögen, Geraden, Förderer @@ -46,7 +51,7 @@ - Erzeugung eines Puffers aus einer Flächenangabe/Recheck - Positionierung von Separatoren und Scannern aus dem Streckenverlauf/Fördereranbindung - Makro zur Erzeugung eines Arbeitsplatzes (Varioförderer ab, 180 Grad Bogen, Varoförderer auf) -- Varioförder als Etagenförderer (anderer ES und AS Elemente) +- Varioförder als Etagenförderer (anderer ES und AS Elemente) DONE (VF-Typ Etage) --- diff --git a/doc/plan/vf-parameter-struct-analyse.md b/doc/plan/vf-parameter-struct-analyse.md index a00d68b..94b350c 100644 --- a/doc/plan/vf-parameter-struct-analyse.md +++ b/doc/plan/vf-parameter-struct-analyse.md @@ -60,7 +60,7 @@ Erweiterung (AutoLISP-Konvention: Alist statt echtem Struct): | `vfl-modus-abbruch-sichern` | vf_linienzug.lsp | 9 | | `vf-winkel-solve` | vf_core.lsp | 8 | | `vfs-mitte-teil`, `vfl-vf-einheit`, `vfl-vf-einheit-abschluss` | standard/linienzug | je 7 | -| `vfs-vf-koerper`, `vfl-insert-es-element`, `vfl3-es-fueller` | standard/linienzug | je 5-6 | +| `vfs-vf-koerper`, `vfl-insert-es-element`, `vfl-zsolve-es-fueller` | standard/linienzug | je 5-6 | | die vier `insert-hz-*`-Funktionen | vf_etage.lsp | je 4-6 | ## Struct-Kandidaten diff --git a/doc/todo.md b/doc/todo.md new file mode 100644 index 0000000..1f1c54a --- /dev/null +++ b/doc/todo.md @@ -0,0 +1,94 @@ +# Offene TODOs + +Zentrale Sammlung aller offenen Punkte. Wo ein eigener Fahrplan in `doc/todo/` +existiert, steht hier nur die Kurzfassung mit Verweis. Erledigtes wird +entfernt (Historie steht in git), nicht abgehakt stehen gelassen. + +Stand: 2026-10-26. Wird woechentlich (freitags) mit der Doku geprueft, siehe +`CLAUDE.md` -> Konventionen. + +--- + +## 1. VarioFoerderer / Linienzug + +- **Modus-2-Solver: achsenweise Laengen-Bilanz.** Gefaltete VF-Laeufe (U-Form) + werden falsch gebaut (erste GF zu lang, Kletterstrecke zu kurz, Motor/ES + falsch), weil der Solver die festen Fussabdruecke skalar von EINER Spanne + abzieht. Als Zwischenloesung zumindest gefaltete Laeufe mit Meldung + abweisen. -> `doc/todo/modus2-achsenweise-bilanz.md` +- **VF-Linienzug ohne GUI/Konsole, Stufe 2** (Funktionstrennung): + Schritte 5c, 6, 8, 9, 10 offen (u.a. `vfl-spec-ausfuehren`, Daten-Pfad ohne + Replay-Umweg), Schritt 11 (Modus 2) zurueckgestellt. Bringt Architektur, + keine neue Funktion. -> `doc/todo/plan-vf-interactive.md` +- **Spec-Uebersetzer fuer Modus 2/3** (Stufe 1 Rest): `vsp-journal` kann nur + Modus-1-Ketten. Braucht erst 2-3 echte `linienzug2`/`linienzug3`-Journale + als Referenz; Abschnitt 4.4 des Plans auf das `SEGS`-Journalformat + anpassen. -> `doc/todo/plan-vf-interactive.md` +- **`vfl-konvertiere-ent` headless?** Die Batch-2D/3D-Konvertierung laeuft + ohne `*vfl-headless*` (Live-Rueckfrage bisher gewollt). Entscheiden, ob sie + auf den Ergebnis-Record umgestellt wird. +- **Stufe 3 Winkelwahl: "Ab"-Zweig** (`vf_standard.lsp`, Kommentar bei der + Fuellstueck-Berechnung): nur "Auf" implementiert, "Ab" bleibt bewusst offen, + bis ein konkreter Bedarfsfall vorliegt. Ebenso `schon-flach` in Stufe 3. +- **Modus 2: Separatoren vor GF-Boegen** werden noch nicht gesetzt; GF-Bogen + mit fester Eigen-Neigung erzeugt bei unterschiedlichen Nachbar-Neigungen + einen (akzeptierten) Knick (`vf_linienzug.lsp`, Kopfkommentar "MODUS 2: + 3D-OBJEKTE WAEHLEN"). +- **Veralteter Kommentar** im selben Kopf: "VF-Zweige als TODO (Meilenstein 2) + ... uebersprungen" - die VF-Laeufe sind inzwischen gebaut (Bau-Schleife + "Meilenstein 2: GF + VF-Laeufe"). Kommentar nachziehen. + +## 2. Export / Sivas + +- **Separator-/Scanner-Aufteilung GF/VF** in Streckengruppen: Merkmale + 4337/4339 (Gefaelle-Anteil) stehen fest auf `"0"`, 4381/4383 (Vario-Anteil) + tragen den kompletten Blockwert. Haengt an einer Ueberarbeitung der + Separator-/Scanner-Zuordnung im Zeichnungsmodell. + -> `cfg/sivas_merkmal_zuordnung.md` ("Offener Punkt") +- **TOS von Geruest-Import ins Sivas** (Entwicklungsplan Meilenstein 2). + +## 3. Geruest + +- **Gattertraeger**: nur Menue-Platzhalter auf `GERUEST` (zeigt einen Hinweis). + Daten sollen spaeter in `data/json/geruest_traeger.json`. +- **Edit-Pfad `GERUEST_EDIT`** fehlt: Doppelklick auf `GR_*` oeffnet nur + `EATTEDIT`, kein Neuaufbau ueber den Dialog. + +## 4. Omniflo + +- **Boegen fuer Weichen `OMNI_APBW_*`** (14 Befehle): Dummy, im Menue + ausgegraut. +- **TEF-Geraden aus Omniflo-Geraden** (Umwandlungsmakro): bisher nur + `TEF_FOERDERER_LINIE` (Linie mit TEF-Geraden belegen), keine Umwandlung + bestehender Omniflo-Geraden. + +## 5. ILS + +- **ILS-Weichen als Geometrie**: Weichenpunkte werden ermittelt und exportiert + (`KREISEL_WEICHEN`), eine eigene Weichen-Geometrie gibt es nicht. +- **Horizontal-Variobogen / Gefaellebogen als eigenstaendige Befehle**: nur + innerhalb der Streckengruppe (Vario-Kurve, GF-Bogen); die frueheren + Dummy-Befehle `ILS_K*` sind entfernt. + +## 6. Tests + +- **Statisches Inventar veraltet**: `tests/test_vf_headless_statisch.py` + (`test_alert_nur_in_interaktiv_pfaden`, `test_eingabe_fundstellen_unveraendert`) + - das eingecheckte Soll-Inventar `ALERT_ERLAUBT`/`EINGABE_ERLAUBT` kennt die + neueren Funktionen (`vfl-body-abschluss`, `vflw-gruppe-*-impl` ...) nicht. + Inventar nach Pruefung aktualisieren. +- **`tests/test_vf_geometrie.py`** braucht BricsCAD-erzeugte DXF-Referenzdaten, + die headless fehlen -> schlaegt ohne vorherigen CAD-Lauf fehl. +- CAD-Laeufe `TEST_VF_SPEC` und `VF_SPEC_BAU` + `tests/test_vf_spec.py` + gegen `tests/output/hundm05_results.json` (Beweis "Spec-Pfad == + Journal-Pfad" auf Geometrie-Ebene). -> `doc/todo/plan-vf-interactive.md` + +## 7. Spaetere Meilensteine (Entwicklungsplan) + +Nur Ueberschriften, Details in `doc/plan/Entwicklungsplan.md`: + +- Meilenstein 4: Flex (DWGs, Produktprogramm, CSV-Export, TOS) +- Meilenstein 5: 3D-Modelle (Omniflo Bogen/Weiche, Geruest-Modelle) +- Meilenstein 6: Metafunktionen (Geruest ueber Bereich, Strecke aus Polylinie, + Kreisel-Verbindung auf unterschiedlicher Hoehe, Puffer aus Flaeche, + Separator-/Scanner-Positionierung, Arbeitsplatz-Makro) diff --git a/doc/todo/modus2-achsenweise-bilanz.md b/doc/todo/modus2-achsenweise-bilanz.md index d6dcca0..3ef33e4 100644 --- a/doc/todo/modus2-achsenweise-bilanz.md +++ b/doc/todo/modus2-achsenweise-bilanz.md @@ -3,6 +3,12 @@ Status: **Vorschlag / noch nicht umgesetzt** (2026-09-18). Mit dem Entwickler zu besprechen, bevor der Solver angefasst wird. Reiner Plan - kein Code geaendert. +**Pruefung 2026-10-26:** weiterhin OFFEN - der Solver bilanziert noch skalar +(`climber-span`, `hor-pairs` 0/1), auch die Zwischenloesung (gefaltete Laeufe +abweisen) ist nicht eingebaut. Die Zeilennummern unten sind veraltet: Phase B +von `vf-linienzug-modus2` liegt inzwischen bei ca. `vf_linienzug.lsp:11880-12100` +(per Suche nach `climber-span` finden). + ## Kurzfassung Der Modus-2-Solver (`vf-linienzug-modus2`, Phase B, `Lisp/vf_linienzug.lsp` @@ -44,7 +50,7 @@ ganze Hoehe traegt, und rechnet die geneigte Laenge skalar: ```lisp ;; vf_linienzug.lsp:9990 - Solver bekommt die SKALARE Spanne -(setq wahl3 (vfl3-waehle-winkel climber-span dH-adj feste-vf)) +(setq wahl3 (vfl-zsolve-winkel-waehlen climber-span dH-adj feste-vf)) ;; feste-vf = Umlenk + Separator (+ Motor) -- ein fester Fussabdruck ;; vf_linienzug.lsp:10070 - Kletterer bekommt br-lvf proportional diff --git a/doc/todo/plan-vf-interactive.md b/doc/todo/plan-vf-interactive.md index b63210a..9e4cdb4 100644 --- a/doc/todo/plan-vf-interactive.md +++ b/doc/todo/plan-vf-interactive.md @@ -5,6 +5,11 @@ verifiziert, `TEST_HUNDM05` aktiv in `tests/alltests.json`; Stufe 2 Schritte 0-4 + 7-Assertion fertig, 5/6/8/9/10 offen, 11 zurueckgestellt. **Herkunft:** Planungslauf (Plan-Modus) vom 2026-09-02, hier eingecheckt zur Nachverfolgung. +**Pruefung 2026-10-26:** Stand unveraendert - Stufe 2 Schritte 5c/6/8/9/10 +(u.a. `vfl-spec-ausfuehren`) und die Spec-Uebersetzer fuer Modus 2/3 sind +weiterhin nicht gebaut. Hinweis: Modus 2/3 journalisieren inzwischen +Segment-Essenz (`SEGS`) statt Objekt-Handles (`OBJS`), Abschnitt 4.4 ist +darauf noch nicht angepasst. ## Fortschritt @@ -149,8 +154,11 @@ Modus-uebergreifende Blocker: - **`ATTREQ`/`ATTDIA`**: ohne `0` fragt das `(command "_.INSERT" ...)` in den Einfuegeprimitiven nach Attributwerten - der wahrscheinlichste Haenger. -Namensfalle: die `vfl3-*`-Helfer (:5093-5276) gehoeren zu **Modus 2**, die -`vfl2-*`-Helfer (:4703-4804) zu **Modus 3**. +Namensschema (seit 2026-10-22 rollenbasiert statt nach Modus-Nummer, die +frueheren Praefixe `vfl3-`/`vfl2-` waren zur Menue-Nummerierung vertauscht): +die `vfl-zsolve-*`-Helfer rechnen die Hoehen durch und gehoeren zu **Modus 2**; +die `vfl-pfad-*`-Helfer arbeiten auf dem gezeichneten Pfad und werden von +**Modus 2 UND Modus 3** genutzt. --- @@ -695,7 +703,7 @@ Architektur, nicht Funktion. ### Ausdruecklich nicht anfassen -`vf-linienzug-modus3` + alle `vfl2-*`; die `vfl-in-*`-Wrapper und `vfl-menu*`; +`vf-linienzug-modus3` + alle `vfl-pfad-*`; die `vfl-in-*`-Wrapper und `vfl-menu*`; `vfl-entry->string` und das XDATA-Layout/die Marker; **alle Journal-Konsumenten** (brauchen sie Aenderungen, ist die Invariante gebrochen - das ist der Lackmustest); die reinen `vfs-*`/`berechne-*` in `vf_standard.lsp` (via diff --git a/doc/variofoerderer.md b/doc/variofoerderer.md index ad0d2a8..e29e1f4 100644 --- a/doc/variofoerderer.md +++ b/doc/variofoerderer.md @@ -387,7 +387,7 @@ arbeiten auf bereits in der Zeichnung vorhandener Geometrie statt auf freier Klick-Eingabe — fuer eine GUI eher Import/Solver-Werkzeuge als klassische Formulare. -### Modus 2 — Pfad + Zielhoehe (Solver) +### Modus 2 — aus 3D Linie MIT Zielhoehe (Solver) | Feld | Steuerelement | Werte | |---|---|---| @@ -400,15 +400,28 @@ Formulare. | -> Vario-Kurve-Variante | Dropdown | Aussen / Innen | | GF-Verteilung | Dropdown | alles am Einlauf (GF1) / 1/2 GF1 + 1/2 GF2 | -### Modus 3 — Vorwaerts-Nachbau (Legacy, wird umgebaut) +### Modus 3 — aus 3D Linie OHNE Zielhoehe (Vorwaerts-Bau) + +Baut dieselbe gezeichnete Geometrie wie Modus 2, aber VORWAERTS mit +vorgegebenen Winkeln: die Endhoehe ist hier ein Ergebnis, kein Ziel. Genau +das ist sein Anwendungsfall — wenn es keine feste Zielhoehe gibt. | Feld | Steuerelement | Werte | |---|---|---| -| Startpunkt (3D) | Punktwahl | KS_EIN AUS-Element / Kettenanfang | -| Gefaellewinkel | Zahl (Grad) | wird auch aus 2 gewaehlten 3D-Punkten vorgeschlagen | -| AUS-Element Seite | Dropdown | links / rechts | -| Separator vor EIN? | Dropdown | Ja/Nein | -| Einfuegen bestaetigen | Dropdown | Ja/Nein | +| Startpunkt (3D) + Starthoehe | Punktwahl + Zahl | Kettenanfang | +| AS-Element bauen? | Ja/Nein | bei Nein beginnt die Kette direkt am Startpunkt | +| -> AS Winkel + Seite | Dropdown | 30/90 Grad · links/rechts (ein Dialog zusammen mit "bauen?") | +| ES-Element bauen? | Ja/Nein | **vor** dem Bau gefragt, damit der ES-Fussabdruck von der letzten Geraden abgezogen werden kann | +| -> ES Winkel + Seite | Dropdown | 30/90 Grad · links/rechts | +| Pfad-Objekte | Objektauswahl | Linien + Boegen der Trasse | +| Je gerades Segment: Typ | Dropdown | GF / VF-Ab / VF-Auf / VF-Horizontal | +| -> GF-Neigung bzw. Vario-Winkel | Zahl (Grad) | kontextabhaengig | +| Je Bogen-Segment: Typ | Dropdown | GF-Bogen / Vario-Kurve (+ Variante) | + +Ketten, die vor dem 2026-10-22 gebaut wurden, kennen die beiden +"bauen?"-Fragen noch nicht; sie werden beim Doppelklick automatisch erkannt +und in der alten Reihenfolge nachgebaut (siehe `alt-journal` in +`vf-linienzug-modus3`). --- diff --git a/doc/vf_linienzug_modus1_anleitung.md b/doc/vf_linienzug_modus1_anleitung.md index 3645412..14c8fd9 100644 --- a/doc/vf_linienzug_modus1_anleitung.md +++ b/doc/vf_linienzug_modus1_anleitung.md @@ -105,6 +105,63 @@ Zwischen-Etappe, es geht in derselben VF-Einheit weiter (Vario-Kurve, weiteres gerades Stueck, Auf/Ab). "Ja" beendet die VF-Einheit mit einer Motorstation - optional zusaetzlich mit ES-Element (echtes Kettenende). +### 3a. Neu seit 2026-10-21: Zufuehrungsachse und "Parallel zum Kreisel" + +Die Tabelle oben zitiert eine aeltere Aufzeichnung. Zwei Dinge sind seitdem +dazugekommen (aeltere Ketten bleiben unveraendert editierbar - das Journal +erkennt am Eintragstyp, welche Fragen damals gestellt wurden): + +**Zufuehrungsachse (2. Punkt) - jetzt bei BEIDEN AS-Winkeln.** Nach Winkel +und Seite (Eintrag 4/5) fragt der AS-Dialog zusaetzlich einen zweiten Punkt +ab; im Assistenten stehen alle drei Angaben in EINEM Fenster +(`vflw_as_achse`). Die beiden Angaben beschreiben verschiedene Dinge und +legen das AS erst zusammen vollstaendig fest: + +| Angabe | legt fest | +|---|---| +| 2. Punkt | Richtung der KS_EIN-Achse = die Zufuehrung, z.B. die Kreisel-Laufrichtung. Der Startpunkt bleibt der Sitz des AS-Elements, der zweite Punkt gibt nur die Richtung. | +| links/rechts | AS-Variante und damit die KS_AUS-Richtung, also wohin die Kette nach dem Ausschleusen laeuft. | + +Der Dialog zeigt den Startpunkt mit an (er ist der Sitz des AS-Elements UND +der Ausgangspunkt der Achse); waehrend der Punktwahl haengt das Gummiband an +ihm. Mit dem gesetzten Punkt ist der Dialog fertig und schliesst direkt - die +ermittelte Achsrichtung meldet die Konsole. Nur ein mit ESC abgebrochener +Pick zeigt den Dialog noch einmal (mit den vorher gewaehlten Werten), damit +nach einem Fehlklick nichts verloren geht. + +Die Achse ist **optional**: ohne Punkt laeuft alles wie frueher ueber die +Richtung des naechsten Klicks. Frueher ersetzte die Achse beim 30-Grad- +Element die Seitenfrage (die Seite wurde aus der Lage des naechsten Punkts +erraten); das gilt nur noch beim Nachbau alter Ketten. + +**"Parallel zum Kreisel weiterbauen"** - 5. Option der Frage "Wie soll die +Laenge dieser Gefaellestrecke bestimmt werden?" (Eintrag 30). Sie erscheint +nur am Kettenanfang mit AS-Element UND festgelegter Zufuehrungsachse, weil +sie beides als Bezug braucht. Gebaut wird AS -> kurzes GF-Stueck -> GF-Bogen, +sodass die Kette danach parallel zur Zufuehrungsachse weiterlaeuft. Einzige +Eingabe ist der **Abstand**, gemessen senkrecht zur Zufuehrungsachse von +KS_EIN des AS bis KS_AUS des Bogens; die Laenge des GF-Stuecks dazwischen +wird daraus berechnet. Ein Separator zwischen GF-Stueck und Bogen wird +bewusst NICHT gesetzt, damit der Abstand exakt getroffen wird. Der Bogen wird +nicht geraten, sondern so gewaehlt, dass er den gemessenen Grundriss-Schwenk +des AS-Blocks genau aufhebt - immer zur Gegenseite der AS-Seite: + +| AS | Bogen | +|---|---| +| 30 Grad links | 30 Grad rechts | +| 30 Grad rechts | 30 Grad links | +| 90 Grad links | 90 Grad rechts | +| 90 Grad rechts | 90 Grad links | + +Diese Tabelle ist das ERGEBNIS der Messung, keine gepflegte Zuordnung im +Code - sie bleibt auch dann richtig, wenn ein Element anders vermessen ist +als hier erwartet. + +Direkt nach dem Bogen kommt die gewohnte Frage "Ist das das Kettenende?" +(Ja mit ES / Ja ohne ES / Nein, weiterbauen) - hier ausnahmsweise NACH dem +Bau, weil es keine gepickte Laenge gibt, von der ein ES-Fussabdruck +abzuziehen waere. + ## 4. Stufe 1 / Stufe 2 - wie die letzte Strecke berechnet wird Am Kettenende (Eintrag 61/62) ist die Aufgabe: von der aktuellen Position/ diff --git a/lang/de_DE.json b/lang/de_DE.json index fcc0603..d742073 100644 --- a/lang/de_DE.json +++ b/lang/de_DE.json @@ -9,6 +9,7 @@ "vfl-as-auto-erkannt": "\n>>> Startpunkt liegt auf KS_AUS einer bestehenden %1-Kette - kein AS-Element noetig.", "vfl-familie-neutral": "GF/VF", "vfl-sep-nach-durch-es-ueberschrieben": "\n>>> Separator NACH ignoriert - das ES-Element bringt beim Kettenende bereits seinen eigenen Separator mit (sonst zwei Separatoren hintereinander).", + "vfl-sep-gf-es-automatisch": "(Ein Separator zwischen GF und ES wird automatisch gesetzt.)", "vfl-echo-position": "\n>>> Position: X=%1 Y=%2 Z=%3", "vfl-echo-wahl": "\n>>> Gewaehlt: %1", "vfl-aus-seite-header": "\n\nAUS-Element (AS_Element_*) - Seite waehlen:", @@ -55,6 +56,27 @@ "vfl-gf-laenge-modus-opt-hoehe": "\n 2 - Zielhoehe festlegen (Laenge wird berechnet)", "vfl-gf-laenge-modus-opt-steigend": "\n 3 - Steigende GF (Sonderfall, bis 3 Grad)", "vfl-gf-laenge-modus-opt-qc": "\n 4 - QC Linie mit GF (automatische Auf-Ab-Berechnung)", + "vfl-gf-laenge-modus-opt-parallel": "\n 5 - Parallel zum Kreisel weiterbauen (nur Abstand eingeben)", + "vfl-richtung-header": "\n\nIn welche Richtung soll gebaut werden?", + "vfl-richtung-opt-vor": "\n 1 - Vorwaerts bauen (der gewaehlte Punkt ist der Kettenanfang)", + "vfl-richtung-opt-rueck": "\n 2 - Rueckwaerts bauen (der gewaehlte Punkt ist das Kettenende, ES-Austritt)", + "vfl-prompt-es-achse-p2": "\n\nFahrtrichtung - 2. Punkt (gibt nur die Richtung, der Endpunkt bleibt): ", + "vfl-es-basislinie-info": "\n Abfuehrungsachse (Fahrtrichtung): %1 Grad.", + "vfl-rueck-menu-linie-gf": "\n 1 - Neue Linie: GF (Gefaellestrecke)", + "vfl-rueck-laenge-opt-anfangspunkt": "\n 1 - Kettenanfang waehlen (Laenge ergibt sich, Anfangshoehe wird gerechnet)", + "vfl-rueck-laenge-opt-anfangshoehe": "\n 2 - Anfangshoehe festlegen (Laenge wird berechnet)", + "vfl-rueck-prompt-anfangspunkt": "\n\nKettenanfang waehlen (Richtung steht ueber die Abfuehrungsachse fest): ", + "vfl-rueck-prompt-anfangshoehe": "\nGewuenschte Hoehe am Kettenanfang (mm) <%1>: ", + "vfl-rueck-alert-hoehe-zu-klein": "Der Kettenanfang muss HOEHER liegen als das Kettenende - eine Gefaellestrecke faellt in Fahrtrichtung.", + "vfl-rueck-erfolg-punkt": "\n>>> Rueckwaerts gebaut: GF-Stueck %1 mm (horizontal), Anfangshoehe %2 mm.", + "vfl-rueck-erfolg-hoehe": "\n>>> Rueckwaerts gebaut: GF-Stueck %1 mm (horizontal), Anfangshoehe %2 mm.", + "vfl-rueck-erfolg-parallel": "\n>>> Rueckwaerts, parallel zum Kreisel: GF-Stueck %1 mm (horizontal), Bogen %2 Grad %3.", + "vfl-par-prompt-abstand": "\n\nAbstand zum Kreisel (mm, senkrecht zur Zufuehrungsachse, von AS-KS_EIN bis Bogen-KS_AUS): ", + "vfl-par-nur-kettenanfang": "'Parallel zum Kreisel' geht nur am Kettenanfang mit AS-Element UND festgelegter Zufuehrungsachse (2. Punkt im AS-Dialog).", + "vfl-par-kein-bogen": "Kein GF-Bogen hebt den AS-Schwenk von %1 Grad auf (Seite %2) - parallel zum Kreisel nicht schliessbar.", + "vfl-par-kein-versatz": "Das AS-Element schwenkt nicht aus der Zufuehrungsachse heraus - so laesst sich kein Abstand erreichen.", + "vfl-par-zu-klein": "Abstand %1 mm zu klein: AS und Bogen allein brauchen schon %2 mm. Bitte groesseren Abstand waehlen.", + "vfl-par-erfolg": "\n>>> Parallel zum Kreisel: GF-Stueck %1 mm (horizontal), Bogen %2 Grad %3, erreichter Abstand %4 mm.", "vfl-qc-nur-kettenanfang": "\nFEHLER: 'QC Linie mit GF' ist nur am Kettenanfang moeglich (braucht eine eigene AS-Seite) - bitte anderen Modus waehlen.", "vfl-qc-prompt-richtung": "\n\nRichtung waehlen (Gerade, auf der AS-Eintritt und ES-Austritt liegen sollen) - Punkt in Fahrtrichtung anklicken: ", "vfl-qc-ks-ein-gemessen": "\n>>> AS KS_EIN (Referenzgerade) gemessen: X=%1 Y=%2 Z=%3", @@ -99,6 +121,11 @@ "vfl-es-setzen-frage": "\n\nES-Element setzen?", "vfl-es-nein-zielpunkt": "\n 2 - Nein (Kette endet direkt am Zielpunkt)", "vfl-prompt-endpunkt-fahrtrichtung": "\n\nEndpunkt entlang Fahrtrichtung waehlen (bestimmt die Laenge): ", + "vfl-prompt-as-achse-p2": "\n\nZufuehrungsachse - 2. Punkt (gibt nur die Richtung, der Startpunkt bleibt): ", + "vfl-basislinie-punkte-gleich": "\n Die beiden Punkte sind identisch - keine Richtung bestimmbar. Abbruch.", + "vfl-basislinie-info": "\n Zufuehrungsachse (Fahrtrichtung): %1 Grad.", + "vfl-basislinie-ohne": "\n Keine Zufuehrungsachse festgelegt - die Richtung ergibt sich aus dem naechsten Klick.", + "vfl-as-seite-ermittelt": "\n AS-Seite aus der Lage des naechsten Punkts: %1", "vfl-endpunkt-modus-header": "\n\nWie soll der Endpunkt bestimmt werden?", "vfl-endpunkt-modus-opt-linie": "\n 1 - Ziellinie zeichnen (2 Punkte) - der Schnittpunkt bestimmt die Laenge", "vfl-prompt-ziellinie-p1": "\n\nZiellinie - 1. Punkt (beliebige Richtung, Z wird ignoriert): ", @@ -169,7 +196,7 @@ "vfl-soll-xyz": "\n Soll: X=%1 Y=%2 Z=%3", "vfl-ist-xyz": "\n Ist : X=%1 Y=%2 Z=%3", "vfl-abweichung-xyz": "\n Abweichung: dX=%1 dY=%2 dZ=%3 mm", - "vfl-m3-titel": "\n VF-LINIENZUG - Modus 2: Pfad + Ziel-Hoehe (fertig; Anker + Solver + Bau)", + "vfl-m3-titel": "\n VF-LINIENZUG - Modus 2: aus 3D Linie MIT Zielhoehe (Anker + Solver + Bau)", "vfl-m3-alert-gf-modul": "Gefaellestrecke-Modul nicht geladen!", "vfl-m3-pfad-waehlen": "\n\nPfad-Objekte waehlen (Linien/Boegen):", "vfl-m3-keine-objekte": "\nKeine Objekte gewaehlt - Abbruch.", @@ -224,13 +251,18 @@ "vfl-m3-kletter-zu-kurz-flach": "\n Kein Kletter-Winkel passt (Segment zu kurz) -> Lauf wird komplett flach gebaut, Hoehe wandert in GF1.", "vfl-m3-kletter-flach-gf": "\n Flache Zone: GF-Kompensation (GF1) = %1 mm", "vfl-m3-alert-vf-zu-lang": "VF-Lauf ist %1 m lang (Grenze %2 m) - bitte neu planen (z.B. Zwischen-Motorstation einfuegen).", + "vfl-m2-einheit-grenze": "Diese VF-Einheit ist so nicht baubar.\n\nGemessen: %1 m Laenge, %2 Vario-Kurven.\nErlaubt je Einheit (zwischen Umlenk- und Motorstation): hoechstens %3 m und %4 Vario-Kurven.\n\nBitte den Bogen in Segment %5 als GF-Bogen klassifizieren - dann endet die erste Einheit davor mit einer Motorstation und die zweite beginnt danach mit einer Umlenkstation.", + "vfl-m2-einheit-grenze-unteilbar": "Diese VF-Einheit ist so nicht baubar.\n\nGemessen: %1 m Laenge, %2 Vario-Kurven.\nErlaubt je Einheit (zwischen Umlenk- und Motorstation): hoechstens %3 m und %4 Vario-Kurven.\n\nEs gibt keinen Bogen, an dem sich der Lauf teilen liesse - bitte den Pfad kuerzer fassen oder eine Ecke einplanen, an der die Einheit enden kann.", "vfl-m3-warnung-fueller-eingang-zu-kurz": "\n WARNUNG: Fueller direkt nach der Umlenkstation zu kurz (%1 mm < Minimum %2 mm) - nur Minimalabstand gebaut, Zielposition nicht exakt erreicht.", "vfl-m3-warnung-fueller-ausgang-zu-kurz": "\n WARNUNG: Fueller direkt vor der Motorstation zu kurz (%1 mm < Minimum %2 mm) - nur Minimalabstand gebaut, Zielposition nicht exakt erreicht.", "vfl-m3-lauf-anfang-header": "\n\nDer VF-Lauf ist der Anfang des gewaehlten Pfads. Lauf beginnen mit:", - "vfl-m3-lauf-anfang-opt-offen": "\n 1 - Ohne Umlenkstation (offener Anfang, spaeter fortsetzen/verschmelzen)", + "vfl-m3-lauf-anfang-opt-offen": "\n 3 - Ohne Umlenkstation (offener Anfang, spaeter fortsetzen/verschmelzen)", "vfl-m3-lauf-anfang-opt-umlenk": "\n 2 - Umlenkstation direkt (kein GF1/Separator)", - "vfl-m3-lauf-anfang-opt-umlenk-gf1": "\n 3 - Umlenkstation mit GF1 + Separator", + "vfl-m3-lauf-anfang-opt-umlenk-gf1": "\n 1 - Umlenkstation mit GF1 + Separator", + "vfl-m2-anfang-wert-unbekannt": "Lauf-Anfang nicht lesbar: Kette %1 enthaelt den unbekannten Wert %2. Aufbau abgebrochen - eine geratene Anfangsvariante wuerde die Kette falsch neu bauen.", "vfl-m3-lauf-anfang-offen-hinweis": "\n Anfang bleibt bewusst offen - keine Umlenkstation/GF1/Separator gebaut, spaeter fortsetzen oder per Vario_Kette_Merge verbinden.", + "vfl-m2-anfang-offen-gesperrt-zeile": "\n (nicht waehlbar - mit AS-Element braucht der Lauf eine Umlenkstation)", + "vfl-m2-anfang-offen-gesperrt": "Mit AS-Element ist ein offener Anfang nicht moeglich - der Lauf braucht dann eine Umlenkstation.", "vfl-m3-lauf-abschluss-header": "\n\nDer VF-Lauf ist das Ende des gewaehlten Pfads. Lauf beenden mit:", "vfl-m3-lauf-abschluss-opt-offen": "\n 1 - Ohne Motorstation (offenes Ende, spaeter fortsetzen/verschmelzen)", "vfl-m3-lauf-abschluss-opt-motor": "\n 2 - Motorstation setzen (kein ES-Element)", @@ -246,6 +278,7 @@ "vfl-m3-gf2-ausgleich": "\n GF2 (gemessener Ausgleich): L=%1 mm", "vfl-m3-kurve-back-uebersprungen": "\n >>> [M3a] Vario-Kurve im Back-Lauf - uebersprungen.", "vfl-m3-nichts-gebaut": "\nNichts gebaut - Abbruch.", + "vfl-m3-alt-journal": "\n Hinweis: Diese Kette stammt aus der Zeit vor den Fragen AS bauen / ES bauen - sie wird in der alten Reihenfolge nachgebaut.", "vfl-m3-fertig-header": "\n>>> VF-Linienzug (Modus 2) gebaut! <<<", "vfl-m3-ziel-soll": "\n Ziel (Soll): X=%1 Y=%2 Z=%3", "vfl-m3-es-ist": "\n ES (Ist): X=%1 Y=%2 Z=%3", @@ -939,13 +972,13 @@ "vfc-warnung-untermodule-nicht-geladen": "\n[vf_core] WARNUNG: DXFM_LISP nicht gesetzt - Untermodule konnten nicht geladen werden!", "vfc-linienzug-modus-header": "\n\nLinienzug-Modus waehlen:", "vfc-linienzug-modus-1": "\n 1 - Manuelle Eingabe (Punkte klicken)", - "vfc-linienzug-modus-2": "\n 2 - 3D-Objekte + Ziel-Hoehe (Randwert-Solver, fertig)", - "vfc-linienzug-modus-3": "\n 3 - 3D-Objekte stueckweise (Vorwaerts-Nachbau, in Arbeit)", + "vfc-linienzug-modus-2": "\n 2 - aus 3D Linie MIT Zielhoehe (Hoehen werden gerechnet)", + "vfc-linienzug-modus-3": "\n 3 - aus 3D Linie OHNE Zielhoehe (Vorwaerts-Bau mit vorgegebenen Winkeln)", "prompt-wahl-1-3": "\nIhre Wahl (1/2/3) [1]: ", "vfl-qc-uform-nicht-implementiert": "\nFEHLER: 'QC Linie mit GF und U-Form' ist noch nicht implementiert - bitte Option 4 oder einen anderen Modus waehlen.", "vfc-typ-standard-beschreibung": "Standard VarioFoerderer (AS/ES 90 Grad, horizontal versetzt)", "vfc-typ-etage-beschreibung": "Etage VarioFoerderer (AS/ES 30 Grad, direkt uebereinander)", - "vfc-typ-linienzug-beschreibung": "Streckengruppe (gemischte GF/VF-Kette; Modus 1 manuell / Modus 2 Ziel-Hoehe fertig / Modus 3 stueckweise in Arbeit)", + "vfc-typ-linienzug-beschreibung": "Streckengruppe (gemischte GF/VF-Kette; Modus 1 manuell / Modus 2 aus 3D Linie mit Zielhoehe / Modus 3 aus 3D Linie ohne Zielhoehe)", "vfs-schritt6-horizontal": "\n\n6/11: Horizontale Zwischenstrecke (0 Grad, L=%1 mm)", "vfs-schritt6-steigung": "\n\n6/11: Steigungsstrecke (%1 Grad, L=%2 mm)", "vfs-schritt6-gefaelle": "\n\n6/11: Gefaellestrecke (%1 Grad, L=%2 mm)", @@ -974,7 +1007,7 @@ "vfe-step14": "\n\n14/15: Separator (300mm, cur-hz=%1)", "vfe-step15": "\n\n15/15: %1 (Ende, verkettet cur-hz=%2)", "vfe-eingefuegt": "\n>>> Etage-VarioFoerderer eingefuegt! <<<", - "vfl-vwnb-titel": "\n VF-LINIENZUG - Modus 3: 3D-Objekte stueckweise (Vorwaerts-Nachbau, in Arbeit)", + "vfl-vwnb-titel": "\n VF-LINIENZUG - Modus 3: aus 3D Linie OHNE Zielhoehe (Vorwaerts-Bau)", "vfl-vwnb-aus-seite-menu": "\n\nAUS-Element - Seite waehlen:\n 1 - Links\n 2 - Rechts", "vfl-vwnb-alert-eckwinkel": "Kein passender Bogen: Eck-Winkel %1 Grad ist nicht ~30/60/90.\nBitte die Winkel der Linien anpassen.", "vfl-vwnb-alert-keine-gerade": "Pfad enthaelt keine Gerade - eine Kette muss mit einer Geraden beginnen.", @@ -1131,6 +1164,56 @@ "kreisel-bp-kollision": "\n KOLLISION %1: %2 <-> %3 [%4] bei X=%5 Y=%6 Z=%7", "kreisel-bp-marker": "\n%1 Marker gezeichnet (Layer %2).", "exp-kreisel-weichen": "\n[%1] Kreisel-Weichenpunkte: %2 Beruehrung(en), %3 Kollision(en) -> %4", - "exp-kreisel-kollision": "\n[%1] WARNUNG: %2 Kreisel-Kollision(en) - Befehl KREISEL_WEICHEN zeigt sie an." + "exp-kreisel-kollision": "\n[%1] WARNUNG: %2 Kreisel-Kollision(en) - Befehl KREISEL_WEICHEN zeigt sie an.", + "kf-fehler-daten-fehlt": "\nFEHLER: Kettenfoerderer-Daten nicht gefunden: %1", + "kf-fehler-daten-leer": "\nFEHLER: Kettenfoerderer-Daten konnten nicht gelesen werden.", + "kf-fehler-block-datei": "\nFEHLER: Blockdatei fuer %1 nicht gefunden (erwartet in data/omniflo//).", + "kf-fehler-ks-fehlt": "In mindestens einem Baustein fehlt KS_EIN oder KS_AUS - die Kette kann nicht verkettet werden. Befehl KF_KS_PRUEFEN zeigt, welcher Block betroffen ist.", + "kf-fehler-hoehe-zu-klein": "Die Einbauhoehe ist zu klein: Umlenk- und Antriebsstation bringen bereits mehr Hoehe mit, als gefordert ist. Bitte groessere Hoehe waehlen.", + "kf-fehler-laenge-unter-min": "Das Zwischenstueck waere kuerzer als zulaessig. Bitte groessere Einbauhoehe waehlen.", + "kf-fehler-laenge-ueber-max": "Das Zwischenstueck waere laenger als zulaessig. Bitte kleinere Einbauhoehe waehlen.", + "kf-fehler-winkel-null": "Der gemessene Einbauwinkel des Zwischenstuecks ist waagerecht - damit laesst sich keine Hoehe erreichen. Bitte die KS-Lage der Bloecke pruefen (KF_KS_PRUEFEN).", + "kf-fehler-dcl": "Dialogdatei kettenfoerderer.dcl nicht gefunden.", + "kf-prompt-messpunkt-1": "\nErsten Messpunkt waehlen (Hoehenbezug unten): ", + "kf-prompt-messpunkt-2": "\nZweiten Messpunkt waehlen (Hoehenbezug oben): ", + "kf-messung-ergebnis": "\n>>> Gemessen: Hoehendifferenz dZ = %1 mm (zur Kontrolle dY = %2 mm).", + "kf-konsole-hoehe-hinweis": "\n(0 eingeben, um die Hoehe aus zwei Punkten zu messen)", + "kf-2d-gebaut": "\n>>> Draufsicht %1 eingefuegt: Schraeglaenge %2 mm, Neigung %3 Grad.", + "kf-2d-laenge-null": "\nDraufsicht uebersprungen: die Kette hat keine messbare Grundrisslaenge.", + "kf-2d-ks-fehlt": "\nDraufsicht uebersprungen: %1 hat kein messbares KS_EIN/KS_AUS.", + "kf-prompt-startpunkt": "\nEinfuegepunkt waehlen (KS_EIN der Draufsicht; die Seitenansicht entsteht darueber): ", + "kf-prompt-drehung": "\nDrehwinkel der Kette: ", + "kf-abgebrochen": "\nAbgebrochen.", + "kf-fertig": "\n>>> %1 erstellt: Einbauhoehe %2 mm, Zwischenstueck %3 mm.", + "kf-konsole-variante-header": "\n\nSchraegfoerderer Stahl Typ waehlen:", + "kf-konsole-option": "\n %1 - %2", + "kf-konsole-variante-prompt": "\nSchraegfoerderer Stahl Typ", + "kf-konsole-hoehe-prompt": "\nH - Einbauhoehe Schraegfoerderer [mm]", + "kf-konsole-verbindung-header": "\n\nVerbindungselemente waehlen:", + "kf-konsole-verbindung-prompt": "\nVerbindungselemente", + "kf-konsole-farbe-header": "\n\nFarbe Foerderer waehlen:", + "kf-konsole-farbe-prompt": "\nFarbe", + "kf-konsole-antriebsmotor-header": "\n\nAntriebsmotor Foerderer waehlen:", + "kf-konsole-antriebsmotor-prompt": "\nAntriebsmotor Foerderer", + "kf-variante-label": "%1 %2", + "kf-variante-label-standard": "%1 %2 (Standard)", + "kf-konsole-movimot-header": "\n\nAntrieb mit Movimot?", + "kf-konsole-movimot-prompt": "\nAntrieb mit Movimot", + "kf-konsole-steuerung-header": "\n\nMit Standard Steuerung?", + "kf-konsole-steuerung-prompt": "\nMit Standard Steuerung", + "kf-pruef-kopf": "\n\n=== KF_KS_PRUEFEN: KS-Lage der Kettenfoerderer-Bloecke ===", + "kf-pruef-variante": "\n\n--- Variante: %1 ---", + "kf-pruef-block": "\n %1: KS_EIN (%2, %3) Richtung %4 | KS_AUS (%5, %6) Richtung %7", + "kf-pruef-block-fehlt": "\n %1: Blockdatei nicht gefunden.", + "kf-pruef-ks-fehlt": "\n %1: KS unvollstaendig - KS_EIN: %2, KS_AUS: %3", + "kf-pruef-ks-fehlt-kurz": "\n[KF] KS_EIN/KS_AUS nicht lesbar am Baustein: %1 (Befehl KF_KS_PRUEFEN zeigt Einzelheiten)", + "kf-pruef-fehler": "\n Geometrie nicht ermittelbar: %1", + "kf-pruef-geo": "\n Einbauwinkel (Grad): Umlenkung %1, Zwischenstueck %2, Antrieb %3\n Hoehenbeitrag (mm): Umlenkung %4, Antrieb %5\n Zwischenstueck nativ (mm): dx %6, dy %7", + "kf-pruef-ja": "vorhanden", + "kf-pruef-nein": "FEHLT", + "kf-edit-waehlen": "\nKettenfoerderer (KF_n) zum Bearbeiten waehlen: ", + "kf-edit-kein-kf": "Der gewaehlte Block ist kein Kettenfoerderer (KF_n).", + "kf-edit-fertig": "\n>>> %1 neu aufgebaut als %2.", + "cmd-kettenfoerderer-bearbeiten": "\n>>> Kettenfoerderer %1 wird bearbeitet ..." } } diff --git a/lang/en_GB.json b/lang/en_GB.json index adb064b..dfb6aae 100644 --- a/lang/en_GB.json +++ b/lang/en_GB.json @@ -9,6 +9,7 @@ "vfl-as-auto-erkannt": "\n>>> Start point lies on the KS_AUS of an existing %1 chain - no AS element needed.", "vfl-familie-neutral": "GF/VF", "vfl-sep-nach-durch-es-ueberschrieben": "\n>>> Separator AFTER ignored - the ES element already brings its own separator at the chain end (otherwise two separators in a row).", + "vfl-sep-gf-es-automatisch": "(A separator between GF and ES is inserted automatically.)", "vfl-echo-position": "\n>>> Position: X=%1 Y=%2 Z=%3", "vfl-echo-wahl": "\n>>> Selected: %1", "vfl-aus-seite-header": "\n\nOUT element (AS_Element_*) - select side:", @@ -55,6 +56,27 @@ "vfl-gf-laenge-modus-opt-hoehe": "\n 2 - Set target height (length will be calculated)", "vfl-gf-laenge-modus-opt-steigend": "\n 3 - Rising GF (special case, up to 3 degrees)", "vfl-gf-laenge-modus-opt-qc": "\n 4 - QC line with GF (automatic up/down calculation)", + "vfl-gf-laenge-modus-opt-parallel": "\n 5 - Continue parallel to the carousel (distance only)", + "vfl-richtung-header": "\n\nIn which direction should the chain be built?", + "vfl-richtung-opt-vor": "\n 1 - Build forwards (the picked point is the start of the chain)", + "vfl-richtung-opt-rueck": "\n 2 - Build backwards (the picked point is the end of the chain, ES outlet)", + "vfl-prompt-es-achse-p2": "\n\nTravel direction - 2nd point (defines the direction only, the end point stays): ", + "vfl-es-basislinie-info": "\n Outfeed axis (travel direction): %1 degrees.", + "vfl-rueck-menu-linie-gf": "\n 1 - New line: GF (gravity section)", + "vfl-rueck-laenge-opt-anfangspunkt": "\n 1 - Pick start of chain (length results, start height is calculated)", + "vfl-rueck-laenge-opt-anfangshoehe": "\n 2 - Set start height (length will be calculated)", + "vfl-rueck-prompt-anfangspunkt": "\n\nPick the start of the chain (direction is fixed by the outfeed axis): ", + "vfl-rueck-prompt-anfangshoehe": "\nDesired height at the start of the chain (mm) <%1>: ", + "vfl-rueck-alert-hoehe-zu-klein": "The start of the chain must be HIGHER than its end - a gravity section falls in the travel direction.", + "vfl-rueck-erfolg-punkt": "\n>>> Built backwards: GF section %1 mm (horizontal), start height %2 mm.", + "vfl-rueck-erfolg-hoehe": "\n>>> Built backwards: GF section %1 mm (horizontal), start height %2 mm.", + "vfl-rueck-erfolg-parallel": "\n>>> Backwards, parallel to the carousel: GF section %1 mm (horizontal), bend %2 degrees %3.", + "vfl-par-prompt-abstand": "\n\nDistance to the carousel (mm, perpendicular to the feed axis, from AS KS_EIN to bend KS_AUS): ", + "vfl-par-nur-kettenanfang": "'Parallel to the carousel' only works at the start of a chain with an AS element AND a defined feed axis (2nd point in the AS dialog).", + "vfl-par-kein-bogen": "No GF bend cancels the AS plan turn of %1 degrees (side %2) - cannot close parallel to the carousel.", + "vfl-par-kein-versatz": "The AS element does not turn away from the feed axis - no distance can be reached this way.", + "vfl-par-zu-klein": "Distance %1 mm too small: AS and bend alone already need %2 mm. Please choose a larger distance.", + "vfl-par-erfolg": "\n>>> Parallel to the carousel: GF section %1 mm (horizontal), bend %2 degrees %3, resulting distance %4 mm.", "vfl-qc-nur-kettenanfang": "\nERROR: 'QC line with GF' is only possible at the chain start (needs its own AS side) - please choose a different mode.", "vfl-qc-prompt-richtung": "\n\nChoose direction (line on which AS entry and ES exit shall lie) - click a point in the travel direction: ", "vfl-qc-ks-ein-gemessen": "\n>>> AS KS_EIN (reference line) measured: X=%1 Y=%2 Z=%3", @@ -99,6 +121,11 @@ "vfl-es-setzen-frage": "\n\nPlace ES element?", "vfl-es-nein-zielpunkt": "\n 2 - No (chain ends directly at the target point)", "vfl-prompt-endpunkt-fahrtrichtung": "\n\nSelect end point along travel direction (defines the length): ", + "vfl-prompt-as-achse-p2": "\n\nFeed axis - 2nd point (defines the direction only, the start point stays): ", + "vfl-basislinie-punkte-gleich": "\n The two points are identical - no direction can be derived. Aborting.", + "vfl-basislinie-info": "\n Feed axis (travel direction): %1 degrees.", + "vfl-basislinie-ohne": "\n No feed axis defined - the direction follows from the next click.", + "vfl-as-seite-ermittelt": "\n AS side from the position of the next point: %1", "vfl-endpunkt-modus-header": "\n\nHow should the end point be determined?", "vfl-endpunkt-modus-opt-linie": "\n 1 - Draw target line (2 points) - the intersection defines the length", "vfl-prompt-ziellinie-p1": "\n\nTarget line - 1st point (any direction, Z is ignored): ", @@ -169,7 +196,7 @@ "vfl-soll-xyz": "\n Target: X=%1 Y=%2 Z=%3", "vfl-ist-xyz": "\n Actual: X=%1 Y=%2 Z=%3", "vfl-abweichung-xyz": "\n Deviation: dX=%1 dY=%2 dZ=%3 mm", - "vfl-m3-titel": "\n VF LINE PATH - Mode 2: path + target height (finished; anchors + solver + build)", + "vfl-m3-titel": "\n VF LINE PATH - Mode 2: from 3D line WITH target height (anchors + solver + build)", "vfl-m3-alert-gf-modul": "Gefaellestrecke module not loaded!", "vfl-m3-pfad-waehlen": "\n\nSelect path objects (lines/arcs):", "vfl-m3-keine-objekte": "\nNo objects selected - aborting.", @@ -224,13 +251,18 @@ "vfl-m3-kletter-zu-kurz-flach": "\n No climb angle fits (segment too short) -> run is built entirely flat, height is absorbed by GF1.", "vfl-m3-kletter-flach-gf": "\n Flat zone: GF compensation (GF1) = %1 mm", "vfl-m3-alert-vf-zu-lang": "VF run is %1 m long (limit %2 m) - please re-plan (e.g. insert an intermediate motor station).", + "vfl-m2-einheit-grenze": "This VF unit cannot be built like this.\n\nMeasured: %1 m length, %2 vario curves.\nAllowed per unit (between deflection and motor station): at most %3 m and %4 vario curves.\n\nPlease classify the bend in segment %5 as a GF bend - the first unit then ends before it with a motor station and the second one starts after it with a deflection station.", + "vfl-m2-einheit-grenze-unteilbar": "This VF unit cannot be built like this.\n\nMeasured: %1 m length, %2 vario curves.\nAllowed per unit (between deflection and motor station): at most %3 m and %4 vario curves.\n\nThere is no bend at which the run could be split - please shorten the path or plan a corner where the unit can end.", "vfl-m3-warnung-fueller-eingang-zu-kurz": "\n WARNING: filler right after the reversing station is too short (%1 mm < minimum %2 mm) - only the minimum clearance was built, target position not reached exactly.", "vfl-m3-warnung-fueller-ausgang-zu-kurz": "\n WARNING: filler right before the motor station is too short (%1 mm < minimum %2 mm) - only the minimum clearance was built, target position not reached exactly.", "vfl-m3-lauf-anfang-header": "\n\nThe VF run is the start of the selected path. Start the run with:", - "vfl-m3-lauf-anfang-opt-offen": "\n 1 - No reversing station (open start, continue/merge later)", + "vfl-m3-lauf-anfang-opt-offen": "\n 3 - No reversing station (open start, continue/merge later)", "vfl-m3-lauf-anfang-opt-umlenk": "\n 2 - Reversing station directly (no GF1/separator)", - "vfl-m3-lauf-anfang-opt-umlenk-gf1": "\n 3 - Reversing station with GF1 + separator", + "vfl-m3-lauf-anfang-opt-umlenk-gf1": "\n 1 - Reversing station with GF1 + separator", + "vfl-m2-anfang-wert-unbekannt": "Cannot read run start: chain %1 contains the unknown value %2. Build aborted - guessing a start variant would rebuild the chain incorrectly.", "vfl-m3-lauf-anfang-offen-hinweis": "\n Start deliberately left open - no reversing station/GF1/separator built; continue later or join with Vario_Kette_Merge.", + "vfl-m2-anfang-offen-gesperrt-zeile": "\n (not selectable - with an AS element the run needs a reversing station)", + "vfl-m2-anfang-offen-gesperrt": "With an AS element an open start is not possible - the run then needs a reversing station.", "vfl-m3-lauf-abschluss-header": "\n\nThe VF run is the end of the selected path. End the run with:", "vfl-m3-lauf-abschluss-opt-offen": "\n 1 - No motor station (open end, continue/merge later)", "vfl-m3-lauf-abschluss-opt-motor": "\n 2 - Set motor station (no ES element)", @@ -246,6 +278,7 @@ "vfl-m3-gf2-ausgleich": "\n GF2 (measured compensation): L=%1 mm", "vfl-m3-kurve-back-uebersprungen": "\n >>> [M3a] Vario curve in back run - skipped.", "vfl-m3-nichts-gebaut": "\nNothing built - aborting.", + "vfl-m3-alt-journal": "\n Note: this chain predates the build AS / build ES questions - it is rebuilt in the old order.", "vfl-m3-fertig-header": "\n>>> VF line path (mode 2) built! <<<", "vfl-m3-ziel-soll": "\n Target (nominal): X=%1 Y=%2 Z=%3", "vfl-m3-es-ist": "\n ES (actual): X=%1 Y=%2 Z=%3", @@ -939,13 +972,13 @@ "vfc-warnung-untermodule-nicht-geladen": "\n[vf_core] WARNING: DXFM_LISP not set - submodules could not be loaded!", "vfc-linienzug-modus-header": "\n\nSelect line-path mode:", "vfc-linienzug-modus-1": "\n 1 - Manual entry (click points)", - "vfc-linienzug-modus-2": "\n 2 - 3D objects + target height (boundary-value solver, finished)", - "vfc-linienzug-modus-3": "\n 3 - 3D objects step by step (forward reconstruction, work in progress)", + "vfc-linienzug-modus-2": "\n 2 - from 3D line WITH target height (heights are calculated)", + "vfc-linienzug-modus-3": "\n 3 - from 3D line WITHOUT target height (forward build with given angles)", "prompt-wahl-1-3": "\nYour choice (1/2/3) [1]: ", "vfl-qc-uform-nicht-implementiert": "\nERROR: 'QC line with GF and U-shape' is not yet implemented - please choose option 4 or a different mode.", "vfc-typ-standard-beschreibung": "Standard VarioFoerderer (AS/ES 90 degrees, offset horizontally)", "vfc-typ-etage-beschreibung": "Etage VarioFoerderer (AS/ES 30 degrees, directly stacked)", - "vfc-typ-linienzug-beschreibung": "Route group (mixed GF/VF chain; mode 1 manual / mode 2 target height finished / mode 3 step by step work in progress)", + "vfc-typ-linienzug-beschreibung": "Route group (mixed GF/VF chain; mode 1 manual / mode 2 from 3D line with target height / mode 3 from 3D line without target height)", "vfs-schritt6-horizontal": "\n\n6/11: Horizontal intermediate section (0 deg, L=%1 mm)", "vfs-schritt6-steigung": "\n\n6/11: Incline section (%1 deg, L=%2 mm)", "vfs-schritt6-gefaelle": "\n\n6/11: Slope section (%1 deg, L=%2 mm)", @@ -974,7 +1007,7 @@ "vfe-step14": "\n\n14/15: Separator (300mm, cur-hz=%1)", "vfe-step15": "\n\n15/15: %1 (end, chained cur-hz=%2)", "vfe-eingefuegt": "\n>>> Etage VarioFoerderer inserted! <<<", - "vfl-vwnb-titel": "\n VF LINE PATH - Mode 3: 3D objects step by step (forward reconstruction, work in progress)", + "vfl-vwnb-titel": "\n VF LINE PATH - Mode 3: from 3D line WITHOUT target height (forward build)", "vfl-vwnb-aus-seite-menu": "\n\nOUT element - select side:\n 1 - Left\n 2 - Right", "vfl-vwnb-alert-eckwinkel": "No matching arc: corner angle %1 deg is not ~30/60/90.\nPlease adjust the angles of the lines.", "vfl-vwnb-alert-keine-gerade": "Path contains no straight - a chain must begin with a straight.", @@ -1131,6 +1164,56 @@ "kreisel-bp-kollision": "\n COLLISION %1: %2 <-> %3 [%4] at X=%5 Y=%6 Z=%7", "kreisel-bp-marker": "\n%1 markers drawn (layer %2).", "exp-kreisel-weichen": "\n[%1] Kreisel switch points: %2 contact(s), %3 collision(s) -> %4", - "exp-kreisel-kollision": "\n[%1] WARNING: %2 Kreisel collision(s) - command KREISEL_WEICHEN shows them." + "exp-kreisel-kollision": "\n[%1] WARNING: %2 Kreisel collision(s) - command KREISEL_WEICHEN shows them.", + "kf-fehler-daten-fehlt": "\nERROR: chain conveyor data not found: %1", + "kf-fehler-daten-leer": "\nERROR: chain conveyor data could not be read.", + "kf-fehler-block-datei": "\nERROR: block file for %1 not found (expected in data/omniflo//).", + "kf-fehler-ks-fehlt": "At least one component is missing KS_EIN or KS_AUS - the chain cannot be linked. Command KF_KS_PRUEFEN shows which block is affected.", + "kf-fehler-hoehe-zu-klein": "The installation height is too small: the deflection and drive stations already contribute more height than requested. Please choose a greater height.", + "kf-fehler-laenge-unter-min": "The intermediate section would be shorter than permitted. Please choose a greater installation height.", + "kf-fehler-laenge-ueber-max": "The intermediate section would be longer than permitted. Please choose a smaller installation height.", + "kf-fehler-winkel-null": "The measured installation angle of the intermediate section is horizontal - no height can be gained. Please check the KS positions of the blocks (KF_KS_PRUEFEN).", + "kf-fehler-dcl": "Dialog file kettenfoerderer.dcl not found.", + "kf-prompt-messpunkt-1": "\nSelect first measuring point (lower reference): ", + "kf-prompt-messpunkt-2": "\nSelect second measuring point (upper reference): ", + "kf-messung-ergebnis": "\n>>> Measured: height difference dZ = %1 mm (for reference dY = %2 mm).", + "kf-konsole-hoehe-hinweis": "\n(enter 0 to measure the height from two points)", + "kf-2d-gebaut": "\n>>> Plan view %1 inserted: slope length %2 mm, inclination %3 deg.", + "kf-2d-laenge-null": "\nPlan view skipped: the chain has no measurable plan length.", + "kf-2d-ks-fehlt": "\nPlan view skipped: %1 has no measurable KS_EIN/KS_AUS.", + "kf-prompt-startpunkt": "\nSelect insertion point (KS_EIN of the plan view; the side view is built above it): ", + "kf-prompt-drehung": "\nRotation angle of the chain: ", + "kf-abgebrochen": "\nCancelled.", + "kf-fertig": "\n>>> %1 created: installation height %2 mm, intermediate section %3 mm.", + "kf-konsole-variante-header": "\n\nSelect inclined steel conveyor type:", + "kf-konsole-option": "\n %1 - %2", + "kf-konsole-variante-prompt": "\nInclined steel conveyor type", + "kf-konsole-hoehe-prompt": "\nH - installation height of inclined conveyor [mm]", + "kf-konsole-verbindung-header": "\n\nSelect connecting elements:", + "kf-konsole-verbindung-prompt": "\nConnecting elements", + "kf-konsole-farbe-header": "\n\nSelect conveyor colour:", + "kf-konsole-farbe-prompt": "\nColour", + "kf-konsole-antriebsmotor-header": "\n\nSelect conveyor drive motor:", + "kf-konsole-antriebsmotor-prompt": "\nConveyor drive motor", + "kf-variante-label": "%1 %2", + "kf-variante-label-standard": "%1 %2 (default)", + "kf-konsole-movimot-header": "\n\nDrive with Movimot?", + "kf-konsole-movimot-prompt": "\nDrive with Movimot", + "kf-konsole-steuerung-header": "\n\nWith standard control system?", + "kf-konsole-steuerung-prompt": "\nWith standard control system", + "kf-pruef-kopf": "\n\n=== KF_KS_PRUEFEN: KS positions of the chain conveyor blocks ===", + "kf-pruef-variante": "\n\n--- Variant: %1 ---", + "kf-pruef-block": "\n %1: KS_EIN (%2, %3) direction %4 | KS_AUS (%5, %6) direction %7", + "kf-pruef-block-fehlt": "\n %1: block file not found.", + "kf-pruef-ks-fehlt": "\n %1: KS incomplete - KS_EIN: %2, KS_AUS: %3", + "kf-pruef-ks-fehlt-kurz": "\n[KF] KS_EIN/KS_AUS not readable on component: %1 (command KF_KS_PRUEFEN shows details)", + "kf-pruef-fehler": "\n Geometry could not be determined: %1", + "kf-pruef-geo": "\n Installation angles (deg): deflection %1, intermediate %2, drive %3\n Height contribution (mm): deflection %4, drive %5\n Intermediate section native (mm): dx %6, dy %7", + "kf-pruef-ja": "present", + "kf-pruef-nein": "MISSING", + "kf-edit-waehlen": "\nSelect chain conveyor (KF_n) to edit: ", + "kf-edit-kein-kf": "The selected block is not a chain conveyor (KF_n).", + "kf-edit-fertig": "\n>>> %1 rebuilt as %2.", + "cmd-kettenfoerderer-bearbeiten": "\n>>> Editing chain conveyor %1 ..." } } diff --git a/lib/dxf_anlage_export.py b/lib/dxf_anlage_export.py index bada8ba..37a90f1 100644 --- a/lib/dxf_anlage_export.py +++ b/lib/dxf_anlage_export.py @@ -13,7 +13,7 @@ Edit-Befehl (Doppelklick) zum Neuaufbau liest. Typischer Ablauf: Scanner- Vorlage nachbauen, in BricsCAD von Hand korrigieren/ergaenzen, Zeichnung als DXF speichern und mit diesem Skript die Testdaten aktualisieren. -Je Wrapper (Felder wie in tests/testdata/object_data.md bzw. mubea.json): +Je Wrapper (Felder wie in doc/json-input-lisp.md bzw. mubea.json): KREISEL_n -> Kreisel ("function": "insert", x/y/z = Einfuegepunkt, abstand = Mittenabstand AN8-SP8 aus der Blockdefinition, diff --git a/lib/dxf_scan_components.py b/lib/dxf_scan_components.py index fc03960..cc26e88 100644 --- a/lib/dxf_scan_components.py +++ b/lib/dxf_scan_components.py @@ -6,7 +6,7 @@ dxf_scan_components.py - Erkennt ILS-/Omniflo-Komponenten in einem FREMDEN DXF. Gedacht fuer Projekt-Zeichnungen, die NICHT von unseren Makros erzeugt wurden (also ohne die Wrapper-Bloecke KREISEL_*, VF_*, GF_*). Das Skript sucht die Bauteile ueber Blocknamen-Muster, rechnet ihre Position in Weltkoordinaten um -und schreibt das Ergebnis im JSON-Schema aus tests/testdata/object_data.md - +und schreibt das Ergebnis im JSON-Schema aus doc/json-input-lisp.md - also so, dass die Anlage per JSON-Treiber mit den Produktionsmakros nachgebaut werden kann (Vorbild: tests/testdata/mubea.json, das bisher von Hand aus einem DXF abgeleitet wurde). @@ -1697,7 +1697,7 @@ def gf_eintraege_aus_linien(linien, as_liste, kreisel=None, sep_liste=None, def baue_eintraege(treffer, defaults, boegen, weichen, bekannte_bloecke=None, linien=None, kreisel_hoehen=None, kreisel_achsen=None, flach=False): - """Erkannte Vorkommen auf die Schemata aus object_data.md abbilden. + """Erkannte Vorkommen auf die Schemata aus json-input-lisp.md abbilden. kreisel_hoehen: Liste (x, y, z) vom Anwender - z gilt fuer den Kreisel, dessen Einfuegepunkt (Eintrag x/y) hoechstens KREISEL_HOEHE_TOL entfernt @@ -2082,7 +2082,7 @@ def main(): parser = argparse.ArgumentParser( description="Erkennt ILS-/Omniflo-Komponenten in einem fremden DXF " "und schreibt sie im JSON-Schema aus " - "tests/testdata/object_data.md.") + "doc/json-input-lisp.md.") parser.add_argument("dxf", help="Quellzeichnung (binaeres oder ASCII-DXF)") parser.add_argument("data_dir", help="Datenverzeichnis mit json/") parser.add_argument("output", help="Ziel-JSON") diff --git a/lib/export_sivas.py b/lib/export_sivas.py index 0a7c277..dc7892e 100644 --- a/lib/export_sivas.py +++ b/lib/export_sivas.py @@ -101,14 +101,36 @@ def get_id(block): # Sprachdatei, da rein Sivas-seitig. GERUEST_TYP_ANZEIGE = sivas_mapping.load_flat_mapping("geruest_typ_anzeige") +# Kettenfoerderer: Attribut WINKEL fuehrt den Neigungswinkel als nackte Zahl +# ("26"/"30"), Sivas-Merkmal 359 erwartet den Optionstext mit Gradzeichen. +# Gleiche Bauart und derselbe Grund wie GERUEST_TYP_ANZEIGE. +KF_TYP_ANZEIGE = sivas_mapping.load_flat_mapping("kf_typ_anzeige") + +# TeileArt-Spalte der Kettenfoerderer-Zeilen. Fester Wert statt Block-Attribut: +# er ist fuer jeden Kettenfoerderer gleich, stuende also an jedem Block nur +# redundant herum. Die Erkennung laeuft ueber den Blocknamen +# (pattern_kettenfoerderer), nicht ueber TEILEART. Ein Block, der das Attribut +# doch mitbringt (Altbestand), hat weiterhin Vorrang. +KF_TEILEART = "Schraegfoerderer Stahl" + SEPARATOR_BEARBEITUNG_ANZEIGE = "ohne HARTCOAT HRC 50 ± 5" +# Sivas-Merkmale "Streckengruppe - Variofoerderer 001..005 - Hoehe in Meter". +# Reihenfolge = Bau-Reihenfolge der Foerdereinheiten in VF_HOEHE_m. +VF_HOEHE_MERKMALE = ("4433", "4434", "4435", "4436", "4437") + def geruest_typ_anzeige(wert): """Wandelt den ASCII-Attributwert GERUEST_TYP in die Sivas-Anzeige um.""" return GERUEST_TYP_ANZEIGE.get(wert, wert) +def kf_typ_anzeige(wert): + """Wandelt den Kettenfoerderer-Winkel ("26"/"30") in die Sivas-Anzeige + zu Merkmal 359 um ("Schrägförderer Stahl 26°").""" + return KF_TYP_ANZEIGE.get(str(wert).strip(), wert) + + def ja_nein(flag_1_0): """Wandelt ein "0"/"1"-Attribut in die Sivas-Anzeige "Ja"/"Nein" um.""" return "Ja" if flag_1_0 == "1" else "Nein" @@ -120,14 +142,95 @@ def mm_zu_m(wert_mm): return str(round(safe_float(wert_mm, 0.0) / 1000.0, 3)) +# --- AS-/ES-Element (Merkmale 4427-4432) --------------------------------- +# Zuordnung komplett in cfg/sivas.cfg ([gefaellestrecke]/[variofoerderer]), +# hier stehen nur die Transforms. Die Sivas-Hierarchie ist: 4431/4432 +# ("AS-Element"/"ES-Element", Ja/Nein) schalten die Unterknoten Winkel +# (4427/4429) und Seite (4428/4430) frei. +# +# Ob ein Element vorhanden ist, entscheidet AUSSCHLIESSLICH WINKEL_AS/ +# WINKEL_ES: das gemeinsame Strecken-Schema (*strecke-attr-front* in +# ssg_core.lsp) laesst den Winkel leer, wenn kein Element gewaehlt wurde. +# SEITE_AS/SEITE_ES taugen dafuer NICHT - sie tragen mit "rechts" immer einen +# Schema-Vorgabewert. Ohne Element bleiben Winkel UND Seite leer, damit in +# Sivas keine Seite unter einem "Nein"-Knoten haengt. + +# Attributwert -> Sivas-Optionswert der Auswahlliste ("30"/"90" -> "30 °"/ +# "90 °", siehe Merkmalstamm). Wie [geruest_typ_anzeige] in der Config, damit +# die exakte Schreibweise ohne Code-Aenderung nachgezogen werden kann. +AS_ES_WINKEL_ANZEIGE = sivas_mapping.load_flat_mapping("as_es_winkel_anzeige") + + +def winkel_text(wert): + """Elementwinkel ganzzahlig normiert ("90.0" -> "90"), ohne Sivas- + Anzeigeform. Basis fuer as_es_winkel UND fuer die Gruppierung (dort darf + die Anzeigeform keine Rolle spielen). Leerer Wert bleibt leer.""" + wert = str(wert or "").strip() + if not wert: + return "" + zahl = safe_float(wert, None) + return wert if zahl is None else str(int(zahl)) + + +def as_es_vorhanden(winkel): + """Merkmal 4431/4432: "Ja", sobald ein Elementwinkel gesetzt ist.""" + return "Ja" if winkel_text(winkel) else "Nein" + + +def as_es_winkel(winkel): + """Merkmal 4427/4429: Elementwinkel in der Sivas-Schreibweise der + Auswahlliste (cfg/sivas.cfg [as_es_winkel_anzeige]). Ein Winkel ohne + Eintrag dort wird unveraendert (nur ganzzahlig normiert) uebernommen.""" + winkel = winkel_text(winkel) + return AS_ES_WINKEL_ANZEIGE.get(winkel, winkel) + + +def _seite_text(seite, winkel): + """Gemeinsamer Kern von as_seite/es_seite: Seite nur, wenn es das Element + ueberhaupt gibt.""" + if not winkel_text(winkel): + return "" + return str(seite or "").strip().lower() + + +@sivas_mapping.braucht_attribs +def as_seite(wert, attribs): + """Merkmal 4428: AS-Seite, aber nur bei vorhandenem AS-Element.""" + return _seite_text(wert, attribs.get("WINKEL_AS", "")) + + +@sivas_mapping.braucht_attribs +def es_seite(wert, attribs): + """Merkmal 4430: ES-Seite, aber nur bei vorhandenem ES-Element.""" + return _seite_text(wert, attribs.get("WINKEL_ES", "")) + + # --- Transform-Namen, wie sie in cfg/sivas.cfg hinter "|" stehen koennen --- TRANSFORMS = { "ja_nein": ja_nein, "geruest_typ_anzeige": geruest_typ_anzeige, + "kf_typ_anzeige": kf_typ_anzeige, "mm_zu_m": mm_zu_m, + "as_es_vorhanden": as_es_vorhanden, + "as_es_winkel": as_es_winkel, + "as_seite": as_seite, + "es_seite": es_seite, } +def as_es_signatur(attribs): + """AS-/ES-Anteil des Gruppierungsschluessels (siehe + gefaellestrecke_signature). Nutzt dieselben Transforms wie der Export, + damit Schluessel und Zeileninhalt nicht auseinanderlaufen: ohne Element + ist die Seite leer und darf dann auch nicht trennen.""" + return (as_es_vorhanden(attribs.get("WINKEL_AS", "")), + winkel_text(attribs.get("WINKEL_AS", "")), + as_seite(attribs.get("SEITE_AS", ""), attribs), + as_es_vorhanden(attribs.get("WINKEL_ES", "")), + winkel_text(attribs.get("WINKEL_ES", "")), + es_seite(attribs.get("SEITE_ES", ""), attribs)) + + def streckengruppe_objekt_text(attribs): """Merkmal 4300 "Streckengruppe": "mehrere Objekte", wenn der Block ein kombinierter Streckengruppe-Block (Gefaelle+Vario, TYP-Attribut @@ -191,12 +294,54 @@ def eckrad_signature(block): ) +def kettenfoerderer_signature(block): + """ + Schluessel zur Gruppierung gleichartiger Kettenfoerderer (KF_n): baugleiche + Bloecke landen in EINER Sivas-Zeile, deren Anzahl das Merkmal 353 ("Anzahl + der gleichen Schraegfoerderer") traegt. + + In den Schluessel gehoert JEDES Attribut, aus dem ein Merkmal der Zeile + entsteht - sonst verschmelzen zwei unterschiedlich ausgefuehrte Foerderer + zu einer Zeile, und die Merkmale des ERSTEN Blocks gelten fuer beide + (gleiche Ueberlegung wie bei gefaellestrecke_signature/as_es_signatur). + Die Kommentare nennen darum je Attribut die Merkmalnummer; einzige + Ausnahme ist 353, das erst aus der Gruppengroesse entsteht. + + Das ist zugleich die Voraussetzung dafuer, dass items_zusammenfassen (fuer + die _zusammengefasst.csv) zwei KF-Zeilen NIE verschmelzen kann: gleiche + Merkmale wuerden schon hier dieselbe Gruppe ergeben. Sonst wuerde dort + "anzahl" addiert, waehrend 353 unveraendert stehen bliebe. + + Die Laenge des Zwischenstuecks (L_KF_mm) ist eine FOLGE der Einbauhoehe und + steht darum nicht eigens im Schluessel. + """ + attribs = block.get("attribs", {}) + return ( + attribs.get("WINKEL", "26"), # 359 + attribs.get("STANDARD_STEUERUNG", "0"), # 361 + attribs.get("FOERDERERTYP", ""), # 350 + attribs.get("H_EINBAUHOEHE_mm", "0"), # 360 + attribs.get("FARBE", ""), # 354 + attribs.get("ANTRIEBSMOTOR", ""), # 355 + attribs.get("ANTRIEBSART", ""), # 357 + attribs.get("MOVIMOT", "0"), # 356 + attribs.get("VERBINDUNGSELEMENTE", "Nein"), # 391 + attribs.get("ARTINR", ""), + ) + + def gefaellestrecke_signature(block): """ Schluessel zur Gruppierung gleichartiger Gefaellestrecken: Bloecke mit identischen Massen (Hoehe, Laenge, Winkel, Separatoren, Scanner, Typ, - Geruest fuer Einzelmodul/Geruestoption) landen in derselben Sivas-Zeile - - nur IDs/Bezeichnung unterscheiden sich. + Geruest fuer Einzelmodul/Geruestoption, AS-/ES-Element) landen in + derselben Sivas-Zeile - nur IDs/Bezeichnung unterscheiden sich. + + AS-/ES-Element (Merkmale 4427-4432) gehoeren mit in den Schluessel: die + Merkmale der Zeile entstehen aus dem ERSTEN Block der Gruppe, zwei sonst + baugleiche Gefaellestrecken mit AS links bzw. AS rechts wuerden sonst zu + einer Zeile mit nur einer der beiden Seiten verschmelzen (siehe + as_es_signatur). """ attribs = block.get("attribs", {}) return ( @@ -209,6 +354,7 @@ def gefaellestrecke_signature(block): attribs.get("TYP", "Gefaellestrecke"), attribs.get("GERUEST_EINZELMODUL", "0"), attribs.get("GERUEST_TYP", "Schoenenberger Geruest"), + as_es_signatur(attribs), ) @@ -292,6 +438,20 @@ def build_variofoerderer_details(block): details["4354"] = vf_richtung[0].lower() if vf_richtung else "" details["4386"] = str(int(vf_winkel[0])) if vf_winkel else "" + # Hoehe je Foerdereinheit (4433-4437, "Variofoerderer 001-005 - Hoehe in + # Meter"). Quelle ist das Attribut VF_HOEHE_m: eine kommagetrennte Liste + # in Bau-Reihenfolge, je Eintrag der Mittelwert aus KS_EIN der + # Umlenkstation und KS_AUS der Motorstation (siehe vf-vfhoehe-anfang/-ende + # in Lisp/vf_core.lsp). Einheit Meter, 3 Nachkommastellen - wie L_VF_m. + # + # Mehr als fuenf Foerdereinheiten kann Sivas hier nicht abbilden; die + # ueberzaehligen werden bewusst weggelassen statt zusammengefasst, damit + # kein Merkmal einen erfundenen Wert traegt. Fehlende Eintraege bleiben + # ganz weg (kein leeres Merkmal). + vf_hoehen = parse_float_list(attribs.get("VF_HOEHE_m", "")) + for nummer, hoehe in zip(VF_HOEHE_MERKMALE, vf_hoehen): + details[nummer] = "%.3f" % hoehe + return {k: str(v) for k, v in details.items()} @@ -299,6 +459,7 @@ SIVAS_MAPPING_KREISEL = sivas_mapping.load_section_mapping("kreisel") SIVAS_MAPPING_ECKRAD = sivas_mapping.load_section_mapping("eckrad") SIVAS_MAPPING_GERUEST = sivas_mapping.load_section_mapping("geruest") SIVAS_MAPPING_WEICHEN = sivas_mapping.load_section_mapping("weichen") +SIVAS_MAPPING_KETTENFOERDERER = sivas_mapping.load_section_mapping("kettenfoerderer") def build_kreisel_details(block): @@ -326,6 +487,21 @@ def build_eckrad_details(block): return sivas_mapping.anwenden(SIVAS_MAPPING_ECKRAD, attribs, TRANSFORMS) +def build_kettenfoerderer_details(block, anzahl=1): + """Merkmale-Dict fuer eine Gruppe baugleicher Kettenfoerderer (KF_n, + Lisp/KettenFoerderer.lsp). + + 350/359/354/356/360/391 kommen flach aus cfg/sivas.cfg [kettenfoerderer]. + 353 ("Anzahl der gleichen Schraegfoerderer") entsteht erst hier aus der + Gruppengroesse und kann darum nicht im Mapping stehen - gleiche Bauart wie + 3510/3512 beim Kreisel. + """ + attribs = block.get("attribs", {}) + details = sivas_mapping.anwenden(SIVAS_MAPPING_KETTENFOERDERER, attribs, TRANSFORMS) + details["353"] = str(anzahl) + return details + + # def build_geruest_details(block): #"""Merkmale-Dict fuer eine GR_-Geruest-Baugruppe (siehe pattern_geruest in #cfg/export.cfg, GeruestInsert.lsp *geruest-attrib-defs*). ARTINR/ @@ -444,6 +620,8 @@ def process_blocks(blocks, anzahl_weichen_ils=0): btmt_beladung_ids = [] # IDs aller BTMT-Beladung*-Bloecke (eine gruppierte Zeile) btmt_entladung_ids = [] # IDs aller SC_Entladung*-Bloecke (eine gruppierte Zeile) geruest_list = [] # Liste von GR_-Geruest-Baugruppenbloecken, je einer Zeile + # Kettenfoerderer: kettenfoerderer_signature(block) -> {"block", "ids", "anzahl"} + kettenfoerderer_groups = {} counters = { "anzahl_kreisel": 0, @@ -466,6 +644,7 @@ def process_blocks(blocks, anzahl_weichen_ils=0): "anzahl_btbeladung": 0, "anzahl_abwurfstationen": 0, "anzahl_geruest": 0, + "anzahl_kettenfoerderer": 0, } for block in blocks: @@ -515,6 +694,22 @@ def process_blocks(blocks, anzahl_weichen_ils=0): counters["anzahl_geruest"] += 1 continue + # --- Kettenfoerderer / Schraegfoerderer Stahl (KF_n) --- + # MUSS vor dem allgemeinen Omniflo-Zweig stehen: die KF-Baugruppe + # traegt TEILEART "Omniflo Kettenfoerderer ..." und wuerde dort sonst + # ueber ARTINR aufgeloest - ihre eigenen Merkmale (350/353/354/356/ + # 359/360/391) gingen dabei verloren. Anders als das Geruest werden + # BAUGLEICHE Foerderer zu einer Zeile zusammengefasst, weil Merkmal + # 353 genau diese Stueckzahl verlangt. + if matches_any(bname, BLOCKPATTERNS.get("pattern_kettenfoerderer", [])): + sig = kettenfoerderer_signature(block) + if sig not in kettenfoerderer_groups: + kettenfoerderer_groups[sig] = {"block": block, "ids": [], "anzahl": 0} + kettenfoerderer_groups[sig]["anzahl"] += 1 + kettenfoerderer_groups[sig]["ids"].append(get_id(block)) + counters["anzahl_kettenfoerderer"] += 1 + continue + # --- Omniflo Gerade (AP110) --- # VOR dem allgemeinen Omniflo-Zweig: Geraden tragen ggf. ebenfalls # TEILEART "Omniflo ...", brauchen aber die Laengensumme. @@ -781,6 +976,31 @@ def process_blocks(blocks, anzahl_weichen_ils=0): }) nr += 1 + # Kettenfoerderer / Schraegfoerderer Stahl (KF_n) - eine Zeile je Gruppe + # BAUGLEICHER Foerderer, deren Groesse als Merkmal 353 mitgefuehrt wird. + # Die Sivasnr kommt - wie beim Geruest - aus dem ARTINR-Attribut (gepflegt + # als "sivas_id" je Variante in data/json/kettenfoerderer.json); ist dort + # nichts hinterlegt, bleibt die Spalte leer und die Zeile traegt allein + # ihre Merkmale. Die drei Bausteine des Foerderers (Umlenkstation, + # skaliertes Zwischenstueck, Antriebsstation) bekommen KEINE eigenen + # Zeilen - der Schraegfoerderer ist in Sivas EIN Artikel. + for gruppe in kettenfoerderer_groups.values(): + block = gruppe["block"] + attribs = block.get("attribs", {}) + items.append({ + "nr": nr, + "teileart": attribs.get("TEILEART") or attribs.get("FOERDERERTYP") or KF_TEILEART, + "sivasnr": attribs.get("ARTINR", ""), + "sivasnr_quoted": True, + "bezeichnung": attribs.get("Bezeichnung", ""), + "dispgruppe": 20, + "anzahl": gruppe["anzahl"], + "laenge_mm": attribs.get("L_KF_mm", ""), + "ids": gruppe["ids"], + "details": build_kettenfoerderer_details(block, gruppe["anzahl"]), + }) + nr += 1 + # VarioFoerderer-Compound-Bloecke (VF_N) - je Block eine eigene Zeile mit # vollstaendigen Gefaelle-/Angetrieben-Teilgruppen (immer TYP "Streckengruppe"). for block in vario_list: diff --git a/lib/extract_polylines.py b/lib/extract_polylines.py index 2cc8088..25abe40 100644 --- a/lib/extract_polylines.py +++ b/lib/extract_polylines.py @@ -9,7 +9,7 @@ Hintergrund: data/polylines.dxf enthaelt 5 LWPOLYLINE-Objekte auf Layer "Z-6" - Streckenzuege, die reale Foerderer-Pfade der HundM05-Zeichnung nachbilden (siehe data/polylines.md, von Hand ausgewertet). Dieses Skript macht dieselbe Auswertung reproduzierbar und maschinenlesbar, als Grundlage -fuer einen neuen Testfall (siehe tests/testdata/object_data.md fuer das +fuer einen neuen Testfall (siehe doc/json-input-lisp.md fuer das allgemeine JSON-Schema). Eine Polylinie kann auf einer gekippten Ebene liegen (Gruppencode diff --git a/lib/sivas_mapping.py b/lib/sivas_mapping.py index d1480be..4948d49 100644 --- a/lib/sivas_mapping.py +++ b/lib/sivas_mapping.py @@ -97,14 +97,31 @@ def load_flat_mapping(section, cfg_path=None): return {} +def braucht_attribs(fn): + """Markiert einen Transform, der NEBEN seinem Rohwert auch das komplette + Attribut-Dict des Blocks braucht - er wird dann als fn(wert, attribs) + aufgerufen statt als fn(wert). + + Noetig fuer Merkmale, deren Wert von einem ZWEITEN Attribut abhaengt: die + AS-/ES-Seite (4428/4430) darf nur gefuellt werden, wenn der zugehoerige + WINKEL_AS/WINKEL_ES ueberhaupt ein Element ausweist. Ohne diese Klammer + muessten solche Merkmale wieder aus der Config heraus in Python-Code + wandern - genau das soll sivas.cfg vermeiden. + """ + fn.braucht_attribs = True + return fn + + def anwenden(section_mapping, attribs, transforms): """Wendet eine per load_section_mapping() gelesene Zuordnung auf ein Block-Attribut-Dict an. - transforms: dict transform_name -> Funktion(wert) -> wert. Ein in der - Config genannter, aber hier unbekannter Transform-Name wird ignoriert - (Rohwert bleibt unveraendert) statt abzubrechen - ein Tippfehler in - sivas.cfg darf den Export nicht zum Stillstand bringen. + transforms: dict transform_name -> Funktion(wert) -> wert. Ein mit + @braucht_attribs markierter Transform wird stattdessen als + fn(wert, attribs) aufgerufen und sieht damit die uebrigen Attribute des + Blocks. Ein in der Config genannter, aber hier unbekannter Transform-Name + wird ignoriert (Rohwert bleibt unveraendert) statt abzubrechen - ein + Tippfehler in sivas.cfg darf den Export nicht zum Stillstand bringen. Rueckgabe: dict merkmal -> wert. Ohne Transform wird der Rohwert zu str() gewandelt (bisheriges Verhalten der build_*_details-Funktionen: alles @@ -124,7 +141,10 @@ def anwenden(section_mapping, attribs, transforms): if transform: fn = transforms.get(transform) if fn is not None: - ergebnis[merkmal] = fn(wert) + if getattr(fn, "braucht_attribs", False): + ergebnis[merkmal] = fn(wert, attribs) + else: + ergebnis[merkmal] = fn(wert) continue ergebnis[merkmal] = str(wert) return ergebnis diff --git a/lib/vf_journal_export.py b/lib/vf_journal_export.py index cd758a9..1ba09f9 100644 --- a/lib/vf_journal_export.py +++ b/lib/vf_journal_export.py @@ -322,6 +322,19 @@ class ProtokollSink(Sink): self.add("point_abs", "getpoint Startpunkt der Kette (absoluter " "Weltpunkt, einziger Anker der ganzen Kette)", wert=punkt) + def as_achse(self, punkt): + # Zweiter absoluter Punkt - gibt NUR die Richtung der Zufuehrung, + # der Startpunkt bleibt der Sitz des AS-Elements. "nil" heisst: die + # Frage wurde gestellt und bewusst uebergangen (die Kettenrichtung + # kommt dann aus dem naechsten Klick). + if punkt is None: + self.add("nil", "getpoint Zufuehrungsachse - 2. Punkt: keiner " + "gewaehlt, Richtung kommt aus dem naechsten Klick") + else: + self.add("point_abs", "getpoint Zufuehrungsachse - 2. Punkt " + "(gibt nur die Richtung, der Startpunkt bleibt)", + wert=punkt) + def linie(self, dl, hz, frage): was = _vorlage(_LINIE_TEXT, frage) if hz is None: diff --git a/lib/vf_linienzug_grammatik.py b/lib/vf_linienzug_grammatik.py index 5152ff0..7ab5846 100644 --- a/lib/vf_linienzug_grammatik.py +++ b/lib/vf_linienzug_grammatik.py @@ -287,6 +287,12 @@ class Sink(object): def praeambel_start(self): """Kettenkopf beginnt (Startpunkt/Starthoehe/AS-Element).""" + def as_achse(self, punkt): + """Zufuehrungsachse des AS-Elements verbraucht (2. Punkt, gibt nur + die Richtung). punkt = [x, y, z] oder None, wenn die Kette bewusst + OHNE Achse gebaut wurde. Wird gar nicht gerufen, wenn das Journal + diese Frage noch nicht kennt (vor 2026-10-21).""" + def praeambel_ende(self): """Kettenkopf fertig.""" @@ -518,9 +524,31 @@ class Kern(object): self.sink.real_feld("hoehe", self.real(), "start_hoehe") if self._ja("as", "AS-Element setzen", "as"): self.sink.roh_feld("as_winkel", self.nimm("STR"), "as_winkel") - self._code("as_seite", SEITE, "AS-Seite", "as_seite") + # Drei Journal-Formate, unterscheidbar an der Eintragsart (siehe + # vfl-frage-as-winkel-seite-oder-achse): + # PT direkt nach dem Winkel -> Alt-Achse ohne Seitenfrage + # (30-Grad-Element, 2026-10-14 + # bis 10-20); die Seite wurde + # damals aus der Lage des + # naechsten Punkts ermittelt. + # STR, dann PT bzw. NIL -> Format ab 2026-10-21: Seite UND + # (optionale) Zufuehrungsachse. + # STR, dann etwas anderes -> Altbestand ohne Achsenfrage. + if self.art() == "PT": + self._as_achse() + else: + self._code("as_seite", SEITE, "AS-Seite", "as_seite") + if self.art() == "PT": + self._as_achse() + elif self.art() == "NIL": + self.nimm("NIL") + self.sink.as_achse(None) self.sink.praeambel_ende() + def _as_achse(self): + """Zufuehrungsachse: zweiter Punkt, der NUR die Richtung gibt.""" + self.sink.as_achse([float(v) for v in self.nimm("PT").split(",")]) + def sektionen(self): while self.pos < len(self.tok): label = self.nimm("STEP") diff --git a/lib/vf_spec_export.py b/lib/vf_spec_export.py index 861b0a4..4596ce9 100644 --- a/lib/vf_spec_export.py +++ b/lib/vf_spec_export.py @@ -87,6 +87,11 @@ def tokens_aus_protokoll(eintraege): tok.append(("STR", str(e["wert"]))) elif typ == "step": tok.append(("STEP", str(e["wert"]))) + elif typ == "nil": + # Eine Frage, die gestellt und bewusst uebergangen wurde (bisher + # nur die Zufuehrungsachse des AS-Elements) - im Journal ein + # "NIL"-Eintrag ohne Wert. + tok.append(("NIL", None)) else: raise ValueError("unbekannter Eintragstyp: %r" % typ) return tok @@ -255,6 +260,14 @@ class SpecSink(Sink): def punkt_abs(self, punkt): self.ziel["punkt"] = punkt + def as_achse(self, punkt): + # Zufuehrungsachse des AS-Elements. "ohne" ist NICHT dasselbe wie ein + # fehlendes Feld: "ohne" heisst "die Frage wurde gestellt und bewusst + # uebergangen" (NIL im Journal), ein fehlendes Feld heisst "das + # Journal kennt die Frage gar nicht" (vor 2026-10-21). Nur so bleibt + # der Rundlauf Journal -> Spec -> Journal tokengleich. + self.ziel["as_achse"] = punkt if punkt is not None else "ohne" + def linie(self, dl, hz, frage): self.ziel["dl"] = dl if hz is not None: @@ -398,6 +411,14 @@ class SpecSchreiber(object): self.raus("STR", str(self.feld(start, "as_winkel"))) self.raus("STR", code_aus_wert(SEITE, self.feld(start, "as_seite"), "as_seite")) + # Optional, Gegenstueck zu SpecSink.as_achse und zu + # vsp-praeambel in Lisp/vf_spec.lsp: Liste -> PT, "ohne" -> NIL, + # fehlt -> gar kein Token (Journalformat vor 2026-10-21). + achse = start.get("as_achse") + if isinstance(achse, (list, tuple)): + self.raus("PT", ",".join(_zahl(v) for v in achse)) + elif achse == "ohne": + self.raus("NIL", None) def sektion(self, sek, erster, naechste=None): label = self.feld(sek, "glied") @@ -641,6 +662,11 @@ def flache_objekte(spec_id, spec, kopf_extra=None): if start["as"]: kopf["as_winkel"] = start["as_winkel"] kopf["as_seite"] = start["as_seite"] + # Nur schreiben, wenn vorhanden - ein fehlendes Feld ist die + # bewusste Aussage "Journalformat ohne Achsenfrage" (siehe + # SpecSink.as_achse), kein Datenverlust. + if "as_achse" in start: + kopf["as_achse"] = start["as_achse"] for k, v in (kopf_extra or collections.OrderedDict()).items(): kopf[k] = v objekte.append(kopf) diff --git a/menu/SSG_LIB.cui b/menu/SSG_LIB.cui index 4db8efd..f7710f7 100644 --- a/menu/SSG_LIB.cui +++ b/menu/SSG_LIB.cui @@ -118,7 +118,7 @@ - 3D Objekte stueckweise (in Arbeit) + aus 3D Linie ohne Zielhoehe ^C^C(ssg-ensure "VarioFoerderer") LinienzugVarioFoerdererStueckweise @@ -401,7 +401,7 @@ KettenFoerderer - ^C^C(ssg-ensure "OmniModulInsert") OMNI_KettenFoerderer + ^C^C(ssg-ensure "KettenFoerderer") KETTENFOERDERER @@ -411,23 +411,23 @@ - - TV W-W kpl - ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_W - - - TV W-AP110 kpl ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_AP110 - + TV W-AP60 oben kpl. ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_AP60 + + + TV W-W kpl + ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_W + + TV W-AP110-W kpl @@ -436,8 +436,8 @@ - TV W-AP oben kpl - ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_AP + TV W-AP60 kpl + ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_AP60_KPL @@ -460,55 +460,55 @@ - Anschlag AP-Ende fuer Spulenzug + Anschlag AP-Ende für Spulenzug ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_ANSCHLAG - TV-A fuer AP110/AP60 kpl + TV-A für AP110/AP60 kpl ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_A_AP110_AP60 - TV-A fuer AP60/ST + TV-A für AP60/ST ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_A_AP60_ST - TV-A fuer AP110/ST kpl + TV-A für AP110/ST kpl ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_A_AP110_ST - TV-SW II fuer SW-SW + TV-SW II für SW-SW ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_II_SW_SW - TV-SW III fuer SW-AP110-SW + TV-SW III für SW-AP110-SW ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_III_AP110_SW - TV-SW III fuer SW-AP110 - ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_III_AP110 + TV-SW I für SW-AP110 + ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_I_AP110 - TV-SW IV fuer Anschluss SW-AP60 + TV-SW IV für Anschluss SW-AP60 ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_IV_AP60 - TV-SW IV fuer SW-ST + TV-SW IV für SW-ST ^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_IV_ST @@ -872,61 +872,61 @@ ^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_showroom_ils.lsp")) (c:TEST_SHOWROOM_ILS) - + Testanlage test_system ^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_test_system.lsp")) (c:TEST_TEST_SYSTEM) - + KS 2D/3D pruefen (CSV) ^C^C(load (strcat (getenv "DXFMAKRO") "/Lisp/ks_pruefung.lsp")) KS_PRUEFEN - + Kreisel bearbeiten (ssg-ensure "KreiselInsert") KreiselEdit - + Eckrad bearbeiten (ssg-ensure "KreiselInsert") EckradEdit - + Omniflo Element bearbeiten (ssg-ensure "OmniModulInsert") OMNI_EDIT - + Gefaellestrecke bearbeiten (ssg-ensure "Gefaellestrecke") GEFAELLESTRECKE_EDIT - + VarioFoerderer bearbeiten (ssg-ensure "VarioFoerderer") VARIOFOERDERER_EDIT - + TRO-Marker bearbeiten (ssg-ensure "Tro_Edit") TRO_EDIT - + Verbindung bearbeiten (ssg-ensure "Connection_Edit") CONNECTION_EDIT - + SSG Bearbeiten (Auto) (ssg-ensure "SSG_LIB_Commands") SSG_BLOCKEDIT @@ -1088,7 +1088,7 @@ - 3D Objekte stueckweise (in Arbeit) + aus 3D Linie ohne Zielhoehe @@ -1150,7 +1150,7 @@ - ~KettenFoerderer + KettenFoerderer @@ -1430,109 +1430,109 @@ Verbinder - ~TV W-W kpl + TV W-AP110 kpl - ~TV W-AP110 kpl + TV W-AP60 oben kpl. - ~TV W-AP60 oben kpl. + TV W-W kpl - ~TV W-AP110-W kpl + TV W-AP110-W kpl - ~TV W-AP oben kpl + TV W-AP60 kpl - ~TV 80 + TV 80 - ~TV 50 + TV 50 - ~Endplatte Al-Profil AP schraubbar + Endplatte Al-Profil AP schraubbar - ~Anschlag AP-Ende fuer Spulenzug + Anschlag AP-Ende für Spulenzug - ~TV-A fuer AP110/AP60 kpl + TV-A für AP110/AP60 kpl - ~TV-A fuer AP60/ST + TV-A für AP60/ST - ~TV-A fuer AP110/ST kpl + TV-A für AP110/ST kpl - ~TV-SW II fuer SW-SW + TV-SW II für SW-SW - ~TV-SW III fuer SW-AP110-SW + TV-SW III für SW-AP110-SW - ~TV-SW III fuer SW-AP110 + TV-SW I für SW-AP110 - ~TV-SW IV fuer Anschluss SW-AP60 + TV-SW IV für Anschluss SW-AP60 - ~TV-SW IV fuer SW-ST + TV-SW IV für SW-ST - ~Muffe + Muffe @@ -1930,66 +1930,66 @@ Testanlage test_system - + KS 2D/3D pruefen (CSV) - + - + POP501 SSG_LIB Edit Context Kreisel bearbeiten - + Eckrad bearbeiten - + Omniflo Element bearbeiten - + Gefaellestrecke bearbeiten - + VarioFoerderer bearbeiten - + TRO-Marker bearbeiten - + Verbindung bearbeiten - + SSG Bearbeiten (Auto) - + diff --git a/menu/SSG_LIB.mnl b/menu/SSG_LIB.mnl index 79a6fd1..408f553 100644 --- a/menu/SSG_LIB.mnl +++ b/menu/SSG_LIB.mnl @@ -158,6 +158,11 @@ (ssg-ensure "export") (ssg-ensure "external_call") (ssg-ensure "OmniModulInsert") + ;; Kettenfoerderer vorladen statt lazy: der erste Menueklick musste sonst + ;; das Laden des Moduls mitbezahlen, der Dialog erschien dadurch spuerbar + ;; verzoegert. Das Modul ist klein, der Startaufschlag faellt nicht ins + ;; Gewicht. (Zum Nachmessen: Schalter "kf-zeit", siehe KettenFoerderer.lsp) + (ssg-ensure "KettenFoerderer") ;; Tro_Edit wird nicht vorgeladen - der Dispatcher SSG_BLOCKEDIT und die ;; Menuemakros holen es per (ssg-ensure "Tro_Edit") bei Bedarf nach. (ssg-ensure "SSG_LIB_Commands") diff --git a/menu/SSG_LIB.mnu b/menu/SSG_LIB.mnu index e09f703..dd5ba6d 100644 --- a/menu/SSG_LIB.mnu +++ b/menu/SSG_LIB.mnu @@ -27,7 +27,7 @@ [->Streckengruppe] [Werte manuell]^C^C(ssg-ensure "VarioFoerderer") LinienzugVarioFoerdererManuell [aus 3D Linie mit Zielhoehe]^C^C(ssg-ensure "VarioFoerderer") LinienzugVarioFoerdererZielhoehe -[<-3D Objekte stueckweise (in Arbeit)]^C^C(ssg-ensure "VarioFoerderer") LinienzugVarioFoerdererStueckweise +[<-aus 3D Linie ohne Zielhoehe]^C^C(ssg-ensure "VarioFoerderer") LinienzugVarioFoerdererStueckweise [Vario_Kette_Merge]^C^C(ssg-ensure "VarioFoerderer") Vario_Kette_Merge [<-VarioFoerderer nachruesten (Marker)]^C^C(ssg-ensure "VarioFoerderer") VARIOFOERDERER_NACHRUESTEN [->Gefaellestrecke] @@ -92,27 +92,27 @@ [Schwenkschiene Schiebetür R]^C^C(ssg-ensure "OmniModulInsert") OMNI_SCHW_400_R [Schwenkschiene Schiebetür L mit Sensorik]^C^C(ssg-ensure "OmniModulInsert") OMNI_SCHW_400_L_SENSORIK [<-<-<-Schwenkschiene Schiebetür R mit Sensorik]^C^C(ssg-ensure "OmniModulInsert") OMNI_SCHW_400_R_SENSORIK -[~KettenFoerderer]^C^C(ssg-ensure "OmniModulInsert") OMNI_KettenFoerderer +[KettenFoerderer]^C^C(ssg-ensure "KettenFoerderer") KETTENFOERDERER [Ladeschleifen]^C^C(ssg-ensure "OmniModulInsert") OMNI_LADESCHLEIFE_AP110 [->Verbinder] -[~TV W-W kpl]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_W -[~TV W-AP110 kpl]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_AP110 -[~TV W-AP60 oben kpl.]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_AP60 -[~TV W-AP110-W kpl]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_AP110_W -[~TV W-AP oben kpl]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_AP -[~TV 80]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_80 -[~TV 50]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_50 -[~Endplatte Al-Profil AP schraubbar]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_ENDPLATTE -[~Anschlag AP-Ende fuer Spulenzug]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_ANSCHLAG -[~TV-A fuer AP110/AP60 kpl]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_A_AP110_AP60 -[~TV-A fuer AP60/ST]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_A_AP60_ST -[~TV-A fuer AP110/ST kpl]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_A_AP110_ST -[~TV-SW II fuer SW-SW]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_II_SW_SW -[~TV-SW III fuer SW-AP110-SW]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_III_AP110_SW -[~TV-SW III fuer SW-AP110]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_III_AP110 -[~TV-SW IV fuer Anschluss SW-AP60]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_IV_AP60 -[~TV-SW IV fuer SW-ST]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_IV_ST -[<-~Muffe]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_MUFFE +[TV W-AP110 kpl]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_AP110 +[TV W-AP60 oben kpl.]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_AP60 +[TV W-W kpl]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_W +[TV W-AP110-W kpl]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_AP110_W +[TV W-AP60 kpl]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_AP60_KPL +[TV 80]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_80 +[TV 50]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_50 +[Endplatte Al-Profil AP schraubbar]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_ENDPLATTE +[Anschlag AP-Ende für Spulenzug]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_ANSCHLAG +[TV-A für AP110/AP60 kpl]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_A_AP110_AP60 +[TV-A für AP60/ST]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_A_AP60_ST +[TV-A für AP110/ST kpl]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_A_AP110_ST +[TV-SW II für SW-SW]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_II_SW_SW +[TV-SW III für SW-AP110-SW]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_III_AP110_SW +[TV-SW I für SW-AP110]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_I_AP110 +[TV-SW IV für Anschluss SW-AP60]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_IV_AP60 +[TV-SW IV für SW-ST]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_SW_IV_ST +[<-Muffe]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_MUFFE [->Boegen fuer Weichen] [~APB 110 R400/45 140 nur fuer Delta]^C^C(ssg-ensure "OmniModulInsert") OMNI_APBW_R400_45_140 [~APB 110 R550/45 194 nur fuer Delta]^C^C(ssg-ensure "OmniModulInsert") OMNI_APBW_R550_45_194 diff --git a/tests/test_export_sivas_as_es.py b/tests/test_export_sivas_as_es.py new file mode 100644 index 0000000..1e83e5f --- /dev/null +++ b/tests/test_export_sivas_as_es.py @@ -0,0 +1,181 @@ +#!/usr/bin/env python3 +# -*- coding: utf-8 -*- +""" +test_export_sivas_as_es.py - Sivas-Merkmale 4427-4432 (AS-/ES-Element) fuer +Gefaellestrecke (GF_N) und Streckengruppe (VF_N). + +Pruefpunkte: Vorhandensein haengt am Winkel (nicht an der Seite, die immer +einen Vorgabewert traegt), der Winkel wird in die Sivas-Schreibweise der +Auswahlliste uebersetzt, ohne Element bleiben Winkel UND Seite leer, die +Zuordnung steht vollstaendig in cfg/sivas.cfg, und die GF-Gruppierung trennt +Bloecke mit unterschiedlichem AS-/ES-Element. + +Laeuft komplett ohne BricsCAD (reine Python-Logik). +""" + +import os +import sys + +sys.path.insert(0, os.path.join(os.path.dirname(__file__), "..", "lib")) + +import export_sivas # noqa: E402 +import sivas_mapping # noqa: E402 + +# Sivas-Schreibweise der Winkel-Auswahlliste (cfg/sivas.cfg +# [as_es_winkel_anzeige]) - die Tests vergleichen gegen die Config, damit ein +# Nachziehen der Schreibweise dort nicht die halbe Testdatei bricht. +W30 = export_sivas.as_es_winkel("30") +W90 = export_sivas.as_es_winkel("90") + + +def _strecke(nr, typ="Gefaellestrecke", **attr): + """GF_N-/VF_N-Block mit dem gemeinsamen Strecken-Attributschema.""" + attribs = {"ID": f"000{nr}", "Bezeichnung": f"GF_{nr}", "ARTINR": "6220", + "MONTAGEHOEHE_m": "2.000", "HOEHE_VON_mm": "2000", + "HOEHE_BIS_mm": "1000", "TYP": typ, + "L_GF_m": "3.000", "GF_WINKEL": "3", + "SEITE_AS": "links", "WINKEL_AS": "90", + "SEITE_ES": "links", "WINKEL_ES": "90"} + attribs.update(attr) + return {"block_name": f"GF_{nr}", "x": 0.0, "y": 0.0, "z": 2000.0, + "rotation": 0.0, "attribs": attribs} + + +def test_as_es_vorhanden_mit_winkel_und_seite(): + details = export_sivas.build_gefaellestrecke_details(_strecke(1)) + assert details["4431"] == "Ja" + assert details["4427"] == W90 + assert details["4428"] == "links" + assert details["4432"] == "Ja" + assert details["4429"] == W90 + assert details["4430"] == "links" + + +def test_zuordnung_steht_in_der_config(): + """Die sechs Merkmale muessen in BEIDEN Strecken-Abschnitten von + sivas.cfg stehen (GF_N und VF_N lesen dieselben Attribute).""" + for abschnitt in ("gefaellestrecke", "variofoerderer"): + mapping = sivas_mapping.load_section_mapping(abschnitt) + for merkmal, attribut, transform in ( + ("4431", "WINKEL_AS", "as_es_vorhanden"), + ("4427", "WINKEL_AS", "as_es_winkel"), + ("4428", "SEITE_AS", "as_seite"), + ("4432", "WINKEL_ES", "as_es_vorhanden"), + ("4429", "WINKEL_ES", "as_es_winkel"), + ("4430", "SEITE_ES", "es_seite")): + assert merkmal in mapping, f"{merkmal} fehlt in [{abschnitt}]" + ist_attribut, _alt, _default, ist_transform = mapping[merkmal] + assert ist_attribut == attribut, f"[{abschnitt}] {merkmal}" + assert ist_transform == transform, f"[{abschnitt}] {merkmal}" + assert ist_transform in export_sivas.TRANSFORMS + + +def test_winkel_in_sivas_schreibweise(): + """4427/4429 tragen den Optionswert der Auswahlliste, nicht die nackte + Attributzahl (Vorgabe aus cfg/sivas.cfg [as_es_winkel_anzeige]).""" + details = export_sivas.build_gefaellestrecke_details( + _strecke(1, WINKEL_AS="30", WINKEL_ES="90.0")) + assert details["4427"] == W30 + assert details["4429"] == W90 + # Unbekannter Winkel faellt auf die ganzzahlige Rohzahl zurueck + assert export_sivas.as_es_winkel("60.0") in (W30, W90, "60") + + +def test_ohne_winkel_kein_element_und_keine_seite(): + """Leerer WINKEL_AS = kein AS-Element; die Seite darf dann NICHT + durchgereicht werden (SEITE_AS traegt mit "rechts" immer einen + Schema-Vorgabewert).""" + details = export_sivas.build_gefaellestrecke_details( + _strecke(1, WINKEL_AS="", SEITE_AS="rechts")) + assert details["4431"] == "Nein" + assert details["4427"] == "" + assert details["4428"] == "" + # ES bleibt davon unberuehrt + assert details["4432"] == "Ja" + assert details["4430"] == "links" + + +def test_seite_rechts(): + details = export_sivas.build_gefaellestrecke_details( + _strecke(1, SEITE_AS="rechts", SEITE_ES="rechts")) + assert details["4428"] == "rechts" + assert details["4430"] == "rechts" + + +def test_variofoerderer_hat_dieselben_merkmale(): + block = _strecke(1, typ="Streckengruppe", L_VF_m="2.000", VF_WINKEL="0", + ANTRIEBFAHRTRICHTUNG="Auf", MOTORSEITE="rechts", + WINKEL_AS="30", SEITE_AS="rechts") + details = export_sivas.build_variofoerderer_details(block) + assert details["4431"] == "Ja" + assert details["4427"] == W30 + assert details["4428"] == "rechts" + assert details["4429"] == W90 + + +def test_gruppierung_trennt_nach_as_seite(): + """Sonst baugleiche Gefaellestrecken mit AS links bzw. rechts duerfen + nicht in einer Sivas-Zeile landen (die Zeile wuerde nur eine der beiden + Seiten zeigen).""" + links = export_sivas.gefaellestrecke_signature(_strecke(1, SEITE_AS="links")) + rechts = export_sivas.gefaellestrecke_signature(_strecke(2, SEITE_AS="rechts")) + assert links != rechts + assert links == export_sivas.gefaellestrecke_signature(_strecke(3, SEITE_AS="links")) + + +def test_gruppierung_trennt_nach_as_winkel(): + assert (export_sivas.gefaellestrecke_signature(_strecke(1, WINKEL_AS="30")) + != export_sivas.gefaellestrecke_signature(_strecke(2, WINKEL_AS="90"))) + + +def test_gruppierung_ohne_element_ignoriert_die_seite(): + """Ohne AS-Element ist die Seite bedeutungslos und steht auch nicht in der + Zeile - sie darf die Gruppierung dann nicht aufspalten.""" + assert (export_sivas.gefaellestrecke_signature( + _strecke(1, WINKEL_AS="", SEITE_AS="links")) + == export_sivas.gefaellestrecke_signature( + _strecke(2, WINKEL_AS="", SEITE_AS="rechts"))) + + +def test_reihenfolge_im_details_json(): + """Die sechs Merkmale stehen im details-JSON direkt HINTER 2950 + (Anlagenhoehe) - so vorgegeben, und so steht es in beiden Abschnitten von + sivas.cfg. Die Reihenfolge der JSON-Keys folgt der Zeilenreihenfolge der + Config (configparser und dict erhalten beide die Einfuegereihenfolge).""" + erwartet = ["2950", "4431", "4427", "4428", "4432", "4429", "4430"] + gf = list(export_sivas.build_gefaellestrecke_details(_strecke(1))) + vf = list(export_sivas.build_variofoerderer_details( + _strecke(2, typ="Streckengruppe", L_VF_m="2.000"))) + assert gf[:len(erwartet)] == erwartet + assert vf[:len(erwartet)] == erwartet + + +def test_altbestand_ohne_die_attribute(): + """Bloecke aus Zeichnungen, die vor der Einfuehrung von WINKEL_AS gebaut + wurden, haben die Attribute gar nicht - dann greift der leere Default und + es wird "Nein" gemeldet (statt KeyError). Das ist die einzig moegliche + Aussage: Sivas kennt nur Ja/Nein, kein "unbekannt".""" + block = _strecke(1) + for tag in ("WINKEL_AS", "SEITE_AS", "WINKEL_ES", "SEITE_ES"): + del block["attribs"][tag] + details = export_sivas.build_gefaellestrecke_details(block) + assert details["4431"] == "Nein" + assert details["4432"] == "Nein" + assert details["4427"] == details["4428"] == "" + assert details["4429"] == details["4430"] == "" + + +def test_transform_mit_attribs_kontext(): + """Der @braucht_attribs-Transform muss das komplette Attribut-Dict sehen - + sonst koennte die Seite ihre Abhaengigkeit vom Winkel nicht pruefen.""" + assert getattr(export_sivas.as_seite, "braucht_attribs", False) + assert getattr(export_sivas.es_seite, "braucht_attribs", False) + assert not getattr(export_sivas.ja_nein, "braucht_attribs", False) + + mapping = {"4428": ("SEITE_AS", None, "", "as_seite")} + attribs = {"SEITE_AS": "links", "WINKEL_AS": "90"} + assert sivas_mapping.anwenden(mapping, attribs, export_sivas.TRANSFORMS) \ + == {"4428": "links"} + attribs_ohne = {"SEITE_AS": "links", "WINKEL_AS": ""} + assert sivas_mapping.anwenden(mapping, attribs_ohne, export_sivas.TRANSFORMS) \ + == {"4428": ""} diff --git a/tests/test_hm_recformat.lsp b/tests/test_hm_recformat.lsp index 3347780..84a23bf 100644 --- a/tests/test_hm_recformat.lsp +++ b/tests/test_hm_recformat.lsp @@ -26,12 +26,14 @@ ;; also genau die Werte, mit denen die Ketten in BricsCAD gebaut wurden. ;; ;; JSON-Aufbau (FLACH, weil ssg-load-json zeilenweise liest - Details in -;; tests/testdata/object_data.md Abschnitt 8): +;; doc/json-input-lisp.md Abschnitt 6): ;; Kopf-Objekt (traegt "test_id"): test_id, anlagetyp, modus, ;; anzahl_eingaben, block, dxf_handle, startpunkt_mm, ;; rotation_grad, beschreibung, sivas_* , erwartung_hinweis ;; Eingabe-Objekt (traegt "typ"): point_abs | point_rel | real | int | -;; string | step - in exakter Frage-Reihenfolge +;; string | step | nil - in exakter Frage-Reihenfolge +;; ("nil" = Frage gestellt und bewusst uebergangen, z.B. +;; keine Zufuehrungsachse gewaehlt) ;; Ein Kopf-Objekt beginnt eine Kette, die folgenden Eingabe-Objekte gehoeren ;; dazu (hmrec:gruppiere). ;; @@ -291,6 +293,13 @@ (list (cons "STR" (hmrec:als-string (ssg-val e "wert"))))) ((= typ "step") (list (cons "STEP" (hmrec:als-string (ssg-val e "wert"))))) + ;; Eine Frage, die gestellt und bewusst uebergangen wurde (bisher nur die + ;; Zufuehrungsachse des AS-Elements, siehe ProtokollSink.as_achse in + ;; lib/vf_journal_export.py) - im Journal ein wertloser "NIL"-Eintrag. + ;; Er MUSS mitlaufen: beim Replay poppt ihn vfl-in-point, sonst zoege + ;; dieser Aufruf den naechsten Wert aus der Queue (Desync). + ((= typ "nil") + (list (cons "NIL" nil))) (T nil) ) ) diff --git a/tests/test_hm_recformat.py b/tests/test_hm_recformat.py index ddc91ed..278768c 100644 --- a/tests/test_hm_recformat.py +++ b/tests/test_hm_recformat.py @@ -12,7 +12,7 @@ Zwei Ebenen: Die Testdaten stammen aus lib/vf_journal_export.py (Journale der VF_n-Bloecke aus data/polylines.dxf, XDATA-App SSG_VF_EDIT) und nicht aus Handarbeit - -Schema siehe tests/testdata/object_data.md Abschnitt 8. +Schema siehe doc/json-input-lisp.md Abschnitt 6. """ import json diff --git a/tests/test_hundm05.lsp b/tests/test_hundm05.lsp index bf972ca..a794e32 100644 --- a/tests/test_hundm05.lsp +++ b/tests/test_hundm05.lsp @@ -53,7 +53,7 @@ ;; hundm05.json auch andere Objekte der Anlage stehen - erkennbar an ;; "function". Format wie in tests/testdata/kreisel_tests.json, damit die ;; Felder nicht zweimal beschrieben werden muessen (Schema: siehe -;; tests/testdata/object_data.md Abschnitt 1). +;; doc/json-input-lisp.md Abschnitt 1). ;; vsp-gruppieren ignoriert diese Objekte, sie stoeren die Ketten also nicht. ;; lib/vf_spec_export.py uebernimmt sie beim Neuerzeugen der Spec-Daten ;; unveraendert ans Dateiende (sonst waeren sie beim naechsten Lauf weg). @@ -61,7 +61,7 @@ ;; Unterstuetzt: Kreisel (function "insert", wie test_kreisel.lsp) und ;; beliebige eigenstaendige Bloecke ueber "block" (Separator/Scanner sowie ;; BTMT-Beladung/SC_Entladung, wie in mubea.json - Schema tests/testdata/ -;; object_data.md Abschnitt 5). Unterscheidung ueber das Feld "block": nur +;; json-input-lisp.md Abschnitt 2). Unterscheidung ueber das Feld "block": nur ;; Bloecke haben es, Kreisel-Eintraege nicht. hundm05:bau-sensor ist dabei ;; blockname-agnostisch (reiner _.INSERT), der "kind"-Wert "sensor" bleibt ;; als Sammelbegriff fuer "kein Kreisel" bestehen (siehe dort). @@ -125,7 +125,7 @@ "kreisel-insert-script lieferte nil")))))) ;; Separator/Scanner/BTMT-Beladung/SC_Entladung bauen ("block"-Eintraege, -;; siehe object_data.md Abschnitt 5). ils-insert-sensor/ils-insert-station +;; siehe json-input-lisp.md Abschnitt 2). ils-insert-sensor/ils-insert-station ;; (SSG_LIB_Commands.lsp) sind dafuer NICHT scriptbar (fragen Punkt/Rotation ;; per getpoint/pause in einer Schleife) - wir bauen den _.INSERT darum ;; direkt selbst nach, wie mubea:build-separator-one in tests/test_mubea.lsp diff --git a/tests/test_hundm05.py b/tests/test_hundm05.py index 403808e..b296610 100644 --- a/tests/test_hundm05.py +++ b/tests/test_hundm05.py @@ -180,7 +180,7 @@ class TestSpecBau: # ============================================================ # tests/testdata/hundm05.json enthaelt neben den Ketten auch andere Objekte # der Anlage - Format wie tests/testdata/kreisel_tests.json (Schema in -# tests/testdata/object_data.md Abschnitt 1). Gebaut werden sie von +# doc/json-input-lisp.md Abschnitt 1). Gebaut werden sie von # hundm05:bau-zusatzobjekte in tests/test_hundm05.lsp. class TestZusatzobjekte: diff --git a/tests/test_mubea.lsp b/tests/test_mubea.lsp index 982a6b6..9492e1f 100644 --- a/tests/test_mubea.lsp +++ b/tests/test_mubea.lsp @@ -140,7 +140,7 @@ ;; --- Vario (VF_*): L_GF/L_VF fuer gegebenes deltaL+deltaH+winkel loesen, dann bauen --- ;; deltaL ist (wie bei der Gefaellestrecke) die horizontale PROJIZIERTE ;; Gesamtlaenge des VF (Vorlauf L_GF1 + Foerderer L_VF + Nachlauf L_GF2 + -;; Boegen/AS-ES-Elemente), analog foerderer_tests.json/object_data.md 3.1 - +;; Boegen/AS-ES-Elemente), analog foerderer_tests.json/json-input-lisp.md 3 - ;; KEIN abgeleiteter Wert. "winkel" erzwingt einen bestimmten Bogenwinkel aus ;; der Kandidatenliste von berechne-alle-winkel (wie foerderer:winkel- ;; erzwingen in test_foerderer.lsp), statt den automatisch kleinsten @@ -295,7 +295,7 @@ ;; --- Eine einzelne Gefaellestrecke bauen (Modus 1) --- ;; Aufbau AUSSCHLIESSLICH aus Anfangspunkt (start-mm) und horizontaler ;; Gesamtlaenge deltaL - KEIN Endpunkt (wie Produktion/gefaellestrecke.dcl -;; Modus 1, siehe object_data.md 2.1). L_stau wird aus deltaL abgeleitet +;; Modus 1, siehe json-input-lisp.md 4.1). L_stau wird aus deltaL abgeleitet ;; (identische Formel wie test_gefaellestrecke.lsp): ;; L_stau = (deltaL - aus-dx - ein-dx - sep_x) / cos(v) ;; sep_x = 300 * cos(v), v = Element-Winkel (winkel_grad, Default 3 Grad) diff --git a/tests/test_unit.lsp b/tests/test_unit.lsp index 78a235e..e2c5ab1 100644 --- a/tests/test_unit.lsp +++ b/tests/test_unit.lsp @@ -399,6 +399,146 @@ ) +;; ------------------------------------------------------------ +;; TESTS: vf_linienzug.lsp - "Parallel zum Kreisel" (Rechenkerne) +;; ------------------------------------------------------------ +;; Die Bau-Funktion vfl-gf-parallel-kreisel braucht eine Zeichnung (sie misst +;; AS und Bogen an echten Bloecken); ihre beiden Rechenkerne sind davon frei +;; und stehen deshalb hier: +;; vfl-par-bogen-waehlen - welcher Bogen hebt den AS-Schwenk auf? +;; vfl-par-gf-laenge - wie lang wird das GF-Stueck dazwischen? +;; Die Plan-Turn-Werte unten sind die Vorzeichen-Konvention aus +;; vf-element-plan-turn (KS_EIN -> KS_AUS in der XY-Ebene, links positiv). +(defun tu-tests-vfl-parallel ( / _b30 _b60 _b90 _kand _l _plan _plan3 _g _p _w) + (princ "\n[vf_linienzug Parallel zum Kreisel]") + + ;; --- Bogenwahl: der Bogen muss den AS-Schwenk GENAU aufheben --- + ;; Rechts-Boegen schwenken negativ, Links-Boegen positiv. + (setq _b30 '(30 . -30.0) _b60 '(60 . -60.0) _b90 '(90 . -90.0)) + (setq _kand (list _b30 _b60 _b90)) + ;; AS links 30 Grad (Schwenk +30) -> 30-Grad-Bogen nach rechts + (tu-eq "vfl-par-bogen/as30-rechts" 30 (vfl-par-bogen-waehlen 30.0 _kand 2.0)) + ;; AS links 90 Grad (Schwenk +90) -> 90-Grad-Bogen nach rechts + (tu-eq "vfl-par-bogen/as90-rechts" 90 (vfl-par-bogen-waehlen 90.0 _kand 2.0)) + ;; Generisch: auch ein 60-Grad-Schwenk findet seinen Bogen - die Zuordnung + ;; folgt den gemessenen Bloecken, nicht einer gepflegten Tabelle. + (tu-eq "vfl-par-bogen/as60-rechts" 60 (vfl-par-bogen-waehlen 60.0 _kand 2.0)) + ;; kleine Messabweichung bleibt in der Toleranz + (tu-eq "vfl-par-bogen/toleranz-ok" 30 (vfl-par-bogen-waehlen 31.2 _kand 2.0)) + ;; ausserhalb der Toleranz: lieber nil als ein schiefer Bogen + (tu-nil "vfl-par-bogen/zu-weit-weg" (vfl-par-bogen-waehlen 45.0 _kand 2.0)) + (tu-nil "vfl-par-bogen/leere-liste" (vfl-par-bogen-waehlen 30.0 '() 2.0)) + ;; Gegenseite: Links-Boegen heben einen negativen AS-Schwenk auf + (setq _kand (list '(30 . 30.0) '(60 . 60.0) '(90 . 90.0))) + (tu-eq "vfl-par-bogen/as-rechts30-links" 30 (vfl-par-bogen-waehlen -30.0 _kand 2.0)) + + ;; --- GF-Laenge: abstand = perp-as + L*k + perp-bogen --- + ;; Glatter Fall: k = 1 (AS schwenkt 90 Grad aus der Achse), feste Anteile + ;; zusammen 500 -> fuer 2000 mm Abstand bleiben 1500 mm GF. + (tu-eqf "vfl-par-laenge/k1" 1500.0 (vfl-par-gf-laenge 2000.0 200.0 300.0 1.0)) + ;; Gegenseite: k negativ -> der Abstand zaehlt auf der anderen Seite, der + ;; Betrag der Eingabe bleibt derselbe (Seite kommt aus der AS-Variante). + (tu-eqf "vfl-par-laenge/k-negativ" 1500.0 + (vfl-par-gf-laenge 2000.0 -200.0 -300.0 -1.0)) + ;; Schraege Ausschleusung: k = sin(60 Grad) + (setq _l (vfl-par-gf-laenge 2000.0 0.0 0.0 (sin (/ (* 60.0 pi) 180.0)))) + (tu-eqf "vfl-par-laenge/k-sin60" (/ 2000.0 (sin (/ (* 60.0 pi) 180.0))) _l) + ;; Abstand kleiner als der feste Anteil -> negative Laenge (der Aufrufer + ;; meldet das als "Abstand zu klein", die Rechnung selbst raet nicht). + (tu-true "vfl-par-laenge/zu-klein-negativ" + (< (vfl-par-gf-laenge 100.0 200.0 300.0 1.0) 0.0)) + ;; AS schwenkt gar nicht aus der Achse -> keine Loesung + (tu-nil "vfl-par-laenge/kein-versatz" (vfl-par-gf-laenge 2000.0 0.0 0.0 0.0)) + + ;; --- Grenzen einer VF-Einheit (Modus 2) --- + ;; Zwischen Umlenk- und Motorstation: hoechstens 2 Vario-Kurven und 25 m. + ;; Plan-Eintraege: ("Linie" hz laenge ...) / ("Bogen" hz chord ...) - nur + ;; Typ und Laenge (3. Feld) zaehlen hier. + (setq _plan (list '("Linie" 0.0 9000.0 "VF") '("Bogen" 0.0 500.0) + '("Linie" 0.0 8000.0 "VF") '("Bogen" 0.0 500.0) + '("Linie" 0.0 6000.0 "VF"))) + ;; 24000 mm, 2 Kurven -> alles im Rahmen + (setq _g (vfl-m2-lauf-grenzen _plan 0 4 25000.0 2)) + (tu-eqf "vfl-m2-grenzen/laenge" 24000.0 (nth 0 _g)) + (tu-eq "vfl-m2-grenzen/kurven" 2 (nth 1 _g)) + (tu-nil "vfl-m2-grenzen/ok" (nth 2 _g)) + ;; Dritte Kurve -> an ihr (Index 5) teilen, obwohl die Laenge noch passt + (setq _plan3 (append _plan (list '("Bogen" 0.0 400.0) '("Linie" 0.0 300.0 "VF")))) + (tu-eq "vfl-m2-grenzen/dritte-kurve" 5 (nth 2 (vfl-m2-lauf-grenzen _plan3 0 6 25000.0 2))) + ;; Zu lang -> am ersten Bogen teilen, nach dem die Grenze reisst (Index 3: + ;; bis dahin sind 9000+500+8000 = 17500 drin, die Grenze liegt bei 15000). + (tu-eq "vfl-m2-grenzen/zu-lang" 3 (nth 2 (vfl-m2-lauf-grenzen _plan 0 4 15000.0 2))) + ;; Eine einzige lange Gerade: zu lang, aber kein Bogen zum Teilen -> -1 + (tu-eq "vfl-m2-grenzen/unteilbar" -1 + (nth 2 (vfl-m2-lauf-grenzen (list '("Linie" 0.0 30000.0 "VF")) 0 0 25000.0 2))) + + ;; --- Vorgabewert aus einem Prompt ziehen (Dialog-Feld vorbelegen) --- + ;; Die Konsolen-Prompts tragen ihre Vorgabe in Klammern; der Zahlen-Dialog + ;; liest sie daraus. Gesucht ist die LETZTE Klammergruppe MIT Zahl - die + ;; echten Texte enthalten davor "<" ohne Partner ("0 < Winkel <= 3") und + ;; runde Klammern mit Fliesstext, beides darf nicht stoeren. + (tu-eq "vflw-vorgabe/neigungswinkel" "3" + (vflw-vorgabe-aus-prompt "\nNeigungswinkel (Grad, 0 < Winkel <= 3) [3]: ")) + (tu-eq "vflw-vorgabe/neigungswinkel-berechnet" "3" + (vflw-vorgabe-aus-prompt + "\nNeigungswinkel (Grad, 0 < Winkel <= 3) [3] (deltaL wird berechnet und eingefuegt): ")) + (tu-eq "vflw-vorgabe/spitze-klammer" "2154.0" + (vflw-vorgabe-aus-prompt "\nGewuenschte Hoehe am Kettenanfang (mm) <2154.0>: ")) + (tu-eq "vflw-vorgabe/negativ" "-12.5" + (vflw-vorgabe-aus-prompt "Hoehendifferenz <-12.5>: ")) + ;; Ohne Klammergruppe bleibt das Feld leer (nil), nicht geraten. + (tu-nil "vflw-vorgabe/ohne-vorgabe" + (vflw-vorgabe-aus-prompt "\nAbstand zum Kreisel (mm, senkrecht zur Achse): ")) + (tu-nil "vflw-vorgabe/keine-zahl" + (vflw-vorgabe-aus-prompt "Bitte Namen eingeben [frei]: ")) + + ;; --- Modus-2-Lauf-Anfang: Journal-Wert normieren --- + ;; Die Antwort wird als selbstbeschreibender Wert gefuehrt, damit ein + ;; Umsortieren/Umnummerieren der Optionen bestehende Ketten nicht + ;; umdeutet. Alte Ketten tragen dort noch die Ziffern der ALTEN Folge - + ;; die Zuordnung dafuer steht als Tabelle in *vfl-m2-anfang-alt* und wird + ;; hier komplett durchlaufen, statt einzelne Faelle abzuschreiben. + (foreach _p *vfl-m2-anfang-alt* + (tu-eq (strcat "vfl-m2-anfang/alt-" (car _p)) + (cdr _p) (vfl-m2-anfang-norm (car _p)))) + ;; Jeder Tabellenwert muss auch ein gueltiger heutiger Wert sein - sonst + ;; laeuft eine Alt-Kette in den Unbekannt-Abbruch. + (foreach _p *vfl-m2-anfang-alt* + (tu-true (strcat "vfl-m2-anfang/alt-ziel-gueltig-" (car _p)) + (and (member (cdr _p) *vfl-m2-anfang-werte*) t))) + ;; Neue Werte gehen unveraendert durch. + (foreach _w *vfl-m2-anfang-werte* + (tu-eq (strcat "vfl-m2-anfang/neu-" _w) _w (vfl-m2-anfang-norm _w))) + ;; Unbekanntes wird NICHT geraten - nil heisst fuer den Aufrufer Abbruch. + (tu-nil "vfl-m2-anfang/unbekannte-ziffer" (vfl-m2-anfang-norm "4")) + (tu-nil "vfl-m2-anfang/leer" (vfl-m2-anfang-norm "")) + (tu-nil "vfl-m2-anfang/tippfehler" (vfl-m2-anfang-norm "mit_gf1")) + (tu-nil "vfl-m2-anfang/kein-string" (vfl-m2-anfang-norm 3)) + (tu-nil "vfl-m2-anfang/nil" (vfl-m2-anfang-norm nil)) + + ;; --- Rueckwaerts bauen: Punkt entgegen der Fahrtrichtung zuruecksetzen --- + ;; vfl-rueck-punkt ist der Rechenkern des Rueckwaerts-Baus: zu einem + ;; BEKANNTEN Endpunkt den Startpunkt eines Bausteins finden. Vorwaerts gilt + ;; P_next = P + (L*cos hz, L*sin hz, -L*tan w) - hier also mit umgekehrtem + ;; Vorzeichen. Die Hoehe muss STEIGEN (der Vorgaenger liegt hoeher). + (tu-eqf "vfl-rueck-punkt/ost-flach" + (list 0.0 0.0 0.0) (vfl-rueck-punkt '(1000.0 0.0 0.0) 0.0 1000.0 0.0)) + (tu-eqf "vfl-rueck-punkt/nord-flach" + (list 0.0 0.0 0.0) (vfl-rueck-punkt '(0.0 1000.0 0.0) 90.0 1000.0 0.0)) + ;; 45 Grad Gefaelle: 1000 mm horizontal zurueck = 1000 mm hoeher + (tu-eqf "vfl-rueck-punkt/45-grad" + (list 0.0 0.0 1000.0) (vfl-rueck-punkt '(1000.0 0.0 0.0) 0.0 1000.0 45.0)) + ;; Rundlauf: vorwaerts wieder auf den Ausgangspunkt (3 Grad, schraeg) + (setq _l (vfl-rueck-punkt '(5000.0 3000.0 1800.0) 30.0 2000.0 3.0)) + (tu-eqf "vfl-rueck-punkt/rundlauf-x" 5000.0 + (+ (car _l) (* 2000.0 (cos (/ (* 30.0 pi) 180.0))))) + (tu-eqf "vfl-rueck-punkt/rundlauf-y" 3000.0 + (+ (cadr _l) (* 2000.0 (sin (/ (* 30.0 pi) 180.0))))) + (tu-eqf "vfl-rueck-punkt/rundlauf-z" 1800.0 + (- (caddr _l) (* 2000.0 (/ (sin (/ (* 3.0 pi) 180.0)) (cos (/ (* 3.0 pi) 180.0)))))) +) + + ;; ------------------------------------------------------------ ;; TESTS: vf_linienzug.lsp - Laenge aus einer Ziellinie (X/Y) ;; ------------------------------------------------------------ @@ -446,6 +586,86 @@ (+ (cadr _ks) (sin (/ pi 6.0))) 0.0))) (tu-true "vfl-laenge-bis-ziellinie/realfall-plausibel" (and _l (> _l 1430.0) (< _l 1431.0))) + + ;; --- AS-Seite aus der Lage des naechsten Punkts zur Basislinie --- + ;; Basislinie zeigt nach +X; ein Ziel mit +Y liegt links davon, mit -Y rechts. + (tu-eq "vfl-seite-aus-lage/links" + "links" (vfl-seite-aus-lage '(0.0 0.0 0.0) '(1000.0 0.0 0.0) '(500.0 800.0 0.0))) + (tu-eq "vfl-seite-aus-lage/rechts" + "rechts" (vfl-seite-aus-lage '(0.0 0.0 0.0) '(1000.0 0.0 0.0) '(500.0 -800.0 0.0))) + ;; Richtung der Basislinie umdrehen -> Seite dreht mit + (tu-eq "vfl-seite-aus-lage/basislinie-umgedreht" + "rechts" (vfl-seite-aus-lage '(1000.0 0.0 0.0) '(0.0 0.0 0.0) '(500.0 800.0 0.0))) + ;; schraege Basislinie (45 Grad): Ziel oberhalb davon liegt links + (tu-eq "vfl-seite-aus-lage/schraeg" + "links" (vfl-seite-aus-lage '(0.0 0.0 0.0) '(1000.0 1000.0 0.0) '(0.0 1000.0 0.0))) + ;; Z spielt keine Rolle (rein planare Entscheidung) + (tu-eq "vfl-seite-aus-lage/z-ignoriert" + "rechts" (vfl-seite-aus-lage '(0.0 0.0 5000.0) '(1000.0 0.0 -200.0) '(500.0 -800.0 999.0))) + + ;; --- VF-Hoehe je SEGMENT (Attribut VF_HOEHE_m, Sivas 4433-4437) --- + ;; Ein Eintrag je GERADEM VF-Abschnitt: Mittelwert aus dessen KS_EIN und + ;; KS_AUS, in METERN mit 3 Nachkommastellen. Zwischen Umlenk- und + ;; Motorstation koennen mehrere Abschnitte liegen (auf/ab/horizontal), die + ;; Liste laeuft darum parallel zu L_VF_m und VF_WINKEL. + (vf-vfhoehe-reset) + (tu-eq "vf-vfhoehe/leer-nach-reset" "" (vfl-join-komma *vf-acc-vfhoehe*)) + + ;; 2000 mm und 3000 mm -> Mittel 2500 mm -> "2.500" + (vf-vfhoehe-segment 2000.0 3000.0) + (tu-eq "vf-vfhoehe/mittelwert-meter" "2.500" (vfl-join-komma *vf-acc-vfhoehe*)) + + ;; Drei Abschnitte wie im realen Block (L_VF_m hatte dort 3 Eintraege): + ;; horizontal, horizontal, steigend - alle drei bekommen einen Wert. + (vf-vfhoehe-reset) + (vf-vfhoehe-segment 2076.0 2076.0) ; horizontal + (vf-vfhoehe-segment 2076.0 2076.0) ; horizontal + (vf-vfhoehe-segment 2076.0 2600.0) ; steigend -> Mittel 2338 + (tu-eq "vf-vfhoehe/drei-abschnitte" + "2.076,2.076,2.338" (vfl-join-komma *vf-acc-vfhoehe*)) + + ;; Unvollstaendige Messung haengt NICHTS an - sonst verschoebe sich die + ;; Liste gegen L_VF_m und eine Hoehe landete beim falschen Foerderer. + (vf-vfhoehe-reset) + (vf-vfhoehe-segment 1000.0 2000.0) + (vf-vfhoehe-segment nil 3000.0) + (vf-vfhoehe-segment 4000.0 nil) + (tu-eq "vf-vfhoehe/unvollstaendig-ignoriert" "1.500" (vfl-join-komma *vf-acc-vfhoehe*)) + + ;; negative Hoehen (Kette unter Null) muessen durchgehen + (vf-vfhoehe-reset) + (vf-vfhoehe-segment -500.0 -1500.0) + (tu-eq "vf-vfhoehe/negativ" "-1.000" (vfl-join-komma *vf-acc-vfhoehe*)) + (vf-vfhoehe-reset) + + ;; vf-meter-3: GENAU 3 Nachkommastellen, unabhaengig von DIMZIN. + ;; (rtos x 2 3) allein kuerzt nachfolgende Nullen ("2.5", "-1") - real im + ;; Testlauf aufgetreten, deshalb eigene Formatierung. + (tu-eq "vf-meter-3/glatt" "2.500" (vf-meter-3 2500.0)) + (tu-eq "vf-meter-3/ganzzahlig" "3.000" (vf-meter-3 3000.0)) + (tu-eq "vf-meter-3/negativ" "-1.000" (vf-meter-3 -1000.0)) + (tu-eq "vf-meter-3/null" "0.000" (vf-meter-3 0.0)) + (tu-eq "vf-meter-3/drei-stellen" "1.234" (vf-meter-3 1234.0)) + + ;; --- SONDERFALL Standard/Etage: Hoehe ueber die GANZE Kette --- + ;; Nur ein Motor und nur ein gerader VF-Abschnitt, darum zaehlt dort + ;; AS-KS_EIN .. ES-KS_AUS statt des Segmentwerts (Nutzer-Vorgabe 2026-10-21). + (vf-vfhoehe-reset) + (vf-vfhoehe-kette 1000.0 3000.0) + (tu-eq "vf-vfhoehe-kette/mittelwert" "2.000" (vfl-join-komma *vf-acc-vfhoehe*)) + + ;; ERSETZT den beim Bau gesammelten Segmentwert, haengt ihn NICHT an - + ;; sonst stuenden fuer eine Standard-Anlage zwei Hoehen in der Liste. + (vf-vfhoehe-reset) + (vf-vfhoehe-segment 5000.0 5000.0) ; Segmentwert aus vfs-vf-koerper + (vf-vfhoehe-kette 1000.0 3000.0) + (tu-eq "vf-vfhoehe-kette/ersetzt-segmentwert" "2.000" (vfl-join-komma *vf-acc-vfhoehe*)) + + ;; fehlender Endpunkt -> lieber leer als geraten + (vf-vfhoehe-reset) + (vf-vfhoehe-kette 1000.0 nil) + (tu-eq "vf-vfhoehe-kette/ohne-endpunkt-leer" "" (vfl-join-komma *vf-acc-vfhoehe*)) + (vf-vfhoehe-reset) ) @@ -794,6 +1014,14 @@ (tu-eq "omni:filter/anzahl" 2 (length (omni:filter _lst "KurvenWinkel" 45))) (tu-eq "omni:filter/wert" 100 (cdr (assoc "Sivasnr" (car (omni:filter _lst "KurvenWinkel" 45))))) + + ;; Verbinder-Pfad: Backslashes normalisiert, abschliessender Trenner entfernt + (tu-eq "omni:verbinder-pfad/backslash" + "C:/x/data/omniflo/Verbinder/TV_W-W_kpl.dwg" + (omni:verbinder-pfad "C:\\x\\data" "TV_W-W_kpl")) + (tu-eq "omni:verbinder-pfad/trenner" + "C:/x/data/omniflo/Verbinder/VB_ENDP_AP.dwg" + (omni:verbinder-pfad "C:/x/data/" "VB_ENDP_AP")) ) @@ -2270,6 +2498,279 @@ ) ) +;; ------------------------------------------------------------ +;; TESTS: KettenFoerderer.lsp + ssg_ks_insert.lsp (KS-Orientierung) +;; ------------------------------------------------------------ +;; Reine Rechenkerne des Kettenfoerderers: Hoehenbilanz, Massstab, +;; Grenzpruefung, KS-Winkel. Alles ohne Zeichnung und ohne Blockdateien - +;; die zeichnungsabhaengigen Teile (kf-geometrie-messen, kf-kette-bauen) +;; brauchen BricsCAD und bleiben dem Befehl KF_KS_PRUEFEN vorbehalten. +(defun tu-tests-kf ( / _l _s _defs) + (princ "\n[KettenFoerderer]") + (if (not (car (atoms-family 1 '("KF-LAENGE-BERECHNEN")))) + (tu-record nil "KettenFoerderer-Modul geladen" + "KettenFoerderer.lsp nicht geladen - siehe tests/test_unit.scr") + (progn + ;; --- ks-winkel-normalisieren: auf -180..180 falten --- + (tu-eqf "ks-winkel-norm/190" -170.0 (ks-winkel-normalisieren 190.0)) + (tu-eqf "ks-winkel-norm/-190" 170.0 (ks-winkel-normalisieren -190.0)) + (tu-eqf "ks-winkel-norm/26" 26.0 (ks-winkel-normalisieren 26.0)) + (tu-eqf "ks-winkel-norm/360" 0.0 (ks-winkel-normalisieren 360.0)) + (tu-nil "ks-winkel-norm/nil" (ks-winkel-normalisieren nil)) + + ;; --- ks-xy-winkel: X-Achse eines KS-Eintrags (origin x-end y-end z-end) + (tu-eqf "ks-xy-winkel/entlang-X" 0.0 + (ks-xy-winkel '((0.0 0.0 0.0) (1.0 0.0 0.0) (0.0 2.0 0.0) (0.0 0.0 3.0)))) + (tu-eqf "ks-xy-winkel/entlang-Y" 90.0 + (ks-xy-winkel '((0.0 0.0 0.0) (0.0 1.0 0.0) (-2.0 0.0 0.0) (0.0 0.0 3.0)))) + ;; versetzter Ursprung: nur die RICHTUNG zaehlt, nicht die Lage + (tu-eqf "ks-xy-winkel/versetzt-45" 45.0 + (ks-xy-winkel (list '(100.0 50.0 0.0) '(101.0 51.0 0.0) '(99.0 51.0 0.0) '(100.0 50.0 1.0)))) + ;; senkrechte X-Achse (keine XY-Laenge) -> nil statt Division durch 0 + (tu-nil "ks-xy-winkel/senkrecht" + (ks-xy-winkel '((0.0 0.0 0.0) (0.0 0.0 1.0) (0.0 2.0 0.0) (0.0 0.0 3.0)))) + + ;; --- kf-hz-folge: Folgebaustein an KS_AUS des Vorgaengers ausrichten --- + ;; Vorgaenger zeigt 26 Grad, Folgebaustein ist waagerecht gezeichnet (0) + (tu-eqf "kf-hz-folge/26-auf-0" 26.0 (kf-hz-folge 26.0 0.0)) + ;; Folgebaustein ist selbst schon um 26 Grad gezeichnet -> keine Drehung + (tu-eqf "kf-hz-folge/26-auf-26" 0.0 (kf-hz-folge 26.0 26.0)) + ;; fehlende Eigenrichtung -> Baustein uebernimmt die Vorgaengerrichtung + (tu-eqf "kf-hz-folge/ohne-beta" 26.0 (kf-hz-folge 26.0 nil)) + (tu-nil "kf-hz-folge/ohne-phi" (kf-hz-folge nil 0.0)) + + ;; --- kf-dy-eingebaut: Hoehenbeitrag nach Rz(hz) und X-Massstab --- + ;; waagerechter Baustein, waagerecht eingebaut -> kein Hoehengewinn + (tu-eqf "kf-dy/0-grad" 0.0 (kf-dy-eingebaut 1000.0 0.0 0.0 1.0)) + ;; 1000 mm unter 30 Grad -> 500 mm (sin 30 = 0.5) + (tu-eqf "kf-dy/30-grad" 500.0 (kf-dy-eingebaut 1000.0 0.0 30.0 1.0)) + ;; derselbe Baustein doppelt skaliert -> doppelter Hoehengewinn + (tu-eqf "kf-dy/30-grad-skaliert-2" 1000.0 (kf-dy-eingebaut 1000.0 0.0 30.0 2.0)) + ;; senkrecht eingebaut -> die volle Laenge als Hoehe + (tu-eqf "kf-dy/90-grad" 1000.0 (kf-dy-eingebaut 1000.0 0.0 90.0 1.0)) + + ;; --- kf-laenge-berechnen: Hoehenbilanz nach der Laenge aufloesen --- + ;; H=1000, Stationen tragen nichts bei, 30 Grad -> L = 1000/sin30 = 2000 + (tu-eqf "kf-laenge/30-grad-glatt" 2000.0 + (kf-laenge-berechnen 1000.0 0.0 0.0 0.0 30.0)) + ;; Stationen tragen 100+150 bei -> nur 750 mm bleiben fuer das Stueck + (tu-eqf "kf-laenge/mit-stationen" 1500.0 + (kf-laenge-berechnen 1000.0 100.0 150.0 0.0 30.0)) + ;; Gegenprobe: die errechnete Laenge ergibt wieder genau H + (setq _l (kf-laenge-berechnen 1000.0 100.0 150.0 0.0 30.0)) + (tu-eqf "kf-laenge/rundlauf-ergibt-H" 1000.0 + (+ 100.0 150.0 (kf-dy-eingebaut _l 0.0 30.0 1.0))) + ;; bereits geneigt gezeichnetes Zwischenstueck: dy-nativ wird abgezogen + ;; (dy-nativ skaliert NICHT mit, nur X wird skaliert) + (tu-eqf "kf-laenge/mit-dy-nativ" 1800.0 + (kf-laenge-berechnen 1000.0 0.0 0.0 (/ 100.0 (cos (/ pi 6.0))) 30.0)) + ;; waagerecht -> keine Hoehe erreichbar + (tu-nil "kf-laenge/0-grad-unloesbar" + (kf-laenge-berechnen 1000.0 0.0 0.0 0.0 0.0)) + + ;; --- kf-skala-berechnen --- + (tu-eqf "kf-skala/2000-von-1000" 2.0 (kf-skala-berechnen 2000.0 1000.0)) + (tu-nil "kf-skala/ohne-nativlaenge" (kf-skala-berechnen 2000.0 0.0)) + (tu-nil "kf-skala/ohne-laenge" (kf-skala-berechnen nil 1000.0)) + + ;; --- kf-laenge-pruefen: Grenzen aus der JSON --- + (tu-nil "kf-pruefen/in-ordnung" (kf-laenge-pruefen 2000.0 100.0 20000.0)) + (tu-eq "kf-pruefen/zu-kurz" "kf-fehler-laenge-unter-min" + (kf-laenge-pruefen 50.0 100.0 20000.0)) + (tu-eq "kf-pruefen/zu-lang" "kf-fehler-laenge-ueber-max" + (kf-laenge-pruefen 99999.0 100.0 20000.0)) + ;; negative Laenge = Stationen bringen mehr Hoehe mit als gefordert + (tu-eq "kf-pruefen/negativ" "kf-fehler-hoehe-zu-klein" + (kf-laenge-pruefen -10.0 100.0 20000.0)) + (tu-eq "kf-pruefen/nil" "kf-fehler-winkel-null" + (kf-laenge-pruefen nil 100.0 20000.0)) + + ;; --- kf-zahl: JSON-Wert als Zahl (Parser liefert Zahl ODER String) --- + (tu-eqf "kf-zahl/int" 26.0 (kf-zahl 26)) + (tu-eqf "kf-zahl/real" 26.0 (kf-zahl 26.0)) + (tu-eqf "kf-zahl/string" 26.0 (kf-zahl "26")) + (tu-nil "kf-zahl/nil" (kf-zahl nil)) + + ;; --- kf-attrib-defs: VF-Schema + KF-Zusatz, KEIN Tag doppelt --- + (setq _defs (kf-attrib-defs)) + (tu-true "kf-attrib-defs/hat-ID" (assoc "ID" _defs)) + (tu-true "kf-attrib-defs/hat-FOERDERERTYP" (assoc "FOERDERERTYP" _defs)) + (tu-true "kf-attrib-defs/hat-WINKEL" (assoc "WINKEL" _defs)) + (tu-true "kf-attrib-defs/hat-STANDARD_STEUERUNG" + (assoc "STANDARD_STEUERUNG" _defs)) + ;; Reihenfolge wie im Sivas-Merkmalstamm: 361 folgt direkt auf den Typ, + ;; STANDARD_STEUERUNG steht also unmittelbar hinter WINKEL + (tu-eq "kf-attrib-defs/361-folgt-auf-winkel" "STANDARD_STEUERUNG" + (car (nth (1+ (kf-tag-index "WINKEL" _defs)) _defs))) + ;; FOERDERERTYP ist die BAUART im Klartext, der Winkel steht in WINKEL + (tu-eq "kf-attrib-defs/FOERDERERTYP-ist-bauart" "Schraegfoerderer Stahl" + (cadr (assoc "FOERDERERTYP" _defs))) + (tu-true "kf-attrib-defs/hat-MOVIMOT" (assoc "MOVIMOT" _defs)) + ;; Farbe und Antriebsmotor sind ZWEI Eigenschaften (Sivas 354 bzw. 355), nicht + ;; ein kombiniertes AUSFUEHRUNG-Attribut + (tu-true "kf-attrib-defs/hat-FARBE" (assoc "FARBE" _defs)) + (tu-true "kf-attrib-defs/hat-ANTRIEBSMOTOR" (assoc "ANTRIEBSMOTOR" _defs)) + (tu-nil "kf-attrib-defs/kein-AUSFUEHRUNG" (assoc "AUSFUEHRUNG" _defs)) + ;; Der Kettenfoerderer traegt sich selbst - die Geruest-Tags aus dem + ;; VF-Schema werden bewusst NICHT mitgefuehrt + (tu-nil "kf-attrib-defs/kein-GERUEST_EINZELMODUL" + (assoc "GERUEST_EINZELMODUL" _defs)) + (tu-nil "kf-attrib-defs/kein-GERUEST_TYP" (assoc "GERUEST_TYP" _defs)) + ;; TYP/ARTINR stehen in BEIDEN Listen - der Zusatz muss gewinnen, und + ;; der Tag darf nur EINMAL vorkommen (zwei ATTDEFs gleichen Tags waeren + ;; im Block ungueltig, ssg-attrib-set-on traefe nur den ersten). + (tu-eq "kf-attrib-defs/TYP-ueberschrieben" "Kettenfoerderer" + (cadr (assoc "TYP" _defs))) + (setq _s 0) + (foreach _d _defs (if (= (car _d) "TYP") (setq _s (1+ _s)))) + (tu-eq "kf-attrib-defs/TYP-nur-einmal" 1 _s) + (setq _s 0) + (foreach _d _defs (if (= (car _d) "ARTINR") (setq _s (1+ _s)))) + (tu-eq "kf-attrib-defs/ARTINR-nur-einmal" 1 _s) + ;; Der Winkel steht ALLEIN in FOERDERERTYP - kein zweites Winkel-Tag + (tu-nil "kf-attrib-defs/kein-KF_WINKEL" (assoc "KF_WINKEL" _defs)) + (tu-nil "kf-attrib-defs/kein-KF_TYP" (assoc "KF_TYP" _defs)) + ;; Das Schema ist EIGENSTAENDIG, nicht vom VF-Streckenschema geerbt - + ;; keines der VF-Tags darf durchschlagen + (tu-nil "kf-attrib-defs/kein-SEITE_AS" (assoc "SEITE_AS" _defs)) + (tu-nil "kf-attrib-defs/kein-ANZAHL_VF" (assoc "ANZAHL_VF" _defs)) + (tu-nil "kf-attrib-defs/kein-TEILEART" (assoc "TEILEART" _defs)) + (tu-eq "kf-attrib-defs/LAYER-ist-F-3" "F-3" (cadr (assoc "LAYER" _defs))) + + ;; --- kf-variante-finden: ueber den Winkel, auch als String --- + (tu-eq "kf-variante-finden/26" "A" + (cdr (assoc "name" + (kf-variante-finden 26 + '((("winkel" . 26) ("name" . "A")) + (("winkel" . 30) ("name" . "B"))))))) + (tu-eq "kf-variante-finden/30-als-string" "B" + (cdr (assoc "name" + (kf-variante-finden 30 + '((("winkel" . "26") ("name" . "A")) + (("winkel" . "30") ("name" . "B"))))))) + (tu-nil "kf-variante-finden/unbekannt" + (kf-variante-finden 45 '((("winkel" . 26) ("name" . "A"))))) + + ;; --- kf-antriebsart (Merkmal 357): Dropdown mit EINER Option --- + ;; Der Wert kommt aus dem ERSTEN Listeneintrag - nicht aus dem Code. + (tu-eq "kf-antriebsart/aus-daten" "1.1 kW" + (kf-antriebsart '(("antriebsart" (("name" . "1.1 kW") ("wert" . "1.1 kW")))))) + ;; eine zweite Option aendert die Vorgabe NICHT (Index 0 bleibt massgebend) + (tu-eq "kf-antriebsart/erster-eintrag-gewinnt" "1.1 kW" + (kf-antriebsart '(("antriebsart" (("name" . "1.1 kW") ("wert" . "1.1 kW")) + (("name" . "0.55 kW") ("wert" . "0.55 kW")))))) + ;; Liste fehlt -> Rueckfall, aber als STRING (nicht T/nil) + (tu-eq "kf-antriebsart/ohne-eintrag" "1.1 kW" (kf-antriebsart '(("titel" . "x")))) + (tu-true "kf-antriebsart/ist-string" + (= (type (kf-antriebsart '(("titel" . "x")))) 'STR)) + ;; Dezimalpunkt, kein Komma (Nutzervorgabe) + (tu-nil "kf-antriebsart/kein-komma" + (vl-string-search "," (kf-antriebsart '(("titel" . "x"))))) + + ;; --- kf-drehung-gesamt: Drehwinkel fuer KF_EDIT --- + ;; Regression: der Drehwinkel wird beim Bau in die Geometrie eingerechnet, + ;; die Blockreferenz selbst hat IMMER Drehung 0 (ssg-block-wrap-welt). + ;; KF_EDIT las nur Gruppencode 50 und baute eine mit 90 Grad gebaute + ;; Kette ungedreht neu. Der gebaute Winkel steht jetzt als XDATA. + (tu-eqf "kf-drehung/nur-xdata" 90.0 (kf-drehung-gesamt 90.0 0.0)) + ;; Referenz nachtraeglich von Hand um 90 Grad gedreht (Gruppencode 50 in + ;; Bogenmass) -> beides addiert sich + (tu-eqf "kf-drehung/xdata-plus-referenz" 180.0 + (kf-drehung-gesamt 90.0 (/ pi 2.0))) + ;; Altbestand ohne XDATA: nur die Referenzdrehung (bisheriges Verhalten) + (tu-eqf "kf-drehung/ohne-xdata" 45.0 (kf-drehung-gesamt nil (/ pi 4.0))) + ;; nichts bekannt -> 0, kein Absturz und kein nil + (tu-eqf "kf-drehung/nichts" 0.0 (kf-drehung-gesamt nil nil)) + (tu-true "kf-drehung/ist-zahl" (numberp (kf-drehung-gesamt nil nil))) + ;; Summe ueber 180 Grad wird auf -180..180 gefaltet (270 = -90) + (tu-eqf "kf-drehung/normalisiert" -90.0 + (kf-drehung-gesamt 180.0 (/ pi 2.0))) + ;; ganze Zahl aus der XDATA (nicht real) darf nicht abstuerzen + (tu-eqf "kf-drehung/ganzzahl" 30.0 (kf-drehung-gesamt 30 0.0)) + + ;; --- kf-neigung-aus-punkten: Kern der 3D-Aufrichtung --- + ;; Liefert (Schraeglaenge Neigungswinkel) aus Ketten-Start und -Ende. + ;; Die Kette wird AUFGERICHTET eingebaut, die Hoehe laeuft also in Z. + ;; 3-4-5-Dreieck: 3000 waagerecht, 4000 hoch -> 5000 schraeg + (tu-eqf "kf-neigung/3-4-5-laenge" 5000.0 + (car (kf-neigung-aus-punkten '(0.0 0.0 0.0) '(3000.0 0.0 4000.0) 0.0))) + ;; 45 Grad: gleiche Betraege waagerecht und hoch + (tu-eqf "kf-neigung/45-grad" 45.0 + (cadr (kf-neigung-aus-punkten '(0.0 0.0 0.0) '(1000.0 0.0 1000.0) 0.0))) + ;; waagerecht -> Winkel 0, Laenge = Horizontalabstand + (tu-eqf "kf-neigung/waagerecht" '(2000.0 0.0) + (kf-neigung-aus-punkten '(0.0 0.0 0.0) '(2000.0 0.0 0.0) 0.0)) + ;; Der Horizontalanteil wird auf die KETTENRICHTUNG projiziert, nicht + ;; auf die Welt-X-Achse: bei 90 Grad Basisdrehung laeuft die Kette in Y. + ;; Ohne Projektion kaeme hier 0 heraus und der Winkel waere 90 statt 45. + (tu-eqf "kf-neigung/gedreht-90" '(1414.213562 45.0) + (kf-neigung-aus-punkten '(0.0 0.0 0.0) '(0.0 1000.0 1000.0) 90.0)) + ;; fallende Kette -> negativer Winkel + (tu-eqf "kf-neigung/fallend" -45.0 + (cadr (kf-neigung-aus-punkten '(0.0 0.0 1000.0) '(1000.0 0.0 0.0) 0.0))) + ;; Start = Ende -> nil statt Division durch 0 + (tu-nil "kf-neigung/nulllaenge" + (kf-neigung-aus-punkten '(5.0 5.0 5.0) '(5.0 5.0 5.0) 0.0)) + + ;; --- kf-matrix-aufrecht: Y_lokal wird zu Z_welt --- + ;; Das ist die Kernaussage der Aufrichtung. Geprueft wird sie an den + ;; Bildern der Einheitsvektoren, nicht an den Matrixeintraegen - so + ;; bleibt der Test lesbar und unabhaengig von der Schreibweise. + (tu-eqf "kf-matrix/Y-lokal-wird-Z-welt" '(0.0 0.0 1.0) + (mat3-mul-vec3 (kf-matrix-aufrecht 0.0 0.0) '(0.0 1.0 0.0))) + ;; Die Fahrtrichtung (X) bleibt bei Basisdrehung 0 die Welt-X-Achse + (tu-eqf "kf-matrix/X-bleibt-X" '(1.0 0.0 0.0) + (mat3-mul-vec3 (kf-matrix-aufrecht 0.0 0.0) '(1.0 0.0 0.0))) + ;; Basisdrehung 90 Grad dreht die Fahrtrichtung in die Welt-Y-Achse, + ;; die Hoehe bleibt dabei in Z + (tu-eqf "kf-matrix/basis-90-dreht-X-nach-Y" '(0.0 1.0 0.0) + (mat3-mul-vec3 (kf-matrix-aufrecht 90.0 0.0) '(1.0 0.0 0.0))) + (tu-eqf "kf-matrix/basis-90-haelt-Z" '(0.0 0.0 1.0) + (mat3-mul-vec3 (kf-matrix-aufrecht 90.0 0.0) '(0.0 1.0 0.0))) + + ;; --- Standard-Variante: steht in den DATEN, nicht im Code --- + (tu-true "kf-variante-standard-p/markiert" + (kf-variante-standard-p '(("winkel" . 26) ("standard" . T)))) + (tu-nil "kf-variante-standard-p/ohne-feld" + (kf-variante-standard-p '(("winkel" . 30)))) + ;; Index fuer die Vorauswahl - auch wenn der Standard NICHT der erste ist + (tu-eq "kf-standard-index/zweiter" 1 + (kf-standard-index '((("winkel" . 26)) + (("winkel" . 30) ("standard" . T))))) + (tu-eq "kf-standard-index/erster" 0 + (kf-standard-index '((("winkel" . 26) ("standard" . T)) + (("winkel" . 30))))) + ;; keine Variante markiert -> erste, statt nil (der Dialog braucht einen Index) + (tu-eq "kf-standard-index/keiner" 0 + (kf-standard-index '((("winkel" . 26)) (("winkel" . 30))))) + + ;; --- kf-punkt-differenzen: zweite Hoehen-Eingabeart (2 Punkte) --- + ;; Gemessen wird die Differenz in Z - die Baugruppe steht aufgerichtet im + ;; Modell. Zurueckgegeben wird (dz dy): die HOEHE zuerst, dY nur zur + ;; Kontrolle (wer in einer Draufsicht pickt, sieht dz = 0). + (tu-eqf "kf-punkt-diff/dz" '(1500.0 0.0) + (kf-punkt-differenzen '(0.0 0.0 0.0) '(2000.0 0.0 1500.0))) + ;; Vorzeichen egal - die Reihenfolge der Punkte darf keine Rolle spielen + (tu-eqf "kf-punkt-diff/umgekehrt" '(1500.0 0.0) + (kf-punkt-differenzen '(2000.0 0.0 1500.0) '(0.0 0.0 0.0))) + ;; in einer Draufsicht gepickt: dz = 0, dY gross + (tu-eqf "kf-punkt-diff/draufsicht" '(0.0 1200.0) + (kf-punkt-differenzen '(0.0 0.0 0.0) '(3000.0 1200.0 0.0))) + ;; Punkte ohne Z (2D-Pick) duerfen nicht abstuerzen: dz ist dann 0 + (tu-eqf "kf-punkt-diff/ohne-z" '(0.0 800.0) + (kf-punkt-differenzen '(0.0 0.0) '(100.0 800.0))) + (tu-nil "kf-punkt-diff/nil" (kf-punkt-differenzen nil '(1.0 2.0 3.0))) + + ;; --- kf-auswahl-wert: "wert" vor "name", Vorgabe bei leerem Index --- + (tu-eq "kf-auswahl-wert/wert" "Nein" + (kf-auswahl-wert '((("name" . "Nein") ("wert" . "Nein"))) 0 "X")) + (tu-eq "kf-auswahl-wert/ausserhalb" "X" + (kf-auswahl-wert '((("name" . "Nein") ("wert" . "Nein"))) 5 "X")) + ) + ) +) + + (defun c:TEST_UNIT ( / out-dir report) (tu-reset) (princ "\n================================================================") @@ -2277,11 +2778,12 @@ (princ "\n================================================================") (foreach fn '("tu-tests-core" "tu-tests-lang" "tu-tests-id" "tu-tests-vfcore" - "tu-tests-etage" "tu-tests-vfl-es" "tu-tests-vfl-ziellinie" + "tu-tests-etage" "tu-tests-vfl-es" "tu-tests-vfl-parallel" + "tu-tests-vfl-ziellinie" "tu-tests-export" "tu-tests-hoehen" "tu-tests-gf" "tu-tests-omni" "tu-tests-kreisel" "tu-tests-kreisel-bp" "tu-tests-sepliste" "tu-tests-json" "tu-tests-geruest" "tu-tests-sepscan" "tu-tests-vfl-segs" "tu-tests-vfl-abbruch" - "tu-tests-werkzeuge") + "tu-tests-werkzeuge" "tu-tests-kf") (tu-run-block fn)) (princ "\n\n----------------------------------------------------------------") diff --git a/tests/test_unit.scr b/tests/test_unit.scr index 8660b4d..871cc6d 100644 --- a/tests/test_unit.scr +++ b/tests/test_unit.scr @@ -10,6 +10,7 @@ ; Modul, gehoert dessen load-Zeile HIER dazu (nicht in test_unit.lsp). (load (strcat (getenv "DXFM_LISP") "/GeruestInsert.lsp") "GeruestInsert.lsp nicht gefunden") (load (strcat (getenv "DXFM_LISP") "/count_sep_scan.lsp") "count_sep_scan.lsp nicht gefunden") +(load (strcat (getenv "DXFM_LISP") "/KettenFoerderer.lsp") "KettenFoerderer.lsp nicht gefunden") (load (strcat (getenv "DXFMAKRO") "/tests/test_unit.lsp")) (c:TEST_UNIT) (command "_.QUIT")