diff --git a/CLAUDE.md b/CLAUDE.md index 233156b..a25bfad 100644 --- a/CLAUDE.md +++ b/CLAUDE.md @@ -73,9 +73,11 @@ 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 | @@ -83,7 +85,7 @@ Die `start_briscad.bat` ruft `setenv.bat` auf und startet BricsCAD. | 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, LG_*->lg-edit-ent) | +| 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, LG_*->lg-edit-ent) | ### Entfernte Legacy-Dateien @@ -98,7 +100,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). **Polygon-Helfer** (2D, rein, `tu-tests-poly`): `ssg-poly-flaeche`/`-umfang`/`-kanten`/`-bbox`/`-drehen`, `ssg-punkt-in-poly-p`, `ssg-punkt-drehen`, `ssg-poly-schnitt-y` (innere Abschnitte einer Waagrechten, halboffene Kantenregel), `ssg-poly-flaeche-signiert` (Umlaufsinn), `ssg-poly-clip-y`/`ssg-poly-band-x` (x-Ausdehnung im Band, Kantenberuehrung zaehlt nicht), `ssg-intervalle-schnitt`/`-minus`; dazu `ssg-lwpoly-punkte` (WCS, Erhebung) und `ssg-lwpoly-boegen-p`. **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 | @@ -108,14 +110,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) - er laeuft dafuer unter `*vfl-headless*`, laesst den ALTEN Block bis zum erfolgreichen Neubau stehen (Erfolg = neuer `VF_*`-INSERT nach der Startmarke; sonst raeumt `vfl-konvert-aufraeumen` die Teil-Geometrie weg) und sammelt die Gruende in `*vfl-konvert-fehler*`, die `SSG_DIM_ALL_2D`/`_3D` am Ende auflistet. 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 (`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, 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) | +| `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) | | `LagerInsert.lsp` | LG_GESCHOSS, LG_GESCHOSS_AKTIV, LG_GESCHOSS_KOPIEREN, LG_BEREICH, LG_REIHE, LG_GANG, LG_EDIT, LG_REGALE, LAGER_EXPORT, LAGER_HAND_YAML | Lagerplanung GOH-Buehnenlager -> RFQ-YAML (Phase 0+1: Mengen, 2D; Konzept/Schema/YAML-Zuordnung in `doc/plan/lager_rfq.md`). Bloecke `LG_GESCHOSS` (Kopfsymbol, XDATA `SSG_LG` `kontur` -> Belagskontur), `LG_BEREICH` (Kontur + Parameter, fuellt sich selbst), `LG_REIHE__`/`LG_GANG___` (Definition je Geometrie wiederverwendet, Werte in den Attributen der Referenz; Kinder tragen XDATA `bereich`; der Belag steht im Gang-Blocknamen, weil die Definition seine Schraffur enthaelt - Muster aus `lager.json belag_schraffur`, per `vla-AddHatch` auf Layer 0/VONBLOCK, `hallenboden` ohne; BricsCAD-`iso.pat` kennt kein `NET`, Gitterrost = `GRID`). Alle tragen `ID`, `GESCHOSS`, `LAYER`. Blockdefinitionen per `entmake` (BLOCK...ENDBLK), Einfuegen per `vla-InsertBlock` in WCS - kein `_.-BLOCK`/`_.INSERT`. **Attribut-Tags haben gemischte Schreibweise** (`HOEHE_BELAG_mm`) - beim Setzen ueber `vla-get-TagString` daher case-insensitiv zuordnen (`lg-wert-fuer-tag`), sonst bleiben diese Attribute still leer (realer Fehler beim Bau). Layer je Geschoss = Basis aus `cfg/layer.cfg [lager]` + `_G`; `LG_GESCHOSS_AKTIV` friert die uebrigen (2D-Grundrisse liegen uebereinander), aktives Geschoss als `vlax-ldata` (Dictionary `SSG_LAGER`). Geschosszuordnung `lg-geschoss-fuer-punkt-kern`: eine Kontur -> eindeutig, mehrere nur ueber Z unterscheidbar, wenn die Konturen auf verschiedenen Hoehen liegen (3D), sonst nil. Jede Kontur gehoert genau einem Block (vergebene Kontur wird kopiert). Auto-Fuellung `lg-fuellung-berechnen` (reiner Kern, Muster Reihe|Gang|Reihe Ruecken an Ruecken bzw. Reihe|Gang, nur volle Module, Streifen an Unter-/Mittel-/Oberkante gegen die Kontur geschnitten, Quergaenge ausgerichtet und nicht am Reihenende); Bereichs-Edit = Neuaufbau aller Kinder. **Randgaenge** `RANDGANG_N/O/S/W_mm` (Nord = +Y Welt) laufen entlang der echten Konturkanten (`lg-randgang-streifen`, Himmelsrichtung der Aussennormale ueber `lg-kompass`, auch L-Form; Ecken: N/S besitzen sie - konvex O/W kuerzen, einspringend N/S verlaengern) und werden wie manuelle Gaenge (`LG_GANG`, `QUELLE=manuell`, Kern `lg-gang-einfuegen`; per Linie oder Option `Rechteck` = Flaeche mit dem echten BricsCAD-Befehl RECHTECK gezeichnet, inkl. aller seiner Optionen (`lg-rechteck-zeichnen`: `_.RECTANG` + `(command pause)`-Schleife bei CMDECHO 1, Polylinie danach ueber `lg-rechteck-ecken-aus-poly` gelesen und geloescht; nur 4 Ecken ohne Boegen, sonst Meldung), Breite/Lage aus dem Rechteck ueber `lg-gang-aus-ecken`, Schleife `lg-linien-schleife` mit `rechteck-fn`) als **Sperrflaechen** aus Reihen/Haupt-/Quergaengen ausgeschnitten (`ssg-poly-band-x`). **Von Hand Gesetztes loest KEINE Neuberechnung aus**: `LG_REIHE`/`LG_GANG` (`lg-manuell-einfuegen`) und das Bearbeiten einer Reihe/eines Gangs (`lg-linie-neu-aufbauen-sperre`) schneiden nur die eigene Flaeche aus den rangniedrigeren Objekten heraus (`lg-sperre-anwenden`, reiner Kern `lg-linie-zuschnitt`; Rang `lg-quelle-rang`: auto < auto_geaendert < manuell) - frueher fuellte ein manueller Gang den ganzen Bereich neu, dabei kamen geloeschte Objekte zurueck und geaenderte wurden ersetzt. Die ausdrueckliche Neuberechnung (`lg-bereich-fuellen`, Bereich bearbeiten) entfernt nur `QUELLE=auto`; `manuell`/`auto_geaendert`-Kinder und unverknuepfte manuelle Objekte in der Kontur (`lg-manuelle-in-kontur`) bleiben und sperren ihre Flaeche. `lg-blockdef` ergaenzt bei Altbestand fehlende ATTDEFs (Neudefinition + `_.ATTSYNC`). `LAGER_EXPORT` schreibt `_lager_raw.json` (eigener JSON-Schreiber `lg-json-*`), zaehlt `goh_rack` ueber die eigene Erkennung `lg-racks-sammeln`/`lg-racks-finden` mit (parametrischer BricsCAD-Block: Name ueber `getpropertyvalue "EffectiveName"`, Parameter `Laenge`/`Ebenen` als MCAD-Eigenschaft `~MCAD` vor dynamischer Eigenschaft vor Attribut vor ATTDEF-Vorgabe, Einheit -> mm per `lg-zahl-einheit`; auch in assoziativen Arrays, MINSERT-Rastern und verschachtelten Bloecken, Transformationen `lg-insert-tf`/`lg-tf-verketten`; Ergebnis je Rack `(name laenge ebenen mitte top-ent)`, Zugriff `lg-rk-*`; Befehl `LG_REGALE` (Menue Lager -> Regale zaehlen) zeigt Anzahl, Laenge und Laenge x Ebenen je Geschoss in der Befehlszeile, reiner Kern `lg-racks-auswerten`) und ruft `lib/lager_yaml_export.py` ueber `export:run-python`. Vorgaben aus `data/json/lager.json`. Dialoge `dcl/lager.dcl` ueber den generischen Treiber `lg-dialog` (Feldlisten `*lg-felder-*`, Konsolen-Rueckfall `lg-konsole`, ohne GUI Vorgaben). **Geschoss kopieren** (`LG_GESCHOSS_KOPIEREN`, Dialog `lg_geschoss_kopie`, Kern `lg-geschosse-kopieren`): Quelle (Vorgabe oberstes Geschoss, Erweitern G3 -> G4), Anzahl, Geschosshoehe je Kopie, Belag, Versatz X/Y je Kopie (0 = deckungsgleich; 3D-Zeichnung zusaetzlich +Z). Kein BricsCAD-KOPIEREN (XDATA-Verweise zeigten aufs Original): jedes Objekt entsteht ueber die normalen Einfuegefunktionen neu (`lg-geschoss-anlegen`, `lg-bereich-block-anlegen` = Bereich ohne Fuellung, `lg-linie-einfuegen`), Kinder 1:1 inkl. `auto_geaendert`/manuell, kein Neufuellen; Belaege gleich dem Quell-Geschossbelag folgen dem neuen (`lg-kopie-belag`). goh_rack per `vla-Copy` auf `lg-layer "goh_rack" `; Originale ohne `_G`-Layer werden auf den Regal-Layer der Quelle gelegt. Export ordnet goh_racks zuerst ueber den Layer `LG_*_G` des obersten INSERTs zu (`lg-rack-geschoss`, `lg-rk-top`), erst dann ueber die Kontur - damit eindeutig auch bei 2D-Geschossen uebereinander. Tests: `tu-tests-lager` (test_unit) und `tests/test_lager.lsp` | | `LagerPruefung.lsp` | LG_REGELN | Regelprofile der Lagerplanung: `cfg/regelwerk/.json` laden, `erbt_von` aufloesen (`lg-profil-mischen`), je Regel den STRENGSTEN Wert aller zutreffenden Quellen (`lg-regel-aufloesen`: `art` min/max/wert, `bedingung` gegen einen Kontext - fehlt der Schluessel, konservativ einbezogen -, `tabelle` + `tabellen_schluessel`) mit Protokoll. Jede Pruefregel der Lagerplanung wird genau hier implementiert (Python rendert nur). Alle Startwerte `verifiziert: false` | @@ -136,13 +142,18 @@ 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) | | `lager.dcl` | LG_GESCHOSS/LG_GESCHOSS_KOPIEREN/LG_BEREICH/LG_REIHE/LG_GANG + Edit (LagerInsert.lsp, generischer Treiber `lg-dialog`); Dialoge `lg_geschoss`, `lg_geschoss_kopie`, `lg_bereich` (inkl. Randgaenge N/O/S/W), `lg_reihe`, `lg_gang`, Tile-Keys = Feldlisten `*lg-felder-*` | | `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) @@ -174,6 +185,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. @@ -201,14 +213,14 @@ Abhaengigkeiten: `ezdxf`, Standard-Library. Benoetigen Umgebungsvariablen (`DXFM | `set_einfuegepkt.py` | Setzt `$INSBASE` (Einfuegepunkt) in Omniflo-DXF-Dateien. Schalter je Typ: `--boegen`, `--weichen45`, `--weichen90`, `--weichenkoerper`, `--weichen-parallel`, `--delta`, `--dreifachweiche`, `--sternweiche`, `--show-omniflo` | | `set_koords.py` | Setzt Koordinatensystem-Bloecke (K1-K4) in Omniflo-DXF-Dateien. Schalter: `--k1set` bis `--k4set`, `--set-all`, `--force`, `--show-omniflo`, `--test`, `--number` | | `export_sivas.py` | Erzeugt Sivas-Export-CSV mit Summierungszeilen (ILS Automation, Omniflo Sum). Omniflo-Elemente werden ueber das TEILEART-Attribut (`Omniflo *`) erkannt, ihre Sivas-Nummern kommen - wie beim Geruest - NUR aus dem kommagetrennten `ARTINR`-Attribut (eine Zeile je Nummer, TEF-Teile `0_B*` als `Omniflo TEF`); KEIN Katalog-Lookup mehr (den nutzt nur noch `export_csv.py` fuer die Merkmale). Schreibt zusaetzlich immer `_zusammengefasst.csv`: Zeilen, die sich nur in Nr/Anzahl/IDs unterscheiden (v.a. Geruest, je Block eine Zeile), zu einer Zeile zusammengefasst (`items_zusammenfassen`, Anzahl addiert, IDs vereinigt); die Hauptdatei bleibt unveraendert. **ILS 2.0 Weiche (6216)**: eine Summenzeile (Anzahl 1), sobald `kreisel_weichen.json` (LISP-Export, siehe KreiselInsert.lsp) Beruehrpunkte enthaelt - je Beruehrpunkt eine Weichenkombination aus 1x aktiv (3371) + 1x passiv (3372), Zuordnung in `cfg/sivas.cfg` `[weichen]` ueber das synthetische Attribut `ANZAHL_WEICHEN`; dieselbe Zahl geht in Merkmal 4403 der Automation-Zeile. Aufruf: `python export_sivas.py ` | -| `export_csv.py` | Erzeugt einfache Item-Liste als CSV (ohne Summierung). Aufruf: `python export_csv.py ` | +| `export_csv.py` | Erzeugt einfache Item-Liste als CSV (ohne Summierung). Spalten `Nachbarn`/`TrackIds` einer VF_n/GF_n kommen aus deren `sepliste` (Bauprotokoll, nur beim Bau per `entnext` gesammelt). **Freie Separatoren** (eigenstaendige `Separator_SP`-Bloecke, deren Zuordnung die Strecke nennt, die aber nicht beim Bau entstanden - realer Fall Mubea VF_3: 0037/0038) nimmt `einsortieren_freie_separatoren` (export_neighbors.py) vor `compute_sep_kette` nach Lage in die Kette auf: nur wenn Mittelpunkt in der Strecken-BBox UND laengs des Linienzugs der Kettenglieder zwischen AS und ES (reiner Kern `sepliste_einsortier_positionen`); der Separator bekommt das Merkmal `"Einsortiert in": ` (sps_skel zieht ihn darueber von der sepliste-Gegenprobe ab) und einen Hinweis in `Warnungen`. **Bewusst nur im Speicher des Exportlaufs, NICHT in die sepliste-XDATA zurueckgeschrieben**: Lisp paart die sepliste-Eintraege ueber die Anzahl je Typ mit den eingebauten Bausteinen (`csv:sepliste-kette-paare`) und fuehrt reservierte AS/ES-IDs unter der `lfdnr` (`csv:asmark-res-key`) - ein fremder Eintrag verschoebe beides; ausserdem schreibt jeder Neuaufbau/Edit der Strecke die XDATA neu. Test `tests/test_export_freie_separatoren.py`. Aufruf: `python export_csv.py ` | | `split_block_library.py` | Teilt `ils_library.dxf` in einzelne DXF-Dateien pro Block auf (mit Abhaengigkeiten). Export-Prefixe: Vario_, Staustrecke_, _3D_AS_, _3D_ES_ | | `vf_journal_export.py` | Liest die Eingabe-Journale der `VF_n`-Bloecke (XDATA-App `SSG_VF_EDIT`, Marker `"linienzug"`) aus einer Zeichnung und schreibt sie als Frage-Antwort-Protokoll im Schema von `tests/testdata/linienzug_tests.json` (Gegenstueck zu `vfl-entry->string`; kein ezdxf, reine Gruppencode-Lesung). Optional `--csv ` fuer Strecken-ID und Erwartungswerte je Kette. Aufruf: `python vf_journal_export.py [--csv ...] [--kein-startpunkt-fix]` — erzeugt `tests/testdata/hm_recformat.json` aus `data/polylines.dxf` (die Aufzeichnung, aus der `tests/testdata/hundm05.json` als Spec abgeleitet wird) | | `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` | | `lager_yaml_export.py` | Lagerplanung: `_lager_raw.json` (LAGER_EXPORT) -> `_drawing.yaml` (Overlay im Schema der RFQ-Hand-YAML, nur Zeichnungsfelder, plus `_provenance`/`_conflicts`/`_warnings`) und optional `--nachweis` HTML. `--hand ` gleicht ab (Hand gewinnt; Konflikte bei > 1 % bzw. 0,005). Aggregiert nur, Regeln leben in LISP. Braucht `pyyaml`. Test `tests/test_lager_yaml.py`. Aufruf: `python lager_yaml_export.py [--hand ...] [--nachweis ...]` | -| `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 @@ -225,7 +237,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/Jam_Edit.lsp b/Lisp/Jam_Edit.lsp new file mode 100644 index 0000000..e3f3e28 --- /dev/null +++ b/Lisp/Jam_Edit.lsp @@ -0,0 +1,183 @@ +;; ============================================================ +;; JAM_EDIT.LSP - Staubereich (JAM_AREA) bearbeiten +;; +;; Die Staubereiche zeichnet sps_skel (lib/tro_annotate.py --anlage) als +;; Block JAM_AREA: ein Rechteck, darin der Name Jam_. Attribute +;; NAME sichtbar - Jam0054_3 +;; CONVEYOR, NUMBER unsichtbar - Foerderer NNNN und laufende Nummer k +;; TRO, ENTRY unsichtbar - TRO und Eingang, in den er fuehrt +;; (stabiler Schluessel, nicht aendern) +;; AREA unsichtbar - Kennung der TRO-JSON (J0039) +;; AUTO unsichtbar - von sps_skel abgeleitete Nummer NNNN_k +;; +;; Aufruf JAM_EDIT: +;; - Doppelklick auf den Staubereich -> ***DOUBLECLICK [INSERT] -> SSG_BLOCKEDIT +;; - EATTEDIT -> c:EATTEDIT -> SSG_BLOCKEDIT +;; - direkt: JAM_EDIT +;; Der Dispatcher SSG_BLOCKEDIT (SSG_LIB_Commands.lsp) leitet Blocknamen +;; "JAM_*" hierher. +;; +;; Der Dialog aendert nur die Zeichnung. In die SCL kommt die Aenderung mit +;; tro_annotate.bat --file --read-jams (-> cfg/_jam_names.ini) +;; scl_skeleton.bat --json _anlage.json --templates +;; +;; Setzt ssg_core.lsp (ssg-start/ssg-end, ssg-attrib-*) und ssg_lang.lsp voraus. +;; ============================================================ + + +;; ------------------------------------------------------------ +;; Nur Ziffern, nicht leer +;; ------------------------------------------------------------ +(defun jam-ziffern-p (s) + (and s (/= s "") (not (wcmatch s "*[~0-9]*"))) +) + + +;; ------------------------------------------------------------ +;; Name aus Foerderer und Nummer: "0054" "3" -> "Jam0054_3" +;; ------------------------------------------------------------ +(defun jam-name (foerderer nummer) + (strcat "Jam" foerderer "_" nummer) +) + + +;; ------------------------------------------------------------ +;; Gibt es den Namen schon an einem anderen Staubereich? +;; Liefert die Kennung (AREA) des anderen Blocks oder nil. +;; ------------------------------------------------------------ +(defun jam-name-belegt (name eigener / ss i ent attribs treffer) + (setq treffer nil) + (if (setq ss (ssget "_X" (list '(0 . "INSERT") '(2 . "JAM_*")))) + (progn + (setq i 0) + (while (and (null treffer) (setq ent (ssname ss i))) + (if (not (eq ent eigener)) + (progn + (setq attribs (ssg-attrib-read ent)) + (if (= (strcase (cond ((cdr (assoc "NAME" attribs))) (""))) (strcase name)) + (setq treffer (cond ((cdr (assoc "AREA" attribs))) ("?"))) + ) + ) + ) + (setq i (1+ i)) + ) + ) + ) + treffer +) + + +;; ------------------------------------------------------------ +;; C:JAM_EDIT - Dialog fuer einen Staubereich +;; ------------------------------------------------------------ +(defun c:JAM_EDIT ( / ss ent ed bname attribs + alt-conv alt-nr auto tro entry area + neu-conv neu-nr auto-conv auto-nr pos + dcl-pfad dat ergebnis name andere) + + ;; Implied Selection VOR ssg-start pruefen (ssg-start hebt Selektion auf) + (setq ss (ssget "I")) + (if (and ss (= (sslength ss) 1) + (= (cdr (assoc 0 (entget (ssname ss 0)))) "INSERT")) + (setq ent (ssname ss 0)) + ) + + (ssg-start "JAM_EDIT" nil) + + (if (null ent) + (progn + (princ (ssg-text "cmd-block-auswaehlen")) + (setq ss (ssget ":S" '((0 . "INSERT")))) + (if ss (setq ent (ssname ss 0))) + ) + ) + (if (null ent) + (progn (princ (ssg-text "cmd-kein-block-ausgewaehlt")) (ssg-end) (exit)) + ) + + (setq ed (entget ent) + bname (cdr (assoc 2 ed))) + (if (not (wcmatch bname "JAM_*")) + (progn + (alert (ssg-textf "jam-edit-kein-jam" (list bname))) + (ssg-end) + (exit) + ) + ) + + ;; --- aktuelle Attribute lesen ---------------------------------------- + (setq attribs (ssg-attrib-read ent) + alt-conv (cond ((cdr (assoc "CONVEYOR" attribs))) ("")) + alt-nr (cond ((cdr (assoc "NUMBER" attribs))) ("")) + auto (cond ((cdr (assoc "AUTO" attribs))) ("")) + tro (cond ((cdr (assoc "TRO" attribs))) ("?")) + entry (cond ((cdr (assoc "ENTRY" attribs))) ("?")) + area (cond ((cdr (assoc "AREA" attribs))) ("?"))) + + ;; AUTO "0054_3" -> Foerderer "0054", Nummer "3" + (setq auto-conv "" auto-nr "") + (if (setq pos (vl-string-search "_" auto)) + (setq auto-conv (substr auto 1 pos) + auto-nr (substr auto (+ pos 2))) + ) + + ;; --- Dialog ----------------------------------------------------------- + (setq dcl-pfad (strcat (getenv "DXFM_DCL") "/jam_edit.dcl")) + (setq dat (load_dialog dcl-pfad)) + (if (not (new_dialog "jam_edit" dat)) + (progn + (alert (ssg-textf "jam-edit-dialog-fehlt" (list dcl-pfad))) + (ssg-end) + (exit) + ) + ) + + (set_tile "bereich" (ssg-textf "jam-edit-bereich" (list area tro entry))) + (set_tile "auto" (ssg-textf "jam-edit-auto" + (list (if (= auto "") "-" (jam-name auto-conv auto-nr))))) + (set_tile "hinweis" (ssg-text "jam-edit-hinweis")) + (set_tile "conveyor" alt-conv) + (set_tile "number" alt-nr) + (if (= auto "") (mode_tile "reset" 1)) + + (setq neu-conv alt-conv neu-nr alt-nr) + (action_tile "reset" + "(set_tile \"conveyor\" auto-conv) (set_tile \"number\" auto-nr)") + (action_tile "accept" + (strcat "(setq neu-conv (vl-string-trim \" \" (get_tile \"conveyor\"))" + " neu-nr (vl-string-trim \" \" (get_tile \"number\")))" + "(done_dialog 1)")) + (action_tile "cancel" "(done_dialog 0)") + + (setq ergebnis (start_dialog)) + (unload_dialog dat) + + ;; --- pruefen und zurueckschreiben ------------------------------------- + (if (= ergebnis 1) + (cond + ((not (and (jam-ziffern-p neu-conv) (= (strlen neu-conv) 4))) + (alert (ssg-text "jam-edit-foerderer-ungueltig"))) + ((not (and (jam-ziffern-p neu-nr) (> (atoi neu-nr) 0))) + (alert (ssg-text "jam-edit-nummer-ungueltig"))) + (t + (setq neu-nr (itoa (atoi neu-nr)) + name (jam-name neu-conv neu-nr)) + (ssg-attrib-set-on ent (list (cons "CONVEYOR" neu-conv) + (cons "NUMBER" neu-nr) + (cons "NAME" name))) + (entupd ent) + (princ (ssg-textf "jam-edit-gespeichert" (list name area))) + (if (setq andere (jam-name-belegt name ent)) + (princ (ssg-textf "jam-edit-doppelt" (list name andere))) + ) + ) + ) + ) + + (ssg-end) + (princ) +) + + +(prompt "\nJam_Edit.lsp geladen - Befehl: JAM_EDIT") +(princ) diff --git a/Lisp/KettenFoerderer.lsp b/Lisp/KettenFoerderer.lsp new file mode 100644 index 0000000..ba8681e --- /dev/null +++ b/Lisp/KettenFoerderer.lsp @@ -0,0 +1,1206 @@ +;; ============================================================ +;; 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) + ;; BricsCAD: (nth idx nil) ist ein harter Fehler (AutoCAD liefert nil) - + ;; fehlende Liste darum VOR dem nth abfangen + (setq e (if liste (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/KreiselInsert.lsp b/Lisp/KreiselInsert.lsp index 94780ab..c46735c 100644 --- a/Lisp/KreiselInsert.lsp +++ b/Lisp/KreiselInsert.lsp @@ -420,6 +420,18 @@ att-entity att-data att-tag new-value beforeAtt) + ;; Mindestabstand: unterhalb des Durchmessers wuerden sich die Endkreise + ;; (AN8/SP8) beruehren bzw. ueberschneiden - harte Sperre fuer alle Aufrufer + ;; (Insert/Connect/Redraw/Edit/Script), da draw-module der einzige + ;; gemeinsame Zeichenpfad ist. + (if (< abstand *kreisel-durchmesser*) + (progn + (ssg-emsg (ssg-textf "kreisel-emsg-abstand-zu-klein" + (list (rtos abstand 2 0) (rtos *kreisel-durchmesser* 2 0)))) + (exit) + ) + ) + ;; Attribute vorbereiten (setq attribs (ssg-attrib-merge attribs *kreisel-attrib-defs*)) (setq attribs (subst (cons "ABSTAND" (rtos abstand 2 0)) @@ -695,11 +707,23 @@ ) ;; 2. Abstand (Tangentenlaenge) - Linie gibt auch den Winkel vor - (setq p2 (getpoint pt (ssg-textf "kreisel-prompt-abstand" - (list (rtos *kreisel-default-laenge* 2 0))))) - (setq erg (kreisel-insert-richtung pt p2 *kreisel-default-laenge*) - abstand (car erg) - rotation (cadr erg)) + ;; Mindestabstand = Kreisel-Durchmesser (sonst beruehren/ueberschneiden + ;; sich die Endkreise) - bei Unterschreitung erneut abfragen. + (setq abstand nil) + (while (null abstand) + (setq p2 (getpoint pt (ssg-textf "kreisel-prompt-abstand" + (list (rtos *kreisel-default-laenge* 2 0))))) + (setq erg (kreisel-insert-richtung pt p2 *kreisel-default-laenge*) + abstand (car erg) + rotation (cadr erg)) + (if (< abstand *kreisel-durchmesser*) + (progn + (ssg-emsg (ssg-textf "kreisel-emsg-abstand-zu-klein" + (list (rtos abstand 2 0) (rtos *kreisel-durchmesser* 2 0)))) + (setq abstand nil) + ) + ) + ) (princ (ssg-textf "kreisel-abstand-ausgabe" (list (rtos abstand 2 0)))) ;; 3. Hoehe (Z-Koordinate) @@ -747,24 +771,29 @@ (progn (ssg-end) (princ (ssg-text "kreisel-abgebrochen")) (princ) (exit)) ) - ;; 2. Endpunkt (aeusserster Punkt SP-Seite) mit Gummiband - (setq ptEnd (getpoint ptStart (ssg-text "kreisel-prompt-endpunkt"))) - (if (null ptEnd) - (progn (ssg-end) (princ (ssg-text "kreisel-abgebrochen")) (princ) (exit)) - ) + ;; 2. Endpunkt (aeusserster Punkt SP-Seite) mit Gummiband - der Abstand + ;; (Kreismitten-Tangentenlaenge = dist - Durchmesser) muss mindestens dem + ;; Durchmesser entsprechen, sonst beruehren/ueberschneiden sich die + ;; Endkreise; bei Unterschreitung erneut abfragen statt abzubrechen. + (setq abstand nil) + (while (null abstand) + (setq ptEnd (getpoint ptStart (ssg-text "kreisel-prompt-endpunkt"))) + (if (null ptEnd) + (progn (ssg-end) (princ (ssg-text "kreisel-abgebrochen")) (princ) (exit)) + ) - ;; 3. Geometrie berechnen - (setq dx (- (car ptEnd) (car ptStart)) - dy (- (cadr ptEnd) (cadr ptStart))) - (setq dist (sqrt (+ (* dx dx) (* dy dy)))) - (setq abstand (- dist *kreisel-durchmesser*)) + ;; 3. Geometrie berechnen + (setq dx (- (car ptEnd) (car ptStart)) + dy (- (cadr ptEnd) (cadr ptStart))) + (setq dist (sqrt (+ (* dx dx) (* dy dy)))) + (setq abstand (- dist *kreisel-durchmesser*)) - (if (<= abstand 0.0) - (progn - (ssg-emsg (ssg-textf "kreisel-emsg-distanz-klein" - (list (rtos dist 2 0) (rtos *kreisel-durchmesser* 2 0)))) - (ssg-end) - (exit) + (if (< abstand *kreisel-durchmesser*) + (progn + (ssg-emsg (ssg-textf "kreisel-emsg-distanz-klein" + (list (rtos dist 2 0) (rtos (* 2.0 *kreisel-durchmesser*) 2 0)))) + (setq abstand nil) + ) ) ) @@ -883,7 +912,7 @@ ;; geaendertem) Abstand neu. Alle Attribute bleiben ;; erhalten. ;; ----------------------------------------------- -(defun c:KreiselRedraw ( / sel ent ed attribs basePoint rotation newAbstand) +(defun c:KreiselRedraw ( / sel ent ed attribs basePoint rotation newAbstand gueltig) (ssg-start (ssg-text "kreisel-start-redraw") '(("CECOLOR"))) @@ -910,11 +939,20 @@ (cdr (assoc "HOEHE" attribs)) (cdr (assoc "KREISELART" attribs))))) - ;; 3. Neuen Abstand abfragen (Enter = beibehalten) - (initget 6) - (setq newAbstand (getdist (ssg-textf "kreisel-prompt-neuer-abstand" (list (cdr (assoc "ABSTAND" attribs)))))) - (if (null newAbstand) - (setq newAbstand (atof (cdr (assoc "ABSTAND" attribs)))) + ;; 3. Neuen Abstand abfragen (Enter = beibehalten); Mindestabstand = + ;; Kreisel-Durchmesser, sonst beruehren/ueberschneiden sich die Endkreise. + (setq newAbstand nil gueltig nil) + (while (not gueltig) + (initget 6) + (setq newAbstand (getdist (ssg-textf "kreisel-prompt-neuer-abstand" (list (cdr (assoc "ABSTAND" attribs)))))) + (if (null newAbstand) + (setq newAbstand (atof (cdr (assoc "ABSTAND" attribs)))) + ) + (if (< newAbstand *kreisel-durchmesser*) + (ssg-emsg (ssg-textf "kreisel-emsg-abstand-zu-klein" + (list (rtos newAbstand 2 0) (rtos *kreisel-durchmesser* 2 0)))) + (setq gueltig T) + ) ) ;; NEU - Neue Höhe abfragen: (setq newHoehe (getreal (ssg-textf "kreisel-prompt-neue-hoehe" (list (cdr (assoc "HOEHE" attribs)))))) @@ -991,7 +1029,7 @@ ;; 3. Bei OK: Block loeschen und mit neuen Werten neu zeichnen ;; ----------------------------------------------- (defun c:KreiselEdit ( / sel ss ent ed attribs basePoint rotation - dcl-pfad dat ergebnis + dcl-pfad dat ergebnis fertig dlg-name dlg-abstand dlg-hoehe dlg-ausrichtung dlg-drehrichtung dlg-kreiselart dlg-geruest-einzelmodul dlg-geruest-typ @@ -1049,73 +1087,87 @@ (princ (ssg-textf "kreisel-edit-bestehend" (list (cdr (assoc "ABSTAND" attribs)) (rtos rotation 2 1) (cdr (assoc "KREISELART" attribs))))) - ;; 3. DCL-Dialog laden - (setq dcl-pfad (strcat (getenv "DXFM_DCL") "/kreisel_edit.dcl")) - (setq dat (load_dialog dcl-pfad)) - (if (not (new_dialog "kreisel_edit" dat)) - (progn (alert (ssg-textf "kreisel-edit-dialog-fehlt" (list dcl-pfad))) (ssg-end) (exit)) - ) + ;; 3. DCL-Dialog laden; bei zu kleinem Abstand (< Kreisel-Durchmesser, + ;; sonst beruehren/ueberschneiden sich die Endkreise) erneut anzeigen, + ;; statt den fehlerhaften Wert zu uebernehmen (Projektmuster wie GERUEST). + (setq dlg-abstand (cdr (assoc "ABSTAND" attribs))) + (setq fertig nil) + (while (not fertig) + (setq dcl-pfad (strcat (getenv "DXFM_DCL") "/kreisel_edit.dcl")) + (setq dat (load_dialog dcl-pfad)) + (if (not (new_dialog "kreisel_edit" dat)) + (progn (alert (ssg-textf "kreisel-edit-dialog-fehlt" (list dcl-pfad))) (ssg-end) (exit)) + ) - ;; Ausrichtungs-Labels fuer popup_list aufbauen - (setq ausrichtLabels "") - (foreach entry *kreisel-ausrichtungen* - (if (= ausrichtLabels "") - (setq ausrichtLabels (car entry)) - (setq ausrichtLabels (strcat ausrichtLabels "\n" (car entry))) + ;; Ausrichtungs-Labels fuer popup_list aufbauen + (setq ausrichtLabels "") + (foreach entry *kreisel-ausrichtungen* + (if (= ausrichtLabels "") + (setq ausrichtLabels (car entry)) + (setq ausrichtLabels (strcat ausrichtLabels "\n" (car entry))) + ) + ) + + ;; Tiles initialisieren (Abstand aus vorherigem Versuch uebernehmen) + (set_tile "name" (cdr (assoc "Bezeichnung" attribs))) + (set_tile "abstand" dlg-abstand) + (set_tile "hoehe" (cdr (assoc "HOEHE" attribs))) + + (start_list "ausrichtung") + (foreach entry *kreisel-ausrichtungen* + (add_list (car entry)) + ) + (end_list) + (set_tile "ausrichtung" (itoa (kreisel-rotation-to-idx rotation))) + + (start_list "drehrichtung") + (add_list "UZS") + (add_list "GUZ") + (end_list) + (set_tile "drehrichtung" (if (equal (cdr (assoc "DREHRICHTUNG" attribs)) "GUZ") "1" "0")) + + (start_list "kreiselart") + (add_list "STANDARD") + (add_list "PIN") + (end_list) + (set_tile "kreiselart" (if (equal (cdr (assoc "KREISELART" attribs)) "PIN") "1" "0")) + + (set_tile "geruest_einzelmodul" + (if (equal (cdr (assoc "GERUEST_EINZELMODUL" attribs)) "1") "1" "0")) + + (start_list "geruest_typ") + (foreach opt *ssg-geruest-optionen* (add_list opt)) + (end_list) + (set_tile "geruest_typ" (itoa (ssg-geruest-typ-to-idx (cdr (assoc "GERUEST_TYP" attribs))))) + + ;; Actions + (action_tile "accept" + (strcat + "(setq dlg-name (get_tile \"name\"))" + "(setq dlg-abstand (get_tile \"abstand\"))" + "(setq dlg-hoehe (get_tile \"hoehe\"))" + "(setq dlg-ausrichtung (get_tile \"ausrichtung\"))" + "(setq dlg-drehrichtung (get_tile \"drehrichtung\"))" + "(setq dlg-kreiselart (get_tile \"kreiselart\"))" + "(setq dlg-geruest-einzelmodul (get_tile \"geruest_einzelmodul\"))" + "(setq dlg-geruest-typ (get_tile \"geruest_typ\"))" + "(done_dialog 1)" + ) + ) + (action_tile "cancel" "(done_dialog 0)") + + (setq ergebnis (start_dialog)) + (unload_dialog dat) + + (cond + ((/= ergebnis 1) (setq fertig T)) + ((< (atof dlg-abstand) *kreisel-durchmesser*) + (ssg-emsg (ssg-textf "kreisel-emsg-abstand-zu-klein" + (list (rtos (atof dlg-abstand) 2 0) (rtos *kreisel-durchmesser* 2 0))))) + (t (setq fertig T)) ) ) - ;; Tiles initialisieren - (set_tile "name" (cdr (assoc "Bezeichnung" attribs))) - (set_tile "abstand" (cdr (assoc "ABSTAND" attribs))) - (set_tile "hoehe" (cdr (assoc "HOEHE" attribs))) - - (start_list "ausrichtung") - (foreach entry *kreisel-ausrichtungen* - (add_list (car entry)) - ) - (end_list) - (set_tile "ausrichtung" (itoa (kreisel-rotation-to-idx rotation))) - - (start_list "drehrichtung") - (add_list "UZS") - (add_list "GUZ") - (end_list) - (set_tile "drehrichtung" (if (equal (cdr (assoc "DREHRICHTUNG" attribs)) "GUZ") "1" "0")) - - (start_list "kreiselart") - (add_list "STANDARD") - (add_list "PIN") - (end_list) - (set_tile "kreiselart" (if (equal (cdr (assoc "KREISELART" attribs)) "PIN") "1" "0")) - - (set_tile "geruest_einzelmodul" - (if (equal (cdr (assoc "GERUEST_EINZELMODUL" attribs)) "1") "1" "0")) - - (start_list "geruest_typ") - (foreach opt *ssg-geruest-optionen* (add_list opt)) - (end_list) - (set_tile "geruest_typ" (itoa (ssg-geruest-typ-to-idx (cdr (assoc "GERUEST_TYP" attribs))))) - - ;; Actions - (action_tile "accept" - (strcat - "(setq dlg-name (get_tile \"name\"))" - "(setq dlg-abstand (get_tile \"abstand\"))" - "(setq dlg-hoehe (get_tile \"hoehe\"))" - "(setq dlg-ausrichtung (get_tile \"ausrichtung\"))" - "(setq dlg-drehrichtung (get_tile \"drehrichtung\"))" - "(setq dlg-kreiselart (get_tile \"kreiselart\"))" - "(setq dlg-geruest-einzelmodul (get_tile \"geruest_einzelmodul\"))" - "(setq dlg-geruest-typ (get_tile \"geruest_typ\"))" - "(done_dialog 1)" - ) - ) - (action_tile "cancel" "(done_dialog 0)") - - (setq ergebnis (start_dialog)) - (unload_dialog dat) - ;; 4. Bei OK: Block loeschen und neu zeichnen (if (= ergebnis 1) (progn diff --git a/Lisp/OmniModulInsert.lsp b/Lisp/OmniModulInsert.lsp index 8be22f0..19aefc2 100644 --- a/Lisp/OmniModulInsert.lsp +++ b/Lisp/OmniModulInsert.lsp @@ -1538,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 --- diff --git a/Lisp/README.md b/Lisp/README.md index 7911f76..2438660 100644 --- a/Lisp/README.md +++ b/Lisp/README.md @@ -38,21 +38,22 @@ am Label-Anfang, bei Submenue-Schliessern hinter dem `<-` (`[<-~Label]`). | Menuebereich | Eintraege | Definiert in | | --- | --- | --- | -| Omniflo ▸ Anbaugruppen | `OMNI_KettenFoerderer` | `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. --- @@ -383,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 | --- @@ -578,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 | | --- | --- | @@ -605,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`) @@ -701,7 +706,7 @@ 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 | +| 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 | @@ -712,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`): @@ -760,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): @@ -776,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 | | --- | --- | @@ -788,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) | @@ -800,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 @@ -908,3 +909,59 @@ in assoziativen Arrays, MINSERT-Rastern und verschachtelten Bloecken. `LAGER_EXP ordnet jedes goh_rack zuerst ueber den Layer `LG_*_G` seines obersten INSERTs (`lg-rk-top`), erst dann ueber die Geschosskontur zu. `LG_REGALE` zeigt die Zaehlung je Geschoss in der Befehlszeile. + +--- + +### `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 d2791a8..483f7f5 100644 --- a/Lisp/SSG_LIB_Commands.lsp +++ b/Lisp/SSG_LIB_Commands.lsp @@ -226,6 +226,7 @@ (if (car (atoms-family 1 '("SSG-ENSURE"))) (progn (ssg-ensure "Gefaellestrecke") (ssg-ensure "VarioFoerderer"))) (setq enames '() n-gf 0 n-vf 0 n-skip 0) + (setq *vfl-konvert-fehler* nil) ; Fehlschlaege der Linienzug-Konvertierung (ssg-start "SSG_DIM_BATCH" '(("OSMODE") ("ATTREQ") ("ATTDIA"))) (setvar "OSMODE" 0) ;; Erst alle enames sammeln (entdel veraendert die Zeichnung waehrend der Iteration) @@ -247,12 +248,12 @@ (if (gf-konvertiere-ent ent ziel-dim) (setq n-gf (1+ n-gf)))) ((wcmatch bname "VF_*") ;; VF_-Bloecke nach Edit-Marker unterscheiden: Standard/Etage - ;; ueber vf-konvertiere-ent, Linienzug (Modus 1/2) ueber den + ;; ueber vf-konvertiere-ent, Linienzug (Modus 1/2/3) ueber den ;; Journal-Replay-Konverter vfl-konvertiere-ent. Altbestand ohne ;; bekannten Marker wird uebersprungen. (setq marker (car (vfs-xdata-lesen ent))) (cond - ((member marker '("linienzug" "linienzug2")) + ((member marker '("linienzug" "linienzug2" "linienzug3")) (if (vfl-konvertiere-ent ent ziel-dim) (setq n-vf (1+ n-vf)) (setq n-skip (1+ n-skip)))) ((member marker '("standard" "etage")) @@ -264,6 +265,14 @@ (ssg-end) (princ (ssg-textf "dim-batch-fertig" (list ziel-dim (itoa n-gf) (itoa n-vf) (itoa n-skip)))) + ;; Fehlgeschlagene Linienzug-Bloecke gesammelt ausgeben (alter Block blieb + ;; jeweils unveraendert stehen, siehe vfl-konvertiere-ent) + (if *vfl-konvert-fehler* + (progn + (princ (ssg-textf "dim-batch-fehlerliste" + (list (itoa (length *vfl-konvert-fehler*))))) + (foreach f *vfl-konvert-fehler* + (princ (ssg-textf "dim-batch-fehler-zeile" (list (car f) (cdr f))))))) (princ) ) @@ -382,6 +391,23 @@ ) ) + ;; Staubereiche (JAM_AREA) -> JAM_EDIT (DCL-Dialog) + ;; Ebenfalls aus der Beschriftung von sps_skel (tro_annotate.py --anlage); + ;; Foerderer und laufende Nummer des Staubereichs Jam_. + ((wcmatch bname "JAM_*") + (princ (ssg-textf "cmd-jam-bearbeiten" (list bname))) + (if (and (null *ssg-Jam_Edit-loaded*) (atoms-family 1 '("SSG-ENSURE"))) + (ssg-ensure "Jam_Edit") + ) + (if (atoms-family 1 '("C:JAM_EDIT")) + (c:JAM_EDIT) + (progn + (princ (ssg-textf "tro-edit-modul-fehlt" (list "Jam_Edit.lsp"))) + (command "_.EATTEDIT") + ) + ) + ) + ;; TRO-Marker (TRO_SYM_) -> TRO_EDIT (DCL-Dialog) ;; Die Marker kommen aus sps_skel (lib/tro_annotate.py) und tragen die ;; Attribute ID und TYPE. Modul bei Bedarf nachladen, damit der Doppelklick @@ -418,6 +444,24 @@ (ssg-end) ) + ;; 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/check_hoehen.lsp b/Lisp/check_hoehen.lsp index 51c5ae6..d656a4a 100644 --- a/Lisp/check_hoehen.lsp +++ b/Lisp/check_hoehen.lsp @@ -16,10 +16,12 @@ ;;; - ENTER -> Markierungskreis (Layer *ch-mark-layer*), ;;; Block spaeter manuell anpassen. ;;; -;;; Phase 3 - Buehne: liegt die rohe Montagehoehe ueber -;;; *ch-buehne-schwelle-m* (Default 2,0 m), wird pro Block gefragt, -;;; ob eine Buehne vorhanden ist; deren Hoehe wird abgezogen -;;; (MONTAGEHOEHE_m = roh - Buehne). +;;; Phase 3 - Buehne nach Kreisel-Familien (siehe Abschnitt PHASE 3): +;;; liegt eine Familie ueber *ch-buehne-schwelle-m* (Default 3,0 m), wird +;;; EINMAL pro Familie gefragt; die Buehnenhoehe wird von den Kreiseln und +;;; den zugehoerigen VF/GF abgezogen (MONTAGEHOEHE_m = roh - Buehne). +;;; Bloecke, die keiner Familie zuzuordnen sind, werden wie frueher +;;; einzeln gefragt (ch-write-montage). ;;; ;;; PHASE 1-3 bewusst OHNE: QSAVE (Testmodus, UNDO moeglich). ;;; @@ -42,7 +44,19 @@ ;; Schwelle (m): ab dieser Montagehoehe wird pro Block nach einer ;; Buehne gefragt (typische Anlagenhoehe ~2 m; darueber liegt die ;; Anlage vermutlich auf einer Buehne). -(if (null *ch-buehne-schwelle-m*) (setq *ch-buehne-schwelle-m* 2.0)) +(if (null *ch-buehne-schwelle-m*) (setq *ch-buehne-schwelle-m* 3.0)) + +;; Phase 3 (Familien): maximaler Hoehenunterschied zweier Kreisel-Familien (mm), +;; zwischen denen eine Strecke denselben Buehnenabzug bekommt, und +;; Zuordnungstoleranzen Strecken-Ende -> Kreisel (XY-Abstand zur Kreiselachse +;; ueber den Radradius hinaus, Hoehenabweichung in mm). +(if (null *ch-fam-max-hoehendiff-mm*) (setq *ch-fam-max-hoehendiff-mm* 1500.0)) +(if (null *ch-zuordnung-xy-mm*) (setq *ch-zuordnung-xy-mm* 300.0)) +(if (null *ch-zuordnung-z-mm*) (setq *ch-zuordnung-z-mm* 100.0)) + +;; Register der in Phase 1/2 geschriebenen Bloecke fuer Phase 3: +;; je Block (ent art lbl roh pein paus erledigt). +(setq *ch-rec* nil) ;;; ------------------------------------------------------------ ;;; vf_core-KS-Helfer sicherstellen (extract-ks-from-block-raw). @@ -127,12 +141,19 @@ (if entry (caddr (car entry)) nil) ) +;;; Ganzer KS-Ursprung (x y z) oder nil. +(defun ch-ks-pt (ksdata ksname / entry) + (setq entry (cadr (assoc ksname ksdata))) + (if entry (car entry) nil) +) + ;;; ------------------------------------------------------------ ;;; KS_EIN.Z / KS_AUS.Z eines Composite-Blocks (VF_n/GF_n) messen. -;;; Rueckgabe: (kez kaz) - fehlende Werte = nil. +;;; Rueckgabe: (kez kaz pein paus) - fehlende Werte = nil. pein/paus sind +;;; die ganzen KS-Ursprungspunkte (fuer die Kreisel-Zuordnung in Phase 3). ;;; ------------------------------------------------------------ -(defun ch-measure-vfgf (ename / obj subs nm ksdata kez kaz) - (setq kez nil kaz nil) +(defun ch-measure-vfgf (ename / obj subs nm ksdata kez kaz pein paus) + (setq kez nil kaz nil pein nil paus nil) (setq obj (vlax-ename->vla-object ename)) (setq subs (vl-catch-all-apply 'vlax-invoke (list obj 'Explode))) (if (and (not (vl-catch-all-error-p subs)) subs) @@ -145,10 +166,12 @@ (cond ((and (null kez) (wcmatch nm *ch-as-pattern*)) (setq ksdata (extract-ks-from-block-raw sub)) - (setq kez (ch-ks-z ksdata "KS_EIN"))) + (setq kez (ch-ks-z ksdata "KS_EIN") + pein (ch-ks-pt ksdata "KS_EIN"))) ((and (null kaz) (wcmatch nm *ch-es-pattern*)) (setq ksdata (extract-ks-from-block-raw sub)) - (setq kaz (ch-ks-z ksdata "KS_AUS"))) + (setq kaz (ch-ks-z ksdata "KS_AUS") + paus (ch-ks-pt ksdata "KS_AUS"))) ) ) ) @@ -158,7 +181,7 @@ (vl-catch-all-apply 'vla-Delete (list sub)))) ) ) - (list kez kaz) + (list kez kaz pein paus) ) ;;; ------------------------------------------------------------ @@ -278,7 +301,275 @@ ) ;;; ============================================================ -;;; HAUPTBEFEHL (Phase 1 + 2) +;;; PHASE 3 - Buehnen-Familien +;;; ------------------------------------------------------------ +;;; Kreisel, die sich beruehren (Rad/Rad, Rad/Laufprofil, gleiche Hoehe - +;;; KREISEL_WEICHEN-Kern kreisel-bp-*), haben zwingend dieselbe Hoehe und +;;; bilden eine FAMILIE. Pro Familie ueber der Schwelle wird EINMAL nach +;;; der Buehne gefragt; deren Hoehe wird von den Kreiseln der Familie und +;;; von allen VF/GF abgezogen, deren beide Enden in dieser Familie liegen. +;;; Strecken zwischen zwei Familien bekommen den Abzug nur bei gleicher +;;; Buehnenhoehe UND hoechstens *ch-fam-max-hoehendiff-mm* Hoehenunterschied. +;;; Geschrieben wird nur MONTAGEHOEHE_m (aus der Rohhoehe, also wiederholbar); +;;; HOEHE/HOEHE_VON_mm bleiben, damit csv:hoehen-aktualisieren nichts zurueck- +;;; setzt. +;;; ============================================================ + +;;; Wurzel eines Knotens in der Eltern-Alist (Union-Find ohne Pfadkompression). +(defun ch-fam-wurzel (rep k / p) + (while (and (setq p (cdr (assoc k rep))) (/= p k)) + (setq k p)) + k +) + +;;; Familien aus Knoten und Kanten (reiner Kern). +;;; knoten = ((schluessel idnum) ...), kanten = ((schluesselA schluesselB) ...) +;;; Rueckgabe: Liste von Familien (je Liste von Schluesseln). Mitglieder und +;;; Familien sind nach kleinster ID-Nummer geordnet (Gleichstand: Reihenfolge +;;; in knoten); unbekannte Schluessel in kanten werden uebergangen. +(defun ch-familien (knoten kanten / rep ra rb idx sortiert fams w) + (foreach k knoten (setq rep (cons (cons (car k) (car k)) rep))) + (foreach e kanten + (if (and (assoc (car e) rep) (assoc (cadr e) rep)) + (progn + (setq ra (ch-fam-wurzel rep (car e)) + rb (ch-fam-wurzel rep (cadr e))) + (if (/= ra rb) + (setq rep (subst (cons ra rb) (assoc ra rep) rep)))))) + (setq idx 0) + (foreach k knoten + (setq sortiert (cons (list (cadr k) (car k) idx) sortiert) + idx (1+ idx))) + (setq sortiert (vl-sort sortiert 'ch-id<)) + (foreach s sortiert + (setq w (ch-fam-wurzel rep (cadr s))) + (if (assoc w fams) + (setq fams (subst (append (assoc w fams) (list (cadr s))) (assoc w fams) fams)) + (setq fams (append fams (list (list w (cadr s))))))) + (mapcar 'cdr fams) +) + +;;; Abzugsregel fuer eine Strecke zwischen zwei VERSCHIEDENEN Familien +;;; (reiner Kern). b1/b2 = Buehnenhoehe der Familien in m (0 = keine), +;;; z1/z2 = Familienhoehen in mm, maxdiff = erlaubter Unterschied in mm. +;;; Rueckgabe (status . abzug_m): "kein" (beide ohne Buehne), "konflikt" +;;; (verschiedene Buehnenhoehen), "hoehe" (Familien zu weit auseinander), +;;; "abzug" (gleiche Buehne, abzug_m = b1). +(defun ch-kreuz-abzug (b1 b2 z1 z2 maxdiff) + (cond + ((and (equal b1 0.0 1e-6) (equal b2 0.0 1e-6)) (cons "kein" 0.0)) + ((not (equal b1 b2 1e-6)) (cons "konflikt" 0.0)) + ((> (abs (- z1 z2)) maxdiff) (cons "hoehe" 0.0)) + (t (cons "abzug" b1)) + ) +) + +;;; Montagehoehe nach Buehnenabzug (reiner Kern). nil, wenn kein gueltiger +;;; Abzug moeglich ist (b <= 0 oder b >= roh). +(defun ch-abzug-anwenden (roh b) + (if (and (> b 0.0) (< b roh)) (- roh b)) +) + +;;; XY-Abstand eines Punktes von der Strecke a-b (reiner Kern). +(defun ch-pkt-strecke-abstand (pt a b / lot tt) + (setq lot (kreisel-bp-lot pt a b) + tt (max 0.0 (min 1.0 (car lot)))) + (kreisel-bp-abst pt (kreisel-bp-plus a (kreisel-bp-mal (kreisel-bp-minus b a) tt))) +) + +;;; Naechster Kreisel/Eckrad zu einem Strecken-Endpunkt (reiner Kern). +;;; pt = (x y [z]), z = Hoehe in mm, elemente = kreisel-bp-element-Records. +;;; Treffer: XY-Abstand zur Achse <= Radradius + tolxy und |z - Kreiselhoehe| +;;; <= tolz. Rueckgabe: Handle des naechsten Treffers oder nil. +(defun ch-kreisel-finden (pt z elemente tolxy tolz / best bd d ac) + (foreach e elemente + (if (<= (abs (- z (kreisel-bp-get "z" e))) tolz) + (progn + (setq ac (kreisel-bp-get "achse" e) + d (ch-pkt-strecke-abstand pt (car ac) (cadr ac))) + (if (and (<= d (+ (kreisel-bp-get "r" e) tolxy)) + (or (null bd) (< d bd))) + (setq bd d best (kreisel-bp-get "handle" e)))))) + best +) + +;;; Abzugsregel fuer eine Strecke aus den Familiensaetzen ihrer beiden Enden +;;; (reiner Kern). fs/fe = (idx handles z b). Gleiche Familie -> ("innen" . b), +;;; sonst Ergebnis von ch-kreuz-abzug. +(defun ch-strecke-abzug (fs fe maxdiff) + (if (= (car fs) (car fe)) + (cons "innen" (cadddr fs)) + (ch-kreuz-abzug (cadddr fs) (cadddr fe) (caddr fs) (caddr fe) maxdiff)) +) +;;; Flache Schleife (reiner Kern): Strecke startet und endet am SELBEN Kreisel +;;; (h1 = h2) und hat gleiche Anfangs-/Endhoehe (|z1 - z2| <= tol, mm). Ihre +;;; Buehne laesst sich nicht aus der Familie ableiten und wird einzeln gefragt. +(defun ch-schleife-p (h1 h2 z1 z2 tol) + (and h1 h2 (= h1 h2) (<= (abs (- z1 z2)) tol)) +) + +;;; ID-Nummer eines Elements (999999 ohne gueltige ID). +(defun ch-id-nummer (id) + (if (and id (/= id "") (> (atoi id) 0)) (atoi id) 999999) +) + +;;; Element-Record zu einem Handle. +(defun ch-elem-zu-handle (h elemente / res) + (foreach e elemente + (if (and (null res) (= (kreisel-bp-get "handle" e) h)) (setq res e))) + res +) + +;;; Kreisel-Modul (kreisel-bp-*) sicherstellen. +(defun ch-ensure-kreisel () + (if (null (car (atoms-family 1 '("KREISEL-BP-BERECHNEN")))) + (if (car (atoms-family 1 '("SSG-ENSURE"))) + (vl-catch-all-apply '(lambda () (ssg-ensure "KreiselInsert"))))) + (if (car (atoms-family 1 '("KREISEL-BP-BERECHNEN"))) t nil) +) + +;;; Montage-Rohwert schreiben (ohne Rueckfrage) und fuer Phase 3 vormerken. +;;; pts = (pein paus) bei VF/GF, sonst nil. Rueckgabe: roh. +(defun ch-montage-roh (ent art raw lbl pts) + (ch-set-att ent "MONTAGEHOEHE_m" (rtos raw 2 3)) + (setq *ch-rec* (append *ch-rec* + (list (list ent art lbl raw (car pts) (cadr pts))))) + raw +) + +;;; Familie hervorheben (mode 3) bzw. zuruecknehmen (mode 4). +(defun ch-fam-hervorheben (handles mode / e) + (foreach h handles + (if (setq e (handent h)) (redraw e mode))) +) + +;;; Buehnenhoehe (m) fuer eine Familie erfragen. nil = keine Buehne. +;;; z = Familienhoehe in mm, prev = zuletzt eingegebene Buehne (Vorgabe) oder nil. +(defun ch-frage-buehne (txt z prev / b ok) + (if (ssg-in-yesno txt nil) + (progn + (while (not ok) + (setq b (ssg-in-real (ssg-text "chh-buehne-hoehe") prev)) + (cond + ((null b) (setq ok T)) + ((and (> b 0.0) (< b (/ z 1000.0))) (setq ok T)) + (t (princ (ssg-textf "chh-buehne-ungueltig" (list (rtos (/ z 1000.0) 2 3)))) + (setq b nil)))) + b)) +) + +;;; Phase 3 ausfuehren: arbeitet das Register *ch-rec* ab. Bloecke ohne +;;; Familie (Zuordnung unklar) fragen wie zuvor einzeln nach. +(defun ch-phase3 ( / elems ber knoten kanten fams famdat h2f n-fam n-bue + rep z b prev rec idx fs fe kr neu lbl h + n-kr n-innen n-kreuz n-konf n-offen ents) + (setq n-kr 0 n-innen 0 n-kreuz 0 n-konf 0 n-offen 0 n-fam 0 n-bue 0 + ents nil) + (princ (ssg-text "chh-start")) + (if (ch-ensure-kreisel) + (progn + (setq elems (kreisel-bp-elemente-sammeln) + ber (car (kreisel-bp-berechnen elems (kreisel-bp-toleranz) + (kreisel-bp-toleranz-z)))) + (setq knoten (mapcar '(lambda (el) (list (kreisel-bp-get "handle" el) + (ch-id-nummer (kreisel-bp-get "id" el)))) + elems) + kanten (mapcar '(lambda (tr) (list (kreisel-bp-get "handle" (kreisel-bp-get "a" tr)) + (kreisel-bp-get "handle" (kreisel-bp-get "b" tr)))) + ber)) + (setq fams (ch-familien knoten kanten)) + + ;; --- je Familie einmal fragen --- + (setq idx 0) + (foreach fam fams + (setq idx (1+ idx) n-fam (1+ n-fam) + rep (ch-elem-zu-handle (car fam) elems) + z (kreisel-bp-get "z" rep) + b 0.0) + (if (> (/ z 1000.0) *ch-buehne-schwelle-m*) + (progn + (ch-fam-hervorheben fam 3) + (setq b (ch-frage-buehne + (ssg-textf "chh-fam-frage" + (list (itoa idx) (kreisel-bp-elem-text rep) + (itoa (length fam)) (rtos (/ z 1000.0) 2 3))) + z prev)) + (ch-fam-hervorheben fam 4) + (if (null b) (setq b 0.0)) + (if (> b 0.0) (setq prev b n-bue (1+ n-bue))))) + (setq famdat (cons (list idx fam z b) famdat)) + (foreach h fam (setq h2f (cons (cons h idx) h2f)))) + (setq famdat (reverse famdat)) + + ;; --- Kreisel schreiben --- + (foreach rec *ch-rec* + (if (= (cadr rec) "KREISEL") + (progn + (setq h (cdr (assoc 5 (entget (car rec)))) + fs (cdr (assoc h h2f))) + (if fs + (progn + (setq b (cadddr (assoc fs famdat))) + (if (> b 0.0) + (if (setq neu (ch-abzug-anwenden (nth 3 rec) b)) + (progn (ch-set-att (car rec) "MONTAGEHOEHE_m" (rtos neu 2 3)) + (setq n-kr (1+ n-kr))))) + (setq ents (cons (car rec) ents))))))) + + ;; --- Strecken zuordnen --- + (foreach rec *ch-rec* + (if (and (member (cadr rec) '("VF" "GF")) (nth 4 rec) (nth 5 rec)) + (progn + (setq lbl (nth 2 rec) + fs (ch-kreisel-finden (nth 4 rec) (caddr (nth 4 rec)) elems + *ch-zuordnung-xy-mm* *ch-zuordnung-z-mm*) + fe (ch-kreisel-finden (nth 5 rec) (caddr (nth 5 rec)) elems + *ch-zuordnung-xy-mm* *ch-zuordnung-z-mm*)) + (if (and fs fe) + (if (ch-schleife-p fs fe (caddr (nth 4 rec)) (caddr (nth 5 rec)) 1.0) + ;; Flache Schleife am selben Kreisel: Buehne nicht ableitbar -> + ;; bleibt unentschieden und wird im Rest einzeln gefragt + (princ (ssg-textf "chh-schleife" (list lbl))) + (progn + (setq fs (assoc (cdr (assoc fs h2f)) famdat) + fe (assoc (cdr (assoc fe h2f)) famdat) + kr (ch-strecke-abzug fs fe *ch-fam-max-hoehendiff-mm*)) + (setq ents (cons (car rec) ents)) + (cond + ((= (car kr) "konflikt") + (setq n-konf (1+ n-konf)) + (princ (ssg-textf "chh-kreuz-konflikt" + (list lbl (rtos (cadddr fs) 2 3) (rtos (cadddr fe) 2 3))))) + ((= (car kr) "hoehe") + (setq n-konf (1+ n-konf)) + (princ (ssg-textf "chh-kreuz-hoehe" + (list lbl (rtos (abs (- (caddr fs) (caddr fe))) 2 0) + (rtos *ch-fam-max-hoehendiff-mm* 2 0))))) + ((> (cdr kr) 0.0) + (if (setq neu (ch-abzug-anwenden (nth 3 rec) (cdr kr))) + (progn + (ch-set-att (car rec) "MONTAGEHOEHE_m" (rtos neu 2 3)) + (if (= (car kr) "innen") + (setq n-innen (1+ n-innen)) + (setq n-kreuz (1+ n-kreuz)))) + (princ (ssg-textf "chh-strecke-neg" + (list lbl (rtos (cdr kr) 2 3) (rtos (nth 3 rec) 2 3)))))) + )))))))) + (princ (ssg-text "chh-kein-kreisel"))) + + ;; --- Rest: blockweise wie bisher --- + (foreach rec *ch-rec* + (if (not (member (car rec) ents)) + (progn + (setq n-offen (1+ n-offen)) + (ch-write-montage (car rec) (nth 3 rec) (nth 2 rec))))) + (princ (ssg-textf "chh-summe" + (list (itoa n-fam) (itoa n-bue) (itoa n-kr) (itoa n-innen) + (itoa n-kreuz) (itoa n-konf) (itoa n-offen)))) +) + +;;; ============================================================ +;;; HAUPTBEFEHL (Phase 1 + 2, danach Phase 3) ;;; ============================================================ (defun c:HOEHEN_CHECK ( / ss i idx id items it ent ed nm lbl zc meas kez kaz montage inp delta mss @@ -292,6 +583,7 @@ ) ) (setq n-kreisel 0 n-vf 0 n-gf 0 n-fixed 0 n-marked 0 n-fehler 0) + (setq *ch-rec* nil) ;; Alte Markierungskreise entfernen (Idempotenz) (setq mss (ssget "_X" (list (cons 0 "CIRCLE") (cons 8 *ch-mark-layer*)))) @@ -348,7 +640,7 @@ (ch-move-z ent (- inp zc)) (setq zc inp) (ch-set-att ent "HOEHE" (rtos zc 2 0)) - (setq montage (ch-write-montage ent (/ zc 1000.0) lbl)) + (setq montage (ch-montage-roh ent "KREISEL" (/ zc 1000.0) lbl nil)) (setq n-fixed (1+ n-fixed)) (princ (strcat "\n -> verschoben & gesetzt: HOEHE=" (rtos zc 2 0) " -> MONTAGEHOEHE_m=" (rtos montage 2 3)))) @@ -362,7 +654,7 @@ ;; --- gueltig --- (progn (ch-set-att ent "HOEHE" (rtos zc 2 0)) - (setq montage (ch-write-montage ent (/ zc 1000.0) lbl)) + (setq montage (ch-montage-roh ent "KREISEL" (/ zc 1000.0) lbl nil)) (princ (strcat "\n " lbl ": HOEHE=" (rtos zc 2 0) " -> MONTAGEHOEHE_m=" (rtos montage 2 3)))) ) @@ -399,10 +691,11 @@ (progn (ch-set-att ent "HOEHE_VON_mm" (rtos kez 2 0)) (ch-set-att ent "HOEHE_BIS_mm" (rtos kaz 2 0)) - (setq montage (ch-write-montage ent + (setq montage (ch-montage-roh ent + (if (wcmatch nm "GF_*") "GF" "VF") (if (wcmatch nm "GF_*") (/ kez 1000.0) - (/ (+ kez kaz) 2000.0)) lbl)) + (/ (+ kez kaz) 2000.0)) lbl (cddr meas))) (setq n-fixed (1+ n-fixed)) (princ (strcat "\n -> verschoben & gesetzt: VON=" (rtos kez 2 0) ", BIS=" (rtos kaz 2 0) @@ -420,10 +713,11 @@ (t (ch-set-att ent "HOEHE_VON_mm" (rtos kez 2 0)) (ch-set-att ent "HOEHE_BIS_mm" (rtos kaz 2 0)) - (setq montage (ch-write-montage ent + (setq montage (ch-montage-roh ent + (if (wcmatch nm "GF_*") "GF" "VF") (if (wcmatch nm "GF_*") (/ kez 1000.0) - (/ (+ kez kaz) 2000.0)) lbl)) + (/ (+ kez kaz) 2000.0)) lbl (cddr meas))) (princ (strcat "\n " lbl ": HOEHE_VON_mm=" (rtos kez 2 0) ", HOEHE_BIS_mm=" (rtos kaz 2 0) " -> MONTAGEHOEHE_m=" (rtos montage 2 3)))) @@ -431,6 +725,8 @@ ) ) ) + ;; Phase 3: Buehnen-Familien (arbeitet das Register *ch-rec* ab) + (ch-phase3) (princ (strcat "\n--------------------------------------------" "\n Kreisel: " (itoa n-kreisel) " VF: " (itoa n-vf) @@ -449,4 +745,4 @@ ) (princ "\n>>> check_hoehen.lsp geladen (Phase 1-3). Befehl: HOEHEN_CHECK") -(princ) +(princ) \ No newline at end of file diff --git a/Lisp/export.lsp b/Lisp/export.lsp index 7c8dff4..8687217 100644 --- a/Lisp/export.lsp +++ b/Lisp/export.lsp @@ -2397,6 +2397,11 @@ ;; 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. @@ -2449,6 +2454,7 @@ (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 @@ -2915,8 +2921,48 @@ ) +;; Vor dem Sivas-Export anbieten, den Hoehen-Check (HOEHEN_CHECK, check_hoehen.lsp) +;; auszufuehren: Er setzt die Montagehoehen inkl. Buehnenabzug, den der Export +;; selbst nicht kennt. Bewusst eine Rueckfrage (Vorgabe Ja, Enter startet den +;; Check, "Nein" ueberspringt ihn) statt automatisch: der Check stellt Fragen +;; und wuerde Hand-Korrekturen von MONTAGEHOEHE_m bei jedem Export ueberschreiben. Entfaellt ohne GUI und bei abgeschaltetem +;; Schalter *csv-hoehencheck-fragen* (automatische Tests). +(if (null *csv-hoehencheck-fragen*) (setq *csv-hoehencheck-fragen* T)) + +(defun csv:hoehencheck-anbieten () + (if (and *csv-hoehencheck-fragen* + (ssg-gui-p) + (car (atoms-family 1 '("SSG-IN-YESNO"))) + (ssg-in-yesno (ssg-text "exp-hoehencheck-frage") T)) + (progn + (ssg-ensure "check_hoehen") + (if (car (atoms-family 1 '("C:HOEHEN_CHECK"))) + (c:HOEHEN_CHECK) + (princ (ssg-text "exp-hoehencheck-fehlt"))))) +) + +;; Vor dem Sivas-Export die Zeichnung bereinigen (BricsCAD-Befehl BEREINIG / +;; PURGE): entfernt unbenutzte Bloecke, Layer, Linientypen usw. samt +;; verschachtelter Elemente. Sprachunabhaengig ueber -PURGE mit "_All". +;; Schalter *csv-bereinigen-vor-export* (Standard an; Tests schalten ab, da +;; die Zeichnung veraendert wird). +(if (null *csv-bereinigen-vor-export*) (setq *csv-bereinigen-vor-export* 'an)) + +(defun csv:bereinigen () + (if (and (eq *csv-bereinigen-vor-export* 'an) (ssg-gui-p)) + (progn + (princ (ssg-text "exp-bereinigen")) + ;; Zweimal, weil das Entfernen eines Blocks dessen Layer/Linientypen + ;; erst frei macht (zusaetzlich zur Nested-Option) + (repeat 2 + (vl-catch-all-apply + '(lambda () (command "_.-PURGE" "_All" "*" "_No")))) + (princ)))) + ;; --- EXPORTSIVAS: Sivas-spezifischer CSV-Export mit Summierungszeilen --- (defun c:EXPORTSIVAS () + (csv:bereinigen) + (csv:hoehencheck-anbieten) (csv:run-export "EXPORTSIVAS" (export:filename "sivas_script") (export:filename "sivas_csv") diff --git a/Lisp/ssg_core.lsp b/Lisp/ssg_core.lsp index be406e4..eda7b2b 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..70bb309 100644 --- a/Lisp/ssg_dbg.lsp +++ b/Lisp/ssg_dbg.lsp @@ -86,8 +86,20 @@ ;; 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. +;; testlauf - Laufprotokoll je Test von SSG_RUN_ALL_TESTS nach +;; DXFM_LOG/testlauf_.dbg (eigene Datei, nicht +;; ueber *dbg-path*; jede Zeile sofort geschrieben, +;; damit bei einem haengenden Test der letzte Schritt +;; sichtbar ist). Standard 1 - kostet nur ein paar +;; Zeilen je Test, siehe testrun:log in +;; tests/test_run_all.lsp. ;; ------------------------------------------------------------ -(foreach nm '(("vf-sepliste" . 1) ("csv_leave_proxies" . 0)) +(foreach nm '(("vf-sepliste" . 1) ("csv_leave_proxies" . 0) ("kf-zeit" . 0) + ("testlauf" . 1)) (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 794b98b..47b3063 100644 --- a/Lisp/ssg_id.lsp +++ b/Lisp/ssg_id.lsp @@ -47,6 +47,9 @@ ;; 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_*- @@ -84,6 +87,7 @@ (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/ssg_load.lsp b/Lisp/ssg_load.lsp index 9bd8337..de14c49 100644 --- a/Lisp/ssg_load.lsp +++ b/Lisp/ssg_load.lsp @@ -39,6 +39,7 @@ (load (strcat base-path "OmniModulInsert.lsp") "OmniModulInsert.lsp nicht gefunden") (load (strcat base-path "Tro_Edit.lsp") "Tro_Edit.lsp nicht gefunden") (load (strcat base-path "Connection_Edit.lsp") "Connection_Edit.lsp nicht gefunden") + (load (strcat base-path "Jam_Edit.lsp") "Jam_Edit.lsp nicht gefunden") (load (strcat base-path "SSG_LIB_Commands.lsp") "SSG_LIB_Commands.lsp nicht gefunden") ;; Werkzeuge: ssg_texttools nutzt ssg_blocktools, beide nutzen ssg_input (load (strcat base-path "ssg_blocktools.lsp") "ssg_blocktools.lsp nicht gefunden") 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..ba50636 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" @@ -1765,10 +1984,12 @@ (unload_dialog dat) (if (= ergebnis 1) (if (= gtyp "0") - ;; GF + Neigung + Separator VOR/NACH (Ja/Nein je "1"/"0") + ;; GF + Neigung + Separator VOR/NACH (Ja/Nein je "1"/"0"). + ;; Der Typ geht als WERT in die Queue (*vfl-m2-linie-werte*), die + ;; Separator-Antworten bleiben Ja/Nein-Ziffern wie ueberall sonst. (vflw-pending-push-all - (list "1" (atof gwert) (if (= gsepvor "1") "1" "2") (if (= gsepnach "1") "1" "2"))) - (vflw-pending-push-all (list "2")))))) ; VF (keine Neigung/Separator) + (list "gf" (atof gwert) (if (= gsepvor "1") "1" "2") (if (= gsepnach "1") "1" "2"))) + (vflw-pending-push-all (list "vf")))))) ; VF (keine Neigung/Separator) (princ)) ;; --- Modus 3, Segment "Gerade": Typ (GF/VF-Ab/VF-Auf/VF-Hor) + Wert --- @@ -1871,10 +2092,12 @@ (unload_dialog dat) (if (= ergebnis 1) (if (and (= gtyp "1") vario-erlaubt) - ;; Vario-Kurve: "2" + Variante ("1"=aussen / "2"=innen; Index+1) - (vflw-pending-push-all (list "2" (itoa (1+ (atoi gvariante))))) - ;; GF-Bogen (oder Vario unzulaessig): "1" (keine Variante) - (vflw-pending-push-all (list "1")))))) + ;; Vario-Kurve + Variante, beide als WERT (*vfl-m2-bogen-werte* / + ;; *vfl-m2-variante-werte*) statt als Menue-Index. + (vflw-pending-push-all + (list "vario-kurve" (if (= gvariante "1") "innen" "aussen"))) + ;; GF-Bogen (oder Vario unzulaessig): keine Variante + (vflw-pending-push-all (list "gf-bogen")))))) (princ)) ;; ============================================================ @@ -1915,6 +2138,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 +2263,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 +2368,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 +2948,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 +4092,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 +4975,752 @@ ) ) +;; ------------------------------------------------------------------ +;; "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. +;; --- Schenkel eines VF-Laufs (reiner Kern, in test_unit getestet) --- +;; Ein "Schenkel" ist ein zusammenhaengender Abschnitt des VF-Laufs mit EINER +;; Fahrtrichtung. Eine Vario-Kurve im Lauf beendet den einen und beginnt den +;; naechsten - eine U-Form (hoch, quer, runter) hat also drei Schenkel. +;; +;; Wozu: Der Solver bilanziert die Laengen SKALAR ueber den ganzen Lauf. Das +;; stimmt nur, solange alle festen Teile auf derselben Achse liegen. Bei einem +;; gefalteten Lauf sitzen Umlenkstation/Separator/GF1 im EINGANGS-Schenkel, +;; die Kletterstrecke aber oft in einem anderen - der Solver zieht sie +;; trotzdem von deren Spanne ab, und die Kette endet weit daneben +;; (dokumentiert: dY = +2645 mm, doc/todo/modus2-achsenweise-bilanz.md). +;; +;; Rueckgabe: Liste der Fahrtrichtungen (hz) je Schenkel, in Bau-Reihenfolge. +;; Laenge 1 = gerader Lauf (der Fall, fuer den der Solver gebaut ist). +;; Gezaehlt wird ueber die RICHTUNG der Geraden, nicht ueber die Zahl der +;; Kurven: zwei entgegengesetzte 90-Grad-Kurven ergeben drei Schenkel, zwei +;; gleichsinnige ebenso - entscheidend ist, ob sich die Richtung aendert. +(defun vfl-m2-schenkel (plan vf-start vf-ende / i seg out letzt hz) + (setq i vf-start out '() letzt nil) + (while (<= i vf-ende) + (setq seg (nth i plan)) + (if (= (car seg) "Linie") + (progn + (setq hz (ks-winkel-normalisieren (float (cadr seg)))) + (if (or (null letzt) (> (abs (- hz letzt)) 1.0)) + (setq out (cons hz out))) + (setq letzt hz))) + (setq i (1+ i))) + (reverse out)) + +;; T, wenn der Lauf gefaltet ist (mehr als eine Fahrtrichtung). +(defun vfl-m2-gefaltet-p (plan vf-start vf-ende) + (> (length (vfl-m2-schenkel plan vf-start vf-ende)) 1)) + +;; Nummer des Schenkels, in dem ein Segment liegt (0-basiert, ab vf-start +;; gezaehlt). Fuer Bogen-Segmente der Schenkel, der VOR ihnen endet. +;; Damit laesst sich fragen: liegt der Kletterer im selben Schenkel wie der +;; Lauf-Eingang? Nur wenn NICHT, ist die skalare Bilanz falsch. +(defun vfl-m2-schenkel-index (plan vf-start seg-idx / i seg k letzt hz) + (setq i vf-start k 0 letzt nil) + (while (<= i seg-idx) + (setq seg (nth i plan)) + (if (= (car seg) "Linie") + (progn + (setq hz (ks-winkel-normalisieren (float (cadr seg)))) + (if (and letzt (> (abs (- hz letzt)) 1.0)) (setq k (1+ k))) + (setq letzt hz))) + (setq i (1+ i))) + k) + +;; --- Eingangs-Hardware auf einem FUELLER-Segment (reiner Kern, getestet) --- +;; GF1 + Separator + Umlenkstation + Uebergangsbogen werden am Lauf-EINGANG +;; gebaut, stehen also auf dem Segment vf-start. Ist dieses Segment zugleich +;; der Kletterer, sind sie ueber feste-vf bereits im Solver beruecksichtigt - +;; dann darf hier NICHTS abgezogen werden (sonst doppelt). +;; Ist vf-start dagegen ein FUELLER (der Kletterer liegt hinter einer Kurve), +;; kennt den Platzbedarf niemand: der Fueller bekam bisher die volle +;; Restlaenge des Segments, als staende dort nichts. Realer Fall 2026-10-27: +;; Planlaenge 5855 mm, tatsaechlich belegt 10668 mm, Kette 8005 mm daneben. +;; Rueckgabe: der abzuziehende Grundriss-Anteil (0.0, wenn nicht zutreffend). +;; gf-total = die vom Solver gewaehlte GF1-Laenge (Schraeglaenge bei 3 Grad). +(defun vfl-m2-eingang-fp (idx vf-start climbers gf-total rad3 / m) + (if (or (/= idx vf-start) (member vf-start climbers)) + 0.0 + (progn + (setq m (get-bogen-mass bogen-auf (fix *vfk-gefaelle-winkel*))) + (+ (* (+ (if gf-total (float gf-total) 0.0) + *vfk-separator-laenge* + *vfk-stations-laenge*) + (cos rad3)) + (if m (car m) 0.0))))) + +;; Allgemeiner Normalisierer fuer selbstbeschreibende Antwortwerte. +;; werte = heutige Werte in Optionsreihenfolge, alt = Alist Alt-Ziffer -> Wert +;; (nur fuer Bestandsketten). Rueckgabe nil = UNBEKANNT; der Aufrufer bricht +;; dann ab, statt eine Variante zu raten - ein geratener Wert waere ein +;; lautloser Fehlaufbau. Alt-Ziffern und neue Werte sind disjunkt, die +;; Zuordnung also eindeutig. +(defun vfl-wert-norm (wert werte alt / tr) + (cond + ((not (and wert (= (type wert) 'STR))) nil) + ((member wert werte) wert) + ((setq tr (assoc wert alt)) (cdr tr)) + (t nil))) + +(defun vfl-m2-anfang-norm (wert) + (vfl-wert-norm wert *vfl-m2-anfang-werte* *vfl-m2-anfang-alt*)) + +;; --- Segment-Klassifizierung (Modus 2): Werte statt Menue-Ziffern --- +;; Dieselbe Begruendung wie beim Lauf-Anfang: die Ziffer haengt an der +;; Position im Menue, der Wert an seiner Bedeutung. Ein Umsortieren der +;; Optionen deutete sonst jede gespeicherte Kette still um. +;; Zusatznutzen hier: Typ und Variante benutzten BEIDE "1"/"2" und waren im +;; Journal nicht auseinanderzuhalten (siehe Kommentar bei m2-format-neu) - +;; mit eigenen Wertevorraeten ist das erledigt. +;; Alt -> Neu (nur fuer Bestandsketten), jeweils die alte Optionsreihenfolge. +(setq *vfl-m2-linie-werte* '("gf" "vf")) +(setq *vfl-m2-linie-alt* '(("1" . "gf") ("2" . "vf"))) +(setq *vfl-m2-bogen-werte* '("gf-bogen" "vario-kurve")) +(setq *vfl-m2-bogen-alt* '(("1" . "gf-bogen") ("2" . "vario-kurve"))) +(setq *vfl-m2-variante-werte* '("aussen" "innen")) +(setq *vfl-m2-variante-alt* '(("1" . "aussen") ("2" . "innen"))) + +;; 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 +6119,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 +6231,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 +6646,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 +7569,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 +7707,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 +7932,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 +8086,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 +8179,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 +8211,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 +8227,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 +8534,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 +8580,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 +9335,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")) @@ -8804,12 +10072,50 @@ ;; vl-catch-all-apply schuetzt vor (exit)/Fehlern im Bau (z.B. KS-Problem bei ;; einem 2D-Koerperblock ohne gueltiges KS), damit die Batch-Schleife weiterlaeuft ;; und der Override sicher zurueckgesetzt wird. Rueckgabe: T bei Erfolg, sonst nil. -;; Bekannte Grenze (nur Modus 2): das Replay von vfl-in-selection braucht die -;; Original-Pfadobjekte; wurden sie geloescht, schlaegt der Konverter fuer diesen -;; Block sauber fehl (sichtbar am nicht erhoehten Batch-Zaehler). Modus 3 -;; ("linienzug3") hat diese Grenze NICHT: es replayt die Segment-Essenz (SEGS) -;; aus dem Journal, nicht die Objekt-Handles - unabhaengig von den Original-LINE/ARC. -(defun vfl-konvertiere-ent (ent ziel-dim / bname xd marker journal ok) +;; +;; Headless + "alter Block erst nach Erfolg weg" (2026-10-26): +;; - Der Replay laeuft unter *vfl-headless* (Wizard aus, GUI aus): reicht das +;; Journal nicht (Bau-Dialog hat seit dem Bau des Blocks neue Fragen +;; bekommen), bricht der Bau mit Fundstelle ab, statt mitten im Batch live +;; nachzufragen. +;; - Der ALTE Block bleibt waehrend des Neubaus stehen und wird erst geloescht, +;; wenn ein neuer VF_n-INSERT entstanden ist. Scheitert der Neubau, wird +;; alles seit der Startmarke Erzeugte wieder entfernt - der alte Block bleibt +;; unveraendert, es entstehen keine losen Teile mehr. (Der neue Block bekommt +;; eine neue Nummer; das war schon vorher so, weil vf-next-number die +;; Definition des geloeschten VF_n ueberspringt.) +;; - Jede Fehlschlag-Ursache landet in *vfl-konvert-fehler* als +;; (blockname . text), der Batch-Aufrufer gibt die Liste am Ende aus. +;; Modus 2 UND 3 replayen die Segment-Essenz (SEGS) aus dem Journal, nicht +;; die Objekt-Handles - unabhaengig von den Original-LINE/ARC. Alte +;; OBJS-"linienzug2"-Bloecke werden uebersprungen (siehe unten). +(if (not (boundp '*vfl-konvert-fehler*)) (setq *vfl-konvert-fehler* nil)) + +;; Ersten VF_*-INSERT nach der Startmarke suchen (= der neu gebaute Wrapper). +(defun vfl-konvert-neuer-block (marke / e ed) + (setq e (if marke (entnext marke) (entnext))) + (while (and e + (not (and (setq ed (entget e)) + (= (cdr (assoc 0 ed)) "INSERT") + (wcmatch (cdr (assoc 2 ed)) "VF_*")))) + (setq e (entnext e))) + e) + +;; Alles nach der Startmarke Erzeugte loeschen (Teil-Geometrie eines +;; gescheiterten Neubaus). ATTRIB/SEQEND/VERTEX gehoeren zu ihrem Hauptobjekt +;; und verschwinden mit ihm. +(defun vfl-konvert-aufraeumen (marke / e naechste ed liste) + (setq e (if marke (entnext marke) (entnext))) + (while e + (setq ed (entget e)) + (if (and ed (not (member (cdr (assoc 0 ed)) '("ATTRIB" "SEQEND" "VERTEX")))) + (setq liste (cons e liste))) + (setq e (entnext e))) + (foreach e liste (if (entget e) (entdel e))) + (length liste)) + +(defun vfl-konvertiere-ent (ent ziel-dim / bname xd marker journal ok marke neu + alt-wizard alt-headless alt-gui grund) (setq bname (cdr (assoc 2 (entget ent)))) (setq xd (vfl-journal-xdata-lesen ent)) ; (marker . journal) oder nil (setq marker (car xd) journal (cdr xd)) @@ -8822,26 +10128,42 @@ ;; (nil zurueck), damit die Batch-Schleife sauber weiterlaeuft. (or (/= marker "linienzug2") (vfl-journal-hat-segs-p journal))) (progn + (setq marke (ssg-lastent-ohne-attribute)) ; Startmarke VOR dem Neubau + ;; Headless-Rahmen (wie vsp-headless-an, aber ohne Eingabe-Stubs: die + ;; vfl-in-*-Wrapper brechen bei leerer Queue selbst ab) + (setq alt-wizard (if (boundp '*vfl-wizard-mode*) *vfl-wizard-mode*) + alt-headless (if (boundp '*vfl-headless*) *vfl-headless*)) + (setq *vfl-wizard-mode* nil *vfl-headless* T + *vfl-headless-fehler* nil *vfl-meldungen* nil) + (setq alt-gui (if (car (atoms-family 1 '("SSG-GUI-P"))) (ssg-gui-p))) + (if alt-gui (ssg-gui-aus)) (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) (t 'vf-linienzug-modus)))) (setq *ssg-ils-dim* nil) ; Override zuruecksetzen - ;; Fehlgeschlagene Konvertierung NICHT stumm verschlucken: der alte Block - ;; ist per entdel schon weg, die Teil-Geometrie liegt frei in der - ;; Zeichnung (der *error*-Handler in vf-linienzug-modus kann hier nicht - ;; greifen, weil vl-catch-all-apply den Abbruch vorher abfaengt - das ist - ;; hier gewollt, damit die Batch-Schleife weiterlaeuft). Meldung mit - ;; Blockname, damit der betroffene Block auffindbar bleibt. - (if (vl-catch-all-error-p ok) + (setq *vfl-wizard-mode* alt-wizard *vfl-headless* alt-headless) + (if alt-gui (ssg-gui-an)) ; nur zurueck, wenn sie an war + (setq neu (vfl-konvert-neuer-block marke)) + (if (and (not (vl-catch-all-error-p ok)) neu) + (progn (entdel ent) T) ; Erfolg: erst jetzt alten weg (progn - (princ (ssg-textf "vfl-konvert-fehler" - (list bname (vl-catch-all-error-message ok)))) - nil) - T)) + ;; Grund: Headless-Fundstelle vor Fehlertext vor letzter Meldung + (setq grund + (cond ((cdr (assoc "ort" *vfl-headless-fehler*)) + (ssg-textf "vfl-konvert-grund-journal" + (list (cdr (assoc "ort" *vfl-headless-fehler*))))) + ((vl-catch-all-error-p ok) (vl-catch-all-error-message ok)) + (*vfl-meldungen* (last *vfl-meldungen*)) + (t (ssg-text "vfl-konvert-grund-kein-block")))) + (vfl-konvert-aufraeumen marke) + (setq *vfl-konvert-fehler* + (append *vfl-konvert-fehler* (list (cons bname grund)))) + (princ (ssg-textf "vfl-konvert-fehler" (list bname grund))) + nil))) nil)) (defun vfl-edit-ent (ent / xd marker journal glieder glieder-alle has-as n i pos trunc edit-modus dim) @@ -8940,15 +10262,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 @@ -9238,23 +10564,38 @@ startpunkt ) ;; ============================================================ -;; MODUS 2: 3D-OBJEKTE WAEHLEN (Meilenstein 1 - GF-Teil) +;; MODUS 2: 3D-OBJEKTE WAEHLEN ;; ============================================================ ;; Baut die Kette aus einem GEZEICHNETEN Pfad (LINE/ARC). Ablauf: ;; Objekte waehlen -> gf-sortiere-objekte -> gf-analysiere-kette ;; -> Eck-Winkel-Vorpruefung -> segmentweise (Variante B) live bauen -> ES. -;; In diesem Meilenstein ist NUR der GF-Teil aktiv (GF-Gerade mit eigener -;; Neigung <=3 Grad, GF-Bogen). Die VF-Zweige sind als TODO (Meilenstein 2) -;; markiert und werden uebersprungen. +;; GF-Teil (GF-Gerade mit eigener Neigung <=3 Grad, GF-Bogen) UND VF-Laeufe +;; sind gebaut (Bau-Schleife "Meilenstein 2: GF + VF-Laeufe", Run-State- +;; Machine GF<->VF). Offene Grenze: gefaltete VF-Laeufe (U-Form), siehe +;; doc/todo/modus2-achsenweise-bilanz.md. ;; Bekannte Naeherungen (in BricsCAD verifizieren): ;; - Eck-Trimmung nur an erster/letzter Geraden (-aus-dx bzw. -300-ein-dx, -;; wie gf-linienzug-modus); Separatoren VOR GF-Boegen noch NICHT gesetzt. +;; wie gf-linienzug-modus). Separatoren vor/nach einem GF-Bogen kommen +;; ueber "Separator VOR/NACH" der angrenzenden GF-Geraden (Klassifizierung). ;; - 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 +10622,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 +10670,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 +10684,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 +10692,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 +10789,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 +10806,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 +10851,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 -> @@ -9616,6 +11007,35 @@ (strcat "Eck/Bogen " (itoa (nth 3 seg)) " Grad " (nth 4 seg))) (= run-typ "VF"))) ; Modus 3: Vario nur im offenen VF-Lauf (vfl-seg-highlight seg-ent nil))) + ;; !!! ACHTUNG beim Aendern der folgenden Auswahllisten !!! + ;; Modus 3 klassifiziert seine Segmente noch ueber MENUE-ZIFFERN: die + ;; Antworten werden roh als "1"/"2"/"3"/"4" verglichen UND genauso ins + ;; Journal geschrieben (Marker "linienzug3"). Die Ziffer bedeutet also + ;; nichts aus sich heraus - sie ist eine Position in der Liste, die hier + ;; gerade steht. + ;; Wer die Optionen umsortiert, ergaenzt oder entfernt, deutet damit JEDES + ;; bereits gespeicherte Modus-3-Journal still um: ein Doppelklick baut die + ;; Kette dann anders wieder auf, ohne Fehlermeldung. Genau das ist beim + ;; Lauf-Anfang real passiert (833a4b6). + ;; Modus 2 hat das nicht mehr: dort stehen selbstbeschreibende Werte + ;; ("gf"/"vf", "gf-bogen"/"vario-kurve", "aussen"/"innen") plus eine + ;; Alt-Tabelle fuer Bestandsketten, aufgeloest ueber vfl-wert-norm + ;; (4a19ac0). Dieselbe Mechanik ist fuer Modus 3 vorbereitet, aber BEWUSST + ;; nicht angewandt: es gibt kein aufgezeichnetes Modus-3-Journal und damit + ;; kein Sicherheitsnetz, das beweist, dass Bestandsketten die Umstellung + ;; unveraendert ueberstehen - bei Modus 2 haben das die beiden + ;; Referenzketten getan (sie tragen bis heute die alten Ziffern). + ;; Nutzer-Entscheidung 2026-10-29: ein Modus-3-Testfall wird VORERST nicht + ;; angelegt - bei Problemen im Einsatz wird getestet und korrigiert. Die + ;; Umstellung bleibt damit offen, das Risiko bestehen - deshalb steht die + ;; Warnung hier statt in einer TODO-Datei. + ;; Falls doch einmal eine Modus-3-Kette untersucht werden muss: mit + ;; lib/vf_journal_export.py das Journal aus der Zeichnung ziehen - damit + ;; liegt das fehlende Netz vor und die Umstellung ist derselbe Handgriff + ;; wie bei Modus 2. + ;; Hintergrund: doc/todo/spec-modus2-3.md, Konvention in CLAUDE.md + ;; ("Werte selbstbeschreibend fuehren, nicht als positionsabhaengige + ;; Indizes/Flags"). (cond ;; ===================== GERADE ===================== ((= typ "Linie") @@ -9631,21 +11051,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 +11086,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 +11128,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 +11137,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 +11195,41 @@ ) ;; ============================================================ -;; 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, und sie beruht +;; auf einer Eigenschaft der Bauteile: die Neigung eines Teils aendert seine +;; HOEHE, aber nicht seinen XY-FUSSABDRUCK. Ein Staustrecken-Teil mit +;; Planlaenge L belegt in der Draufsicht immer L - die 3D-Laenge waechst auf +;; L/cos(w), die Projektion bleibt L. Z-Ziel und Pfadtreue sind damit zwei +;; unabhaengige Probleme und duerfen nacheinander geloest werden: +;; XY = gezeichneter Pfad, reine KS-Kettung (wie Modus 3, mm-Drift akzeptiert) +;; Z = gerechnet, sodass das Kettenende die Ziel-Hoehe EXAKT trifft +;; Daher auch die zwei Phasen von vf-linienzug-modus2: erst alle Hoehen +;; durchrechnen, dann bauen. +;; +;; (Zum Gegensatz Modus 2 / Modus 3: Modus 3 baut vorwaerts, seine Endhoehe ist +;; ein ERGEBNIS - ein Anfangswertproblem. Modus 2 kennt Start UND Ziel je in +;; X/Y/Z und rechnet die Zwischenhoehen - ein Randwertproblem.) +;; +;; 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 +11238,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 +11255,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 +11276,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,13 +11286,52 @@ ;; 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) +;; Stiller Nachrechner: L_GF/L_VF beim BEREITS GEWAEHLTEN Winkel mit einer +;; korrigierten Spanne neu aufteilen - ohne Dialog, ohne neue Winkelfrage. +;; Gebraucht bei gefaltetem Lauf: dort liegt ein Teil der Gefaellestrecke +;; (GF1) auf dem Eingangs-Schenkel und verbraucht die Spanne des Kletterers +;; nicht. Das weiss man erst, wenn Winkel UND GF-Verteilung beantwortet sind - +;; also nach der Winkelwahl. Deshalb hier nachrechnen statt die Frage +;; vorzuziehen: so bleibt die Fragenfolge (und damit jedes gespeicherte +;; Journal) unveraendert. +;; aus-dx/ein-dx werden wie in vfl-zsolve-winkel-waehlen temporaer genullt - +;; dieselbe Begruendung, siehe dort. +;; Rueckgabe: (L_GF L_VF) oder nil, wenn der Winkel bei dieser Spanne nicht +;; mehr aufgeht (dann bleibt der Aufrufer beim bisherigen Ergebnis). +(defun vfl-zsolve-nachrechnen (span dH-signiert feste winkel / + o-adx o-adz o-eix o-eiz richtung res tr) + (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) + (setq aus-dx 0.0 aus-dz 0.0 ein-dx 0.0 ein-dz 0.0) + (setq res (berechne-alle-winkel span (abs dH-signiert) richtung feste nil)) + (setq aus-dx o-adx aus-dz o-adz ein-dx o-eix ein-dz o-eiz) + (setq tr nil) + (foreach e (nth 3 res) + (if (and (null tr) (= (car e) winkel) (cadddr e) + (numberp (cadr e)) (numberp (caddr e)) + (> (cadr e) 0) (> (caddr e) 0)) + (setq tr (list (cadr e) (caddr e))))) + tr) + +;; Anteil der Gefaellestrecke, der NICHT auf dem Kletterer-Schenkel liegt. +;; Reiner Kern (getestet). br-gf-mode: 1 = alles am Einlauf, 2 = halb/halb, +;; 3 = alles am Auslauf. Liegt der Eingang auf dem Kletterer selbst, ist +;; nichts fremd - dann 0. +(defun vfl-m2-gf-fremdanteil (gf-total br-gf-mode eingang-ist-kletterer) + (cond (eingang-ist-kletterer 0.0) + ((= br-gf-mode 1) (float gf-total)) + ((= br-gf-mode 2) (/ (float gf-total) 2.0)) + (t 0.0))) + +(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)) (cond ((= (car seg) "Linie") - (setq w (nth 4 seg) dL (caddr seg)) + ;; Eck-Zuschlag wie im Bau (vfl-eck-extra) - sonst rechnet die Hoehe mit + ;; einer anderen Laenge als gebaut wird (vgl. dZ-Sprung 2026-10-26). + (setq w (nth 4 seg) dL (+ (caddr seg) (vfl-eck-extra i))) (if (= i last-idx) (setq dL (- dL *vfk-separator-laenge* ein-fp))) (setq dL (max *vfk-restlaenge-min-clamp* dL)) (setq rad (* (float w) (/ pi 180.0))) @@ -9832,7 +11339,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 +11353,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 +11379,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 +11399,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 +11413,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 +11425,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 @@ -9942,6 +11449,159 @@ ) ) +;; --- Eck-Korrektur: Eck-Bauteil an die beiden GERADEN anlegen --- +;; Leitsatz (Nutzer-Vorgabe 2026-10-26): der gezeichnete Bogen sagt nur, WO +;; die Ecke liegt und WIE HERUM es geht. Sein Radius und seine Masse sind +;; KEINE Vorgabe - massgeblich sind die beiden Geraden. Die MITTELLINIE des +;; Eck-Bauteils (Vario-Kurve bzw. Gefaellebogen) muss die beiden Geraden +;; beruehren: KS_EIN liegt auf der Geraden davor UND zeigt in deren Richtung, +;; KS_AUS auf der Geraden danach und in deren Richtung. Dann laeuft die Kette +;; knickfrei und ohne Seitenversatz durch die Ecke - egal, welchen Radius +;; jemand gezeichnet hat. +;; Weil zwei nicht-parallele Geradenrichtungen die Ebene aufspannen, ist die +;; Bedingung durch zwei Laengenzuschlaege EXAKT erfuellbar; an einer Ecke +;; bleibt also kein Querrest uebrig. +;; +;; Umgesetzt als Differenz der TANGENTENABSTAENDE zur Ecke. Die Planlaengen +;; der Geraden sind bis zum GEZEICHNETEN Tangentenpunkt gemessen, das Bauteil +;; setzt an seinem EIGENEN an - die Differenz bekommt jede der beiden Geraden +;; als Budget-Zuschlag. Rechnerisch ist das die Zerlegung +;; d = a*u_ein + b*u_aus, d = gezeichnete Sehne - Bauteil-Fussabdruck +;; auf die Richtungen der beiden Geraden (eindeutig, solange die Ecke einen +;; Schwenk hat). Der gezeichnete Radius kuerzt sich dabei vollstaendig heraus: +;; mit R300 statt R500 aendern sich Planlaenge UND Sehne gemeinsam. +;; Ohne diese Korrektur verschiebt die Differenz ALLES Nachfolgende und taucht +;; erst am Kettenende auf (real 2026-10-26: 132.6 mm von 155 mm Gesamtfehler - +;; Pfad R500 = Tangentenabstand 500, Vario-Kurve = 406.2). +;; +;; Grenze: beruehren kann das Bauteil nur beide Geraden, wenn sein Schwenk zum +;; Eckwinkel passt (90-Grad-Kurve an 90-Grad-Ecke). Weichen sie voneinander +;; ab, bleibt ein Rest, den keine Laengenaenderung aufheben kann. +;; +;; GEMESSEN, nicht gerechnet: die Sehne steht als (caddr seg) im Plan (aus der +;; Zeichnung), der Bauteil-Fussabdruck kommt ueber vfl-zsolve-es-vektor aus der +;; realen Blockgeometrie. Darum greift die Korrektur fuer jeden Eckwinkel und +;; jeden gezeichneten Radius, ohne gepflegte Tabelle. +;; Rueckgabe: Alist (segment-index . zuschlag-mm). +(defun vfl-eck-korrekturen (plan n / korr i seg hz w seite blk vek + sgn th s-along s-perp d-along d-perp a b j + jp bm neig) + (setq korr '() i 0) + (while (< i n) + (setq seg (nth i plan)) + (if (and (= (car seg) "Bogen") (nth 3 seg) (nth 4 seg)) + (progn + (setq hz (cadr seg) + w (float (nth 3 seg)) + seite (nth 4 seg) + sgn (if (= seite "links") 1.0 -1.0) + th (* sgn w (/ pi 180.0))) + ;; Sehne des GEZEICHNETEN Bogens im Fahrtrichtungs-System der + ;; einlaufenden Geraden - ihre Richtung ist der halbe Schwenk. + (setq s-along (* (caddr seg) (cos (/ th 2.0))) + s-perp (* (caddr seg) (sin (/ th 2.0)))) + ;; Blocknamen NICHT selbst zusammensetzen - gf-bogen-blockname ist die + ;; eine Stelle, die das Namensschema der Gefaelleboegen kennt (Radius, + ;; Sonderfaelle). Ein handgebauter Name traf den Block nicht, die + ;; Messung kam leer zurueck und die Ecke blieb unkorrigiert - real + ;; 2026-10-26: 2.4 mm Rest, weil der 90-Grad-Gefaellebogen geneigt + ;; eingebaut nur 497.8 statt 500 mm Grundriss-Fussabdruck hat. + (setq blk (if (= (nth 5 seg) "Vario-Kurve") + (strcat "Vario_Kurve_" seite "_" (itoa (fix w)) "_TEF_" + (if (nth 6 seg) (nth 6 seg) "aussen")) + (gf-bogen-blockname (fix w) seite))) + (setq vek (vfl-zsolve-es-vektor blk hz)) + ;; GF-Boegen werden GENEIGT eingebaut (Gefaellewinkel der Strecke) - + ;; ihr GRUNDRISS-Fussabdruck ist dadurch kuerzer als flach gemessen. + ;; Real 2026-10-26: flach 500.0, bei 3 Grad 497.8; der Unterschied + ;; blieb als 2.4 mm am Kettenende stehen. Vario-Kurven werden + ;; waagerecht eingebaut und bleiben unberuehrt (dort war die Kette + ;; bereits auf 0.2 mm genau). Projiziert mit dem vorhandenen + ;; vfl-projiziere-neigung, Neigung = Gefaellewinkel der Geraden davor + ;; (sonst der Standardwert, mit dem auch hinter einer VF-Einheit + ;; gebaut wird). + (if (and vek (/= (nth 5 seg) "Vario-Kurve")) + (progn + (setq jp (1- i)) + (while (and (>= jp 0) (/= (car (nth jp plan)) "Linie")) (setq jp (1- jp))) + (setq neig (if (and (>= jp 0) + (numberp (nth 4 (nth jp plan))) + (> (nth 4 (nth jp plan)) 0)) + (float (nth 4 (nth jp plan))) + (float *vfk-gefaelle-winkel*))) + (setq bm (gf-bogen-masse (fix w) seite)) + (if bm + (setq vek (list (car (vfl-projiziere-neigung (car vek) (cadr bm) neig)) + (cadr vek)))))) + (setq d-along (if vek (vfl-eck-zerlegen s-along s-perp + (car vek) (cadr vek) th) nil)) + (if d-along + (progn + (setq a (car d-along) b (cadr d-along)) + ;; a auf die Gerade DAVOR, b auf die Gerade DANACH + (setq j (1- i)) + (while (and (>= j 0) (/= (car (nth j plan)) "Linie")) (setq j (1- j))) + (if (>= j 0) (setq korr (cons (cons j a) korr))) + (setq j (1+ i)) + (while (and (< j n) (/= (car (nth j plan)) "Linie")) (setq j (1+ j))) + (if (< j n) (setq korr (cons (cons j b) korr))))))) + (setq i (1+ i))) + korr) + +;; Laengs-Reservierung der letzten Geraden, damit der ES-KS_AUS auf der +;; KS_AUS-ACHSE durch den Zielpunkt landet (reiner Kern, getestet). +;; Nutzer-Vorgabe 2026-10-26: QUER zur KS_AUS-Achse MUSS 0 sein, LAENGS darf +;; abweichen (das ist die Ausladung des Elements), dZ MUSS 0 sein. +;; Ein reiner Laengs-Abzug (= along) stellt den Endpunkt zwar in Fahrtrichtung +;; richtig, laesst aber den bauteileigenen Querversatz stehen - real 45.7 mm. +;; Gesucht ist die Strecke entlang der Fahrtrichtung, die ihn AUFHEBT: +;; KS_AUS = P + V_es, Bedingung (KS_AUS - Ziel) . n_a = 0 +;; -> Reserve = (V_es . n_a) / (dp . n_a) +;; dp = Fahrtrichtung der letzten Geraden, n_a = Normale der KS_AUS-Achse +;; (Achsrichtung = hz + es-turn). Die Gerade wird dadurch laenger als die +;; Planlaenge - zulaessig, weil laengs abweichen darf; ihre Mittellinie bleibt +;; dabei auf der gezeichneten Linie. Da derselbe Wert auch in den Rueckanker +;; geht, bleibt dZ 0 (vgl. Leitsatz: eine Groesse, beide Bilanzen). +;; Faellt die Achse mit der Fahrtrichtung zusammen (es-turn = 0), ist der +;; Nenner 0 - dann gibt es keinen Querversatz und along ist richtig. +;; along/perp: ES-Fussabdruck im Fahrtrichtungs-System (vfl-zsolve-es-vektor). +(defun vfl-es-achs-reserve (along perp hz es-turn / rad ua dpx dpy nax nay vx vy nenner) + (setq rad (/ pi 180.0)) + (setq ua (* (+ (float hz) (float es-turn)) rad)) + (setq nax (- (sin ua)) nay (cos ua)) + (setq dpx (cos (* (float hz) rad)) dpy (sin (* (float hz) rad))) + ;; V_es aus (along perp) ins Weltsystem: x^ = dp, y^ = senkrecht dazu + (setq vx (- (* along dpx) (* perp dpy)) + vy (+ (* along dpy) (* perp dpx))) + (setq nenner (+ (* dpx nax) (* dpy nay))) + (if (< (abs nenner) 1e-6) + along + (/ (+ (* vx nax) (* vy nay)) nenner))) + +;; Reiner Kern der Eck-Korrektur (in tests/test_unit.lsp geprueft): +;; Differenz zwischen gezeichneter Sehne (s-*) und Bauteil-Fussabdruck (b-*), +;; beide im Fahrtrichtungs-System der EINLAUFENDEN Geraden, zerlegt auf +;; d = a*u_ein + b*u_aus mit u_ein = (1,0) und u_aus = (cos th, sin th). +;; th = Schwenk der Ecke im Bogenmass (positiv = links). Rueckgabe (a b), +;; nil bei th = 0 (keine Ecke - dann ist die Zerlegung nicht eindeutig). +(defun vfl-eck-zerlegen (s-along s-perp b-along b-perp th / a b) + (if (< (abs (sin th)) 1e-9) + nil + (progn + (setq b (/ (- s-perp b-perp) (sin th))) + (setq a (- (- s-along b-along) (* b (cos th)))) + (list a b)))) + +;; Summe der Eck-Zuschlaege fuer ein Segment (0.0, wenn keiner vorliegt). +;; Globale Tabelle statt zusaetzlichem Parameter, damit die Signatur von +;; vfl-zsolve-rueckanker unveraendert bleibt (AutoLISP verlangt exakte +;; Argumentzahl - eine Erweiterung muesste jeden Aufrufer nachziehen). +(defun vfl-eck-extra (idx / s) + (setq s 0.0) + (if (boundp '*vfl-eck-korr*) + (foreach e *vfl-eck-korr* (if (= (car e) idx) (setq s (+ s (cdr e)))))) + s) + ;; Letzte Fueller-Laenge so, dass der Endpunkt auf der ES-KS_AUS-Achse liegt. ;; pt = Fueller-Start (flach 0 Grad), seg-hz = letzte Richtung, es-block = ES-Block, ;; gf2 = erwartete GF2-Laenge, rad3 = 3 Grad (rad). Modell: der Schwanz (Fueller + @@ -9949,10 +11609,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,20 +11646,26 @@ 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 laengs-wert quer-wert soll-korrigiert - es-vek-fix es-along-fix + es-vek-fix es-along-fix as-along-fix m-ueb + abschluss-fp m-ab3 es-vek-back ein-fp-mess + span-solver nachrechnen-k gf-fremd res-neu + kletter-ende-fp kl-es-vek 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 +11719,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 +11740,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 +11766,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 +11800,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))) @@ -10143,10 +11845,17 @@ (setq nach-kurve nil nach-vf t)) (t (princ (ssg-text "vfl-m3-typ-gerade")) - (setq antwort (vfl-menu (ssg-text "prompt-wahl-1-2") - (list "GF (Neigungswinkel)" "VF (Bruecke)") 1 - "vfl-m3-typ-gerade")) - (if (= antwort "2") + (setq antwort + (vfl-wert-norm + (vfl-menu-strwert (ssg-text "prompt-wahl-1-2") + (list "GF (Neigungswinkel)" "VF (Bruecke)") + *vfl-m2-linie-werte* 1 "vfl-m3-typ-gerade") + *vfl-m2-linie-werte* *vfl-m2-linie-alt*)) + (if (null antwort) + (progn (vfl-meldung (ssg-textf "vfl-m2-segwert-unbekannt" + (list (itoa (1+ i)) (vfl-replay-kette-text)))) + (exit))) + (if (= antwort "vf") (progn (setq plan (cons (list "Linie" hz laenge "VF" nil) plan)) (setq nach-vf t)) @@ -10159,6 +11868,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,33 +11882,70 @@ (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 "vario-kurve") ; 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 - "vfl-m3-typ-bogen")))) + (setq antwort + (vfl-wert-norm + (vfl-menu-strwert (ssg-text "prompt-wahl-1-2") + (list "GF-Bogen" "Vario-Kurve") + *vfl-m2-bogen-werte* (if nach-vf 2 1) "vfl-m3-typ-bogen") + *vfl-m2-bogen-werte* *vfl-m2-bogen-alt*)) + (if (null antwort) + (progn (vfl-meldung (ssg-textf "vfl-m2-segwert-unbekannt" + (list (itoa (1+ i)) (vfl-replay-kette-text)))) + (exit))))) (setq nach-vf nil) - (if (= antwort "2") + (if (= antwort "vario-kurve") (progn (princ (ssg-text "vfl-m3-variante-frage")) - (setq kv-variante (if (= (vfl-menu (ssg-text "vfl-prompt-wahl-1-2-def2") - (list (ssg-text "vfl-variante-aussen") (ssg-text "vfl-variante-innen")) 2 - "vfl-m3-variante-frage") - "1") "aussen" "innen")) + ;; Die Variante IST schon ein Domaenenwert ("aussen"/"innen") - sie + ;; wandert jetzt unveraendert ins Journal, statt als Index "1"/"2". + (setq kv-variante + (vfl-wert-norm + (vfl-menu-strwert (ssg-text "vfl-prompt-wahl-1-2-def2") + (list (ssg-text "vfl-variante-aussen") (ssg-text "vfl-variante-innen")) + *vfl-m2-variante-werte* 2 "vfl-m3-variante-frage") + *vfl-m2-variante-werte* *vfl-m2-variante-alt*)) + (if (null kv-variante) + (progn (vfl-meldung (ssg-textf "vfl-m2-segwert-unbekannt" + (list (itoa (1+ i)) (vfl-replay-kette-text)))) + (exit))) (setq plan (cons (list "Bogen" hz laenge bwinkel bseite "Vario-Kurve" kv-variante) plan)) (setq nach-kurve t)) ; naechste Gerade automatisch VF (progn (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 +11974,35 @@ ;; 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,22 +12018,35 @@ ;; 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))) + ;; Eck-Zuschlaege EINMAL bestimmen (siehe vfl-eck-korrekturen) - sie gehen + ;; in JEDES Laengenbudget ein: Spannweite, Kletterer, Fueller, Rueckanker. + ;; Nur so koennen Laengen- und Hoehenbilanz nicht auseinanderlaufen. + (setq *vfl-eck-korr* (vfl-eck-korrekturen plan n)) + ;; Auch kleine Zuschlaege melden: bleibt eine Ecke unkorrigiert (Block nicht + ;; messbar), FEHLT die Zeile - und genau das ist die Information, die man + ;; beim Suchen eines Millimeter-Rests braucht. + (foreach e *vfl-eck-korr* + (if (> (abs (cdr e)) 0.05) + (princ (ssg-textf "vfl-m2-eck-korrektur" + (list (rtos (cdr e) 2 1) (itoa (1+ (car e)))))))) + ;; Bruecken-Spannweite = Summe der VF-Geraden-Planlaengen im Lauf. (setq span-bruecke 0.0 i vf-start) (while (<= i vf-ende) (setq seg (nth i plan)) - (if (= (car seg) "Linie") (setq span-bruecke (+ span-bruecke (caddr seg)))) + (if (= (car seg) "Linie") + (setq span-bruecke (+ span-bruecke (caddr seg) (vfl-eck-extra i)))) (setq i (1+ i))) (setq dH-bruecke (- z-front z-junction)) @@ -10293,28 +12087,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 @@ -10385,6 +12201,33 @@ (progn (if (< first-line 0) (setq first-line i)) (setq last-line i))) (setq i (1+ i))) + ;; --- ES-Laengsanteil EINMAL messen, fuer LAENGE *und* HOEHE --- + ;; Der Endpunkt der letzten Geraden ist der KS_AUS des ES-Elements, nicht + ;; dessen Anfang - vom Budget dieses Segments gehen also Separator UND der + ;; ES-Laengsanteil ab. Entscheidend ist, dass BEIDE Bilanzen denselben Wert + ;; benutzen: das Laengenbudget im B4-Bau und das Hoehenbudget in + ;; vfl-zsolve-rueckanker. Liefen sie auseinander, stimmte die Laenge und die + ;; Hoehe kippte um Differenz*tan(Neigung) - real am 2026-10-26 gesehen: + ;; GF 820 mm kuerzer, dZ sprang von 0.1 auf 43 mm (= 820*sin(3 Grad)). + ;; GEMESSEN aus der realen Blockgeometrie statt aus dem Block-dx `ein` - + ;; letzteres kennt den Schwenk des 30-Grad-Elements nicht und lag ~520 mm + ;; daneben. `ein` bleibt nur Rueckfall, wenn der Block nicht lesbar ist. + (setq es-vek-back + (if (and es-vorhanden (>= last-line 0)) + (vfl-zsolve-es-vektor (strcat "ES_Element_" (vfl-es-winkel) "_" es-seite) + (cadr (nth last-line plan))) + nil)) + ;; NICHT der reine Laengsanteil (car), sondern die Reserve, die zusaetzlich + ;; den Querversatz aufhebt - siehe vfl-es-achs-reserve. + (setq ein-fp-mess + (cond (es-vek-back + (vfl-es-achs-reserve (car es-vek-back) (cadr es-vek-back) + (cadr (nth last-line plan)) + (vf-element-plan-turn + (strcat "ES_Element_" (vfl-es-winkel) "_" es-seite)))) + (es-vorhanden ein) + (t 0.0))) + ;; --- B1: FRONT-Lauf bauen (Segmente 0 .. vf-start-1) -> Front-Anker MESSEN --- (princ (ssg-text "vfl-m3-phase-b1")) (setq i 0) @@ -10399,7 +12242,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 +12290,37 @@ (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))) + ;; --- AS-Fussabdruck ins LAENGENbudget (GEMESSEN, nicht gerechnet) --- + ;; Das AS-Element steht SELBST auf dem ersten Segment des Laufs; sein + ;; Laengsanteil gehoert nicht mehr der Bruecke. Identische Formel wie die + ;; Trimmung der ersten Geraden im Front-Lauf oben (Projektion von + ;; KS_AUS - startpunkt auf die Fahrtrichtung) - dort laeuft sie nur, wenn + ;; dem VF-Lauf ueberhaupt Segmente vorausgehen; bei vf-start = 0 ist die + ;; Schleife leer und der Abzug fiel bisher komplett aus. Folge: der Solver + ;; verteilte die VOLLE Planlaenge HINTER dem AS, die Kette ueberschoss um + ;; den AS-Fussabdruck (realer Fall 2026-10-26). + ;; GEMESSEN statt aus der Blockgeometrie gerechnet: das Block-Mass stimmt + ;; nach dem Achs-Versatz des AS nicht mehr (ein gerechneter Wert lag + ;; 184 mm daneben und machte das erste Segment sichtbar zu kurz). + ;; Ohne AS-Element faellt der Wert von allein auf 0 - dann ist (car frame) + ;; gleich startpunkt -, eine Abfrage auf as-vorhanden braucht es nicht. + (setq as-along-fix + (+ (* (- (car (car frame)) (car startpunkt)) (cos (* hz (/ pi 180.0)))) + (* (- (cadr (car frame)) (cadr startpunkt)) (sin (* hz (/ pi 180.0)))))) + (if (> (abs as-along-fix) 0.01) + (princ (ssg-textf "vfl-m2-as-fussabdruck" + (list (rtos as-along-fix 2 1) (itoa (1+ vf-start)))))) ;; --- 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-fp-mess))) ;; 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 +12328,43 @@ ;; 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: es gibt keine Schwelle "ab welcher Laenge ist eine Gerade ein + ;; Kletterer", sondern genau EINEN Kletterer je Lauf - die laengste. + ;; + ;; Grund ist das Modell dahinter: jede VF-Strecke im Pfad ist eine + ;; Standard-VF-Einheit ohne eigenes AS/ES, also GF1 + Separator + + ;; Umlenkstation + Vario-Koerper + Motorstation + GF2. Alle Teile liegen + ;; kolinear auf derselben Pfad-Geraden; variieren ihre Laengen, verschieben + ;; sich nur die inneren Grenzen, die Enden der Bruecke bleiben fix. Je + ;; Bruecke steht damit ein 2-Gleichungs-System: + ;; Summe der Planlaengen = gezeichnete Spannweite (aus dem Pfad) + ;; Summe der Hoehenaenderung = delta-H zwischen den Ankern + ;; Freie Variablen: Vario-Winkel (diskret) + GF1-Laenge + GF2-Laenge. Genau + ;; das loest der vorhandene Solver (berechne-alle-winkel) - und er kennt + ;; EINEN Vario-Koerper. Mehrere Kletterer passen deshalb nicht ins Modell, + ;; unabhaengig von ihrer Laenge. (setq longest-idx -1 i vf-start) (while (<= i vf-ende) (setq seg (nth i plan)) @@ -10477,15 +12372,30 @@ (if (or (< longest-idx 0) (> (caddr seg) (caddr (nth longest-idx plan)))) (setq longest-idx i))) (setq i (1+ i))) + + ;; An dieser Stelle stand ein Hinweis, dass ein gefalteter Lauf mit dem + ;; Kletterer in einem FREMDEN Schenkel noch skalar ueber EINE Achse + ;; bilanziert wird (davor zeitweise sogar eine Abweisung bzw. eine + ;; Warn-Messagebox). Beides ist seit 2026-10-29 gegenstandslos: die + ;; Eingangs-Hardware wird der Kletterspanne wieder zugeschlagen, die + ;; Abschluss-Hardware auf einem Kletter-Laufende abgezogen (kletter-ende-fp) + ;; und der GF1-Fremdanteil vom Nachrechner aufgeloest. Gemessen an demselben + ;; Pfad: 0.56 mm (9 Grad) und 0.7 mm (12 Grad) quer. Eine stehengebliebene + ;; Meldung waere hier nicht nur ueberfluessig, sondern falsch. + (setq climbers '() climber-span 0.0 nonclimber-len 0.0 nonclimber-cnt 0 nkurve 0 kurve-chords 0.0 i vf-start) (while (<= i vf-ende) (setq seg (nth i plan)) (cond ((and (= (car seg) "Linie") (= (nth 3 seg) "VF")) - (if (or (= i longest-idx) (>= (caddr seg) climb-thresh)) - (setq climbers (cons i climbers) climber-span (+ climber-span (caddr seg))) - (setq nonclimber-len (+ nonclimber-len (caddr seg)) nonclimber-cnt (1+ nonclimber-cnt)))) + ;; 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) (vfl-eck-extra i))) + (setq nonclimber-len (+ nonclimber-len (caddr seg) (vfl-eck-extra i)) + nonclimber-cnt (1+ nonclimber-cnt)))) ((= (car seg) "Bogen") (setq nkurve (1+ nkurve) kurve-chords (+ kurve-chords (caddr seg))))) (setq i (1+ i))) @@ -10525,11 +12435,32 @@ (m2-kein-gf1-vorne *vfk-stations-laenge*) (t (+ *vfk-stations-laenge* *vfk-separator-laenge*)))) (setq es-along-fix 0.0) + ;; --- Abschluss-Hardware der VF-Einheit ins LAENGENbudget --- + ;; Spiegelbild zum AS-Fussabdruck am anderen Ende des Laufs: MIT flacher + ;; Zone sitzt die Motorstation nicht im Kletterer, sondern auf dem LETZTEN + ;; Segment des Laufs - zusammen mit dem Abschlussbogen davor. Genau diese + ;; beiden fehlten im Budget: feste-vf traegt die Motorstation nur im Zweig + ;; OHNE flache Zone (siehe unten), und die Fuellerlaenge war schlicht die + ;; volle Planlaenge. Realer Fall 2026-10-26: Segment 3 (Plan 4296 mm) wurde + ;; 4990.55 mm lang = 4296 + 195.73 (Bogen ab_3) + 499.32 (Motorstation). + ;; Der Ueberschuss lief laengs zur ES-Achse und wurde darum von der Zeile + ;; "Soll (ES-korrigiert)" verdeckt - sichtbar war nur die Querabweichung. + ;; Nicht doppelt zu uebergang-fp: das sind die Uebergangsboegen AM + ;; KLETTERER, hier geht es um den Bogen VOR der Motorstation. + (setq abschluss-fp 0.0) + (if (and (> hor-pairs 0) (not m2-offenes-ende)) + (progn + (setq m-ab3 (get-bogen-mass bogen-ab (fix *vfk-gefaelle-winkel*))) + (setq abschluss-fp + (+ (* *vfk-stations-laenge* (cos rad3v)) + (if m-ab3 (car m-ab3) 0.0))) + (princ (ssg-textf "vfl-m2-abschluss-fussabdruck" + (list (rtos abschluss-fp 2 1) (itoa (1+ vf-ende))))))) (if (> hor-pairs 0) (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 +12468,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°)- @@ -10545,9 +12476,20 @@ ;; Test dieses Fixes (dZ=38.6mm, vorher exakt 0). (setq feste-vf (+ entry-fixed (if m2-offenes-ende 0.0 *vfk-stations-laenge*)) dH-adj dH-bruecke) - (if es-vorhanden + ;; NUR wenn das ES unmittelbar auf den VF-Lauf folgt, also der Lauf das + ;; Pfadende ist. Liegt ein Back-Lauf dazwischen (Segmente nach vf-ende), + ;; traegt dessen letzte Gerade den ES-Fussabdruck bereits selbst + ;; (ein-fp-mess im B4-Zweig) - ihn hier nochmal vom VF-Lauf abzuziehen, + ;; verkuerzt das FALSCHE Segment um die volle ES-Laenge. + ;; Realer Fall 2026-10-26: derselbe Pfad, aber Segment 2 als GF-Bogen + ;; statt Vario-Kurve gewaehlt -> keine flache Zone -> dieser Zweig + ;; griff, und Segment 1 wurde um 875.8 mm zu kurz (Abweichung 878.2 mm + ;; quer). Mit Vario-Kurve lief dieselbe Kette auf 0.2 mm genau. + ;; Der hz von vf-ende waere ausserdem die falsche Fahrtrichtung: das ES + ;; steht dann am Ende des Back-Laufs, nicht am Ende des VF-Laufs. + (if (and es-vorhanden (= vf-ende (1- n))) (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 +12501,138 @@ ;; 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). + ;; Die Masse werden EINMAL geholt und gegen nil geprueft. Beides war vorher + ;; nicht so: get-bogen-mass wurde fuer dieselbe Suche zweimal aufgerufen + ;; (car/caddr), meldete einen Fehlschlag also doppelt, und das nil ging + ;; ungeprueft an vfl-projiziere-neigung, wo (cos rad) den ganzen Lauf + ;; abbrach (realer Fall 2026-10-26: "Winkel 3 nicht in Bogen-Tabelle" + ;; zweimal, danach Call-Stack-Abbruch). bogen-auf/bogen-ab entstehen beim + ;; Init nur aus den BLOECKEN, die ladbar UND messbar sind (vf_standard.lsp) + ;; - fehlt eine DWG, fehlt der Eintrag. Das darf den Bau nicht toeten: + ;; ohne Mass bleibt der Uebergangsbogen mit 0 im Budget (die Kette wird um + ;; seine Laenge zu lang, entsteht aber und ist nachbesserbar) und der + ;; Nutzer bekommt gesagt, welcher Block fehlt. + (setq uebergang-fp 0.0) + (if (> n-climb 0) + (progn + (if (< (car climbers) vf-ende) ; flache Zone FOLGT -> flach-ein + (progn + (setq m-ueb (get-bogen-mass bogen-auf (fix *vfk-gefaelle-winkel*))) + (if m-ueb + (setq uebergang-fp + (+ uebergang-fp + (car (vfl-projiziere-neigung (car m-ueb) (caddr m-ueb) + (fix *vfk-gefaelle-winkel*))))) + (vfl-meldung (ssg-textf "vfl-m2-uebergang-bogen-fehlt" + (list (strcat "Vario_Bogen_auf_" + (itoa (fix *vfk-gefaelle-winkel*)) + "_TEF_rechts"))))))) + (if (> (car climbers) vf-start) ; flache Zone GEHT VORAUS -> flach-aus + (progn + (setq m-ueb (get-bogen-mass bogen-ab (fix *vfk-gefaelle-winkel*))) + (if m-ueb + (setq uebergang-fp (+ uebergang-fp (car m-ueb))) + (vfl-meldung (ssg-textf "vfl-m2-uebergang-bogen-fehlt" + (list (strcat "Vario_Bogen_ab_" + (itoa (fix *vfk-gefaelle-winkel*)) + "_TEF_rechts"))))))))) + ;; as-along-fix nur abziehen, wenn das AS-Segment auch wirklich ein + ;; Kletterer ist - sitzt es auf einem Fueller-Segment, zieht es dort ab + ;; (siehe fill-len weiter unten). Sonst waere der Abzug doppelt bzw. am + ;; falschen Segment. + ;; Eingangs-Hardware (Umlenkstation + Separator) steht auf dem Segment + ;; vf-start. Liegt der Kletterer in einem ANDEREN Schenkel, verbraucht sie + ;; dessen Spanne nicht - der Solver zieht sie aber ueber feste-vf trotzdem + ;; ab (als feste*cos3, vf_standard.lsp:241). Dann bleibt am Ende Platz + ;; ungenutzt und die Kette endet zu frueh (gemessen 2026-10-27: 1424 mm). + ;; Kompensiert wird NUR der Laengenanteil: feste-vf traegt ueber + ;; feste*sin3 auch Hoehe bei, und die ist real - die Teile senken die Kette + ;; ab, egal auf welchem Segment sie stehen. Darum wird feste-vf selbst NICHT + ;; veraendert, sondern der uebergebenen Spanne der Laengenanteil wieder + ;; zugeschlagen. (Dieselbe Trennung wie bei es-along-fix; sie zu uebersehen + ;; hat am 2026-10-26 einen 43-mm-Hoehenfehler erzeugt.) + ;; Liegt der Kletterer im Eingangs-Schenkel - der gerade Normalfall und + ;; beide Regressionsketten -, ist der Zuschlag 0 und nichts aendert sich. + ;; GEFALTETER LAUF: die Eingangs-Hardware (Umlenkstation + Separator, als + ;; entry-fixed) steht auf dem Segment vf-start. Ist DAS zugleich der + ;; Kletterer (gerader Normalfall, beide Regressionsketten), verbraucht sie + ;; dessen Spanne - der Abzug ueber feste-vf stimmt. Liegt der Kletterer aber + ;; in einem ANDEREN Schenkel, verbraucht sie die Kletterspanne NICHT, und der + ;; Solver verplant Platz, den es dort gar nicht zu verplanen gibt: am Ende + ;; bleibt genau dieser Betrag ungenutzt und die Kette endet zu frueh. + ;; Zugeschlagen wird NUR der Laengenanteil (entry-fixed*cos3). feste-vf selbst + ;; bleibt unveraendert, weil es ueber feste*sin3 auch Hoehe beitraegt - und die + ;; ist real: die Teile senken die Kette ab, egal auf welchem Schenkel sie + ;; stehen. (Dieselbe Trennung wie bei es-along-fix; sie zu uebersehen hat am + ;; 2026-10-26 einen 43-mm-Hoehenfehler erzeugt.) + ;; + ;; Diese Korrektur war am 2026-10-28 schon einmal da und wurde zurueckgenommen, + ;; weil sie mit filler-A-len kollidierte: Fueller-A belegte im Kletter-Segment + ;; den Platz, den das halbe GF1 dort frei laesst - obwohl GF1 bei gefaltetem + ;; Lauf im Eingangs-Schenkel steht. Dieser Blocker ist entfallen, seit + ;; filler-A-len bei gefaltetem Lauf 0 ist (siehe dort), die Korrektur kann + ;; also zurueck. + ;; + ;; Den GF1-Anteil kann dieser Solve noch nicht beruecksichtigen: gf-total ist + ;; sein ERGEBNIS (Henne-Ei). Dafuer gibt es den Nachrechner weiter unten. + ;; + ;; --- Abschluss-Hardware, wenn der KLETTERER das Laufende ist -------------- + ;; Endet der Lauf auf einem FUELLER, loest vfl-zsolve-es-fueller dessen Laenge + ;; gegen den Zielpunkt und zieht Motorstation + Separator + ES dabei selbst ab + ;; (Konstante cc dort). Endet er auf einem KLETTERER, gibt es diesen Fueller + ;; nicht - die drei Teile werden auf dem Kletter-Segment gebaut, stehen aber + ;; in KEINEM Budget: feste-vf traegt bei vorhandener flacher Zone nur + ;; entry-fixed (Umlenk+Sep am Eingang), und abschluss-fp wird ausschliesslich + ;; in fill-len verrechnet, also nur bei Fueller-Segmenten. + ;; Abgezogen wird deshalb genau dasselbe wie in cc, ABER OHNE den ab_3-Bogen + ;; (196 mm): der steckt bei einem Kletterer am Laufende bereits in + ;; uebergang-fp (Zweig "flache Zone GEHT VORAUS"), und doppelt gezaehlt + ;; verkuerzte er die Kette erneut. + ;; + ;; Die drei Bedingungen sind KEINE Vorsichtsmassnahme, sondern genau die + ;; Faelle, in denen sonst doppelt gebucht wird: + ;; - hor-pairs > 0: OHNE flache Zone traegt feste-vf die Motorstation bereits + ;; selbst (siehe dortiger Zweig), und es-along-fix den ES-Anteil. + ;; - vf-ende = n-1: endet der Pfad nicht mit dem VF-Lauf, baut der Back-Lauf + ;; Separator + ES und reserviert sie ueber ein-fp-mess selbst. + ;; - es-vorhanden: ohne ES-Element gibt es weder Separator noch ES-Ausladung. + ;; Realer Regressionsbefund 2026-10-29 (Variante B, tests/testdata/ + ;; linienzug_modus2_gfbogen.json): dort ist vf-start = vf-ende = 0, der VF-Lauf + ;; besteht aus EINEM Segment und die Segmente 2..5 sind Back-Lauf. Ohne diese + ;; Bedingungen schlug der Abzug mit 800*cos3 = 798.9 mm zu, Segment 1 wurde um + ;; genau diesen Betrag kuerzer, und weil es bei hz=0 liegt, erschien der + ;; Fehler als reine X-Verschiebung von -799.1 mm. + (setq kletter-ende-fp 0.0) + (if (and (member vf-ende climbers) (not m2-offenes-ende) + (> hor-pairs 0) (= vf-ende (1- n)) es-vorhanden) + (progn + (setq kl-es-vek + (vfl-zsolve-es-vektor + (strcat "ES_Element_" (vfl-es-winkel) "_" es-seite) + (cadr (nth vf-ende plan)))) + (setq kletter-ende-fp + (+ (* *vfk-feste-horizontal-kettenende* (cos rad3v)) + (if kl-es-vek (car kl-es-vek) 0.0))) + (princ (ssg-textf "vfl-m2-kletter-ende-fussabdruck" + (list (rtos kletter-ende-fp 2 1) (itoa (1+ vf-ende))))))) + ;; span-solver = dieselbe Spanne, die der Nachrechner weiter unten wieder + ;; aufgreift (dort kommt der GF-Fremdanteil hinzu). + (setq span-solver + (+ (- climber-span es-along-fix uebergang-fp kletter-ende-fp + (if (member vf-start climbers) as-along-fix 0.0)) + (if (member vf-start climbers) 0.0 (* entry-fixed (cos rad3v))))) + (setq wahl3 (vfl-zsolve-winkel-waehlen span-solver dH-adj feste-vf)) (if (null wahl3) (progn ;; Stufe 2: KEIN Tabellenwinkel passt (der/die Kletterer sind bei JEDER @@ -10603,11 +12676,81 @@ (setq br-gf-mode (if (= (vfl-menu (ssg-text "prompt-wahl-1-2") (list "Alles am Einlauf (GF1)" "1/2 GF1 + 1/2 GF2") 1 - "vfl-m3-gf-verteilung") "2") 2 1)) - (if (= br-gf-mode 2) - (setq br-gf1 (/ gf-total 2.0) br-gf2-exp (/ gf-total 2.0) - filler-A-len (* (/ gf-total 2.0) (cos rad3v))) - (setq br-gf1 gf-total br-gf2-exp 0.0 filler-A-len 0.0)))) + "vfl-m3-gf-verteilung") "2") 2 1)))) + ;; --- Stiller Nachrechner bei gefaltetem Lauf --- + ;; Jetzt sind Winkel UND Verteilung bekannt - erst damit steht fest, wie viel + ;; Gefaellestrecke auf dem EINGANGS-Schenkel landet und die Spanne des + ;; Kletterers gar nicht verbraucht. Der Solver hat sie bisher mitgerechnet, + ;; weshalb am Kettenende Platz ungenutzt blieb (gemessen 2026-10-27: + ;; 1424 mm). Hier wird bei UNVERAENDERTEM Winkel neu aufgeteilt. + ;; Die Schleife iteriert, weil der fremde Anteil selbst von gf-total + ;; abhaengt - ohne Dialog, daher unbemerkt. Sie konvergiert schnell (die + ;; Korrektur wird mit jedem Durchgang kleiner) und bricht nach 4 Runden + ;; oder bei weniger als 1 mm Aenderung ab. + ;; Liegt der Eingang auf dem Kletterer (gerader Normalfall, beide + ;; Regressionsketten), ist der Fremdanteil 0 und die Schleife laeuft nicht. + ;; + ;; Am 2026-10-28 war der Nachrechner abgeschaltet, weil er mit filler-A-len + ;; kollidierte: jener Fueller belegte im Kletter-Segment den Platz, den das + ;; halbe GF1 dort frei laesst - obwohl GF1 bei gefaltetem Lauf im Eingangs- + ;; Schenkel steht, wurde er zusaetzlich gebaut (gemessen: Fueller -369 mm, + ;; geklemmt auf 100). Seit filler-A-len bei gefaltetem Lauf 0 ist, entfaellt + ;; die Kollision und der Nachrechner darf wieder laufen. + ;; + ;; Er ist die zweite Haelfte der Korrektur und wirkt NUR zusammen mit + ;; kletter-ende-fp: GF1 steht im Budget, aber nicht auf dem Kletterer + ;; (zu viel verplant), Motor+Separator+ES stehen auf dem Kletterer, aber in + ;; keinem Budget (zu wenig verplant). Die beiden Betraege heben sich + ;; TEILWEISE auf - wer nur einen von beiden einbaut, verschiebt den Fehler + ;; bloss in die andere Richtung. Gemessen 2026-10-29 am 9-Grad-U-Form-Lauf: + ;; GF1 1636.9 - (Motor+Sep+ES) 1235.1 = 401.8 mm, exakt die damalige + ;; Restabweichung von 401.7 mm. + ;; + ;; 8 statt 4 Runden: die Korrektur schrumpft je Runde auf etwa ein Drittel + ;; (gemessen 3278 -> 4372 -> 4737 -> 4859 -> 4899), nach 4 Runden blieben + ;; rund 20 mm stehen. 8 Runden kosten nur Arithmetik und bringen den Rest + ;; unter die 1-mm-Abbruchschwelle. + (setq nachrechnen-k 0) + (while (< nachrechnen-k 8) + (setq gf-fremd (vfl-m2-gf-fremdanteil gf-total br-gf-mode + (and (member vf-start climbers) t))) + (if (< gf-fremd 1.0) + (setq nachrechnen-k 8) + (progn + (setq res-neu (vfl-zsolve-nachrechnen + (+ span-solver (* gf-fremd (cos rad3v))) + dH-adj feste-vf br-winkel)) + (cond + ((null res-neu) + ;; Winkel geht bei korrigierter Spanne nicht mehr auf - beim + ;; bisherigen Ergebnis bleiben und das sagen, statt still etwas + ;; anderes zu bauen. + (vfl-meldung (ssg-textf "vfl-m2-nachrechnen-fehl" (list (itoa br-winkel)))) + (setq nachrechnen-k 8)) + ((< (abs (- (car res-neu) gf-total)) 1.0) + (setq nachrechnen-k 8)) + (t + (princ (ssg-textf "vfl-m2-nachrechnen" + (list (rtos gf-total 2 0) (rtos (car res-neu) 2 0) + (rtos (cadr res-neu) 2 0)))) + (setq gf-total (car res-neu) br-lvf (cadr res-neu)) + (setq nachrechnen-k (1+ nachrechnen-k))))))) + ;; GF-Aufteilung jetzt aus dem (ggf. nachgerechneten) gf-total bilden. + (if (/= br-gf-mode 3) + (if (= br-gf-mode 2) + (setq br-gf1 (/ gf-total 2.0) br-gf2-exp (/ gf-total 2.0) + ;; Fueller-A fuellt den Platz, den das halbierte GF1 auf DERSELBEN + ;; Achse frei laesst - er gehoert zur Annahme "GF1 und GF2 liegen + ;; auf einer Geraden". Bei gefaltetem Lauf stimmt das nicht: GF1 + ;; steht im Eingangs-Schenkel, GF2 im Kletterer-Schenkel. Fueller-A + ;; wuerde dann auf dem Eingangs-Segment zusaetzlich zu GF1 gebaut, + ;; und insgesamt entstuenden 1.5 x gf-total Gefaellestrecke bei + ;; einem Budget von gf-total - die Kette endet zu frueh + ;; (gemessen 2026-10-27: 1424 mm). + filler-A-len (if (member vf-start climbers) + (* (/ gf-total 2.0) (cos rad3v)) + 0.0)) + (setq br-gf1 gf-total br-gf2-exp 0.0 filler-A-len 0.0))) (setq filler-a-done nil) (princ (ssg-textf "vfl-m3-vario-ergebnis" (list (itoa br-winkel) @@ -10638,8 +12781,16 @@ (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))) - (setq this-lvf (max *vfk-restlaenge-min-clamp* (* br-lvf (/ (caddr seg) climber-span)))) + (if flat-p (progn (setq pt (vfl-zsolve-flach-aus pt seg-hz)) (setq flat-p nil))) + ;; Anteil dieses Kletterers an der Gesamt-Kletterlaenge. Zaehler UND + ;; Nenner muessen denselben Laengenbegriff benutzen: climber-span + ;; enthaelt die Eck-Zuschlaege (vfl-eck-extra), die Planlaenge allein + ;; nicht. Ohne den Zuschlag im Zaehler summieren sich die Anteile auf + ;; weniger als 1, der Kletterer wird zu kurz - bei EINEM Kletterer um + ;; genau den Zuschlag (real 2026-10-26: 55 mm zu kurz, davon 5.4 mm + ;; Hoehenfehler ueber sin(Steigwinkel)). + (setq this-lvf (max *vfk-restlaenge-min-clamp* + (* br-lvf (/ (+ (caddr seg) (vfl-eck-extra i)) 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) (setq anzahl-vf (1+ anzahl-vf) letzt-koerper-hz seg-hz)) @@ -10647,33 +12798,70 @@ ((= (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) - ;; 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 - ;; sich starr entlang seg-hz mit dem Fueller; KS_AUS = pt + (fill + C)* - ;; dp + perp-es*np, Achse u_a = seg-hz + ES-Turn. Aus (Endpunkt - + ;; 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: 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 sich + ;; starr entlang seg-hz mit dem Fueller; KS_AUS = pt + (fill + C)*dp + + ;; perp-es*np, Achse u_a = seg-hz + ES-Turn. Aus (Endpunkt - ;; KS_AUS)*n_a = 0 folgt fill (n_a senkrecht zu u_a). OHNE ES-Element ;; (Nutzerwunsch): keine Achsen-Korrektur noetig, da nach Motor+GF2 ;; nichts mehr gebaut wird - Fueller zielt direkt auf den Endpunkt. + ;; + ;; HIER WIRD NUR DIE LAENGE GELOEST, NIE DIE RICHTUNG. Am 2026-10-29 + ;; stand an dieser Stelle ein Solve, der beides freigab und damit den + ;; Zielpunkt in X UND Y exakt traf (vfl-zsolve-schluss-ziel, wieder + ;; entfernt). Rechnerisch war er korrekt - und trotzdem falsch: er + ;; erreicht den Querausgleich, indem er die letzte Gerade dreht. Im + ;; U-Form-Testfall waren das 6.15 Grad (hz-plan -90 -> -96.15), in der + ;; Zeichnung sofort als schiefer Schenkel sichtbar. + ;; Das widerspricht der Entscheidung vom 2026-10-26: quer zur + ;; KS_AUS-Achse MUSS 0 sein, LAENGS DARF ABWEICHEN - der Hauptstrang + ;; bleibt gerade, der seitliche Versatz des ES-Elements ist dessen + ;; Bauform und kein Fehler. Beides zugleich geht nicht. + ;; Wichtig fuer kuenftige Tests: eine solche Verdrehung ist am + ;; Querwert NICHT erkennbar (sie macht ihn gerade null) - nur an der + ;; Zeichnung bzw. am Vergleich von seg-hz mit dem Planwinkel. (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)))) (* (- (cadr endpunkt) (cadr pt)) (sin (* seg-hz (/ pi 180.0))))) - (* (+ *vfk-stations-laenge* br-gf2-exp) (cos rad3v))) - ) - ) - (setq fill-len (caddr seg))) + (* (+ *vfk-stations-laenge* br-gf2-exp) (cos rad3v))))) + ;; Gewoehnlicher Fueller: volle Planlaenge des Segments, abzueglich + ;; der fest gebauten Teile, die auf GENAU diesem Segment stehen - + ;; das AS am Laufanfang, Abschlussbogen + Motorstation am Laufende, + ;; und die Eingangs-Hardware, falls sie auf einem FUELLER steht. + (setq fill-len (- (+ (caddr seg) (vfl-eck-extra i)) + (if (= i vf-start) as-along-fix 0.0) + (if (= i vf-ende) abschluss-fp 0.0) + ;; br-gf1 (das TATSAECHLICH gebaute GF1), nicht + ;; gf-total: bei Verteilung 1/2+1/2 steht nur die + ;; Haelfte auf diesem Segment, seit Fueller-A dort + ;; nicht mehr entsteht (siehe filler-A-len oben). + (vfl-m2-eingang-fp i vf-start climbers br-gf1 rad3v)))) ;; Kritische Fueller-Position (direkt nach Umlenkstation ODER direkt vor ;; Motorstation) zu kurz fuer den geforderten Wert - statt still zu ;; klemmen, den Nutzer warnen (Zielhoehe/-position wird dann nicht exakt @@ -10684,17 +12872,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 +12902,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 @@ -10740,12 +12933,28 @@ (setq seg (nth i plan) typ (car seg) hz (cadr seg)) (cond ((= typ "Linie") - (setq winkel (nth 4 seg) deltaL (caddr seg) + (setq winkel (nth 4 seg) deltaL (+ (caddr seg) (vfl-eck-extra i)) sep-vor-gf (nth 5 seg) sep-nach-gf (nth 6 seg)) ;; Footprint fuer Separator(300)+ES nur reservieren, wenn ES-Element ;; gewuenscht ist (ein=0 sonst, siehe oben) - ohne ES entfaellt auch ;; der abschliessende Separator. - (if (= i last-line) (setq deltaL (- deltaL (if es-vorhanden *vfk-separator-laenge* 0.0) ein))) + ;; Letzte Gerade vor dem ES: ihr ENDPUNKT ist der KS_AUS des ES-Elements, + ;; nicht dessen Anfang (Nutzer-Vorgabe 2026-10-26). Vom Segmentbudget + ;; gehen darum Separator UND der echte ES-Laengsanteil ab. + ;; Der frueher benutzte Skalar `ein` (ein-dx) ist das Block-dx OHNE den + ;; Schwenk des 30-Grad-Elements und lag real weit daneben: Segment 5 + ;; hatte 1466 mm Plan und wurde 2285 mm lang (GF 1411 statt ~591). + ;; vfl-zsolve-es-vektor misst along/quer aus der REALEN Blockgeometrie + ;; gegen die Fahrtrichtung dieses Segments - dieselbe Funktion, die der + ;; Zweig ohne flache Zone fuer es-along-fix schon benutzt. Nur wenn der + ;; Block nicht lesbar ist, bleibt `ein` als grobe Naeherung. + ;; ein-fp-mess ist derselbe Wert, mit dem vfl-zsolve-rueckanker die + ;; Hoehe gerechnet hat (einmal gemessen, siehe oben) - nur so koennen + ;; Laenge und Hoehe nicht auseinanderlaufen. + (if (= i last-line) + (setq deltaL (- deltaL + (if es-vorhanden *vfk-separator-laenge* 0.0) + ein-fp-mess))) ;; Separator(en) VOR/NACH aus der Klassifizierung (Punkt 1, wie B1). (if sep-vor-gf (setq deltaL (- deltaL *vfk-separator-laenge*))) (if sep-nach-gf (setq deltaL (- deltaL *vfk-separator-laenge*))) @@ -10802,8 +13011,12 @@ (list (rtos (- (car ist-ende) (car soll-ende)) 2 1) (rtos (- (cadr ist-ende) (cadr soll-ende)) 2 1) (rtos (- (caddr ist-ende) (caddr soll-ende)) 2 1)))) - ;; Zerlegung bezogen auf die ES-KS_AUS-ACHSE: Quer (senkrecht zur Achse) soll - ;; ~0 sein (Endpunkt liegt auf der KS_AUS-Achse), Laengs = ES-Ausladung. + ;; Zerlegung bezogen auf die ES-KS_AUS-ACHSE (Nutzer-Vorgabe 2026-10-26): + ;; QUER (senkrecht zur Achse) MUSS 0 sein - der Endpunkt liegt auf der + ;; Achse, in dieser Richtung darf es keine Abweichung geben. + ;; LAENGS (auf der Achse) darf abweichen - das ist die Ausladung des + ;; ES-Elements. + ;; Ebenso MUSS dZ 0 sein. (setq end-hz (car (frame->hz-winkel frame))) ; KS_AUS-Achsrichtung (setq dir-x (cos (* end-hz (/ pi 180.0))) dir-y (sin (* end-hz (/ pi 180.0)))) (setq laengs-wert (+ (* (- (car ist-ende) (car soll-ende)) dir-x) @@ -10811,16 +13024,22 @@ (setq quer-wert (+ (* (- (car ist-ende) (car soll-ende)) (- dir-y)) (* (- (cadr ist-ende) (cadr soll-ende)) dir-x))) (princ (ssg-textf "vfl-m3-laengs-quer" (list (rtos laengs-wert 2 1) (rtos quer-wert 2 1)))) + ;; Gemessene Abweichung fuer automatische Tests ablegen (laengs quer dz). + ;; Die Werte sind sonst Lokale dieser Funktion und waeren nur aus der + ;; Konsolenausgabe zu lesen - ein Test muesste sie aus Text zurueckparsen. + ;; Quer und dz sind die Pflichtgroessen (muessen ~0 sein), laengs ist die + ;; zulaessige Ausladung des ES-Elements. + (setq *vfl-m2-abweichung* + (list laengs-wert quer-wert (- (caddr ist-ende) (caddr soll-ende)))) (princ (ssg-text "vfl-m3-achse-hinweis")) - ;; Soll (ES-korrigiert): der gepickte Zielpunkt, verschoben um den bereits - ;; oben gemessenen Laengs-Wert entlang der KS_AUS-Achse - zeigt, dass die - ;; Abweichung oben keine Unsicherheit ist, sondern GENAU der ES-eigene - ;; Fussabdruck (90/30-Grad-Schwenk, siehe doc/VarioFoerderer_Linienzug_ - ;; Prinzipien.md Abschnitt 6/14.11: "seitliche ES-Ausladung, kein Fehler"). - ;; Bewusst aus dem bereits gemessenen Laengs-Wert abgeleitet statt ueber - ;; eine zweite, eigenstaendige vf-element-ks-info-Neuberechnung - das waere - ;; ein zweiter Rechenweg fuer dieselbe Information mit eigenem Bug-Risiko, - ;; hier reicht die Umkehrung der bereits validierten Laengs/Quer-Zerlegung. + ;; Der Querversatz ist KEIN Fehler, sondern die Geometrie des ES-Blocks: + ;; das Ausschleuselement wandert beim Schwenken zur Seite. Ihn als + ;; "Abweichung" stehen zu lassen hat real zu einer langen Fehlersuche + ;; gefuehrt - darum wird er benannt. Die frueheren Zeilen "Soll + ;; (ES-korrigiert)" sind damit entfallen: sie haben den gepickten Zielpunkt + ;; um den Laengs-Wert verschoben, damit dY per Konstruktion 0 wurde, und + ;; verdeckten so genau die Fehlerart, die wir hier jagen (ein zu langes + ;; Segment laengs der Achse sah dadurch fehlerfrei aus). (setq soll-korrigiert (list (+ (car soll-ende) (* laengs-wert dir-x)) (+ (cadr soll-ende) (* laengs-wert dir-y)) (caddr soll-ende))) @@ -11230,6 +13449,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 +13511,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..c053280 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 @@ -664,6 +681,7 @@ (setq *vsp-alt-headless* (if (boundp '*vfl-headless*) *vfl-headless*)) (setq *vfl-wizard-mode* nil) (setq *vfl-headless* T) + (setq *vsp-alt-gui* (if (boundp '*ssg-gui-aus*) *ssg-gui-aus*)) (if (car (atoms-family 1 '("SSG-GUI-AUS"))) (ssg-gui-aus)) (setq *vsp-prompts* 0) (princ)) @@ -676,7 +694,9 @@ alert *vsp-alt-alert*) (setq *vfl-wizard-mode* *vsp-alt-wizard*) (setq *vfl-headless* *vsp-alt-headless*) - (if (car (atoms-family 1 '("SSG-GUI-AN"))) (ssg-gui-an)) + ;; Vorzustand zurueck statt pauschal ssg-gui-an: unter SSG_RUN_ALL_TESTS + ;; muss die GUI fuer den Export danach aus bleiben. + (setq *ssg-gui-aus* *vsp-alt-gui*) (princ)) @@ -919,6 +939,29 @@ ;; sid = Kennung im Record, dim = "2D"/"3D" oder nil (Sitzung), ;; fehler = Liste der Spec-Fehler (bei nil-Journal die Begruendung). ;; Erwartet den Headless-Rahmen (vsp-headless-an) beim Aufrufer. +;; Bau-Funktion AUS DEM JOURNAL ableiten (Rueckgabe: Funktions-Symbol). +;; Bewusst abgeleitet statt als zusaetzliches Argument: vsp-bau-journal hat +;; zwei Aufrufer, und AutoLISP verlangt exakte Argumentzahl - eine erweiterte +;; Signatur muesste jeden davon nachziehen (siehe CLAUDE.md). Die Ableitung +;; kann der Datenlage ausserdem nicht widersprechen, weil sie GENAU das +;; Journal liest, das gleich abgespielt wird. +;; +;; Unterscheidung: +;; kein SEGS -> Modus 1 (Fragenfluss, Menue-Codes) +;; SEGS + STR "m2v2" -> Modus 2 (die Formatmarke schreibt nur +;; vf-linienzug-modus2, vfl-m2-formatmarke) +;; SEGS ohne "m2v2" -> Modus 3 +;; Ein Fehlgriff faellt sofort auf: der Ergebnis-Record meldet dann offene +;; Eingaben bzw. glieder_soll <> glieder_ist. +(defun vsp-bau-fn-fuer-journal (journal) + (cond + ((not (vfl-journal-hat-segs-p journal)) 'vf-linienzug-modus) + ((vl-some (function (lambda (e) + (and (equal (car e) "STR") (equal (cdr e) "m2v2")))) + journal) + 'vf-linienzug-modus2) + (t 'vf-linienzug-modus3))) + (defun vsp-bau-journal (sid journal dim fehler / rec vor-ent alt-error err offen hl meld ist-glieder soll-glieder diff ist-journal jdiff ent ed) @@ -958,7 +1001,7 @@ (setq alt-error *error*) (vfl-journal-reset) (vfl-journal-replay-start journal) - (setq err (vl-catch-all-apply 'vf-linienzug-modus '())) + (setq err (vl-catch-all-apply (vsp-bau-fn-fuer-journal journal) '())) (setq offen (vsp-queue-rest)) ;; Diagnose VOR dem Reset sichern (vfl-journal-reset loescht sie). (setq ist-journal (reverse *vfl-journal*)) diff --git a/Lisp/vf_standard.lsp b/Lisp/vf_standard.lsp index 658bf1f..a33cc53 100644 --- a/Lisp/vf_standard.lsp +++ b/Lisp/vf_standard.lsp @@ -609,12 +609,30 @@ ;; EIN reines VF-Sub-Segment. Wichtig: es BEGINNT und ENDET auf der ;; 3-Grad-Basisneigung, weil Ein- und Ausgangsbogen denselben Winkel haben. ;; Dadurch lassen sich mehrere Sub-Segmente (und Vario-Kurven dazwischen) -;; beliebig aneinanderreihen (siehe doc/VarioFoerderer_Linienzug_Prinzipien.md). +;; beliebig aneinanderreihen. +;; +;; Die Regel dahinter: der Vertikalbogen am ENDE eines VF (vor der +;; Motorstation) hat denselben Winkel wie der am ANFANG (nach der +;; Umlenkstation), und der abschliessende Bogen bringt die Strecke auf 3 Grad +;; NACH UNTEN - weil die Motorstation selbst mit 3 Grad geneigt eingebaut wird +;; und der Anschluss sonst knickt. Dasselbe gilt am anderen Ende: Umlenkstation +;; (VF-Start) und Separator+ES-Element (Kettenende) gibt es hardwareseitig nur +;; fuer die Anfahrt auf dieser Standard-Fallend-Basis; eine Anfahrt auf +;; STEIGENDER Basis ist physisch nicht vorgesehen. +;; Anfang und Ende auf derselben Basis zu halten ist also keine Konvention, +;; sondern die Voraussetzung dafuer, dass zwei Sub-Segmente ueberhaupt +;; aneinanderpassen. ;; 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 +735,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/bin/run_tests.bat b/bin/run_tests.bat index 6109b66..4eec63a 100644 --- a/bin/run_tests.bat +++ b/bin/run_tests.bat @@ -86,6 +86,19 @@ if %DO_LISP%==1 ( exit /b 1 ) + REM Laufende BricsCAD-Instanz? Dann NICHT starten: BricsCAD reicht einen + REM /b-Start an die offene Instanz weiter, das Skript liefe in der + REM Sitzung des Benutzers und das abschliessende _.QUIT haengt dort an + REM der Speichern-Rueckfrage bzw. beendet die Sitzung. + REM findstr statt find: steht Git-Bash im PATH, ist "find" das Unix-find. + tasklist /FI "IMAGENAME eq bricscad.exe" /NH 2>nul | findstr /i "bricscad.exe" >nul + if not errorlevel 1 ( + echo FEHLER: BricsCAD laeuft bereits. Der Testlauf wuerde in dieser + echo Sitzung landen und sie am Ende mit QUIT beenden. + echo Bitte BricsCAD schliessen und erneut starten. + exit /b 1 + ) + REM Altes Ergebnis loeschen - fehlender Report = fehlgeschlagener Lauf if exist "%DXFM_TESTOUT%\unit_results.txt" del "%DXFM_TESTOUT%\unit_results.txt" 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 47f186c..22c1efa 100644 --- a/cfg/export.cfg +++ b/cfg/export.cfg @@ -76,6 +76,15 @@ # 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 @@ -136,6 +145,7 @@ 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 c19adad..a90399b 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 + # ============================================================ # Lagerplanung (LagerInsert.lsp, Bloecke LG_*) 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/dcl/jam_edit.dcl b/dcl/jam_edit.dcl new file mode 100644 index 0000000..3c1ef47 --- /dev/null +++ b/dcl/jam_edit.dcl @@ -0,0 +1,52 @@ +// ============================================================ +// jam_edit.dcl - Staubereich bearbeiten +// Aendert Foerderer und laufende Nummer eines JAM_AREA-Blocks, den die +// Beschriftung aus sps_skel (lib/tro_annotate.py --anlage) eingefuegt hat. +// Aufruf ueber c:JAM_EDIT (Lisp/Jam_Edit.lsp). +// ============================================================ + +jam_edit : dialog { + label = "Staubereich bearbeiten"; + + : column { + + : text { + key = "bereich"; + label = ""; + width = 50; + } + + : edit_box { + key = "conveyor"; + label = "Foerderer (NNNN):"; + edit_width = 8; + } + + : edit_box { + key = "number"; + label = "Laufende Nummer:"; + edit_width = 8; + } + + : row { + : text { + key = "auto"; + label = ""; + width = 30; + } + : button { + key = "reset"; + label = "Abgeleitet uebernehmen"; + } + } + + : text { + key = "hinweis"; + label = ""; + width = 50; + } + + } + + ok_cancel; +} 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 12230ba..79ab06d 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_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`) @@ -132,7 +145,7 @@ Gross-/Kleinschreibung spielt an der Kommandozeile keine Rolle. | `IDSCHECK` | Alle Bloecke auf doppelte IDs pruefen und korrigieren | | `IDGENERATE` | Gewaehltem Block eine neue ID zuweisen | | `ZAEHLE_SEP_SCAN` | Scanner/Separatoren je Kreisel/VF/GF zaehlen und in ANZAHL_SCANNER/ANZAHL_SEPARATOR schreiben (laeuft auch automatisch vor jedem Export) | -| `HOEHEN_CHECK` | Hoehen von Kreiseln/VF/GF messen und in HOEHE/HOEHE_VON_mm/HOEHE_BIS_mm/MONTAGEHOEHE_m schreiben | +| `HOEHEN_CHECK` | Hoehen von Kreiseln/VF/GF messen und in HOEHE/HOEHE_VON_mm/HOEHE_BIS_mm/MONTAGEHOEHE_m schreiben; Phase 3: Buehnenabzug einmal pro Kreisel-Familie (beruehrende Kreisel gleicher Hoehe), wirkt auf Kreisel und die VF/GF der Familie | | `CALLPYTHON` (`external_call.lsp`) | Test des LISP->Python-Aufrufs (`lib/testpycall.py`) | ### Konfiguration, Planquadrate, Doppelklick @@ -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..c7813c1 --- /dev/null +++ b/doc/todo.md @@ -0,0 +1,66 @@ +# 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 + +- **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. + +## 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 + +- **`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/linienzug-ohne-gui.md b/doc/todo/linienzug-ohne-gui.md new file mode 100644 index 0000000..608cc6e --- /dev/null +++ b/doc/todo/linienzug-ohne-gui.md @@ -0,0 +1,124 @@ +# VF-Linienzug ohne GUI/Konsole - Stufe 2 (Funktionstrennung) + +**Stand:** 2026-10-29 · **ZURUECKGESTELLT** - aus `doc/todo.md` entfernt, die +Datei bleibt als Fahrplan liegen. + +## Warum zurueckgestellt + +Stufe 2 sollte den **Journal-Replay-Umweg** ueberfluessig machen: Bauteile +direkt mit Daten aufrufen statt Fragen aus einer Queue beantworten zu lassen. +Dieser Umweg ist aber keiner mehr. Ein Linienzug-Journal traegt mit `SEGS` die +komplette Segment-Essenz und laesst sich OHNE Zeichnung abspielen - mit +derselben Begruendung wurde am 2026-10-27 bereits der Spec-Uebersetzer fuer +Modus 2/3 gestrichen (4a19ac0, `doc/todo/spec-modus2-3.md`). Die +Modus-2-Regressionstests (`c:TEST_LINIENZUG_MODUS2`, seit 2026-10-29 fuenf +Faelle) laufen headless ueber genau diesen Replay-Pfad: er ist nicht der +Engpass, sondern die funktionierende Loesung. + +Dazu kommt das Risiko. Die offenen Schritte 5c/6/8/9/10 fassen den Code an, in +dem die REIHENFOLGE SELBST GEOMETRIE IST (siehe "Warum es heikel ist" unten) - +und ein Teil dieser Fehler ist in der Zeichnung unsichtbar und faellt erst im +Sivas-Export auf. Hoher Einsatz, kein Funktionsgewinn. + +**Wieder aufnehmen, wenn** einer dieser Faelle eintritt: +- einzelne Bauteile sollen ohne Journal aufrufbar sein (z.B. ein Generator, + der Ketten aus Fremddaten baut und die Frage-Reihenfolge nicht kennen will); +- der Replay-Pfad wird zu langsam oder zu fehleranfaellig; +- `vfl-spec-ausfuehren` wird von irgendwo erwartet (heute: nirgends). + +**Prioritaet beim Wiederaufnehmen:** niedrig - bringt Architektur, keine neue +Funktion. + +Herausgeloester Arbeitsauftrag aus dem Gesamtplan +[plan-vf-interactive.md](plan-vf-interactive.md) (Teil 5 "Stufe 2: echte +Funktionstrennung"). Dort stehen die ausfuehrliche Begruendung, die +Knotenform und die Risikoliste; diese Datei ist die Abarbeitungsliste. + +## Ausgangslage (Stufe 1, fertig) + +Linienzug-Ketten lassen sich bereits ohne Dialog bauen (`VF_SPEC_BAU`, +[vf_spec.lsp](../../Lisp/vf_spec.lsp)) - allerdings ueber einen Umweg: + +1. Die **Spec** (Kette in Domaenenwerten) wird von `vsp-journal` in ein + Eingabe-Journal uebersetzt - also in die Antworten, die ein Anwender + gegeben haette. +2. `vsp-bau-journal` startet per `vfl-journal-replay-start` den ganz normalen + interaktiven Bau `vf-linienzug-modus` ([vf_linienzug.lsp](../../Lisp/vf_linienzug.lsp)). +3. Jede Frage wird aus der Replay-Queue beantwortet. + +Das funktioniert und ist per `TEST_HUNDM05` im CAD verifiziert - der Bau +selbst "weiss" aber nichts von Daten, er fragt weiter, nur antwortet die Queue. + +## Ziel (Stufe 2) + +Die Funktionen in `vf_linienzug.lsp` mischen **Fragen** und **Geometrie +bauen**. Stufe 2 trennt das: + +- **reiner Bauteil** (Suffix `-bauen` bzw. `-setzen`): nimmt Parameter, + baut Geometrie, fragt nichts; +- die **Frage-Schale** behaelt den bisherigen Namen und ruft den Bauteil auf + - dadurch aendert sich keine Aufrufstelle in Modus 1/2/3. + +Am Ende ruft `vfl-spec-ausfuehren` die Bauteile direkt mit den Spec-Werten +auf, ohne Journal-Replay. + +## Stand der Schritte + +Zeilennummern Stand 2026-10-26 (die `:NNNN`-Angaben im Gesamtplan sind +veraltet). + +| Schritt | Inhalt | Stand | +|---|---|---| +| 0 | `vfl-ziel-report` (vf_linienzug.lsp:7864) aus zwei identischen Bloecken gezogen | erledigt | +| 1 | Winkelwahl `vfl-winkel-gueltige` (:3071) / `vfl-winkel-nach-index` + Kanal `*vfl-winkel-idx-vorgabe*` | erledigt | +| 2 | `vfl-es-masse-setzen` (:7557) | erledigt | +| 3 | `vfl-hor-koerper-bauen` (:5989), Schale `vfl-baue-horizontal-koerper` (:6152) | erledigt | +| 4 | `vfl-body-abschluss-bauen` (:6502) | erledigt | +| 5a/5b | VF-Einheit Eingang/Ausgang: `vfl-vf-eingang-bauen` (:6728), `vfl-vf-ausgang-bauen` (:6742) | erledigt | +| **5c** | Schleifenrumpf von `vfl-vf-einheit` (:6772) - die Sub-Stuecke der VF-Einheit als Bauteil | **offen** | +| **6** | Daten-Executor fuer die VF-Einheit (baut sie direkt aus Daten) | **offen** | +| 7 | Spec + Serializer + Assertion: `vsp-journal-diff` (vf_spec.lsp:900) prueft Spec-Journal gegen das beim Bau aufgezeichnete Token fuer Token | Assertion erledigt | +| **8** | Einheit-Abschluss: `vfl-vf-einheit-abschluss` (:7889) | **offen** | +| **9** | Kettenebene, ein Glied-Zweig pro Commit: GF-Bogen -> ES -> Horizontal-VF -> Linie-GF -> Linie-VF -> Linie | **offen** | +| **10** | `vfl-spec-ausfuehren` - der direkte Daten-Pfad (existiert noch nicht) | **offen** | +| 11 | Dasselbe fuer Modus 2 | **Vorbedingung erfuellt 2026-10-27**: zwei echte Modus-2-Journale liegen als `tests/testdata/linienzug_modus2_{variokurve,gfbogen}.json` vor, abgespielt von `c:TEST_LINIENZUG_MODUS2`. Der Schritt selbst ist noch offen | + +## Warum es heikel ist + +Bei den offenen Schritten ist die **Reihenfolge selbst Geometrie** +(Gesamtplan, Abschnitt "Wo Geometrie still kippen kann"), u.a.: + +- die dL-Subtraktionskette ist je Schritt mit + `(max *vfk-restlaenge-min-clamp* ...)` geklammert, also + reihenfolgeabhaengig; +- die `vfl-acc-*`-Aufrufe muessen an derselben Stelle in derselben + Reihenfolge bleiben, sonst vertauschen sich `L_VF_m`/`L_GF_m`/`GF_WINKEL` + - in der Zeichnung unsichtbar, im Sivas-Export falsch; +- `*vfl-as-winkel*`/`*vfl-es-winkel*` werden lazy von den Blocknamen-Bauern + gelesen - spaeter gesetzt heisst falscher Block; +- `ziel-gf2` vs. `L_GF2-bau` im Ausgang - geht es verloren, entsteht still + die falsche GF2 hinter dem Motor. + +Ausdruecklich nicht anfassen: siehe Gesamtplan, Abschnitt "Ausdruecklich +nicht anfassen" (u.a. alle Journal-Konsumenten, `vfl-in-*`-Wrapper, +Wizard-Schicht, Abbruch-Pfad). + +## Ablauf je Schritt + +1. Umbauen (Frage-Schale behaelt Namen, Bauteil wortwoertlich umziehen, + keine Umsortierung). +2. CAD-Lauf: `TEST_HUNDM05` (save dxf), `TEST_VF_SPEC`, `TEST_LINIENZUG`. +3. `pytest tests/test_vf_geometrie.py` gegen + `tests/reference/hundm05_attribute.json` - nennt bei Abweichung Kette + und Feld. Referenz nur nach geprueftem Lauf auffrischen + (`lib/dxf_vf_abbild.py --schreibe-referenz`). +4. Nach Geometrie-Schritten (5c, 9) zusaetzlich DXF-Diff und + Sivas-Export-Vergleich. +5. Ein Schritt pro Commit - sonst ist ein Fehler keinem Schritt mehr + zuzuordnen. + +## Wann angehen + +Erst bei konkretem Bedarf: einzelne Bauteile ohne Journal aufrufen, oder der +Replay-Umweg wird zu langsam bzw. zu fehleranfaellig. Bis dahin genuegt +Stufe 1. diff --git a/doc/todo/modus2-achsenweise-bilanz.md b/doc/todo/modus2-achsenweise-bilanz.md index d6dcca0..95782f6 100644 --- a/doc/todo/modus2-achsenweise-bilanz.md +++ b/doc/todo/modus2-achsenweise-bilanz.md @@ -1,7 +1,21 @@ -# TODO: Modus-2-Solver auf achsenweise Laengen-Bilanz umstellen +# Modus-2-Solver: achsenweise Laengen-Bilanz -Status: **Vorschlag / noch nicht umgesetzt** (2026-09-18). Mit dem Entwickler zu -besprechen, bevor der Solver angefasst wird. Reiner Plan - kein Code geaendert. +Status: **ERLEDIGT 2026-10-29.** Gefaltete Laeufe (U-Form) werden gebaut; am +selben Pfad gemessen 0.56 mm (9 Grad) und 0.7 mm (12 Grad) quer, beide +Regressionsketten weiter OK. Der Abschnitt "Stand 2026-10-29" und der "Nachtrag +2026-10-29" am Ende beschreiben Loesung und Herleitung. + +Die Datei bleibt BEWUSST liegen, obwohl der Auftrag abgeschlossen ist: vier +Kommentare in `Lisp/vf_linienzug.lsp` verweisen auf diesen Pfad (Suche nach +`modus2-achsenweise-bilanz`). Sie dokumentiert damit nicht mehr einen Plan, +sondern WARUM der Solver so bilanziert, wie er es tut - einschliesslich der +fehlgeschlagenen Versuche, damit sie niemand ein zweites Mal unternimmt. + +Alles unterhalb dieser Zeile ist der urspruengliche Plan von 2026-09-18 und +seine Zwischenstaende. Die dort genannten Zeilennummern sind veraltet; Phase B +von `vf-linienzug-modus2` findet man per Suche nach `climber-span`. Die damals +vorgeschlagene Zwischenloesung (gefaltete Laeufe mit Meldung abweisen) wurde +NICHT umgesetzt und ist gegenstandslos - solche Laeufe funktionieren jetzt. ## Kurzfassung @@ -44,7 +58,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 @@ -120,3 +134,260 @@ Gefaltete VF-Laeufe (mehr als eine Achsenrichtung im VF-Bereich, z.B. U-Form) erkennen und mit klarer Meldung abweisen, statt still falsche Geometrie zu bauen - analog zur bereits vorhandenen "nur EIN VF-Lauf"-Abweisung (`vfl-m3-vf-lauf-alert`). Macht das Limit ehrlich sichtbar, kleiner Eingriff. + +--- + +## Stand 2026-10-27 (nach Commit ce4ad0f) + +**Teilweise entschaerft, Kern bleibt offen.** + +Die Budget-Arbeit vom 26./27.10. hat genau das Prinzip eingefuehrt, das +dieses Dokument fordert - aber nur fuer DREI Posten. Sie werden jetzt dem +Segment zugeschlagen, auf dem sie physisch stehen, statt skalar von der +Gesamtspanne abgezogen zu werden: + +| Posten | wie | Stelle | +|---|---|---| +| AS-Element | gemessener Fussabdruck, nur `vf-start` | `as-along-fix` | +| Abschlussbogen + Motorstation | nur `vf-ende` | `abschluss-fp` | +| Eck-Differenz (gezeichneter Bogen gegen Bauteil) | Alist je Segmentindex | `vfl-eck-korrekturen` / `vfl-eck-extra` | + +`vfl-eck-extra` ist dabei bereits die hier geforderte Form: ein Zuschlag **je +Segment**, nicht ein Skalar fuer den ganzen Lauf. Er fliesst in alle vier +Budgets (Spannweite, Kletterer, Fueller, Rueckanker). + +**Skalar geblieben sind genau die zwei Posten, die den U-Form-Fehler +verursachen:** + +- `feste-vf` (Umlenkstation 500 + Separator 300, ggf. + Motor) - wird in + `vfl-zsolve-winkel-waehlen` als EIN Wert uebergeben +- `gf-total` (GF1) - bei "alles am Einlauf" gross, und genau diese Summe + fehlt dem Kletterer im anderen Schenkel + +Das oben beschriebene Symptom (dY = +2645 mm) bleibt daher bestehen. Der +naechste Schritt waere, diese beiden ebenfalls dem Segment zuzuordnen, auf +dem sie stehen - also dieselbe Umstellung wie bei AS und Motorstation, nur +fuer den Lauf-EINGANG. + +Hinweis zur Fehlersuche: Seit ce4ad0f meldet die Konsole jeden Zuschlag +namentlich (`AS-Fussabdruck ... von Segment N abgezogen`, +`Abschluss-Fussabdruck ...`, `Eck-Korrektur ... auf Segment N`). Eine +FEHLENDE Zeile ist das Warnsignal - so wurde ein 2,4-mm-Rest gefunden. Fuer +die U-Form-Diagnose sind diese Zeilen der schnellste Einstieg. + +--- + +## Stand 2026-10-28: Fueller-Seite geloest, Solver-Seite offen + +### Geloest und gemessen + +`vfl-m2-eingang-fp`: GF1 + Separator + Umlenkstation + Uebergangsbogen stehen +auf dem Segment `vf-start`. Ist dieses Segment ein FUELLER (der Kletterer +liegt hinter einer Kurve), bekam der Fueller bisher die volle Restlaenge, als +staende dort nichts. Jetzt werden sie abgezogen. + +Ist das Eingangs-Segment selbst der Kletterer - der gerade Normalfall -, gibt +die Funktion hart 0.0 zurueck; der funktionierende Fall kann sich also nicht +aendern. Gemessen am U-Form-Testfall: **Querabweichung 8005 -> 1424 mm**, +Segment 1 danach auf 0,2 mm genau belegt. + +### Noch offen: der Solver rechnet GF und Stationen gegen die falsche Achse + +Rest 1424 mm. Segment 5 (Kletterer) legt 6475,5 mm zurueck, verfuegbar waeren +7899,8 - der Solver reserviert dort Platz fuer Umlenkstation, Separator und +den GF1-Anteil, die auf Segment 1 stehen. + +### Fehlgeschlagene Versuche (nicht wiederholen) + +Drei Anlaeufe am 2026-10-27/28, jeder an einer anderen Kopplung gescheitert: + +1. **`feste-vf` kleiner uebergeben.** Geht nicht: `feste-hz` fliesst in + `vf-winkel-AB` (vf_standard.lsp:241/245) sowohl als `feste*cos3` in die + LAENGE als auch als `feste*sin3` in die HOEHE. Die Hoehe ist real - die + Teile senken die Kette ab, egal auf welchem Schenkel sie stehen. Nur der + Laengenanteil darf verschoben werden. +2. **Spanne vorab korrigieren und iterieren.** Geht nicht direkt: + `vfl-zsolve-winkel-waehlen` enthaelt die WINKELFRAGE an den Nutzer - eine + Iteration wuerde mehrfach fragen. Und die Korrektur ist pro Winkel + verschieden, weil jeder Winkel ein anderes `L_GF` ergibt. +3. **Stiller Nachrechner nach der GF-Verteilungsfrage** (Code vorhanden, per + `(setq nachrechnen-k 4)` deaktiviert). Technisch sauber: kein Dialog, + Fragenfolge und Journal unveraendert, Konvergenz in 4 Runden + (3278 -> 4372 -> 4737 -> 4859 -> 4899 mm). ABER er kollidiert mit + **`filler-A-len`**: dieser Fueller belegt im Kletter-Segment genau den + Platz, den das halbe GF1 dort frei laesst. Nimmt man GF1 aus der + Kletterer-Spanne heraus, wird Fueller-A trotzdem gebaut - zusaetzlich zum + echten GF1 auf demselben Segment. Gemessen: Fueller nach der + Umlenkstation -369 mm (auf 100 geklemmt), Kette 746 mm daneben. + Kleinerer Endfehler, aber entartete Geometrie - deshalb zurueckgenommen. + +### Daraus fuer den naechsten Anlauf + +Der Nachrechner ist vermutlich der richtige Weg, aber **`filler-A-len` muss +mitbehandelt werden**: er gehoert zur Annahme "GF1 liegt im Kletter-Segment" +und darf bei gefaltetem Lauf nicht mehr entstehen. Wer das angeht, sollte +beide Mechanismen zusammen betrachten, nicht nacheinander. + +Testfall vorhanden: U-Form 5855 / 270 / 7806 mm (Kletterer hinter zwei +90-Grad-Kurven), Soll-Querabweichung ~0, Stand heute 1424 mm. Die beiden +geraden Referenzketten in `c:TEST_LINIENZUG_MODUS2` schuetzen den Normalfall. + +--- + +## Stand 2026-10-29: Eingangs-Segment exakt, Kletterer-Segment offen + +### Zusaetzlich geloest (gegenueber dem Stand vom 2026-10-28) + +**Fueller-A entfaellt bei gefaltetem Lauf**, und `vfl-m2-eingang-fp` zieht +seitdem `br-gf1` ab statt `gf-total`. Beides gehoert zusammen: + +`filler-A-len` fuellt den Platz, den ein halbiertes GF1 auf DERSELBEN Achse +frei laesst - er gehoert zur Annahme "GF1 und GF2 liegen auf einer Geraden". +Bei gefaltetem Lauf wurde er auf dem Eingangs-Segment ZUSAETZLICH zu GF1 +gebaut; zusammen mit GF2 im Kletterer-Schenkel entstanden damit 1.5 x +gf-total Gefaellestrecke bei einem Budget von gf-total. + +Ergebnis, am U-Form-Testfall nachgerechnet (9 Grad, Verteilung 1/2+1/2): + +``` +Segment 1: AS 425,8 + GF1 1370,3 + Sep 299,6 + Umlenk 499,3 + + Bogen 199,9 + Fueller 3153,7 = 5948,6 mm +Budget: 5855 + 93,8 (Eck-Korrektur) = 5948,8 mm +``` + +Das Eingangs-Segment ist damit **auf 0,2 mm exakt belegt**, und im Protokoll +steht nur noch EIN Fueller statt zwei. + +### Was offen bleibt + +Das KLETTERER-Segment. Gemessen im selben Lauf: Segment 5 belegt 6965,8 mm, +verfuegbar waeren 7899,8 - es fehlen **934 mm**, exakt die Endabweichung. + +Der Solver bekommt als Spanne 7704,16 mm und verplant darin u.a. GF1 +(1370,3) sowie Umlenkstation + Separator (798,9) - Teile, die auf Segment 1 +stehen. Umgekehrt enthaelt seine Spanne NICHT den Abschluss-Fussabdruck +(ab_3 + Motorstation, 695 mm), weil dieser nur von FUELLER-Segmenten +abgezogen wird (`fill-len`) und das Kletterer-Segment keines ist. + +**Der Restfehler skaliert mit `L_GF`** und damit mit dem gewaehlten Winkel - +unabhaengig bestaetigt durch zwei Laeufe auf demselben Pfad: + +| Winkel | L_GF | Querabweichung | +|---|---|---| +| 6 Grad | 1093 | 90 mm | +| 9 Grad | 2744 | 934 mm | + +Praktische Folge: Mit flachem Winkel ist der gefaltete Lauf heute brauchbar, +mit steilem nicht. + +### Hinweis zur Methodik fuer den naechsten Anlauf + +Zwei Laeufe sind nur vergleichbar, wenn **Winkel UND GF-Verteilung gleich** +sind. Mehrere Messreihen dieser Sitzung waren nicht deutbar, weil sich +zwischendurch der Winkel geaendert hatte und der Restfehler mit `L_GF` +skaliert. Vor einer Aenderung also eine feste Kombination festlegen +(Vorschlag: 12 Grad, Verteilung 1/2+1/2) und nur die vergleichen. + +--- + +## Nachtrag 2026-10-29: Loesungsansatz vom Nutzer + +Der Abschnitt darueber beschreibt den Stand VOR dem folgenden Umbau; er bleibt +als Herleitung stehen. + +Nutzer-Vorgabe: *"nach der zweiten VF-Kurve den passenden Winkel neu aus dem +KS_AUS der Kurve und dem Zielpunkt rechnen"* und *"da GF2 feststeht, steht auch +die fuer Auf/Ab verbleibende Laenge fest - passender Winkel plus eine +ausgleichende GF"*. + +Das ist die Umkehrung der bisherigen Logik und trifft den Kern: bisher wurde +ALLES vorab global verplant und der aufgelaufene Fehler landete am Kettenende. +Richtig ist, die letzten freien Groessen aus der GEMESSENEN Ist-Lage zu +bestimmen. Je nachdem, was das letzte Segment ist, sind das verschiedene +Groessen: + +| Letztes Segment | feste Groesse | freie Groessen | +|---|---|---| +| flacher Fueller | - | Richtung + Fuellerlaenge | +| Auf/Ab-Koerper (U-Form) | Laenge (aus dem Pfad) | Winkel (diskret) + GF-Ausgleich | + +### Umgesetzt + +**1. Flacher Fueller als Schlussstueck** - neue Funktion +`vfl-zsolve-schluss-ziel`. Bisher loeste `vfl-zsolve-es-fueller` nur die LAENGE +und uebernahm die Richtung aus dem gezeichneten Pfad. Eine Laenge verschiebt die +Kette aber nur ENTLANG ihrer Achse - steht der reale Kurvenausgang seitlich +NEBEN der gezeichneten Geraden, laeuft die gebaute Achse parallel zur Zielachse +und der Querversatz ist unerreichbar. Gibt man die Richtung mit frei, stehen +zwei Unbekannte zwei Gleichungen (X und Y) gegenueber, geschlossen loesbar: + +``` +D = Ziel - KS_AUS(letzte Kurve) +A = sqrt(|D|^2 - P^2) ; P = Querversatz des ES-Fussabdrucks +fill = A - C +hz = Winkel(D) - atan2(P, A) +``` + +`C` und `P` sind von `hz` unabhaengig, weil `vfl-zsolve-es-vektor` Vektor und +Bezugsrahmen um denselben Winkel dreht - deshalb ist keine Iteration noetig. +Scheitert der Solve (Ziel naeher als `P`), bleibt der bisherige Weg. Unit-Tests: +`tu-tests-vfl-schluss` (file-frei ueber `es-block = nil`). + +**2. Eingangs-Hardware bei gefaltetem Lauf** - der am 2026-10-28 zurueck- +genommene Spannen-Zuschlag ist wieder da. Begruendung fuer die Ruecknahme war +die Kollision mit `filler-A-len`; dieser Blocker ist entfallen, seit Fueller-A +bei gefaltetem Lauf gar nicht mehr entsteht. Zugeschlagen wird weiterhin NUR +der Laengenanteil (`entry-fixed * cos3`), nie `feste-vf` selbst - dessen +`sin3`-Hoehenanteil ist real. + +**3. Abschluss-Hardware auf dem Kletterer** (`kletter-ende-fp`) - endet der Lauf +auf einem FUELLER, zieht `vfl-zsolve-es-fueller` Motorstation + Separator + ES +beim Loesen der Fuellerlaenge selbst ab. Endet er auf einem KLETTERER, gibt es +diesen Fueller nicht: die drei Teile werden dort gebaut, standen aber in keinem +Budget. Abgezogen wird dasselbe wie in dessen Konstante `cc`, OHNE den +ab_3-Bogen (der steckt in diesem Fall schon in `uebergang-fp`). + +**4. GF1-Fremdanteil** (Nachrechner wieder aktiv, 8 statt 4 Runden) - `gf-total` +ist ein ERGEBNIS des Winkel-Solves, sein auf dem Eingangs-Schenkel stehender +Teil laesst sich dort noch nicht abziehen (Henne-Ei). Der Nachrechner loest bei +UNVERAENDERTEM Winkel neu und konvergiert mit Faktor ~1/3. + +### Der entscheidende Punkt: 3 und 4 wirken nur GEMEINSAM + +| Posten | im Budget des Solvers | steht real auf dem Kletterer | +|---|---|---| +| GF1 | ja | nein - liegt im Eingangs-Schenkel | +| Motor + Separator + ES | nein | ja | + +Die beiden Betraege heben sich TEILWEISE auf. Wer nur einen davon korrigiert, +verschiebt den Fehler bloss in die andere Richtung - genau das war der +746-mm-Befund vom 2026-10-28, der damals wie eine Verschlechterung aussah. +Gemessen am 9-Grad-Lauf: GF1 1636.9 - (Motor+Sep+ES) 1235.1 = 401.8 mm, exakt +die damalige Restabweichung von 401.7 mm. + +### Messergebnis + +| Lauf | vorher | nachher | +|---|---|---| +| U-Form 9 Grad | 1424 -> 934 mm | **0.56 mm** | +| U-Form 12 Grad | - | **0.7 mm** | +| Variante A (Vario-Kurve) | OK | OK | +| Variante B (GF-Bogen) | OK | OK | + +Zwei verschiedene Winkel auf demselben Pfad - der Restfehler skaliert also +nicht mehr mit `L_GF`, die Bilanz selbst stimmt. + +### Regression auf dem Weg dorthin (Lehrstueck) + +`kletter-ende-fp` schlug zunaechst auch in Variante B zu und verkuerzte deren +Segment 1 um 798.9 mm. Dort ist `vf-start = vf-ende = 0`: der VF-Lauf besteht +aus EINEM Segment, die Segmente 2..5 sind Back-Lauf. Damit ist der Kletterer +zugleich Laufende, der Abzug griff - obwohl ohne flache Zone die Motorstation +bereits in `feste-vf` steckt und Separator + ES vom Back-Lauf reserviert werden. +Die drei Bedingungen am `if` (`hor-pairs > 0`, `vf-ende = n-1`, `es-vorhanden`) +sind deshalb keine Vorsichtsmassnahme, sondern benennen genau die Faelle, in +denen sonst doppelt gebucht wird. + +Auffindbar war die Ursache nur, weil Segment 1 von Variante B bei `hz=0` liegt: +eine Verkuerzung dieses Segments uebersetzt sich 1:1 in `dX`, und `IST - SOLL = +(-799.11 | -104.68)` aus `logs/vfl_modus2.dbg` zeigte die reine X-Verschiebung. diff --git a/doc/todo/plan-vf-interactive.md b/doc/todo/plan-vf-interactive.md index b63210a..6ed2477 100644 --- a/doc/todo/plan-vf-interactive.md +++ b/doc/todo/plan-vf-interactive.md @@ -5,6 +5,14 @@ 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. Die Spec-Uebersetzer fuer Modus 2/3 (auf +`SEGS`-Basis, Abschnitt 4.4 ersetzt) sind ausgelagert nach +[spec-modus2-3.md](spec-modus2-3.md). +**Abarbeitungsliste Stufe 2:** herausgeloest nach +[linienzug-ohne-gui.md](linienzug-ohne-gui.md) (aktuelle Zeilennummern, +Ablauf je Schritt); Teil 5 hier bleibt die ausfuehrliche Referenz. ## Fortschritt @@ -88,9 +96,9 @@ Doppelklick-Edit, `SSG_DIM_SWITCH`) ist unveraendert. Das `"disabled": true` der hundm05-Zeile in `tests/alltests.json` ist weg, der Test laeuft aktiv mit. -**Bewusst nicht umgestellt**: `vfl-konvertiere-ent` (Batch-2D/3D) laeuft -weiter ohne `*vfl-headless*` - eine Live-Rueckfrage ist dort bisher gewolltes -Verhalten. Kandidat fuer Stufe 1, wenn der Ergebnis-Record steht. +**Nachtrag 2026-10-26**: `vfl-konvertiere-ent` (Batch-2D/3D) laeuft jetzt +ebenfalls unter `*vfl-headless*`; der alte Block wird erst nach erfolgreichem +Neubau geloescht (Details `doc/variofoerderer.md`, Abschnitt Headless). ## Kontext @@ -149,8 +157,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. --- @@ -339,6 +350,11 @@ gesammelten Meldungen aus P1. ### 4.4 Modus 2 und Modus 3 +> **Ueberholt (2026-10-26):** Modus 2/3 journalisieren seit 2026-09-18 +> `SEGS` statt `OBJS`, Modus 3 hat Journal + Doppelklick-Edit. Aktueller +> Entwurf und Schritte: [spec-modus2-3.md](spec-modus2-3.md). Der folgende +> Text bleibt nur als Historie. + Modus 2: Spec traegt `("pfad-handles" ...)` (Entity-Handles der LINE/ARC-Trasse) plus `("segmente" ...)` in Pfadreihenfolge. Vor dem Bau wird die Segmentzahl gegen die aufgeloesten Handles geprueft und bei Fehlbestand abgebrochen - die @@ -695,7 +711,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/todo/spec-modus2-3.md b/doc/todo/spec-modus2-3.md new file mode 100644 index 0000000..f3bec0f --- /dev/null +++ b/doc/todo/spec-modus2-3.md @@ -0,0 +1,144 @@ +# TODO: Spec-Uebersetzer fuer VF-Linienzug Modus 2 und 3 + +> **Stand 2026-10-27: Auftrag weitgehend erledigt bzw. bewusst gestrichen.** +> Siehe Abschnitt "Entscheidung 2026-10-27" am Ende. Der Text darunter ist +> die urspruengliche Planung und bleibt als Begruendung stehen - er +> beschreibt NICHT mehr den offenen Stand. + +**Stand:** 2026-10-26 · **Prioritaet:** mittel - einzige fehlende +FUNKTION im Daten-Pfad (Modus-2/3-Ketten sind nur interaktiv baubar). + +Herausgeloester Rest von Stufe 1 aus [plan-vf-interactive.md](plan-vf-interactive.md) +(dort Abschnitt 4.4, der hiermit ersetzt ist). Schwester-Auftrag: +[linienzug-ohne-gui.md](linienzug-ohne-gui.md) (Stufe 2). + +## Ausgangslage + +Der Daten-Pfad `VF_SPEC_BAU` ([vf_spec.lsp](../../Lisp/vf_spec.lsp)) kann nur +Modus 1: + +- `vsp-journal` (vf_spec.lsp:568) kennt nur den Fragenfluss/die Menue-Codes + von `vf-linienzug-modus` (z.B. `*vsp-tab-gf-laenge-modus*`, :56). +- `vsp-bau-journal` (:939) ruft fest `vf-linienzug-modus` auf (:978). + +Modus 2 (`vf-linienzug-modus2`, Pfad + Zielhoehe, Marker `"linienzug2"`) und +Modus 3 (`vf-linienzug-modus3`, Vorwaerts-Nachbau, Marker `"linienzug3"`) +fragen grundlegend anders: erst Pfad-Auswahl (`vfl-in-segmente`), dann je +Segment ein Klassifizierungs-Dialog (`vflw_seg_linie_m2`/`_m3`, +`vflw_seg_bogen`). Dafuer gibt es weder Uebersetzer noch Bau-Aufruf. + +Doppelklick-Edit/Neuaufbau funktioniert fuer beide Modi bereits +(`vfl-edit-ent-voll`) - es fehlt nur der Bau aus einer Spec-Datei. + +## Korrektur des alten Entwurfs (Plan 4.4, Stand 2026-09-02) + +| alter Entwurf | heute (seit 2026-09-18) | +|---|---| +| Modus-2-Spec traegt `pfad-handles` (Entity-Handles, Journal-Art `OBJS`), vor dem Bau gegen die reale Zeichnung geprueft | Modus 2 UND 3 journalisieren die **Segment-Essenz** als Journal-Art `SEGS`: je Segment 9 Felder `typ hz laenge bwinkel bseite spx spy epx epy` (`vfl-segs->string`/`vfl-string->segs`, vf_linienzug.lsp). Die Kette ist selbst-enthalten, die Original-LINE/ARC werden nicht mehr gebraucht | +| Modus 3 ohne Journal-XDATA, kein Doppelklick-Edit, keine 2D/3D-Konvertierung; Nachruestung zurueckgestellt | Modus 3 schreibt Marker `"linienzug3"` und ist per Doppelklick editierbar | +| "Eine Gerade direkt nach einer Vario-Kurve wird nicht gefragt - der Uebersetzer leitet das ab" | gilt vermutlich weiter, am echten Journal pruefen | + +Folge fuer den Entwurf: Die Spec fuer Modus 2/3 traegt eine **Segmentliste** +statt Objekt-Handles plus die Klassifizierung je Segment (Typ, GF-Neigung +bzw. Wert, Bogen-Variante) und die Praeambel (Startpunkt, Starthoehe, +AS/ES). Sie ist damit wie Modus 1 **ohne Zeichnung** pruefbar. + +## Schritte + +Die Stand-Spalte ist auf 2026-10-29 nachgezogen (sie fuehrte bis dahin +faelschlich noch alle sieben Schritte als offen, obwohl der Kopf dieser Datei +das Gegenteil sagt). + +| Schritt | Inhalt | Stand | +|---|---|---| +| 1 | Referenz-Journale erzeugen: in BricsCAD 2-3 typische Ketten je Modus (2 und 3) bauen, Zeichnung unter `tests/testdata/` ablegen. Abdecken: GF- und VF-Segmente, Bogen, AS/ES ja/nein, bei Modus 3 altes und neues AS/ES-Format | **fuer Modus 2 erledigt** (5 Ketten, `tests/testdata/linienzug_modus2_*.json`, abgespielt von `c:TEST_LINIENZUG_MODUS2`). Fuer Modus 3 auf Nutzer-Entscheidung 2026-10-29 **gestrichen** | +| 2 | Python-Lesepfad: `lib/vf_journal_export.py` (+ `vf_linienzug_grammatik.py`) lernen `linienzug2`/`linienzug3` mit `SEGS` (heute: "unbekannter Code") | **erledigt** (4a19ac0, Marker-Trennung + Rohtokens) | +| 3 | Spec-Form fuer Modus 2/3 festlegen (flaches JSON, lesbar von `ssg-load-json`, Segmente als Einzeiler) | **gestrichen** - siehe Entscheidung | +| 4 | Python-Rundlauf `spec_aus_journal`/`journal_aus_spec` fuer Modus 2/3 in `lib/vf_spec_export.py`, Test in `tests/test_vf_spec.py`: Journal -> Spec -> Journal tokengleich | **gestrichen** | +| 5 | LISP: `vsp-journal` je Modus (Dispatch ueber Spec-Feld `modus`), `vsp-pruefen` um Modus-2/3-Regeln erweitern | **gestrichen** | +| 6 | `vsp-bau-journal`: Bau-Funktion nach Modus waehlen (`vf-linienzug-modus2`/`-modus3`), Ergebnis-Record wie Modus 1 (`prompts` = 0, `journal_diff` leer) | **erledigt** (4a19ac0, Dispatch aus dem Journal statt per Spec-Feld) | +| 7 | CAD-Test analog `TEST_HUNDM05` + Eintrag in `tests/alltests.json`; file-freie Teile als `tu-*` in `tests/test_unit.lsp` | **als Journal-Replay erledigt** fuer Modus 2 (`c:TEST_LINIENZUG_MODUS2`), fuer Modus 3 gestrichen | + +## Hinweise + +- Korrektheitskriterium Modus 3 ist "gleiches rein, gleiches raus", NICHT + "trifft den Zielpunkt" - der Ist/Soll-Ende-Report weicht schon im + interaktiven Bau ab. +- Alte `"linienzug2"`-Bloecke mit `OBJS`-Journal (vor 2026-09-18) sind + nicht mehr editierbar und taugen NICHT als Referenz. +- Neue `vfl-in-*`-Wrapper mit `ssget`/`get*` im statischen Waechter + `tests/test_vf_headless_statisch.py` eintragen. +- Werte selbstbeschreibend in der Spec (Winkel 30/60/90, nicht Index) - + siehe CLAUDE.md, Konventionen. + +--- + +## Entscheidung 2026-10-27 (nach Commit 4a19ac0) + +**Die Spec fuer Modus 2/3 wird NICHT gebaut.** Der Grund ist erst durch den +Modus-2-Regressionstest (cf626d7) sichtbar geworden: + +Modus-2/3-Journale tragen mit `SEGS` die komplette Segment-Essenz und sind +damit **ohne Zeichnung abspielbar** - `vfl-journal-replay-start` + +`vf-linienzug-modus2` genuegt, wie `c:TEST_LINIENZUG_MODUS2` zeigt. Der +Hauptnutzen einer Spec (Domaenenwerte statt Menue-Codes) faellt damit +weitgehend weg: `SEGS` ist bereits Geometrie im Klartext, kein Menue-Code. + +Fuer Modus 1 bleibt die Spec sinnvoll - dessen Journal besteht aus +Menue-Ziffern ("5" = "Neue Linie BIS Kettenende"), die ohne Uebersetzung +unlesbar sind. + +### Umgesetzt (die lohnenden Teile) + +| Schritt | Stand | +|---|---| +| 1 Referenz-Journale | **erledigt** - `tests/testdata/linienzug_modus2_{variokurve,gfbogen}.json`, aus einem echten Lauf | +| 2 Python liest `linienzug2`/`3` | **erledigt** - `vf_journal_export.py` trennt nach Marker, Modus 2/3 als Rohtokens. Vorher lief die Modus-1-Grammatik auch darueber und brach ab | +| 6 Bau-Funktion nach Modus | **erledigt** - `vsp-bau-fn-fuer-journal` leitet sie aus dem Journal ab (kein SEGS = 1, SEGS + Marke `m2v2` = 2, SEGS ohne = 3) | +| 7 CAD-Test | **erledigt als Journal-Replay** statt als Spec-Test: `c:TEST_LINIENZUG_MODUS2`, zwei Varianten derselben Strecke | + +### Gestrichen + +Schritte 3, 4 und 5 (Spec-Form, Python-Rundlauf, `vsp-journal` je Modus). +Sie lohnen erst, wenn jemand Modus-2/3-Ketten aus EXTERNEN Daten *erzeugen* +will - heute tut das niemand. Selbst `dxf_anlage_export.py` schreibt fuer +Modus-1-Linienzuege das Journal unveraendert durch (`"typ": +"linienzug_journal"`) statt eine Spec zu bauen. + +### Stattdessen: das eigentliche Risiko direkt entschaerft + +Die Spec haette *eine* echte Schwachstelle abgedeckt - positionsabhaengige +Menue-Ziffern im Journal. Das ist stattdessen an der Quelle geloest: die +Segment-Antworten sind jetzt selbstbeschreibende Werte (`gf`/`vf`, +`gf-bogen`/`vario-kurve`, `aussen`/`innen`, gemeinsamer Normalisierer +`vfl-wert-norm`). Ein Umsortieren der Optionen deutet damit keine +gespeicherte Kette mehr um - genau das war beim Lauf-Anfang (833a4b6) real +passiert. Bruchteil des Aufwands, gleicher Schutz. + +### Modus 3: abgeschlossen mit bewusst bleibendem Risiko (2026-10-29) + +**Dasselbe fuer Modus 3** - dessen Segment-Klassifizierung benutzt weiterhin +Menue-Ziffern ("1".."4", roh verglichen und genauso ins Journal geschrieben). +Nicht mit umgestellt wurde sie, weil fuer Modus 3 kein aufgezeichnetes Journal +und damit kein Sicherheitsnetz existiert - bei Modus 2 haben die +Referenzketten bewiesen, dass Bestandsketten die Umstellung unveraendert +ueberstehen (sie tragen bis heute die alten Ziffern). + +**Nutzer-Entscheidung 2026-10-29:** fuer Modus 3 wird VORERST kein Testfall +angelegt - *"bei Problemen im Einsatz testen wir und korrigieren dann"*. Die +Umstellung auf selbstbeschreibende Werte unterbleibt damit bis auf Weiteres, +und der Punkt ist aus `doc/todo.md` entfernt: er wartet nicht auf Arbeit, +sondern auf einen Anlass. + +Praktisch heisst das: Taucht in Modus 3 ein Fehler auf, der nach einer Kette +aus der Zeichnung heraus untersucht werden muss, ist der erste Schritt +`lib/vf_journal_export.py` auf diese Zeichnung - damit liegt genau das +Journal vor, das hier als Sicherheitsnetz fehlt, und die Umstellung waere +dann derselbe Handgriff wie bei Modus 2. + +Das Risiko bleibt aber bestehen und wandert dorthin, wo es gefaehrlich wird: +als Warnblock direkt ueber der Segment-Auswahl in `vf_linienzug.lsp` +(Suche nach "ACHTUNG beim Aendern der folgenden Auswahllisten"). Wer die +Modus-3-Optionen umsortiert, ergaenzt oder entfernt, deutet damit jedes +gespeicherte `linienzug3`-Journal still um. Eine TODO-Zeile haette diesen +Leser nicht erreicht, ein Kommentar an der Aenderungsstelle schon. diff --git a/doc/variofoerderer.md b/doc/variofoerderer.md index ad0d2a8..3d9ad60 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`). --- @@ -623,9 +636,16 @@ Beispiel: `tests/test_hm_recformat.lsp` (5 echte Ketten aus `data/polylines.dxf` setzt alle drei Schalter mit Save/Restore, ersetzt `getpoint`/`getstring`/ `getint`/`getreal`/`alert` zusaetzlich durch **zaehlende** Stubs (Netz fuer Prompts ausserhalb der Wrapper) und schreibt `prompts`, `headless_fehler` und -`meldungen` in `tests/output/hm_recformat_results.json`. Noch nicht umgestellt: -`vfl-konvertiere-ent` (Batch-2D/3D-Konvertierung) laeuft weiter ohne -`*vfl-headless*` - dort ist eine Live-Rueckfrage bisher gewolltes Verhalten. +`meldungen` in `tests/output/hm_recformat_results.json`. + +Auch `vfl-konvertiere-ent` (Batch-2D/3D-Konvertierung `SSG_DIM_ALL_2D`/`_3D`, +Modus 1/2/3) laeuft seit 2026-10-26 unter `*vfl-headless*` (Wizard und GUI +aus, Save/Restore). Reicht ein Journal nicht, bricht der Neubau mit +Fundstelle ab statt mitten im Batch live zu fragen. Der ALTE Block bleibt +dabei stehen und wird erst geloescht, wenn ein neuer `VF_n`-INSERT entstanden +ist; bei einem Fehlschlag raeumt `vfl-konvert-aufraeumen` alles seit der +Startmarke Erzeugte wieder weg (keine losen Teile). Die Gruende sammelt +`*vfl-konvert-fehler*`, der Batch gibt sie am Ende als Liste aus. --- 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 b4607d1..e56e22b 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): ", @@ -122,7 +149,9 @@ "vfl-edit-kette-header": "\n\nLinienzug mit %1 Glied(ern):", "vfl-edit-abgespielt": "\n>>> %1 Glied(er) werden abgespielt, %2 zurueckgenommen - danach interaktiv weiter.", "vfl-edit2-reset-info": "\n>>> Linienzug (Modus 2) wird mit den gespeicherten Angaben identisch neu aufgebaut...", - "vfl-konvert-fehler": "\n>>> FEHLER bei der Umwandlung von %1: %2 - der alte Block ist entfernt, die Teil-Geometrie liegt frei in der Zeichnung.", + "vfl-konvert-fehler": "\n>>> FEHLER bei der Umwandlung von %1: %2 - der alte Block bleibt unveraendert stehen.", + "vfl-konvert-grund-journal": "Journal reicht nicht aus (%1)", + "vfl-konvert-grund-kein-block": "kein Block erzeugt", "vfl-restore-prompt-auswahl": "\nLose Linienzug-Geometrie waehlen (die Sektions-XDATA der Objekte wird ausgelesen):", "vfl-restore-keine-sektionen": "\n>>> In der Auswahl steckt keine Sektions-XDATA (SSG_VF_EDIT_SEG) - daraus laesst sich keine Kette wiederherstellen.", "vfl-restore-luecke": "\n>>> WARNUNG: Sektion %1 fehlt in der Auswahl - nur die Glieder 1..%2 werden wiederhergestellt.", @@ -169,7 +198,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 +253,24 @@ "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-uebergang-bogen-fehlt": "Uebergangsbogen %1 fehlt in der Bogen-Tabelle - der Block ist nicht ladbar oder hat kein messbares KS. Der Lauf wird ohne seinen Laengenanteil gebaut und faellt dadurch um dessen Laenge zu lang aus.", + "vfl-m2-segwert-unbekannt": "Segment %1 nicht lesbar: Kette %2 enthaelt einen unbekannten Klassifizierungswert. Aufbau abgebrochen - ein geratener Segmenttyp wuerde die Kette falsch neu bauen.", + "vfl-m2-eck-korrektur": "\n Eck-Korrektur %1 mm auf Segment %2 (gezeichneter Bogen gegen Fussabdruck des Eck-Bauteils).", + "vfl-m2-abschluss-fussabdruck": "\n Abschluss-Fussabdruck %1 mm von Segment %2 abgezogen (Abschlussbogen + Motorstation stehen darauf).", + "vfl-m2-kletter-ende-fussabdruck": "\n Kletter-Ende: %1 mm von Segment %2 abgezogen (Motorstation + Separator + ES stehen auf dem Kletterer, nicht auf einem Fueller).", + "vfl-m2-as-fussabdruck": "\n AS-Fussabdruck %1 mm von Segment %2 abgezogen (das AS-Element steht selbst darauf).", + "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 +286,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", @@ -280,6 +321,7 @@ "kreisel-edit-bestehend": "\n-> Bestehend: Abstand=%1 Drehung=%2 Art=%3", "kreisel-edit-dialog-fehlt": "Dialog nicht verfuegbar: %1", "kreisel-eingefuegt": "\n-> Kreisel #%1 eingefügt: %2 (Höhe=%3)", + "kreisel-emsg-abstand-zu-klein": "Abstand zu klein! (%1 < %2) - die Endkreise wuerden sich beruehren/ueberschneiden.", "kreisel-emsg-distanz-klein": "Distanz zu klein! (%1 < %2)", "kreisel-hoehe-aus-3dpunkt": "\n-> Hoehe aus 3D-Punkt uebernommen: %1", "kreisel-hoehe-aus-basispunkt": "\n-> Höhe aus Basispunkt übernommen: %1", @@ -633,6 +675,8 @@ "dim-switch-blocks": "\n DXFM_BLOCKS = %1", "dim-switch-omniflo": "\n DXFM_OMNIFLO = %1", "dim-batch-fertig": "\nUmwandlung auf %1 abgeschlossen: %2 GF, %3 VF neu aufgebaut (%4 bereits in Zieldimension).", + "dim-batch-fehlerliste": "\n%1 Linienzug-Block/Bloecke NICHT umgewandelt (unveraendert stehen gelassen):", + "dim-batch-fehler-zeile": "\n - %1: %2", "sprache-gewechselt": "\nSprache umgeschaltet auf: %1", "cmd-block-auswaehlen": "\nBlock auswaehlen: ", "cmd-kein-block-ausgewaehlt": "\nKein Block ausgewaehlt.", @@ -685,6 +729,9 @@ "plq-geloescht": "\n[DELETE_PLANQUADRATE] Planquadrat-Raster entfernt (%1 Einfuegung(en)).", "plq-nichts-zu-loeschen": "\n[DELETE_PLANQUADRATE] Kein Planquadrat-Raster in der Zeichnung vorhanden.", "exp-check-ids": "\n[%1] Pruefe und vergebe IDs...", + "exp-hoehencheck-frage": "\nVor dem Export den Hoehen-Check (Montagehoehe/Buehnen) ausfuehren?", + "exp-bereinigen": "\nBereinige Zeichnung (PURGE: unbenutzte Bloecke, Layer, Linientypen) ...", + "exp-hoehencheck-fehlt": "\nHinweis: HOEHEN_CHECK nicht verfuegbar - Export laeuft ohne Hoehen-Check.", "exp-hoehen-aktualisiert": "\nHoehen-Attribute von %1 verschobenen Bloecken aus der Z-Koordinate neu gesetzt.", "exp-sep-proxy-fehler": "\n[EXPORT] WARNUNG: Kopie von '%1' aus Block '%2' fehlgeschlagen (%3) - dieses Element fehlt im Export.", "exp-sep-zuordnung": "\n[%1] verpackte Separator-Kopie(n): ZUORDNUNG aus der ID des Wrapper-Blocks gesetzt.", @@ -913,6 +960,16 @@ "tro-insert-kein-block": "Kein Symbol fuer diesen Typ in der Zeichnung (%1) - bitte tro_annotate.py mit diesem Typ laufen lassen.", "tro-insert-prompt-punkt": "\nEinfuegepunkt: ", "tro-insert-eingefuegt": "\nTRO eingefuegt: ID = %1, TYP = %2", + "cmd-jam-bearbeiten": "\nStaubereich bearbeiten: %1", + "jam-edit-kein-jam": "Block %1 ist kein Staubereich (erwartet JAM_*).", + "jam-edit-dialog-fehlt": "Dialogdatei nicht gefunden:\n%1\nDXFM_DCL pruefen (setenv.bat).", + "jam-edit-bereich": "Staubereich %1 vor %2 (Eingang %3)", + "jam-edit-auto": "Abgeleitet: %1", + "jam-edit-hinweis": "In die SCL: tro_annotate --read-jams, danach scl_skeleton.", + "jam-edit-foerderer-ungueltig": "Der Foerderer muss vierstellig sein (z. B. 0054) - nichts geaendert.", + "jam-edit-nummer-ungueltig": "Die laufende Nummer muss eine ganze Zahl ab 1 sein - nichts geaendert.", + "jam-edit-gespeichert": "\nStaubereich gespeichert: %1 (%2)", + "jam-edit-doppelt": "\nACHTUNG: %1 gibt es schon in dieser Zeichnung (%2).", "vfl-abbruch-gesichert": "\n>>> Linienzug abgebrochen: %1 Objekt(e) als Block gesichert (per Doppelklick editierbar/fortsetzbar).", "vfl-zurueck-glied-verworfen": "\n>>> Zurueck: letztes Kettenglied wird verworfen - bitte neu beantworten.", "vfl-abbruch-nichts-gebaut": "\n>>> Abgebrochen - es wurde noch keine Geometrie erzeugt.", @@ -929,13 +986,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)", @@ -964,7 +1021,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.", @@ -1120,6 +1177,16 @@ "kreisel-bp-zeile": "\n Weiche %1: %2 <-> %3 [%4] bei X=%5 Y=%6 Z=%7", "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).", + "chh-start": "\n--- Phase 3: Buehnen-Familien ---", + "chh-kein-kreisel": "\n Hinweis: Kreisel-Modul nicht verfuegbar - nur blockweise Abfrage.", + "chh-fam-frage": "\n Familie %1 (%2, %3 Kreisel, Montagehoehe %4 m): liegt auf einer Buehne?", + "chh-schleife": "\n %1: flache Schleife am selben Kreisel (VON = BIS) - wird einzeln gefragt.", + "chh-buehne-hoehe": "Buehnenhoehe in m", + "chh-buehne-ungueltig": "\n ! Buehnenhoehe muss > 0 und < %1 m sein.", + "chh-kreuz-konflikt": "\n ! %1: Enden in Familien mit verschiedener Buehnenhoehe (%2 / %3 m) - nicht geaendert.", + "chh-kreuz-hoehe": "\n ! %1: Familienhoehen unterscheiden sich um %2 mm (> %3 mm) - nicht geaendert.", + "chh-strecke-neg": "\n ! %1: Buehne %2 m >= Montagehoehe %3 m - nicht geaendert.", + "chh-summe": "\n Phase 3: %1 Familie(n), %2 mit Buehne; angepasst: Kreisel %3, Strecken innerhalb %4, zwischen Familien %5; Konflikte %6; einzeln gefragt %7", "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.", "lg-daten-fehlt": "\n[Lager] Datendatei nicht gefunden: %1 - es gelten die eingebauten Vorgaben.", @@ -1219,6 +1286,58 @@ "lg-regel-profil-fehlt": "\n[Lager] Regelprofil %1 nicht gefunden (%2).", "lg-regel-profil-ungepflegt": "\n[Lager] WARNUNG: Regelprofil %1 ist nicht gepflegt - es gelten die geerbten Werte.", "lg-regel-unbekannt": "\n[Lager] Regel %1 nicht im Profil.", - "lg-regel-liste-kopf": "\nRegelprofil %1: %2 Regeln (Kontext: erhoehte Brandgefaehrdung ohne Loeschanlage)" + "lg-regel-liste-kopf": "\nRegelprofil %1: %2 Regeln (Kontext: erhoehte Brandgefaehrdung ohne Loeschanlage)", + "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 ...", + "vfl-m2-nachrechnen": "\n Gefalteter Lauf: Laengen bei gleichem Winkel neu aufgeteilt - GF %1 -> %2 mm, Kletterstrecke %3 mm (GF1 liegt im Eingangs-Schenkel und verbraucht die Kletterer-Spanne nicht).", + "vfl-m2-nachrechnen-fehl": "Der gewaehlte Winkel %1 Grad geht mit der korrigierten Laengenbilanz nicht mehr auf. Die Kette wird mit der urspruenglichen Aufteilung gebaut und kann daher am Ende zu frueh enden - bitte den Ist/Soll-Vergleich pruefen oder einen anderen Winkel waehlen." } } diff --git a/lang/en_GB.json b/lang/en_GB.json index 30c3fac..9497ff7 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): ", @@ -122,7 +149,9 @@ "vfl-edit-kette-header": "\n\nChain with %1 segment(s):", "vfl-edit-abgespielt": "\n>>> %1 segment(s) replayed, %2 undone - then continue interactively.", "vfl-edit2-reset-info": "\n>>> Rebuilding this Modus-2 chain identically from the saved inputs...", - "vfl-konvert-fehler": "\n>>> ERROR converting %1: %2 - the old block is gone, the partial geometry is loose in the drawing.", + "vfl-konvert-fehler": "\n>>> ERROR converting %1: %2 - the old block is left unchanged.", + "vfl-konvert-grund-journal": "journal is insufficient (%1)", + "vfl-konvert-grund-kein-block": "no block created", "vfl-restore-prompt-auswahl": "\nSelect the loose chain geometry (the section XDATA of the objects is read):", "vfl-restore-keine-sektionen": "\n>>> The selection carries no section XDATA (SSG_VF_EDIT_SEG) - no chain can be restored from it.", "vfl-restore-luecke": "\n>>> WARNING: section %1 is missing from the selection - only segments 1..%2 will be restored.", @@ -169,7 +198,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 +253,24 @@ "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-uebergang-bogen-fehlt": "Transition bend %1 is missing from the bend table - the block cannot be loaded or has no measurable KS. The run is built without its length share and therefore comes out too long by that amount.", + "vfl-m2-segwert-unbekannt": "Segment %1 cannot be read: chain %2 contains an unknown classification value. Build aborted - guessing a segment type would rebuild the chain incorrectly.", + "vfl-m2-eck-korrektur": "\n Corner correction %1 mm on segment %2 (drawn arc versus footprint of the corner component).", + "vfl-m2-abschluss-fussabdruck": "\n Closing footprint %1 mm deducted from segment %2 (closing bend + motor station sit on it).", + "vfl-m2-kletter-ende-fussabdruck": "\n Climbing end: %1 mm deducted from segment %2 (motor station + separator + ES sit on the climber, not on a filler).", + "vfl-m2-as-fussabdruck": "\n AS footprint %1 mm deducted from segment %2 (the AS element sits on it).", + "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 +286,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", @@ -280,6 +321,7 @@ "kreisel-edit-bestehend": "\n-> Existing: Distance=%1 Rotation=%2 Type=%3", "kreisel-edit-dialog-fehlt": "Dialog not available: %1", "kreisel-eingefuegt": "\n-> Kreisel #%1 inserted: %2 (height=%3)", + "kreisel-emsg-abstand-zu-klein": "Distance too small! (%1 < %2) - the end circles would touch/overlap.", "kreisel-emsg-distanz-klein": "Distance too small! (%1 < %2)", "kreisel-hoehe-aus-3dpunkt": "\n-> Height taken from 3D point: %1", "kreisel-hoehe-aus-basispunkt": "\n-> Height taken from base point: %1", @@ -633,6 +675,8 @@ "dim-switch-blocks": "\n DXFM_BLOCKS = %1", "dim-switch-omniflo": "\n DXFM_OMNIFLO = %1", "dim-batch-fertig": "\nConversion to %1 complete: %2 GF, %3 VF rebuilt (%4 already in target dimension).", + "dim-batch-fehlerliste": "\n%1 polyline block(s) NOT converted (left unchanged):", + "dim-batch-fehler-zeile": "\n - %1: %2", "sprache-gewechselt": "\nLanguage switched to: %1", "cmd-block-auswaehlen": "\nSelect block: ", "cmd-kein-block-ausgewaehlt": "\nNo block selected.", @@ -685,6 +729,9 @@ "plq-geloescht": "\n[DELETE_PLANQUADRATE] Planquadrat grid removed (%1 insertion(s)).", "plq-nichts-zu-loeschen": "\n[DELETE_PLANQUADRATE] No Planquadrat grid found in the drawing.", "exp-check-ids": "\n[%1] Checking and assigning IDs...", + "exp-hoehencheck-frage": "\nRun the height check (mounting height/platforms) before the export?", + "exp-bereinigen": "\nPurging drawing (unused blocks, layers, linetypes) ...", + "exp-hoehencheck-fehlt": "\nNote: HOEHEN_CHECK not available - export runs without height check.", "exp-hoehen-aktualisiert": "\nHeight attributes of %1 moved blocks reset from their Z coordinate.", "exp-sep-proxy-fehler": "\n[EXPORT] WARNING: copying '%1' out of block '%2' failed (%3) - this element is missing from the export.", "exp-sep-zuordnung": "\n[%1] packed separator copy/copies: ZUORDNUNG set from the wrapper block ID.", @@ -913,6 +960,16 @@ "tro-insert-kein-block": "No symbol for this type in the drawing (%1) - run tro_annotate.py with this type first.", "tro-insert-prompt-punkt": "\nInsertion point: ", "tro-insert-eingefuegt": "\nTRO inserted: ID = %1, TYPE = %2", + "cmd-jam-bearbeiten": "\nEdit jam area: %1", + "jam-edit-kein-jam": "Block %1 is not a jam area (expected JAM_*).", + "jam-edit-dialog-fehlt": "Dialog file not found:\n%1\nCheck DXFM_DCL (setenv.bat).", + "jam-edit-bereich": "Jam area %1 in front of %2 (entry %3)", + "jam-edit-auto": "Derived: %1", + "jam-edit-hinweis": "Into the SCL: tro_annotate --read-jams, then scl_skeleton.", + "jam-edit-foerderer-ungueltig": "The conveyor must have four digits (e.g. 0054) - nothing changed.", + "jam-edit-nummer-ungueltig": "The running number must be a whole number from 1 - nothing changed.", + "jam-edit-gespeichert": "\nJam area saved: %1 (%2)", + "jam-edit-doppelt": "\nWARNING: %1 already exists in this drawing (%2).", "vfl-abbruch-gesichert": "\n>>> Chain cancelled: %1 object(s) saved as a block (editable/resumable via double-click).", "vfl-zurueck-glied-verworfen": "\n>>> Back: discarding the last chain element - please answer it again.", "vfl-abbruch-nichts-gebaut": "\n>>> Cancelled - no geometry was created yet.", @@ -929,13 +986,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)", @@ -964,7 +1021,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.", @@ -1120,6 +1177,16 @@ "kreisel-bp-zeile": "\n Switch %1: %2 <-> %3 [%4] at X=%5 Y=%6 Z=%7", "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).", + "chh-start": "\n--- Phase 3: platform families ---", + "chh-kein-kreisel": "\n Note: Kreisel module not available - per-block questions only.", + "chh-fam-frage": "\n Family %1 (%2, %3 Kreisel, mounting height %4 m): is it on a platform?", + "chh-schleife": "\n %1: flat loop on the same Kreisel (VON = BIS) - asked individually.", + "chh-buehne-hoehe": "Platform height in m", + "chh-buehne-ungueltig": "\n ! Platform height must be > 0 and < %1 m.", + "chh-kreuz-konflikt": "\n ! %1: ends in families with different platform heights (%2 / %3 m) - unchanged.", + "chh-kreuz-hoehe": "\n ! %1: family heights differ by %2 mm (> %3 mm) - unchanged.", + "chh-strecke-neg": "\n ! %1: platform %2 m >= mounting height %3 m - unchanged.", + "chh-summe": "\n Phase 3: %1 family(ies), %2 on a platform; adjusted: Kreisel %3, sections within family %4, between families %5; conflicts %6; asked individually %7", "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.", "lg-daten-fehlt": "\n[Storage] Data file not found: %1 - built-in defaults apply.", @@ -1219,6 +1286,58 @@ "lg-regel-profil-fehlt": "\n[Storage] Rule profile %1 not found (%2).", "lg-regel-profil-ungepflegt": "\n[Storage] WARNING: rule profile %1 is not maintained - inherited values apply.", "lg-regel-unbekannt": "\n[Storage] Rule %1 not in profile.", - "lg-regel-liste-kopf": "\nRule profile %1: %2 rules (context: increased fire risk without extinguishing system)" + "lg-regel-liste-kopf": "\nRule profile %1: %2 rules (context: increased fire risk without extinguishing system)", + "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 ...", + "vfl-m2-nachrechnen": "\n Folded run: lengths redistributed at the same angle - GF %1 -> %2 mm, climbing section %3 mm (GF1 sits in the entry leg and does not consume the climber span).", + "vfl-m2-nachrechnen-fehl": "The chosen angle of %1 degrees no longer works with the corrected length balance. The chain is built with the original distribution and may therefore end too early - please check the actual/target comparison or pick a different angle." } } 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_csv.py b/lib/export_csv.py index 1abee2e..9f5aad7 100644 --- a/lib/export_csv.py +++ b/lib/export_csv.py @@ -42,6 +42,7 @@ from export_neighbors import ( compute_kreisel_touch_switches, lisp_touch_switches, load_lisp_kreisel_weichen, + einsortieren_freie_separatoren, compute_sep_kette, compute_kreisel_umlauf, SENSOR_TEILEARTEN, @@ -1543,6 +1544,12 @@ def process_blocks(blocks, lookup, dbg=None, lisp_weichen=None): if item.get("teileart", "") == "ILS 2.0 Scanner" and separator_id: item["merkmale"]["Naechster Separator"] = separator_id + # Freie Separatoren, deren Zuordnung eine VF_n/GF_n nennt, die aber nicht + # beim Bau der Strecke entstanden sind (fehlen darum in ihrer sepliste), + # nach Lage in die Kette aufnehmen - nur fuer diesen Lauf, die XDATA am + # Block bleibt unveraendert (siehe einsortieren_freie_separatoren). + einsortieren_freie_separatoren(items, NEIGHBOR_TOLERANCE_MM, dbg=dbg) + # Ketteninterne Separator-/AS-/ES-Reihenfolge aus der neuen "sepliste"- # XDATA (siehe ssg-sepliste-xdata-schreiben) - leeres dict, wenn keine # Strecke eine sepliste traegt (reiner Altbestand ohne neue XDATA). diff --git a/lib/export_neighbors.py b/lib/export_neighbors.py index aa78ad1..05ef9d1 100644 --- a/lib/export_neighbors.py +++ b/lib/export_neighbors.py @@ -1255,6 +1255,194 @@ def _asel_collision_boxes(item, half_tol, box_dims): # Ersetzt das bisherige Raten der Ketten-internen Reihenfolge (die Linie # selbst wird nicht exportiert) durch die tatsaechliche Bau-Reihenfolge. +def sepliste_einsortier_positionen(kette_xy, kandidaten): + """Reiner Rechenkern fuer einsortieren_freie_separatoren: wohin gehoert + jeder Kandidat in eine vorhandene Kette? + + kette_xy = [(x, y), ...] Lage der Kettenglieder in Kettenfolge (AS ... + ES), mindestens zwei Punkte. Sie bilden einen Polygonzug - so + folgt die Zuordnung auch einer Kette, die um eine Kurve laeuft, + statt nur einer Geraden AS->ES. + kandidaten = [(key, x, y), ...] + + Jeder Kandidat wird dem naechstgelegenen Abschnitt (Glied i -> i+1) + zugeordnet. Liegt er dabei VOR dem ersten oder HINTER dem letzten Glied, + wird er verworfen - eingefuegt wird nur zwischen AS und ES. + + Rueckgabe (einfuegen, verworfen): einfuegen = {i: [key, ...]} - nach + Glied i einzufuegen, untereinander in Kettenrichtung sortiert; + verworfen = [key, ...]. + """ + abschnitte = [] + for i in range(len(kette_xy) - 1): + (ax, ay), (bx, by) = kette_xy[i], kette_xy[i + 1] + dx, dy = bx - ax, by - ay + l2 = dx * dx + dy * dy + if l2 > 1e-12: + abschnitte.append((i, ax, ay, dx, dy, l2)) + letzter = len(kette_xy) - 2 + + einfuegen = {} + verworfen = [] + for key, x, y in kandidaten: + best = None + for i, ax, ay, dx, dy, l2 in abschnitte: + t = ((x - ax) * dx + (y - ay) * dy) / l2 + tc = min(max(t, 0.0), 1.0) + d = math.hypot(x - (ax + tc * dx), y - (ay + tc * dy)) + if best is None or d < best[0] - 1e-9: + best = (d, i, t) + if best is None: + verworfen.append(key) + continue + _d, i, t = best + if (i == 0 and t <= 0.0) or (i == letzter and t >= 1.0): + verworfen.append(key) + continue + einfuegen.setdefault(i, []).append((min(max(t, 0.0), 1.0), key)) + + return ({i: [key for _t, key in sorted(liste)] for i, liste in einfuegen.items()}, + verworfen) + + +def _kettenglied_xy(entry, item, strecke): + """Lage eines sepliste-Glieds fuer den Polygonzug: AS/ES ueber K1/K2 der + Strecke (Ein-/Auslauf - der ZZ_ASES_MARKER sitzt auf dem Einfuegepunkt + des Elements und kann bis ~600 mm seitlich davon liegen), sonst bzw. + ohne K1/K2 der Bounding-Box-Mittelpunkt des vertretenden Items.""" + typ = entry.get("typ", "") + if typ in ("AS", "ES"): + k1_xy, k2_xy = _asel_kos_xy(strecke) + pt = k1_xy if typ == "AS" else k2_xy + if pt is not None: + return pt + bbox = (item or {}).get("_bbox") + if not bbox: + return None + return (bbox.get("cx", 0.0), bbox.get("cy", 0.0)) + + +def einsortieren_freie_separatoren(items, tolerance_mm, dbg=None): + """Nimmt freie Separatoren in die sepliste ihrer VF_n/GF_n-Strecke auf. + + Die sepliste entsteht beim BAU der Strecke (ssg-sepliste-sammeln) und + kennt nur die Separatoren, die dabei erzeugt wurden. Ein eigenstaendiger + Separator_SP-Block, der spaeter (oder aus einer frueheren Fassung der + Strecke) auf ihr liegt, fehlt darin - obwohl seine ZUORDNUNG + (cs-zuordnung-lauf) die Strecke nennt. Ohne diesen Schritt fehlt er in + TrackIds und Nachbarn (realer Fall Mubea VF_3: 0037/0038 zwischen 0062 + und 0063). + + Aufgenommen wird ein Separator nur, wenn + - seine Zuordnung die Strecke nennt, + - er in keiner sepliste steht, + - sein Mittelpunkt in der Bounding-Box der Strecke liegt (+ tolerance_mm/2), + - er laengs der Kette zwischen AS und ES liegt + (sepliste_einsortier_positionen). + + Bewusst NUR im Speicher dieses Exportlaufs: die sepliste-XDATA am Block + bleibt das Bauprotokoll. Lisp ordnet ihre Eintraege den eingebauten + Bausteinen ueber die Anzahl je Typ zu (csv:sepliste-kette-paare) und + fuehrt reservierte AS/ES-IDs unter der lfdnr - ein in die XDATA + eingefuegter fremder Separator verschoebe beides. Ausserdem schreibt jeder + Neuaufbau der Strecke die XDATA neu; hier wird bei jedem Export frisch + aus dem aktuellen Zeichnungsstand gerechnet. + + Aendert items in-place: item["sepliste"] der Strecke bekommt neue + SEP-Eintraege (lfdnr "frei", "id" = TeileId des Separators, + "frei": True); der Separator bekommt "_in_strecke_kette" (Strecken- + TeileId, damit compute_kreisel_umlauf ihn nicht zusaetzlich einem + Kreisel zuschlaegt), das Merkmal "Einsortiert in" (Strecken-TeileId, + in der CSV-Spalte Merkmale) und einen Hinweis in "warnung". + Muss NACH der Separator-Zuordnung und VOR compute_sep_kette laufen. + """ + half_tol = tolerance_mm / 2.0 + by_teileid = {it.get("teileid", ""): it for it in items if it.get("teileid", "")} + in_ketten = set() + for it in items: + if it.get("teileart", "") in GF_VF_TEILEARTEN: + for e in it.get("sepliste") or []: + eid = str(e.get("id", "")).strip() + if eid: + in_ketten.add(eid) + + if dbg: + dbg("=== einsortieren_freie_separatoren ===") + + for strecke in items: + if strecke.get("teileart", "") not in GF_VF_TEILEARTEN: + continue + sepliste = strecke.get("sepliste") + sbbox = strecke.get("_bbox") + if not sepliste or not sbbox: + continue + sid = strecke.get("teileid", "") + sbounds = _bounds(sbbox, half_tol) + + kandidaten = [] + for it in items: + if it.get("teileart", "") != "ILS 2.0 Separator": + continue + tid = it.get("teileid", "") + if not tid or tid in in_ketten: + continue + zuordnung = ((it.get("merkmale") or {}).get("Zuordnung") + or it.get("_zuordnung_attr") or "").strip() + if zuordnung != sid: + continue + bbox = it.get("_bbox") + if not bbox: + continue + cx, cy = bbox.get("cx", 0.0), bbox.get("cy", 0.0) + if not (sbounds[0] <= cx <= sbounds[1] and sbounds[2] <= cy <= sbounds[3]): + if dbg: + dbg(f" Strecke {sid}: Separator {tid} ausserhalb der Strecken-BBox " + f"- nicht einsortiert") + continue + kandidaten.append((tid, cx, cy)) + if not kandidaten: + continue + + kette_xy = [] + for e in sepliste: + pt = _kettenglied_xy(e, by_teileid.get(str(e.get("id", "")).strip()), strecke) + if pt is None: + break + kette_xy.append(pt) + if len(kette_xy) != len(sepliste) or len(kette_xy) < 2: + if dbg: + dbg(f" Strecke {sid}: Kettenglieder nicht vollstaendig lokalisierbar " + f"- freie Separatoren {[k[0] for k in kandidaten]} nicht einsortiert") + continue + + einfuegen, verworfen = sepliste_einsortier_positionen(kette_xy, kandidaten) + if dbg and verworfen: + dbg(f" Strecke {sid}: {verworfen} liegen nicht zwischen AS und ES " + f"- nicht einsortiert") + if not einfuegen: + continue + + neu = [] + for i, entry in enumerate(sepliste): + neu.append(entry) + for tid in einfuegen.get(i, []): + neu.append({"typ": "SEP", "lfdnr": f"frei{tid}", "id": tid, "frei": True}) + sep = by_teileid[tid] + sep["_in_strecke_kette"] = sid + # Fuer Folgewerkzeuge (sps_skel: sepliste-Gegenprobe): dieser + # Separator steht in TrackIds, aber nicht im Bauprotokoll. + sep.setdefault("merkmale", {})["Einsortiert in"] = sid + hinweis = (f"nicht im Bau von {sid} erzeugt - per Lage in dessen " + f"Kette einsortiert") + bisherige = sep.get("warnung", "") + sep["warnung"] = f"{bisherige}; {hinweis}" if bisherige else hinweis + in_ketten.add(tid) + strecke["sepliste"] = neu + if dbg: + dbg(f" Strecke {sid}: Kette jetzt " + f"{' -> '.join(str(e.get('id', '')) for e in neu)}") + + def compute_sep_kette(items, dbg=None): """Baut je VF_n/GF_n-Item MIT "sepliste" die ketteninterne Vorgaenger-/ Nachfolger-Beziehung AS -> Sep1 -> ... -> SepN -> ES. @@ -1392,6 +1580,11 @@ def compute_kreisel_umlauf(items, tolerance_mm, durchmesser_mm=800.0, for item in items: if item.get("teileart", "") not in KREISEL_UMLAUF_TEILEARTEN: continue + # Freier Separator, den einsortieren_freie_separatoren in die Kette + # einer Strecke aufgenommen hat - gehoert nicht zusaetzlich auf einen + # Kreisel, auch wenn seine Box einen beruehrt. + if item.get("_in_strecke_kette"): + continue teileid = item.get("teileid", "") bbox = item.get("_bbox") if not bbox: diff --git a/lib/export_sivas.py b/lib/export_sivas.py index 0a7c277..62480bc 100644 --- a/lib/export_sivas.py +++ b/lib/export_sivas.py @@ -58,6 +58,7 @@ items_zusammenfassen. output.csv selbst bleibt unveraendert. import json import sys import os +import re from export_blockpatterns import (load_patterns, load_export_cfg, cfg_path_from_env, matches_any, csv_quote, safe_float, safe_int) @@ -101,14 +102,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 +143,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 +295,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 +355,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 +439,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 +460,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 +488,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 +621,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 +645,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 +695,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. @@ -773,7 +969,7 @@ def process_blocks(blocks, anzahl_weichen_ils=0): "sivasnr": artinr, "sivasnr_quoted": True, "bezeichnung": attribs.get("BEZEICHNUNG", ""), - "dispgruppe": 20, + "dispgruppe": 30, "anzahl": anzahl, "laenge_mm": attribs.get("LAENGE", ""), "ids": [get_id(block)], @@ -781,6 +977,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: @@ -964,6 +1185,13 @@ def zusammengefasster_dateiname(output_csv): return f"{stamm}_zusammengefasst{endung}" +def dispogruppen_dateiname(output_csv, dispo): + """z.B. "500651_sivas.csv", "10" -> "500651_sivas_zusammengefasst_dispo10.csv".""" + stamm, endung = os.path.splitext(output_csv) + sauber = re.sub(r"[^0-9A-Za-z_-]", "_", str(dispo)) or "leer" + return f"{stamm}_zusammengefasst_dispo{sauber}{endung}" + + def items_zusammenfassen(items): """Fasst Zeilen zusammen, die sich nur in Nr, Anzahl und IDs unterscheiden: Anzahl wird addiert, die IDs werden (ohne Dubletten, in @@ -1041,6 +1269,18 @@ def main(): print(f"[export_sivas] Zusammengefasste CSV geschrieben: {output_csv_zus} " f"({len(items_zus)} Zeilen)") + # Je Dispogruppe eine eigene zusammengefasste Datei, z.B. + # "_zusammengefasst_dispo10.csv" (Nr je Datei neu gezaehlt). + for dispo in sorted({str(i["dispgruppe"]) for i in items_zus}): + teil = [i for i in items_zus if str(i["dispgruppe"]) == dispo] + teil = [dict(i, nr=n) for n, i in enumerate(teil, 1)] + pfad = dispogruppen_dateiname(output_csv, dispo) + with open(pfad, "w", encoding="utf-8") as f: + f.write(header + "\n") + for item in teil: + f.write(format_csv_line(item) + "\n") + print(f"[export_sivas] Dispogruppe {dispo}: {pfad} ({len(teil)} Zeilen)") + # Zweite, lesbare Kopie fuer die manuelle Pruefung (Merkmalnummer + # Bezeichnung aus cfg/Merkmalsstamm_in_Sivas.xlsx) - wird von Sivas # selbst NICHT eingelesen, nur output_csv ist der eigentliche Import. 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..005eced 100644 --- a/lib/vf_journal_export.py +++ b/lib/vf_journal_export.py @@ -65,6 +65,11 @@ PREFIX = "[vf_journal_export]" XDATA_APP = "SSG_VF_EDIT" MARKER = "linienzug" +# Marker -> Modus-Nummer. "linienzug" (Modus 1) hat ein Frage-Antwort- +# Protokoll (Grammatik in vf_linienzug_grammatik.py); "linienzug2"/"3" werden +# als Rohtokens ausgegeben - fuer sie gibt es bewusst keine Grammatik, ihre +# SEGS-Eintraege machen sie ohnehin selbst-enthalten. +MARKER_MODUS = {"linienzug": 1, "linienzug2": 2, "linienzug3": 3} # Steuerzeichen-Notation des Eintrags-Trenners im ASCII-DXF (siehe Kopf). TRENNER = "^J" @@ -322,6 +327,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: @@ -541,6 +559,58 @@ def baue_testfaelle(inserts, strecken, startpunkt_fix, quelle_datei, return faelle +def baue_tokenfaelle(inserts, quelle_datei): + """Modus-2/3-Ketten als TOKEN-Records (flache Liste, Kopf + Eintraege). + + Warum nicht wie Modus 1 als Frage-Antwort-Protokoll: dafuer braeuchte es + eine Grammatik des Modus-2/3-Fragenflusses, die es (bewusst, siehe + doc/todo/spec-modus2-3.md) nicht gibt. Die Tokens selbst sind aber bereits + aussagekraeftig - vor allem traegt SEGS die komplette Segment-Essenz, womit + die Kette OHNE Zeichnung abspielbar ist. + + Ausgabeformat ist genau das, was tests/test_linienzug.lsp + (c:TEST_LINIENZUG_MODUS2) einliest: + {"art": "PT", "x": .., "y": .., "z": ..} + {"art": "REAL", "wert": ..} {"art": "INT", "wert": ..} + {"art": "STR", "wert": ".."} {"art": "SEGS", "wert": ".."} + Die Metadaten-Zeile (beschreibung/erwartung_*) ist bewusst NICHT dabei - + die wird je Testfall von Hand gepflegt und soll beim Neuerzeugen nicht + stillschweigend ueberschrieben werden. + """ + faelle = [] + for nr, e in enumerate(sorted(inserts, key=lambda i: i["x"]), start=1): + toks = tokens_aus_journal(e["journal_roh"]) + modus = MARKER_MODUS.get(e["marker"], 0) + kopf = { + "test_id": "VF_%s_M%d_%02d" % (TEST_ID_ANLAGE, modus, nr), + "anlagetyp": e["marker"], + "modus": modus, + "anzahl_eingaben": len(toks), + "block": e["block"], + "dxf_handle": e["handle"], + "beschreibung": ("Linienzug Modus %d, %d Journal-Eintraege - " + "Rohtokens, siehe doc/todo/spec-modus2-3.md" + % (modus, len(toks))), + "quelle": ("INSERT %s (Block %s) in %s, XDATA-App %s, Marker %s" + % (e["handle"], e["block"], + os.path.basename(quelle_datei), XDATA_APP, + e["marker"])), + } + faelle.append(kopf) + for art, wert in toks: + if art == "PT": + x, y, z = [float(v) for v in wert.split(",")] + faelle.append({"art": "PT", "x": round(x, RUND), + "y": round(y, RUND), "z": round(z, RUND)}) + elif art == "REAL": + faelle.append({"art": "REAL", "wert": float(wert)}) + elif art == "INT": + faelle.append({"art": "INT", "wert": int(wert)}) + else: + faelle.append({"art": art, "wert": wert}) + return faelle + + def arrays_einzeilig(text): """Rein numerische JSON-Arrays auf eine Zeile ziehen (wie dxf_scan_components.py) - ssg-parse-json-array (Lisp/ssg_core.lsp) liest @@ -585,9 +655,20 @@ def main(): print("%s %d verbundene Strecken im Sivas-Export" % (PREFIX, len(strecken))) - faelle = baue_testfaelle(inserts, strecken, - not args.kein_startpunkt_fix, args.dxf, - args.output) + # Nach Modus trennen: nur Modus 1 hat eine Grammatik. Frueher lief die + # Modus-1-Grammatik auch ueber "linienzug2"/"3" (der startswith-Filter + # laesst sie durch) und brach mit "Token 6: STEP erwartet" ab. + m1 = [e for e in inserts if MARKER_MODUS.get(e["marker"]) == 1] + m23 = [e for e in inserts if MARKER_MODUS.get(e["marker"]) in (2, 3)] + faelle = [] + if m1: + faelle.extend(baue_testfaelle(m1, strecken, + not args.kein_startpunkt_fix, args.dxf, + args.output)) + if m23: + print("%s %d Modus-2/3-Kette(n) als Rohtokens (keine Grammatik, " + "siehe doc/todo/spec-modus2-3.md)" % (PREFIX, len(m23))) + faelle.extend(baue_tokenfaelle(m23, args.dxf)) koepfe = [f for f in faelle if "test_id" in f] for f in koepfe: print("%s %s %s (%s) %d Eingaben" 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 40efc33..dcc5ea0 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 @@ -1155,7 +1155,7 @@ - 3D Objekte stueckweise (in Arbeit) + aus 3D Linie ohne Zielhoehe @@ -1217,7 +1217,7 @@ - ~KettenFoerderer + KettenFoerderer diff --git a/menu/SSG_LIB.mnl b/menu/SSG_LIB.mnl index 58f9c00..537f85f 100644 --- a/menu/SSG_LIB.mnl +++ b/menu/SSG_LIB.mnl @@ -156,8 +156,17 @@ (ssg-ensure "VarioFoerderer") (ssg-ensure "EtageVarioFoerderer") (ssg-ensure "export") + ;; Hoehen-Check vorladen: EXPORTSIVAS bietet ihn per Rueckfrage an und ruft + ;; c:HOEHEN_CHECK im selben Lauf auf (ein Nachladen waere dort erst nach + ;; Rueckkehr zum Top-Level sichtbar). + (ssg-ensure "check_hoehen") (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 e407d4b..6bd94a5 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,7 +92,7 @@ [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-AP110 kpl]^C^C(ssg-ensure "OmniModulInsert") OMNI_TV_W_AP110 @@ -164,6 +164,7 @@ [Ausgang]^C^C(ssg-ensure "SSG_LIB_Commands") ILS_AUSGANG_INSERT [<-SPS Schliessen]^C^C [->Export] +[Hoehen-Check (Montagehoehe/Buehne)]^C^C(ssg-ensure "check_hoehen") HOEHEN_CHECK [Export Sivas]^C^C(ssg-ensure "export") EXPORTSIVAS [<-Export CSV]^C^C(ssg-ensure "export") EXPORTCSV [->Konfiguration] @@ -192,7 +193,7 @@ [--] [Kreisel]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_kreisel.lsp")) (c:TEST_KREISEL) [Foerderer]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_foerderer.lsp")) (c:TEST_FOERDERER) -[Foerderer-Linienzug]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_linienzug.lsp")) (c:TEST_LINIENZUG) (c:TEST_LINIENZUG_STUFE2) +[Foerderer-Linienzug]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_linienzug.lsp")) (c:TEST_LINIENZUG) (c:TEST_LINIENZUG_STUFE2) (c:TEST_LINIENZUG_MODUS2) [Omniflo]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_omniflo.lsp")) (c:TEST_OMNIFLO) [Omniflo Strecke]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_omniflo_strecke.lsp")) (c:TEST_OMNIFLO_STRECKE) [Gefaellestrecke]^C^C(load (strcat (getenv "DXFMAKRO") "/tests/test_gefaellestrecke.lsp")) (c:TEST_GEFAELLESTRECKE) diff --git a/tests/README.md b/tests/README.md index b74f7dc..ce4c51c 100644 --- a/tests/README.md +++ b/tests/README.md @@ -87,6 +87,153 @@ dem gewuenschten Modus: Lauf ohne manuellen Zusatzschritt, aber ohne gleichzeitige visuelle Kontrolle aller Zeichnungen am Ende. Sinnvoll fuer reine CI-artige Validierung. +## Anordnung der Linienzug-Testketten + +Der Menueeintrag **Tests -> Foerderer-Linienzug** faehrt drei Befehle +nacheinander (`TEST_LINIENZUG`, `TEST_LINIENZUG_STUFE2`, +`TEST_LINIENZUG_MODUS2`) und baut dabei **sieben** Ketten. Damit sie +nebeneinander auf einer Grundlinie entstehen statt verstreut, tragen die +Testdaten versetzte Startpunkte - 20 m Abstand, alle auf `Y = 0`: + +| X | Z | Kette | Datei | +|---|---|---|---| +| 0 | 2154 | Modus 1, Standardfall | `linienzug_tests.json` | +| 20000 | 2154 | Modus 1, Stufe-2-Fallback | `linienzug_tests_stufe2.json` | +| 40000 | 0 | Variante A (Vario-Kurve) | `linienzug_modus2_variokurve.json` | +| 60000 | 0 | Variante B (GF-Bogen) | `linienzug_modus2_gfbogen.json` | +| 80000 | 355 | U-Form 1 (GF alles am Einlauf) | `..._uform_gf1.json` | +| 100000 | 711 | U-Form 2 (1/2 + 1/2) | `..._uform_halb.json` | +| 120000 | 709 | U-Form 3 (steilerer Winkel) | `..._uform_halb_steil.json` | + +Die Koordinaten sind also **nicht** die der aufgezeichneten Laeufe, die +uebrige Geometrie schon. Verschoben wurde rein translatorisch: Laengen, +Winkel und die geprueften Abweichungen sind davon unabhaengig. `Z` blieb +jeweils stehen - die Starthoehe ist ein Eingabewert des Solvers, kein +Layout-Parameter. + +Technisch unterscheiden sich die beiden Datenarten: die Modus-1-Skripte +brauchen nur ihren EINEN `point_abs` (alles Weitere ist `point_rel` mit +`dL`/`hz`), waehrend bei Modus 2 sowohl die `PT`-Eintraege ALS AUCH die +Pfadkoordinaten in `SEGS` (Felder 6..9) mitwandern muessen - sonst zeigt der +Pfad woanders hin als Start und Ziel. + +## Referenzfaelle Linienzug Modus 2 (`c:TEST_LINIENZUG_MODUS2`) + +Fuenf aufgezeichnete Laeufe, die als zwei Paare gebildet sind: A/B +unterscheiden die Eck-BAUTEILART, U-Form 1..3 den gefalteten Lauf nach +GF-Verteilung und Winkel. Ausgefuehrt ueber Menue -> Tests -> +Foerderer-Linienzug. + +### Erster und zweiter Fall: Eck-Bauteilart + +Zwei Laeufe auf **demselben gezeichneten Pfad**, die sich nur in der +Segment-Klassifizierung unterscheiden. Sie decken die beiden Eck-Bauteilarten +ab (waagerecht eingebaute Vario-Kurve und geneigt eingebauter Gefaellebogen) +und haben am 2026-10-26 sieben Budget-Fehler aufgedeckt, die ein einzelner +Lauf nicht gezeigt haette - erst der VERGLEICH zweier Varianten machte +sichtbar, dass eine Korrektur am falschen Segment landete. + +**Gezeichneter Pfad** (5 Objekte, Boegen als R500-Verrundung): + +| Segment | Art | Mass | +|---|---|---| +| 1 | Linie | L = 9700 mm, hz = 0 | +| 2 | Bogen | 90 Grad rechts, R500 | +| 3 | Linie | L = 4296 mm, hz = -90 | +| 4 | Bogen | 30 Grad links, R500 | +| 5 | Linie | L = 1466 mm, hz = -60 | + +**Gemeinsame Eingaben:** AS-Element ja, 90 Grad, links. ES-Element ja, +30 Grad, rechts. Lauf beginnen mit "Umlenkstation mit GF1 + Separator", +GF-Verteilung "alles am Einlauf", keine zusaetzlichen Separatoren. + +| | Variante A | Variante B | +|---|---|---| +| Segment 2 | **Vario-Kurve** (aussen) | **GF-Bogen** | +| Segment 3 | VF (automatisch nach Kurve) | GF | +| Segment 4 | GF-Bogen | GF-Bogen | +| Segment 5 | GF | GF | +| VF-Lauf | Segment 1..3 | Segment 1..1 | + +**Soll-Ergebnis fuer BEIDE Varianten:** + +- `Quer zur Achse` **~0** (gemessen 0.2 mm - das ist die Aufloesung der + Blockmessung, kein Restfehler) +- `dZ` **0** +- `Laengs KS_AUS-Achse` darf abweichen (~104 mm) - das ist die Ausladung des + ES-Elements und ausdruecklich zulaessig. + +Die Regel dahinter: **quer zur KS_AUS-Achse MUSS 0 sein, laengs darf +abweichen, dZ MUSS 0 sein.** Beides zugleich geht nicht - entweder liegt die +letzte Gerade auf der gezeichneten Linie und der ES-`KS_AUS` landet seitlich +daneben, oder umgekehrt. Entschieden ist: der Hauptstrang bleibt gerade, der +seitliche Versatz des ES-Elements ist dessen Bauform und kein Fehler. + +**`laengs` wird trotzdem geprueft** - nicht als Genauigkeits-, sondern als +FORMkriterium (`erwartung_laengs_mm` in den Testdaten, Toleranz 5 mm). Der Wert +ist die Ausladung des ES-Elements und damit je Fall eine Konstante: 104.68 mm +bei `ES_Element_30`, 637.58 mm bei `ES_Element_90`. +Grund: am 2026-10-29 loeste ein Experiment den Schluss-Fueller gegen Richtung +UND Laenge und traf den Zielpunkt dadurch in X und Y exakt - um den Preis, dass +es die letzte Gerade um 6.15 Grad verdrehte. `quer` und `dZ` waren dabei NULL, +der Test meldete brav OK, und der schiefe Schenkel fiel nur beim Blick in die +Zeichnung auf. Ein verdrehter Hauptstrang zielt auf den Endpunkt und drueckt +`laengs` von ~638 mm auf ~0 - genau daran ist er zu erkennen. +Die Pruefung selbst ist gegengeprueft: mit einer kuenstlich auf 0.01 mm +gesetzten Toleranz kippen alle fuenf Faelle auf ABWEICHUNG. + +Im Protokoll muessen die Zuschlags-Zeilen erscheinen: `AS-Fussabdruck`, +`Eck-Korrektur` je Ecke, und bei Variante A zusaetzlich +`Abschluss-Fussabdruck`. **Eine FEHLENDE Zeile ist das Warnsignal** - sie +bedeutet, dass ein Eck-Bauteil nicht messbar war und die Ecke unkorrigiert +blieb (so wurde der 2.4-mm-Rest bei Variante B gefunden). + +> **Automatisiert seit 2026-10-27** als `c:TEST_LINIENZUG_MODUS2` (Menue: +> Tests -> Foerderer-Linienzug). Der Pfad muss dafuer NICHT gezeichnet werden: +> ein Modus-2-Journal traegt einen `SEGS`-Eintrag mit der kompletten +> Segment-Essenz und ist damit von den Original-Objekten unabhaengig - der +> Test spielt schlicht das mit `lib/vf_journal_export.py` ausgelesene Journal +> ab. Die reinen Rechenkerne sind zusaetzlich file-frei abgedeckt +> (`tu-tests-vfl-parallel` in `test_unit.lsp`: `vfl-eck-zerlegen`, +> `vfl-es-achs-reserve`, `vfl-projiziere-neigung` - jeweils mit den echten +> Messwerten aus diesen beiden Laeufen). + +### Dritter bis fuenfter Fall: gefalteter Lauf (U-Form) + +Aufgezeichnet 2026-10-29, Datendateien `tests/testdata/linienzug_modus2_uform_*.json`. + +Der Pfad wechselt ueber zwei 90-Grad-Vario-Kurven **dreimal die +Fahrtrichtung**; die Kletterstrecke liegt dadurch in einem ANDEREN Schenkel als +der Lauf-Eingang. Genau diese Konstellation war bis 2026-10-29 falsch +bilanziert (gemessen 1424 mm quer), weil Posten dem falschen Schenkel +zugerechnet wurden. + +| Segment | Art | Mass | +|---|---|---| +| 1 | Linie | L = 5855 mm, hz = 90 | +| 2 | Bogen | 90 Grad rechts, R500 -> **Vario-Kurve aussen** | +| 3 | Linie | L = 270 mm, hz = 0 (automatisch VF) | +| 4 | Bogen | 90 Grad rechts, R500 -> **Vario-Kurve aussen** | +| 5 | Linie | L = 7806 mm, hz = -90 (der Kletterer) | + +| Fall | GF-Verteilung | Winkel-Option | Testdatei | +|---|---|---|---| +| U-Form 1 | alles am Einlauf (GF1) | 2 | `..._uform_gf1.json` | +| U-Form 2 | 1/2 GF1 + 1/2 GF2 | 2 (= 9 Grad) | `..._uform_halb.json` | +| U-Form 3 | 1/2 GF1 + 1/2 GF2 | 3 (steiler) | `..._uform_halb_steil.json` | + +**Warum drei und nicht einer:** die GF-VERTEILUNG entscheidet, ob ueberhaupt +Gefaellestrecke im fremden Schenkel steht (und damit, ob Nachrechner und das +unterdrueckte Fueller-A greifen) - mit "alles am Einlauf" liegt das gesamte GF1 +dort, mit 1/2+1/2 nur die Haelfte. Der WINKEL ist noetig, weil der Restfehler +der alten Bilanz mit `L_GF` skalierte: bei 6 Grad waren es 90 mm, bei 9 Grad +934 mm. Zwei Laeufe mit demselben Winkel haetten den Fehler also beinahe +verdeckt. + +Soll-Ergebnis wie oben: `quer` und `dZ` jeweils ~0 (gemessen 0.56 mm bei +9 Grad und 0.7 mm bei der steileren Option), `laengs` ~638 mm - das ist die +Ausladung des `ES_Element_90_links` und in allen drei Faellen gleich. + ## alltests.json — Testregistry Die Datei `tests/alltests.json` ist die zentrale Registry aller Test-Module. diff --git a/tests/reference/foerderer_tests_sivas.csv b/tests/reference/foerderer_tests_sivas.csv index c5c6f93..4235705 100644 --- a/tests/reference/foerderer_tests_sivas.csv +++ b/tests/reference/foerderer_tests_sivas.csv @@ -1,15 +1,15 @@ Nr;TeileArt;SivasNummer;Bezeichnung;Dispogruppe;Anzahl;Laenge[mm];IDs;details -1;"ILS 2.0 Strecke";"6220";"VF_13";20;1;;"0013";{"Anlagenhöhe in Meter": "-1.5", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "0.0", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "0.707", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "3.055", "Streckengruppe - Varioförderer 001-Richtung": "ab", "Streckengruppe - Varioförderer 001- Winkel": "39", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -2;"ILS 2.0 Strecke";"6220";"VF_12";20;1;;"0012";{"Anlagenhöhe in Meter": "0.5", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "0.084", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "0.0", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "3.478", "Streckengruppe - Varioförderer 001-Richtung": "auf", "Streckengruppe - Varioförderer 001- Winkel": "21", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -3;"ILS 2.0 Strecke";"6220";"VF_11";20;1;;"0011";{"Anlagenhöhe in Meter": "1.5", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "0.166", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "0.166", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "3.207", "Streckengruppe - Varioförderer 001-Richtung": "auf", "Streckengruppe - Varioförderer 001- Winkel": "51", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -4;"ILS 2.0 Strecke";"6220";"VF_10";20;1;;"0010";{"Anlagenhöhe in Meter": "-1", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "0.541", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "0.541", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "2.731", "Streckengruppe - Varioförderer 001-Richtung": "ab", "Streckengruppe - Varioförderer 001- Winkel": "27", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -5;"ILS 2.0 Strecke";"6220";"VF_9";20;1;;"0009";{"Anlagenhöhe in Meter": "1", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "0.206", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "0.206", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "3.07", "Streckengruppe - Varioförderer 001-Richtung": "auf", "Streckengruppe - Varioförderer 001- Winkel": "39", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -6;"ILS 2.0 Strecke";"6220";"VF_8";20;1;;"0008";{"Anlagenhöhe in Meter": "-2", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "0.15", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "0.15", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "4.067", "Streckengruppe - Varioförderer 001-Richtung": "ab", "Streckengruppe - Varioförderer 001- Winkel": "45", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -7;"ILS 2.0 Strecke";"6220";"VF_7";20;1;;"0007";{"Anlagenhöhe in Meter": "-1.5", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "0.354", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "0.354", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "3.055", "Streckengruppe - Varioförderer 001-Richtung": "ab", "Streckengruppe - Varioförderer 001- Winkel": "39", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -8;"ILS 2.0 Strecke";"6220";"VF_6";20;1;;"0006";{"Anlagenhöhe in Meter": "-1", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "0.013", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "0.013", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "3.701", "Streckengruppe - Varioförderer 001-Richtung": "ab", "Streckengruppe - Varioförderer 001- Winkel": "21", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -9;"ILS 2.0 Strecke";"6220";"VF_5";20;1;;"0005";{"Anlagenhöhe in Meter": "-0.5", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "0.486", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "0.486", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "3.056", "Streckengruppe - Varioförderer 001-Richtung": "ab", "Streckengruppe - Varioförderer 001- Winkel": "9", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -10;"ILS 2.0 Strecke";"6220";"VF_4";20;1;;"0004";{"Anlagenhöhe in Meter": "1.5", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "0.166", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "0.166", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "3.207", "Streckengruppe - Varioförderer 001-Richtung": "auf", "Streckengruppe - Varioförderer 001- Winkel": "51", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -11;"ILS 2.0 Strecke";"6220";"VF_3";20;1;;"0003";{"Anlagenhöhe in Meter": "1", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "0.206", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "0.206", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "3.07", "Streckengruppe - Varioförderer 001-Richtung": "auf", "Streckengruppe - Varioförderer 001- Winkel": "39", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -12;"ILS 2.0 Strecke";"6220";"VF_2";20;1;;"0002";{"Anlagenhöhe in Meter": "0.5", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "0.042", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "0.042", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "3.478", "Streckengruppe - Varioförderer 001-Richtung": "auf", "Streckengruppe - Varioförderer 001- Winkel": "21", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -13;"ILS 2.0 Strecke";"6220";"VF_1";20;1;;"0001";{"Anlagenhöhe in Meter": "0", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "0.615", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "0.615", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "2.74", "Streckengruppe - Varioförderer 001-Richtung": "auf", "Streckengruppe - Varioförderer 001- Winkel": "9", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -14;"ILS 2.0 Automation und Pneumatik - Gesamtanlage";"6269";"";20;1;;"";{"Automation": "Ja", "Anzahl der Kreisel": "0", "Anzahl der Separatoren - Kreisel ohne PINBAND": "0", "Anzahl der Kreisel mit PINBAND": "0", "Anzahl der Separatoren - Kreisel mit PINBAND": "0", "Anzahl der Verbindungskreisel": "0", "Längen aller Kreisel": "0.00", "Anzahl der Weichen": "0", "Anzahl der Eckräder": "0", "Anzahl der einzelnen Gefällestrecken": "0", "Anzahl der einzelnen Vario-Förderer": "0", "Anzahl der Streckengruppen": "13", "Längen aller Gefällestrecken": "0.00", "Anzahl der Motoren in Vario - Förderer": "13", "Längen aller Vario - Förderer": "41.915000000000006", "Anzahl der ETFs": "0", "Längen aller ETFS und Zusatzstücke (Gefällestrecken)": "0.0", "Anzahl der Separatoren in der Anlage": "26", "Anzahl der Scanner in der Anlage": "0", "Zusatzmodul - Anzahl der BT-Beladung": "0", "Zusatzmodul - Anzahl der Abwurfstation": "0", "Pneumatik": "Ja"} +1;"ILS 2.0 Strecke";"6220";"VF_13";20;1;;"0013";{"2950": "-1.5", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "0", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.0", "4391": "3", "4314": "Ja", "4319": "0.707", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "3.055", "4354": "ab", "4386": "39", "4433": "-0.012", "4434": "0.488", "4435": "0.988", "4436": "1.488", "4437": "-0.512"} +2;"ILS 2.0 Strecke";"6220";"VF_12";20;1;;"0012";{"2950": "0.5", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "0", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.084", "4391": "3", "4314": "Ja", "4319": "0.0", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "3.478", "4354": "auf", "4386": "21", "4433": "-0.012", "4434": "0.488", "4435": "0.988", "4436": "1.488", "4437": "-0.512"} +3;"ILS 2.0 Strecke";"6220";"VF_11";20;1;;"0011";{"2950": "1.5", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "0", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.166", "4391": "3", "4314": "Ja", "4319": "0.166", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "3.207", "4354": "auf", "4386": "51", "4433": "-0.012", "4434": "0.488", "4435": "0.988", "4436": "1.488", "4437": "-0.512"} +4;"ILS 2.0 Strecke";"6220";"VF_10";20;1;;"0010";{"2950": "-1", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "0", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.541", "4391": "3", "4314": "Ja", "4319": "0.541", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "2.731", "4354": "ab", "4386": "27", "4433": "-0.012", "4434": "0.488", "4435": "0.988", "4436": "1.488", "4437": "-0.512"} +5;"ILS 2.0 Strecke";"6220";"VF_9";20;1;;"0009";{"2950": "1", "4431": "Ja", "4427": "90 °", "4428": "rechts", "4432": "Ja", "4429": "90 °", "4430": "rechts", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "0", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.206", "4391": "3", "4314": "Ja", "4319": "0.206", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "3.07", "4354": "auf", "4386": "39", "4433": "-0.012", "4434": "0.488", "4435": "0.988", "4436": "1.488", "4437": "-0.512"} +6;"ILS 2.0 Strecke";"6220";"VF_8";20;1;;"0008";{"2950": "-2", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "0", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.15", "4391": "3", "4314": "Ja", "4319": "0.15", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "4.067", "4354": "ab", "4386": "45", "4433": "-0.012", "4434": "0.488", "4435": "0.988", "4436": "1.488", "4437": "-0.512"} +7;"ILS 2.0 Strecke";"6220";"VF_7";20;1;;"0007";{"2950": "-1.5", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "0", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.354", "4391": "3", "4314": "Ja", "4319": "0.354", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "3.055", "4354": "ab", "4386": "39", "4433": "-0.012", "4434": "0.488", "4435": "0.988", "4436": "1.488", "4437": "-0.512"} +8;"ILS 2.0 Strecke";"6220";"VF_6";20;1;;"0006";{"2950": "-1", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "0", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.013", "4391": "3", "4314": "Ja", "4319": "0.013", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "3.701", "4354": "ab", "4386": "21", "4433": "-0.012", "4434": "0.488", "4435": "0.988", "4436": "1.488", "4437": "-0.512"} +9;"ILS 2.0 Strecke";"6220";"VF_5";20;1;;"0005";{"2950": "-0.5", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "0", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.486", "4391": "3", "4314": "Ja", "4319": "0.486", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "3.056", "4354": "ab", "4386": "9", "4433": "-0.012", "4434": "0.488", "4435": "0.988", "4436": "1.488", "4437": "-0.512"} +10;"ILS 2.0 Strecke";"6220";"VF_4";20;1;;"0004";{"2950": "1.5", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "0", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.166", "4391": "3", "4314": "Ja", "4319": "0.166", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "3.207", "4354": "auf", "4386": "51", "4433": "-0.012", "4434": "0.488", "4435": "0.988", "4436": "1.488"} +11;"ILS 2.0 Strecke";"6220";"VF_3";20;1;;"0003";{"2950": "1", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "0", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.206", "4391": "3", "4314": "Ja", "4319": "0.206", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "3.07", "4354": "auf", "4386": "39", "4433": "-0.012", "4434": "0.488", "4435": "0.988"} +12;"ILS 2.0 Strecke";"6220";"VF_2";20;1;;"0002";{"2950": "0.5", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "0", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.042", "4391": "3", "4314": "Ja", "4319": "0.042", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "3.478", "4354": "auf", "4386": "21", "4433": "-0.012", "4434": "0.488"} +13;"ILS 2.0 Strecke";"6220";"VF_1";20;1;;"0001";{"2950": "0", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "0", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.615", "4391": "3", "4314": "Ja", "4319": "0.615", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "2.74", "4354": "auf", "4386": "9", "4433": "-0.012"} +14;"ILS 2.0 Automation und Pneumatik - Gesamtanlage";"6269";"";20;1;;"";{"4000": "Ja", "4400": "0", "4413": "0", "4401": "0", "4414": "0", "4402": "0", "4419": "0.00", "4403": "0", "4404": "0", "4425": "0", "4426": "0", "4407": "13", "4418": "0.00", "4408": "13", "4420": "41.915000000000006", "4409": "0", "4417": "0.0", "4410": "26", "4411": "0", "4421": "0", "4422": "0", "4100": "Ja"} diff --git a/tests/reference/gefaellestrecke_tests_sivas.csv b/tests/reference/gefaellestrecke_tests_sivas.csv index 40b4d49..2f38de8 100644 --- a/tests/reference/gefaellestrecke_tests_sivas.csv +++ b/tests/reference/gefaellestrecke_tests_sivas.csv @@ -1,6 +1,6 @@ Nr;TeileArt;SivasNummer;Bezeichnung;Dispogruppe;Anzahl;Laenge[mm];IDs;details -1;"ILS 2.0 Gefaellestrecke";"6220";"GF_8";20;1;;"0008";{"Anlagenhöhe in Meter": "5", "Streckengruppe": "ein Objekt", "Gefällestrecke oder Vario-Förderer": "Gefällestrecke", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "9.261", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "1", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -2;"ILS 2.0 Gefaellestrecke";"6220";"GF_7";20;1;;"0007";{"Anlagenhöhe in Meter": "2", "Streckengruppe": "mehrere Objekte", "Gefällestrecke oder Vario-Förderer": "Gefällestrecke", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "7.274,5.264", "Streckengruppe - Gefällestrecke 001 -Winkel": "0.2,0.2", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "2", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -3;"ILS 2.0 Gefaellestrecke";"6220";"GF_6";20;1;;"0006";{"Anlagenhöhe in Meter": "5", "Streckengruppe": "ein Objekt", "Gefällestrecke oder Vario-Förderer": "Gefällestrecke", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "8.838", "Streckengruppe - Gefällestrecke 001 -Winkel": "2.8", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "1", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -4;"ILS 2.0 Gefaellestrecke";"6220";"GF_5, GF_4, GF_3, GF_2, GF_1";20;1;;"0005, 0004, 0003, 0002, 0001";{"Anlagenhöhe in Meter": "5", "Streckengruppe": "ein Objekt", "Gefällestrecke oder Vario-Förderer": "Gefällestrecke", "Strecken- zu fertigende Menge": "5", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "8.851", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "1", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Gerüst für Einzelmodul": "Nein", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -5;"ILS 2.0 Automation und Pneumatik - Gesamtanlage";"6269";"";20;1;;"";{"Automation": "Ja", "Anzahl der Kreisel": "0", "Anzahl der Separatoren - Kreisel ohne PINBAND": "0", "Anzahl der Kreisel mit PINBAND": "0", "Anzahl der Separatoren - Kreisel mit PINBAND": "0", "Anzahl der Verbindungskreisel": "0", "Längen aller Kreisel": "0.00", "Anzahl der Weichen": "0", "Anzahl der Eckräder": "0", "Anzahl der einzelnen Gefällestrecken": "8", "Anzahl der einzelnen Vario-Förderer": "0", "Anzahl der Streckengruppen": "0", "Längen aller Gefällestrecken": "62.35", "Anzahl der Motoren in Vario - Förderer": "0", "Längen aller Vario - Förderer": "0.0", "Anzahl der ETFs": "0", "Längen aller ETFS und Zusatzstücke (Gefällestrecken)": "0.0", "Anzahl der Separatoren in der Anlage": "9", "Anzahl der Scanner in der Anlage": "0", "Zusatzmodul - Anzahl der BT-Beladung": "0", "Zusatzmodul - Anzahl der Abwurfstation": "0", "Pneumatik": "Ja"} +1;"ILS 2.0 Gefaellestrecke";"6220";"GF_8";20;1;;"0008";{"2950": "5", "4431": "Ja", "4427": "30 °", "4428": "links", "4432": "Ja", "4429": "30 °", "4430": "links", "4384": "Gefällestrecke", "4318": "9.261", "4391": "3", "4337": "1", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "ein Objekt", "4311": "1"} +2;"ILS 2.0 Gefaellestrecke";"6220";"GF_7";20;1;;"0007";{"2950": "2", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4384": "Gefällestrecke", "4318": "7.274,5.264", "4391": "0.2,0.2", "4337": "2", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1"} +3;"ILS 2.0 Gefaellestrecke";"6220";"GF_6";20;1;;"0006";{"2950": "5", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4384": "Gefällestrecke", "4318": "8.838", "4391": "2.8", "4337": "1", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "ein Objekt", "4311": "1"} +4;"ILS 2.0 Gefaellestrecke";"6220";"GF_5, GF_4, GF_3, GF_2, GF_1";20;1;;"0005, 0004, 0003, 0002, 0001";{"2950": "5", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4384": "Gefällestrecke", "4318": "8.851", "4391": "3", "4337": "1", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "3992": "Nein", "3993": "Schönenberger-Gerüst", "4300": "ein Objekt", "4311": "5"} +5;"ILS 2.0 Automation und Pneumatik - Gesamtanlage";"6269";"";20;1;;"";{"4000": "Ja", "4400": "0", "4413": "0", "4401": "0", "4414": "0", "4402": "0", "4419": "0.00", "4403": "0", "4404": "0", "4425": "8", "4426": "0", "4407": "0", "4418": "62.35", "4408": "0", "4420": "0.0", "4409": "0", "4417": "0.0", "4410": "9", "4411": "0", "4421": "0", "4422": "0", "4100": "Ja"} diff --git a/tests/reference/hundm05_tests_export.csv b/tests/reference/hundm05_tests_export.csv index 55c5db7..6eaff99 100644 --- a/tests/reference/hundm05_tests_export.csv +++ b/tests/reference/hundm05_tests_export.csv @@ -5,20 +5,20 @@ Elementnummer;TeileArt;TeileId;Bezeichnung;Planquadrat;Anzahl;Position;Boundingb 4;"ILS 2.0 Strecke";"0004";"VF_4";"H/1-J/4";1;"18465.07, 4300.26, 2119.66";"2518.90, 6404.92, 848.78";"f///EdR0IN4QAAAAAAAAAAAA";"AqAYAC2kAFQk";"AwJzAC2kAFQk";"";"";"0006-L";"0038, 0039, 0040, 0041";"nur ein Partner";"";{"Typ": "Streckengruppe", "Seite_AS": "links", "Seite_ES": "links", "Winkel": "3,3", "VF_Winkel": "0,0,18", "DeltaH_mm": "0", "DeltaL_mm": "1907", "L_VF_m": "0.269,0.458,1.663", "L_GF_m": "4.166,1.658", "Montagehoehe_m": "2.154", "Hoehe_Von_mm": "2154", "Hoehe_Bis_mm": "2154", "Antriebfahrtrichtung": "horizontal,horizontal,Auf", "Anzahl_Separator": "2", "Anzahl_Scanner": "0"} 5;"ILS 2.0 Strecke";"0005";"VF_5";"J/1-K/4";1;"22239.27, 4299.16, 2119.66";"2518.90, 6404.92, 848.78";"f///EdAoIN4QAAAAAAAAAAAA";"AzOGAC2ZAFQk";"A5XhAC2ZAFQk";"";"";"0006-L";"0042, 0043, 0044, 0045";"nur ein Partner";"";{"Typ": "Streckengruppe", "Seite_AS": "links", "Seite_ES": "links", "Winkel": "3,3", "VF_Winkel": "0,0,18", "DeltaH_mm": "0", "DeltaL_mm": "1907", "L_VF_m": "0.269,0.458,1.663", "L_GF_m": "4.166,1.658", "Montagehoehe_m": "2.154", "Hoehe_Von_mm": "2154", "Hoehe_Bis_mm": "2154", "Antriebfahrtrichtung": "horizontal,horizontal,Auf", "Anzahl_Separator": "4", "Anzahl_Scanner": "1"} 6;"ILS 2.0 Kreisel";"0006";"Kreisel1";"A/1-M/1";1;"13594.00, 767.00, 2154.00";"24100.00, 800.00, 1.00";"F49AC7QYIN4QAAAAAAAAAAAA";"";"";"";"";"0005, 0004, 0003, 0002, 0001";"0021, 0022, 0007, 0008, 0024, 0029, 0010, 0030, 0033, 0012, 0034, 0037, 0014, 0038, 0041, 0016, 0042, 0045, 0018, 0020, 0023";"";"";{"Abstand (Kreiselachse A - Kreiselachse) in Meter": "23.3", "Anzahl der Separatoren": "4", "Kreiselart": "STANDARD", "Anzahl der Scanner": "4", "Anzahl der Rampen": "0", "Höhe in m": "2.15", "Drehrichtung": "UZS", "Drehung": 0, "Name": "Kreisel1", "Geruest fuer Einzelmodul": true} -7;"ILS 2.0 Separator";"0007";"Separator :20";"A/1";1;"2414.95, 365.00, 2155.50";"209.90, 150.00, 3.00";"I+84BZHIIN4QAAAAAAAAAAAA";"AFv+AA5CAFQk";"";"";"";"0022, 0008";"";"";"";{"Zuordnung": "0006-R", "ARTINR": "200000077", "Höhe": "2154", "Drehung": 0, "Typ": ""} +7;"ILS 2.0 Separator";"0007";"Separator :20";"A/1";1;"2414.95, 365.00, 2155.50";"209.90, 150.00, 3.00";"I+84BZHIIN4QAAAAAAAAAAAA";"AFv+AA5CAFQk";"";"";"";"0022, 0008";"";"";"";{"Zuordnung": "0001", "ARTINR": "200000077", "Höhe": "2154", "Drehung": 0, "Typ": ""} 8;"ILS 2.0 Separator";"0008";"Separator :19";"B/1";1;"4056.38, 1165.90, 2155.50";"209.90, 150.00, 3.00";"Ps9qEcpMIN4QAAAAAAAAf///";"AKDLAC2LAFQk";"";"";"";"0007, 0024";"";"";"";{"Zuordnung": "0006-L", "ARTINR": "200000077", "Höhe": "2154", "Drehung": 180, "Typ": ""} 9;"ILS 2.0 Scanner";"0009";"Scanner :6";"B/1";1;"4095.50, 804.10, 2154.00";"150.00, 280.00, 1.00";"Pn4MEcNEIN4QAAAAAAAApX2I";"";"";"";"";"";"";"";"";{"Zuordnung": "0006-L", "ARTINR": "829534306", "Höhe": "2154", "Drehung": 270, "Typ": "", "Naechster Separator": "0008"} -10;"ILS 2.0 Separator";"0010";"Separator :18";"D/1";1;"8555.49, 1169.50, 2155.50";"209.90, 150.00, 3.00";"f///EdhcIN4QAAAAAAAAf///";"AVCKAC2vAFQk";"";"";"";"0029, 0030";"";"";"";{"Zuordnung": "0006-L", "ARTINR": "200000077", "Höhe": "2154", "Drehung": 180, "Typ": ""} -11;"ILS 2.0 Scanner";"0011";"Scanner :5";"D/1";1;"8598.69, 807.70, 2154.00";"150.00, 280.00, 1.00";"f///EdFUIN4QAAAAAAAApX2I";"";"";"";"";"";"";"";"";{"Zuordnung": "0006-L", "ARTINR": "829534306", "Höhe": "2154", "Drehung": 270, "Typ": "", "Naechster Separator": "0010"} +10;"ILS 2.0 Separator";"0010";"Separator :18";"D/1";1;"8555.49, 1169.50, 2155.50";"209.90, 150.00, 3.00";"f///EdhcIN4QAAAAAAAAf///";"AVCKAC2vAFQk";"";"";"";"0029, 0030";"";"";"";{"Zuordnung": "0002", "ARTINR": "200000077", "Höhe": "2154", "Drehung": 180, "Typ": ""} +11;"ILS 2.0 Scanner";"0011";"Scanner :5";"D/1";1;"8598.69, 807.70, 2154.00";"150.00, 280.00, 1.00";"f///EdFUIN4QAAAAAAAApX2I";"";"";"";"";"";"";"";"";{"Zuordnung": "0002", "ARTINR": "829534306", "Höhe": "2154", "Drehung": 270, "Typ": "", "Naechster Separator": "0010"} 12;"ILS 2.0 Separator";"0012";"Separator :17";"F/1";1;"12631.71, 1168.20, 2155.50";"209.90, 150.00, 3.00";"f///EdNIIN4QAAAAAAAAf///";"Ae/EAC2iAFQk";"";"";"";"0033, 0034";"";"";"";{"Zuordnung": "0006-L", "ARTINR": "200000077", "Höhe": "2154", "Drehung": 180, "Typ": ""} 13;"ILS 2.0 Scanner";"0013";"Scanner :4";"F/1";1;"12669.10, 806.40, 2154.00";"150.00, 280.00, 1.00";"f///EcxAIN4QAAAAAAAApX2I";"";"";"";"";"";"";"";"";{"Zuordnung": "0006-L", "ARTINR": "829534306", "Höhe": "2154", "Drehung": 270, "Typ": "", "Naechster Separator": "0012"} 14;"ILS 2.0 Separator";"0014";"Separator :16";"H/1";1;"16799.72, 1171.70, 2155.50";"209.90, 150.00, 3.00";"f///EeD0IN4QAAAAAAAAf///";"ApKUAC3FAFQk";"";"";"";"0037, 0038";"";"";"";{"Zuordnung": "0006-L", "ARTINR": "200000077", "Höhe": "2154", "Drehung": 180, "Typ": ""} 15;"ILS 2.0 Scanner";"0015";"Scanner :3";"H/1";1;"16839.52, 809.80, 2154.00";"150.00, 280.00, 1.00";"f///EdmIIN4QAAAAAAAApX2I";"";"";"";"";"";"";"";"Distanz-Zuordnung unsicher: 0006 (3270mm) vs. 0004 (3527mm)";{"Zuordnung": "0006-L", "ARTINR": "829534306", "Höhe": "2154", "Drehung": 270, "Typ": "", "Naechster Separator": "0014"} 16;"ILS 2.0 Separator";"0016";"Separator :15";"J/1";1;"20577.16, 1166.20, 2155.50";"209.90, 150.00, 3.00";"f///Ect4IN4QAAAAAAAAf///";"AyYjAC2OAFQk";"";"";"";"0041, 0042";"";"";"";{"Zuordnung": "0006-L", "ARTINR": "200000077", "Höhe": "2154", "Drehung": 180, "Typ": ""} -17;"ILS 2.0 Scanner";"0017";"Scanner :2";"J/1";1;"20807.70, 804.30, 2154.00";"150.00, 280.00, 1.00";"f///EcQMIN4QAAAAAAAApX2I";"";"";"";"";"";"";"";"";{"Zuordnung": "0005", "ARTINR": "829534306", "Höhe": "2154", "Drehung": 270, "Typ": "", "Naechster Separator": "0016"} +17;"ILS 2.0 Scanner";"0017";"Scanner :2";"J/1";1;"20807.70, 804.30, 2154.00";"150.00, 280.00, 1.00";"f///EcQMIN4QAAAAAAAApX2I";"";"";"";"";"";"";"";"";{"Zuordnung": "0006-L", "ARTINR": "829534306", "Höhe": "2154", "Drehung": 270, "Typ": "", "Naechster Separator": "0016"} 18;"ILS 2.0 Separator";"0018";"Separator :14";"L/1";1;"23678.05, 1170.60, 2155.50";"209.90, 150.00, 3.00";"f///EdyoIN4QAAAAAAAAf///";"A59EAC26AFQk";"";"";"";"0045, 0020";"";"";"";{"Zuordnung": "0005", "ARTINR": "200000077", "Höhe": "2154", "Drehung": 180, "Typ": ""} -19;"ILS 2.0 Scanner";"0019";"Scanner :1";"L/1";1;"23780.80, 808.80, 2154.00";"150.00, 280.00, 1.00";"f///EdWgIN4QAAAAAAAApX2I";"";"";"";"";"";"";"";"";{"Zuordnung": "0006-L", "ARTINR": "829534306", "Höhe": "2154", "Drehung": 270, "Typ": "", "Naechster Separator": "0018"} -20;"ILS 2.0 Separator";"0020";"Separator :13";"L/1";1;"24570.15, 1167.20, 2155.50";"209.90, 150.00, 3.00";"f///Ec9gIN4QAAAAAAAAf///";"A8IdAC2YAFQk";"";"";"";"0018, 0023";"";"";"";{"Zuordnung": "0006-L", "ARTINR": "200000077", "Höhe": "2154", "Drehung": 180, "Typ": ""} +19;"ILS 2.0 Scanner";"0019";"Scanner :1";"L/1";1;"23780.80, 808.80, 2154.00";"150.00, 280.00, 1.00";"f///EdWgIN4QAAAAAAAApX2I";"";"";"";"";"";"";"";"";{"Zuordnung": "0005", "ARTINR": "829534306", "Höhe": "2154", "Drehung": 270, "Typ": "", "Naechster Separator": "0018"} +20;"ILS 2.0 Separator";"0020";"Separator :13";"L/1";1;"24570.15, 1167.20, 2155.50";"209.90, 150.00, 3.00";"f///Ec9gIN4QAAAAAAAAf///";"A8IdAC2YAFQk";"";"";"";"0018, 0023";"";"";"";{"Zuordnung": "0005", "ARTINR": "200000077", "Höhe": "2154", "Drehung": 180, "Typ": ""} 21;"ILS 2.0 BTMT Beladung";"0021";"BTMT Beladung :2";"B/1-C/1";1;"5532.67, 265.14, 2109.31";"652.35, 408.38, 316.02";"ULuUBaYYIN4QAAAAAAAAf/7S";"AON9AANLAFSv";"AMu/AA6CAFQk";"";"";"0023, 0022";"";"";"";{"ARTINR": "829662012", "Höhe": "2154", "Drehung": 179} 22;"ILS 2.0 BTMT Beladung";"0022";"BTMT Beladung :1";"B/1";1;"4503.25, 269.77, 2109.31";"651.33, 406.70, 316.02";"QQVQBbW4IN4QAAAAAAAAf/8o";"ALtMAAOBAFSv";"AKOGAA6oAFQk";"";"";"0021, 0007";"";"";"";{"ARTINR": "829662012", "Höhe": "2154", "Drehung": 179} 23;"ILS 2.0 BTMT Entladung";"0023";"BTMT Entladung :1";"L/1-M/1";1;"25014.37, 1545.51, 2001.09";"1475.51, 961.98, 467.01";"f///Edt8IN4QAAAAAAAAARVf";"A7q4AC1/AFQk";"A+0BAE7eAEX5";"";"";"0020, 0021";"";"";"";{"ARTINR": "400100156", "Höhe": "2154", "Drehung": 1} diff --git a/tests/reference/hundm05_tests_sivas.csv b/tests/reference/hundm05_tests_sivas.csv index 3ae375d..cb564cb 100644 --- a/tests/reference/hundm05_tests_sivas.csv +++ b/tests/reference/hundm05_tests_sivas.csv @@ -1,9 +1,9 @@ Nr;TeileArt;SivasNummer;Bezeichnung;Dispogruppe;Anzahl;Laenge[mm];IDs;details -1;"ILS 2.0 Kreisel";"6200";"Kreisel12";20;1;;"0006";{"2952": "2.154", "3510": "Kreisel", "3511": "1", "3512": "23.3", "3515": "4", "3517": "4", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst"} +1;"ILS 2.0 Kreisel";"6200";"Kreisel1";20;1;;"0006";{"2952": "2.154", "3511": "1", "3515": "4", "3517": "4", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst", "3510": "Kreisel", "3512": "23.3"} 2;"ILS 2.0 Zusatzmodul";"6215";"";20;1;;"0022, 0021, 0023";{"3501": "Ja", "3503": "2", "3502": "Ja", "3504": "1"} -3;"ILS 2.0 Strecke";"6220";"VF_9";20;1;;"0005";{"2950": "2.154", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "4.166", "4391": "3", "4314": "Ja", "4319": "1.658", "4392": "3", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "0.269", "4354": "horizontal", "4386": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "2", "4377": "0", "4378": "0", "4381": "4", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "1", "3992": "Ja", "3993": "Schönenberger-Gerüst"} -4;"ILS 2.0 Strecke";"6220";"VF_8";20;1;;"0004";{"2950": "2.154", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "4.166", "4391": "3", "4314": "Ja", "4319": "1.658", "4392": "3", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "0.269", "4354": "horizontal", "4386": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "2", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst"} -5;"ILS 2.0 Strecke";"6220";"VF_7";20;1;;"0003";{"2950": "2.154", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "4.166", "4391": "3", "4314": "Ja", "4319": "1.658", "4392": "3", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "0.269", "4354": "horizontal", "4386": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "2", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst"} -6;"ILS 2.0 Strecke";"6220";"VF_6";20;1;;"0002";{"2950": "2.154", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "4.166", "4391": "3", "4314": "Ja", "4319": "1.658", "4392": "3", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "0.269", "4354": "horizontal", "4386": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "2", "4377": "0", "4378": "0", "4381": "3", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "1", "3992": "Ja", "3993": "Schönenberger-Gerüst"} -7;"ILS 2.0 Strecke";"6220";"VF_5";20;1;;"0001";{"2950": "2.154", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.727", "4391": "3", "4314": "Ja", "4319": "0.201", "4392": "3", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "2", "4353": "3.704", "4354": "horizontal", "4386": "0", "4373": "0", "4374": "0", "4375": "1", "4376": "2", "4377": "0", "4378": "1", "4381": "5", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst"} +3;"ILS 2.0 Strecke";"6220";"VF_5";20;1;;"0005";{"2950": "2.154", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "2", "4377": "0", "4378": "0", "4381": "4", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "1", "3992": "Ja", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "4.166", "4391": "3", "4314": "Ja", "4319": "1.658", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "0.269", "4354": "horizontal", "4386": "0", "4433": "1.800", "4434": "1.800", "4435": "2.071"} +4;"ILS 2.0 Strecke";"6220";"VF_4";20;1;;"0004";{"2950": "2.154", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "2", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "4.166", "4391": "3", "4314": "Ja", "4319": "1.658", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "0.269", "4354": "horizontal", "4386": "0", "4433": "1.800", "4434": "1.800", "4435": "2.071"} +5;"ILS 2.0 Strecke";"6220";"VF_3";20;1;;"0003";{"2950": "2.154", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "2", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "4.166", "4391": "3", "4314": "Ja", "4319": "1.658", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "0.269", "4354": "horizontal", "4386": "0", "4433": "1.800", "4434": "1.800", "4435": "2.071"} +6;"ILS 2.0 Strecke";"6220";"VF_2";20;1;;"0002";{"2950": "2.154", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "2", "4377": "0", "4378": "0", "4381": "3", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "1", "3992": "Ja", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "4.166", "4391": "3", "4314": "Ja", "4319": "1.658", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "0.269", "4354": "horizontal", "4386": "0", "4433": "1.800", "4434": "1.800", "4435": "2.071"} +7;"ILS 2.0 Strecke";"6220";"VF_1";20;1;;"0001";{"2950": "2.154", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "1", "4376": "2", "4377": "0", "4378": "1", "4381": "5", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "0.727", "4391": "3", "4314": "Ja", "4319": "0.201", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "2", "4353": "3.704", "4354": "horizontal", "4386": "0", "4433": "1.980", "4434": "1.980", "4435": "1.875", "4436": "2.076", "4437": "2.282"} 8;"ILS 2.0 Automation und Pneumatik - Gesamtanlage";"6269";"";20;1;;"";{"4000": "Ja", "4400": "1", "4413": "4", "4401": "0", "4414": "0", "4402": "0", "4419": "23.30", "4403": "0", "4404": "0", "4425": "0", "4426": "0", "4407": "5", "4418": "0.00", "4408": "17", "4420": "0.0", "4409": "0", "4417": "0.0", "4410": "20", "4411": "6", "4421": "2", "4422": "1", "4100": "Ja"} diff --git a/tests/reference/kreisel_results.json b/tests/reference/kreisel_results.json index d3b91d4..4e83daf 100644 --- a/tests/reference/kreisel_results.json +++ b/tests/reference/kreisel_results.json @@ -3,7 +3,7 @@ "test_id": "KR_Kreuz_Q1_0Grad", "status": "executed", "block_name": "KREISEL_1_STANDARD_2000", - "block_handle": "13A", + "block_handle": "186", "insert_point": [500, 500, 2500], "actual_attributes": { "ID": "0001", @@ -28,7 +28,7 @@ "test_id": "KR_Kreuz_Q2_90Grad", "status": "executed", "block_name": "KREISEL_2_STANDARD_3000", - "block_handle": "187", + "block_handle": "1D7", "insert_point": [-500, 500, 2500], "actual_attributes": { "ID": "0002", @@ -53,7 +53,7 @@ "test_id": "KR_Kreuz_Q3_180Grad", "status": "executed", "block_name": "KREISEL_3_STANDARD_4000", - "block_handle": "1D3", + "block_handle": "227", "insert_point": [-500, -500, 2500], "actual_attributes": { "ID": "0003", @@ -78,7 +78,7 @@ "test_id": "KR_Kreuz_Q4_270Grad", "status": "executed", "block_name": "KREISEL_4_STANDARD_5000", - "block_handle": "21F", + "block_handle": "277", "insert_point": [500, -500, 2500], "actual_attributes": { "ID": "0004", @@ -103,7 +103,7 @@ "test_id": "KR_Schraeg_Q1_30Grad", "status": "executed", "block_name": "KREISEL_5_STANDARD_3000", - "block_handle": "26B", + "block_handle": "2C7", "insert_point": [3000, 3000, 3000], "actual_attributes": { "ID": "0005", @@ -128,7 +128,7 @@ "test_id": "KR_Pin_Q1_0Grad", "status": "executed", "block_name": "KREISEL_6_PIN_3000", - "block_handle": "2BC", + "block_handle": "31C", "insert_point": [500, 6000, 1500], "actual_attributes": { "ID": "0006", @@ -153,7 +153,7 @@ "test_id": "KR_Pin_Q1_90Grad", "status": "executed", "block_name": "KREISEL_7_PIN_4000", - "block_handle": "30C", + "block_handle": "370", "insert_point": [-500, 6500, 1500], "actual_attributes": { "ID": "0007", @@ -178,7 +178,7 @@ "test_id": "KR_Pin_Q1_30Grad_Schraeg", "status": "executed", "block_name": "KREISEL_8_PIN_3000", - "block_handle": "35C", + "block_handle": "3C4", "insert_point": [3000, 8000, 1500], "actual_attributes": { "ID": "0008", diff --git a/tests/reference/kreisel_tests_sivas.csv b/tests/reference/kreisel_tests_sivas.csv index b1f0eb4..21ce73a 100644 --- a/tests/reference/kreisel_tests_sivas.csv +++ b/tests/reference/kreisel_tests_sivas.csv @@ -1,8 +1,9 @@ Nr;TeileArt;SivasNummer;Bezeichnung;Dispogruppe;Anzahl;Laenge[mm];IDs;details -1;"ILS 2.0 Kreisel";"6200";"Kreisel8, Kreisel6";20;2;;"0008, 0006";{"2952": "1.5", "3510": "Kreisel mit PINBAND", "3511": "1", "3512": "3.0", "3515": "0", "3517": "0", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst"} -2;"ILS 2.0 Kreisel";"6200";"Kreisel7";20;1;;"0007";{"2952": "1.5", "3510": "Kreisel mit PINBAND", "3511": "1", "3512": "4.0", "3515": "0", "3517": "0", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst"} -3;"ILS 2.0 Kreisel";"6200";"Kreisel5, Kreisel2";20;2;;"0005, 0002";{"2952": "3", "3510": "Kreisel", "3511": "1", "3512": "3.0", "3515": "0", "3517": "0", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst"} -4;"ILS 2.0 Kreisel";"6200";"Kreisel4";20;1;;"0004";{"2952": "2.5", "3510": "Kreisel", "3511": "1", "3512": "5.0", "3515": "0", "3517": "0", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst"} -5;"ILS 2.0 Kreisel";"6200";"Kreisel3";20;1;;"0003";{"2952": "2.5", "3510": "Kreisel", "3511": "1", "3512": "4.0", "3515": "0", "3517": "0", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst"} -6;"ILS 2.0 Kreisel";"6200";"Kreisel1";20;1;;"0001";{"2952": "2.5", "3510": "Kreisel", "3511": "1", "3512": "2.0", "3515": "0", "3517": "0", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst"} -7;"ILS 2.0 Automation und Pneumatik - Gesamtanlage";"6269";"";20;1;;"";{"4000": "Ja", "4400": "8", "4413": "0", "4401": "3", "4414": "0", "4402": "0", "4419": "27.00", "4403": "0", "4404": "0", "4425": "0", "4426": "0", "4407": "0", "4418": "0.00", "4408": "0", "4420": "0.0", "4409": "0", "4417": "0.0", "4410": "0", "4411": "0", "4421": "0", "4422": "0", "4100": "Ja"} +1;"ILS 2.0 Kreisel";"6200";"Kreisel8, Kreisel6";20;2;;"0008, 0006";{"2952": "1.5", "3511": "1", "3515": "0", "3517": "0", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst", "3510": "Kreisel mit PINBAND", "3512": "3.0"} +2;"ILS 2.0 Kreisel";"6200";"Kreisel7";20;1;;"0007";{"2952": "1.5", "3511": "1", "3515": "0", "3517": "0", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst", "3510": "Kreisel mit PINBAND", "3512": "4.0"} +3;"ILS 2.0 Kreisel";"6200";"Kreisel5";20;1;;"0005";{"2952": "3", "3511": "1", "3515": "0", "3517": "0", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst", "3510": "Kreisel", "3512": "3.0"} +4;"ILS 2.0 Kreisel";"6200";"Kreisel4";20;1;;"0004";{"2952": "2.5", "3511": "1", "3515": "0", "3517": "0", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst", "3510": "Kreisel", "3512": "5.0"} +5;"ILS 2.0 Kreisel";"6200";"Kreisel3";20;1;;"0003";{"2952": "2.5", "3511": "1", "3515": "0", "3517": "0", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst", "3510": "Kreisel", "3512": "4.0"} +6;"ILS 2.0 Kreisel";"6200";"Kreisel2";20;1;;"0002";{"2952": "2.5", "3511": "1", "3515": "0", "3517": "0", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst", "3510": "Kreisel", "3512": "3.0"} +7;"ILS 2.0 Kreisel";"6200";"Kreisel1";20;1;;"0001";{"2952": "2.5", "3511": "1", "3515": "0", "3517": "0", "3519": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst", "3510": "Kreisel", "3512": "2.0"} +8;"ILS 2.0 Automation und Pneumatik - Gesamtanlage";"6269";"";20;1;;"";{"4000": "Ja", "4400": "8", "4413": "0", "4401": "3", "4414": "0", "4402": "0", "4419": "27.00", "4403": "0", "4404": "0", "4425": "0", "4426": "0", "4407": "0", "4418": "0.00", "4408": "0", "4420": "0.0", "4409": "0", "4417": "0.0", "4410": "0", "4411": "0", "4421": "0", "4422": "0", "4100": "Ja"} diff --git a/tests/reference/linienzug_results.json b/tests/reference/linienzug_results.json index 17e4db5..a218203 100644 --- a/tests/reference/linienzug_results.json +++ b/tests/reference/linienzug_results.json @@ -2,7 +2,7 @@ { "test_id": "LZ_Standard", "status": "OK", - "schritte_gesamt": 37, + "schritte_gesamt": 34, "schritte_offen": 0 } ] diff --git a/tests/reference/linienzug_tests_sivas.csv b/tests/reference/linienzug_tests_sivas.csv index e67527a..c51126c 100644 --- a/tests/reference/linienzug_tests_sivas.csv +++ b/tests/reference/linienzug_tests_sivas.csv @@ -1,3 +1,3 @@ Nr;TeileArt;SivasNummer;Bezeichnung;Dispogruppe;Anzahl;Laenge[mm];IDs;details -1;"ILS 2.0 Strecke";"6220";"VF_1";20;1;;"0001";{"Anlagenhöhe in Meter": "2.154", "Streckengruppe": "mehrere Objekte", "Strecken- zu fertigende Menge": "1", "Streckengruppe - Gefällestrecke": "Ja", "Streckengruppe - Gefällestrecke 001-Länge in Meter": "4.166", "Streckengruppe - Gefällestrecke 001 -Winkel": "3", "Streckengruppe - Gefällestrecke 002": "Ja", "Streckengruppe - Gefällestrecke 002-Länge in Meter": "1.658", "Streckengruppe - Gefällestrecke 002- Winkel": "3", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke links 30°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 90°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 60°": "0", "Streckengruppe - Anzahl der Kurven - Gefällestrecke rechts 30°": "0", "Streckengruppe - Anzahl der Separatoren - Gefällestrecke": "0", "Streckengruppe - Bearbeitung Gefällestreckenteilstück für Separator (829516050)": "ohne HARTCOAT HRC 50 ± 5", "Streckengruppe - Anzahl der Scanner": "0", "Streckengruppe - Varioförderer": "Ja", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (links)": "0", "Streckengruppe - Anzahl der Motoren für Vario-Förderer (rechts)": "1", "Streckengruppe - Varioförderer 001-Länge in Meter": "0.269", "Streckengruppe - Varioförderer 001-Richtung": "horizontal", "Streckengruppe - Varioförderer 001- Winkel": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 90°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Außenbogen 30°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 90°": "2", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 60°": "0", "Streckengruppe - Anzahl der Kurven - Varioförderer Innenbogen 30°": "0", "Streckengruppe - Anzahl der Separatoren - Varioförderer": "2", "Gerüst für Einzelmodul": "Ja", "Gerüstoption für Einzelmodul": "Schönenberger-Gerüst"} -2;"ILS 2.0 Automation und Pneumatik - Gesamtanlage";"6269";"";20;1;;"";{"Automation": "Ja", "Anzahl der Kreisel": "0", "Anzahl der Separatoren - Kreisel ohne PINBAND": "0", "Anzahl der Kreisel mit PINBAND": "0", "Anzahl der Separatoren - Kreisel mit PINBAND": "0", "Anzahl der Verbindungskreisel": "0", "Längen aller Kreisel": "0.00", "Anzahl der Weichen": "0", "Anzahl der Eckräder": "0", "Anzahl der einzelnen Gefällestrecken": "0", "Anzahl der einzelnen Vario-Förderer": "0", "Anzahl der Streckengruppen": "1", "Längen aller Gefällestrecken": "0.00", "Anzahl der Motoren in Vario - Förderer": "3", "Längen aller Vario - Förderer": "0.0", "Anzahl der ETFs": "0", "Längen aller ETFS und Zusatzstücke (Gefällestrecken)": "0.0", "Anzahl der Separatoren in der Anlage": "2", "Anzahl der Scanner in der Anlage": "0", "Zusatzmodul - Anzahl der BT-Beladung": "0", "Zusatzmodul - Anzahl der Abwurfstation": "0", "Pneumatik": "Ja"} +1;"ILS 2.0 Strecke";"6220";"VF_1";20;1;;"0001";{"2950": "2.154", "4431": "Ja", "4427": "90 °", "4428": "links", "4432": "Ja", "4429": "90 °", "4430": "links", "4329": "0", "4330": "0", "4331": "0", "4332": "0", "4333": "0", "4334": "0", "4373": "0", "4374": "0", "4375": "0", "4376": "2", "4377": "0", "4378": "0", "4381": "2", "4382": "ohne HARTCOAT HRC 50 ± 5", "4383": "0", "3992": "Ja", "3993": "Schönenberger-Gerüst", "4300": "mehrere Objekte", "4311": "1", "4312": "Ja", "4318": "4.166", "4391": "3", "4314": "Ja", "4319": "1.658", "4392": "3", "4337": "0", "4338": "ohne HARTCOAT HRC 50 ± 5", "4339": "0", "4340": "Ja", "4341": "0", "4342": "1", "4353": "0.269", "4354": "horizontal", "4386": "0", "4433": "1.800", "4434": "1.800", "4435": "2.071"} +2;"ILS 2.0 Automation und Pneumatik - Gesamtanlage";"6269";"";20;1;;"";{"4000": "Ja", "4400": "0", "4413": "0", "4401": "0", "4414": "0", "4402": "0", "4419": "0.00", "4403": "0", "4404": "0", "4425": "0", "4426": "0", "4407": "1", "4418": "0.00", "4408": "3", "4420": "0.0", "4409": "0", "4417": "0.0", "4410": "2", "4411": "0", "4421": "0", "4422": "0", "4100": "Ja"} diff --git a/tests/test_export_all.lsp b/tests/test_export_all.lsp index f91e62b..821818e 100644 --- a/tests/test_export_all.lsp +++ b/tests/test_export_all.lsp @@ -183,6 +183,7 @@ (if (findfile csv-pfad) (vl-file-delete csv-pfad)) (if (findfile sivas-pfad) (vl-file-delete sivas-pfad)) + (setq *csv-hoehencheck-fragen* nil) ;; keine Rueckfrage im Testlauf (princ (strcat "\n[TEST_EXPORT_ALL] CSV-Export -> " csv-name)) (c:EXPORTCSV) (setq csv-ok (export_all:wait-for-file csv-pfad 30.0)) diff --git a/tests/test_export_freie_separatoren.py b/tests/test_export_freie_separatoren.py new file mode 100644 index 0000000..26c671d --- /dev/null +++ b/tests/test_export_freie_separatoren.py @@ -0,0 +1,174 @@ +#!/usr/bin/env python3 +# -*- coding: utf-8 -*- +""" +test_export_freie_separatoren.py - freie Separatoren in der Kette einer Strecke. +Laeuft komplett ohne BricsCAD (reine Python-Logik, siehe lib/export_neighbors.py). + +Szenario nach einem realen Mubea-Befund (VF_3 = 0015): die sepliste aus dem +Bau kennt nur AS 0061, SEP 0062, SEP 0063, ES 0064. Die eigenstaendigen +Separatoren 0037/0038 liegen auf der Strecke, ihre Zuordnung nennt 0015 - sie +fehlten aber in TrackIds und Nachbarn. einsortieren_freie_separatoren nimmt +sie nach Lage auf. + +Alle Daten sind hier fest eingetragen (Stand des Mubea-Exports 2026-10-28) und +werden aus keiner Datei gelesen - aendert sich die Mubea-Zeichnung, bleibt +dieser Test unberuehrt. Er prueft den Algorithmus, nicht die Szene. +""" + +import os +import sys + +sys.path.insert(0, os.path.join(os.path.dirname(__file__), "..", "lib")) + +from export_neighbors import ( # noqa: E402 + compute_sep_kette, + einsortieren_freie_separatoren, + sepliste_einsortier_positionen, +) +from export_csv import ( # noqa: E402 + map_sepliste_kette_items, + resolve_umlauf_und_sepliste_nachbarn, + write_separatorliste_merkmale, +) + +TOL_MM = 100.0 + + +def _sep(teileid, x, y, zuordnung): + return { + "teileart": "ILS 2.0 Separator", + "teileid": teileid, + "merkmale": {"Zuordnung": zuordnung}, + "nachbarn": "", + "_bbox": {"cx": x, "cy": y, "cz": 0.0, "dx": 150.0, "dy": 210.0}, + } + + +def _ases(teileart, teileid, x, y, zuordnung): + return { + "teileart": teileart, + "teileid": teileid, + "_zuordnung": zuordnung, + "merkmale": {}, + "nachbarn": "", + "_bbox": {"cx": x, "cy": y, "cz": 0.0, "dx": 200.0, "dy": 200.0}, + } + + +def _mubea_vf3(): + strecke = { + "teileart": "ILS 2.0 Strecke", + "teileid": "0015", + "nachbarn": "0002-L", + "merkmale": {}, + "k1": "", "k2": "", + "_bbox": {"cx": -631.28, "cy": 6543.11, "cz": 1624.70, + "dx": 1018.09, "dy": 12791.0}, + "sepliste": [ + {"typ": "AS", "lfdnr": 1, "id": "0061"}, + {"typ": "SEP", "lfdnr": 2, "id": "0062"}, + {"typ": "SEP", "lfdnr": 3, "id": "0063"}, + {"typ": "ES", "lfdnr": 4, "id": "0064"}, + ], + } + return [ + strecke, + _ases("ILS Ausschleuselement", "0061", -400.00, 270.54, "0015"), + _sep("0062", -898.87, 1134.60, "0015"), + _sep("0063", -702.98, 12307.81, "0015"), + _ases("ILS Einschleuselement", "0064", -400.00, 12832.58, "0015"), + _sep("0037", -1026.00, 10723.05, "0015"), + _sep("0038", -1026.00, 5250.05, "0015"), + ] + + +def _by_id(items, teileid): + return next(it for it in items if it.get("teileid") == teileid) + + +def _pipeline(items): + einsortieren_freie_separatoren(items, TOL_MM) + sep_kette = compute_sep_kette(items) + sep_kette_by_key = map_sepliste_kette_items(items, sep_kette) + write_separatorliste_merkmale(items, sep_kette_by_key) + resolve_umlauf_und_sepliste_nachbarn(items, {}, sep_kette, sep_kette_by_key, {}) + return items + + +class TestEinsortierPositionen: + """Reiner Rechenkern, ohne Items.""" + + KETTE = [(0.0, 0.0), (0.0, 1000.0), (0.0, 5000.0), (0.0, 6000.0)] + + def test_zwei_kandidaten_im_selben_abschnitt_sortiert(self): + einfuegen, verworfen = sepliste_einsortier_positionen( + self.KETTE, [("B", 50.0, 4000.0), ("A", -50.0, 2000.0)]) + assert einfuegen == {1: ["A", "B"]} + assert verworfen == [] + + def test_vor_as_und_hinter_es_verworfen(self): + einfuegen, verworfen = sepliste_einsortier_positionen( + self.KETTE, [("vor", 0.0, -500.0), ("hinter", 0.0, 6500.0)]) + assert einfuegen == {} + assert sorted(verworfen) == ["hinter", "vor"] + + def test_kette_um_eine_kurve(self): + """Polygonzug statt Gerade AS->ES: ein Separator auf dem zweiten + Schenkel einer L-Kette gehoert in DEN Abschnitt, nicht nach + seiner Projektion auf die Diagonale.""" + kette = [(0.0, 0.0), (0.0, 3000.0), (3000.0, 3000.0)] + einfuegen, _ = sepliste_einsortier_positionen(kette, [("S", 1500.0, 3050.0)]) + assert einfuegen == {1: ["S"]} + + def test_entartete_kette(self): + einfuegen, verworfen = sepliste_einsortier_positionen( + [(0.0, 0.0), (0.0, 0.0)], [("S", 10.0, 10.0)]) + assert einfuegen == {} + assert verworfen == ["S"] + + +class TestMubeaVf3: + + def test_trackids_mit_freien_separatoren(self): + items = _pipeline(_mubea_vf3()) + assert _by_id(items, "0015").get("trackids") == \ + "0061, 0062, 0038, 0037, 0063, 0064" + + def test_nachbarn_der_kette(self): + items = _pipeline(_mubea_vf3()) + assert _by_id(items, "0062")["nachbarn"] == "0061, 0038" + assert _by_id(items, "0038")["nachbarn"] == "0062, 0037" + assert _by_id(items, "0037")["nachbarn"] == "0038, 0063" + assert _by_id(items, "0063")["nachbarn"] == "0037, 0064" + + def test_hinweis_am_freien_separator(self): + items = _pipeline(_mubea_vf3()) + assert "0015" in _by_id(items, "0037").get("warnung", "") + assert _by_id(items, "0062").get("warnung", "") == "" + + def test_merkmal_einsortiert_in(self): + items = _pipeline(_mubea_vf3()) + assert _by_id(items, "0037")["merkmale"].get("Einsortiert in") == "0015" + assert _by_id(items, "0038")["merkmale"].get("Einsortiert in") == "0015" + assert "Einsortiert in" not in _by_id(items, "0062")["merkmale"] + + def test_fremde_zuordnung_bleibt_draussen(self): + items = _mubea_vf3() + _by_id(items, "0037")["merkmale"]["Zuordnung"] = "0002-L" + _pipeline(items) + assert _by_id(items, "0015").get("trackids") == "0061, 0062, 0038, 0063, 0064" + + def test_ausserhalb_der_strecken_bbox_bleibt_draussen(self): + items = _mubea_vf3() + _by_id(items, "0038")["_bbox"]["cx"] = -3000.0 + _pipeline(items) + assert _by_id(items, "0015").get("trackids") == "0061, 0062, 0037, 0063, 0064" + + def test_ohne_ids_kein_einsortieren(self): + """Altbestand ohne aufgeloeste IDs: Glieder nicht lokalisierbar -> + sepliste bleibt wie gebaut.""" + items = _mubea_vf3() + for e in _by_id(items, "0015")["sepliste"]: + e["id"] = "" + einsortieren_freie_separatoren(items, TOL_MM) + assert len(_by_id(items, "0015")["sepliste"]) == 4 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_export_sivas_omniflo.py b/tests/test_export_sivas_omniflo.py index c087ee4..33a3ef7 100644 --- a/tests/test_export_sivas_omniflo.py +++ b/tests/test_export_sivas_omniflo.py @@ -100,7 +100,7 @@ def test_geruest_unveraendert(): assert zeilen["825002022"]["anzahl"] == 2 assert zeilen["825002022"]["teileart"] == "Geruest Saeule 2 Zoll" assert zeilen["825002022"]["ids"] == ["0060"] - assert zeilen["825002022"]["dispgruppe"] == 20 + assert zeilen["825002022"]["dispgruppe"] == 30 # Ohne TEILEFARBE kein Farb-Merkmal assert zeilen["825002022"]["details"] == {} diff --git a/tests/test_hm_recformat.lsp b/tests/test_hm_recformat.lsp index 3347780..d5d96a0 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) ) ) @@ -468,6 +477,7 @@ ;; aufgehen und warten). (setq *hmrec-alt-wizard* (if (boundp '*vfl-wizard-mode*) *vfl-wizard-mode*)) (setq *vfl-wizard-mode* nil) + (setq *hmrec-alt-gui* (if (boundp '*ssg-gui-aus*) *ssg-gui-aus*)) (if (car (atoms-family 1 '("SSG-GUI-AUS"))) (ssg-gui-aus)) ;; Headless-Riegel der Produktion einschalten: eine erschoepfte Replay-Queue ;; ist dann ein harter, lokalisierter Abbruch statt eines stillen Rueckfalls @@ -488,7 +498,7 @@ alert *hmrec-alt-alert*) (setq *vfl-wizard-mode* *hmrec-alt-wizard*) (setq *vfl-headless* *hmrec-alt-headless*) - (if (car (atoms-family 1 '("SSG-GUI-AN"))) (ssg-gui-an)) + (setq *ssg-gui-aus* *hmrec-alt-gui*) ; Vorzustand, nicht pauschal an (princ) ) 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..69b185b 100644 --- a/tests/test_hundm05.py +++ b/tests/test_hundm05.py @@ -59,7 +59,11 @@ def spec_ergebnisse(alle_ergebnisse): @pytest.fixture(scope="module") def kreisel_ergebnisse(alle_ergebnisse): - raus = [r for r in alle_ergebnisse if r.get("kind") == "kreisel"] + """Ergebnisse ALLER nachgetragenen Anlagenteile (Gegenstueck zu + kreisel_objekte) - nicht nur kind "kreisel": Separatoren, Scanner und + BTMT kommen als kind "sensor" zurueck. Der Name ist historisch.""" + raus = [r for r in alle_ergebnisse + if r.get("kind", "linienzug") != "linienzug"] if not raus: pytest.skip("keine Kreisel-Ergebnisse (Lauf vor dem Nachtragen " "weiterer Anlagenteile?)") @@ -180,7 +184,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_linienzug.lsp b/tests/test_linienzug.lsp index 5d269df..6880dc1 100644 --- a/tests/test_linienzug.lsp +++ b/tests/test_linienzug.lsp @@ -13,6 +13,7 @@ ;; "typ" ist ein Eingabe-Schritt in exakter Aufruf-Reihenfolge: ;; {"typ":"point_abs","wert":[x,y,z]} absoluter Punkt (getpoint) ;; {"typ":"point_rel","dL":..,"hz":..} Basispunkt + dL entlang Richtung hz +;; {"typ":"point_none"} getpoint ohne Punkt (Enter -> nil) ;; {"typ":"real","wert":..} getreal ;; {"typ":"int","wert":..} getint ;; {"typ":"string","wert":".."} getstring @@ -53,17 +54,23 @@ ;; Skript-Eintrag (P dL hz) -> Basispunkt + dL entlang Richtung hz (Grad), ;; sodass die Projektion in vfl-neue-linie-messen ;; exakt dL ergibt. +;; Skript-Eintrag KEIN -> nil (Enter ohne Punkt, z.B. optionale +;; AS-Zufuehrungsachse nicht gesetzt) (defun tlz-getpoint (a b / spec base rad) (setq spec (tlz-pop)) (setq base (if (and a (listp a)) a '(0.0 0.0 0.0))) - (if (and (listp spec) (= (car spec) 'A)) - (list (float (cadr spec)) (float (caddr spec)) (float (cadddr spec))) + (cond + ((= spec 'KEIN) nil) + ((and (listp spec) (= (car spec) 'A)) + (list (float (cadr spec)) (float (caddr spec)) (float (cadddr spec)))) + (T (progn (setq rad (* (float (caddr spec)) (/ pi 180.0))) (list (+ (car base) (* (float (cadr spec)) (cos rad))) (+ (cadr base) (* (float (cadr spec)) (sin rad))) (caddr base)) ) + ) ) ) (defun tlz-getstring (a) (tlz-pop)) @@ -84,6 +91,8 @@ (setq q (cons (cons 'A (ssg-val schritt "wert")) q))) ((= typ "point_rel") (setq q (cons (list 'P (ssg-val schritt "dL") (ssg-val schritt "hz")) q))) + ((= typ "point_none") + (setq q (cons 'KEIN q))) ((= typ "real") (setq q (cons (float (ssg-val schritt "wert")) q))) ((= typ "int") @@ -139,7 +148,7 @@ ;; ebenfalls nur einen einzigen Testfall pro Lauf kennt). (defun tlz-run-datei (json-datei test-id befehl-anzeige / daten meta schritte-anz rest-anz status - old-vgp old-gs old-gi old-gr err) + old-vgp old-gs old-gi old-gr err old-gui) (if (or (not *lib-initialized*) (null bogen-auf)) (init-bibliothek)) (if (null (car (atoms-family 1 '("VF-LINIENZUG-MODUS")))) (progn @@ -176,6 +185,7 @@ ;; GUI aus: keine Wizard-DCL-Dialoge waehrend des automatischen Replays - ;; die Eingaben kommen aus der Mock-Queue (getstring/getint/getreal), siehe ;; ssg-gui-aus/ssg-gui-p in ssg_core.lsp und vfl-wizard-mode-p. + (setq old-gui (if (boundp '*ssg-gui-aus*) *ssg-gui-aus*)) (if (car (atoms-family 1 '("SSG-GUI-AUS"))) (ssg-gui-aus)) ;; --- Eingabe-Funktionen sichern und durch Mocks ersetzen --- @@ -192,9 +202,11 @@ ;; --- Eingabe-Funktionen wiederherstellen (IMMER) --- (setq vfl-getpoint old-vgp getstring old-gs getint old-gi getreal old-gr) - ;; GUI wieder einschalten (auch nach Fehler), damit eine folgende interaktive - ;; Sitzung nicht headless bleibt. - (if (car (atoms-family 1 '("SSG-GUI-AN"))) (ssg-gui-an)) + ;; GUI-Zustand von VOR dem Test wiederherstellen (auch nach Fehler) - NICHT + ;; pauschal einschalten: unter SSG_RUN_ALL_TESTS ist sie fuer den ganzen + ;; Batch aus, und ein pauschales ssg-gui-an liess den anschliessenden + ;; EXPORTSIVAS nach Hoehen-Check/Bereinigen fragen (Lauf hing). + (setq *ssg-gui-aus* old-gui) (setq rest-anz (length *tlz-q*)) @@ -255,3 +267,224 @@ (tlz-run-datei json-datei "LZ_Stufe2_Kettenende" "TEST_LINIENZUG_STUFE2") (princ) ) + + +;; ============================================================ +;; MODUS 2 (aus 3D-Linie mit Zielhoehe) - Replay echter Laeufe +;; ============================================================ +;; Anders als die Modus-1-Faelle oben braucht Modus 2 KEINE Mocks und KEINEN +;; gezeichneten Pfad: sein Journal traegt einen SEGS-Eintrag mit der kompletten +;; Segment-Essenz (Typ, Richtung, Laenge, Eckwinkel, Seite, Start/Ende), ist +;; also von den Original-Objekten unabhaengig - dieselbe Eigenschaft, auf der +;; schon vfl-konvertiere-ent beruht (vfl-journal-hat-segs-p). Der Test spielt +;; daher das echte, aus der Zeichnung ausgelesene Journal ab. +;; +;; Die Faelle sind zwei BEWUSST gebildete Paare, kein Sammelsurium: +;; +;; A/B (Ecke als Vario-Kurve bzw. als GF-Bogen) - derselbe Pfad, nur die +;; 90-Grad-Ecke einmal waagerecht und einmal geneigt eingebaut. Sie laufen +;; durch verschiedene Zweige (mit und ohne flache Zone), und genau der +;; VERGLEICH hat am 2026-10-26/27 Fehler aufgedeckt, die ein einzelner +;; Lauf nicht gezeigt haette (ES-Fussabdruck am falschen Segment: 878 mm +;; nur in der GF-Bogen-Variante). +;; +;; U-Form 1..3 (gefalteter Lauf) - der Pfad wechselt ueber zwei 90-Grad- +;; Vario-Kurven dreimal die Fahrtrichtung, die Kletterstrecke liegt +;; dadurch in einem ANDEREN Schenkel als der Lauf-Eingang. Hier variieren +;; GF-VERTEILUNG (alles am Einlauf vs. 1/2+1/2) und WINKEL. Beides ist +;; noetig: die Verteilung entscheidet, ob ueberhaupt GF im fremden +;; Schenkel steht (Nachrechner, Fueller-A), und der Restfehler der alten +;; Bilanz skalierte mit L_GF, also mit dem Winkel (6 Grad 90 mm, 9 Grad +;; 934 mm) - zwei Laeufe mit demselben Winkel haetten das verdeckt. +;; +;; Einen Fall zu loeschen nimmt dem Test den jeweiligen Vergleich und damit +;; seinen Wert. +;; +;; Aufgezeichnet mit lib/vf_journal_export.py aus echten BricsCAD-Laeufen +;; (A/B am 2026-10-27, U-Form am 2026-10-29). +;; Pruefkriterium (Nutzer-Vorgabe 2026-10-26): quer zur ES-KS_AUS-Achse und dZ +;; MUESSEN ~0 sein, laengs DARF abweichen (Ausladung des ES-Elements). + +(setq *tlz-m2-toleranz* 1.0) ; mm; 0.2 ist die Messaufloesung der Blockmasse + +;; Toleranz fuer den LAENGS-Wert gegen "erwartung_laengs_mm" aus den Testdaten. +;; Der Wert ist die Ausladung des ES-Elements und damit je Fall eine Konstante +;; (gemessen: 104.68 mm bei ES_Element_30, 637.58 mm bei ES_Element_90) - 5 mm +;; reichen also fuer Rundung, ohne echte Abweichungen durchzulassen. +;; +;; Warum ueberhaupt geprueft, wo laengs doch ausdruecklich abweichen DARF: +;; Am 2026-10-29 loeste ein Experiment den Schluss-Fueller gegen Richtung UND +;; Laenge und traf den Zielpunkt dadurch in X und Y exakt - um den Preis, dass +;; es die letzte Gerade um 6.15 Grad verdrehte (sichtbar schiefer Schenkel im +;; U-Form-Fall). quer und dZ waren dabei NULL, der Test meldete OK; gefunden +;; wurde der Fehler nur mit dem Auge in der Zeichnung. +;; laengs ist der Wert, der das verraet: ein verdrehter Hauptstrang zielt auf +;; den Endpunkt und drueckt laengs von ~638 mm auf ~0. Die Pruefung ist also +;; kein zweites Genauigkeitskriterium, sondern ein Formkriterium - sie stellt +;; sicher, dass der ES-Versatz noch da ist, wo er hingehoert. +(setq *tlz-m2-laengs-toleranz* 5.0) + +;; Wert als String - eigene Kopie statt hmrec:als-string aus +;; test_hm_recformat.lsp: diese Datei soll fuer sich allein ladbar bleiben. +(defun tlz-m2-str (v) + (cond ((null v) "") + ((= (type v) 'STR) v) + ((= (type v) 'INT) (itoa v)) + ((= (type v) 'REAL) (rtos v 2 6)) + (T (vl-princ-to-string v)))) + +;; Ein JSON-Record -> Journal-Eintrag (kind . wert), nil bei Metadaten-Zeile. +(defun tlz-m2-eintrag->journal (e / art) + (setq art (ssg-val e "art")) + (cond + ((null art) nil) + ((= art "PT") (cons "PT" (list (float (ssg-val e "x")) + (float (ssg-val e "y")) + (float (ssg-val e "z"))))) + ((= art "REAL") (cons "REAL" (float (ssg-val e "wert")))) + ((= art "INT") (cons "INT" (fix (ssg-val e "wert")))) + ;; SEGS traegt im Journal eine LISTE von Segment-Records, nicht den + ;; String - genau diese Umwandlung macht auch der XDATA-Decoder + ;; (vfl-journal-string->entry). Ohne sie bekommt vfl-in-segmente den + ;; Rohstring und der erste mapcar darauf stirbt (real 2026-10-27). + ((= art "SEGS") (cons "SEGS" (vfl-string->segs (tlz-m2-str (ssg-val e "wert"))))) + (T (cons art (tlz-m2-str (ssg-val e "wert")))))) + +;; Einen Modus-2-Fall abspielen. Rueckgabe: (status laengs quer dz offen). +(defun tlz-m2-run (json-datei test-id anzeige / + daten journal meta offen err status abw j + old-headless old-gui quer dz laengs + soll-laengs laengs-ok) + (if (or (not *lib-initialized*) (null bogen-auf)) (init-bibliothek)) + (princ (strcat "\n\n--- " anzeige " ---")) + ;; Vorbelegen, damit der Ergebnis-Record auch im Fehlerzweig Zahlen hat - + ;; sonst stirbt das abschliessende rtos an nil (real passiert 2026-10-27). + (setq laengs 0.0 quer 999.0 dz 999.0 offen 0 status "FEHLER") + (setq daten (ssg-load-json json-datei)) + (if (null daten) + (progn (princ (strcat "\n FEHLER: Testdaten fehlen: " json-datei)) + (setq status "FEHLER")) + (progn + (setq meta (car daten)) + (setq journal '()) + (foreach e daten + (setq j (tlz-m2-eintrag->journal e)) + (if j (setq journal (cons j journal)))) + (setq journal (reverse journal)) + (princ (strcat "\n Journal-Eintraege: " (itoa (length journal)))) + (if meta (princ (strcat "\n Szenario: " (ssg-val meta "kurz")))) + + (ssg-start anzeige '(("OSMODE") ("ATTREQ") ("ATTDIA"))) + (setvar "OSMODE" 0) (setvar "ATTREQ" 0) (setvar "ATTDIA" 0) + ;; GUI aus (keine Wizard-Dialoge) UND headless: eine erschoepfte + ;; Replay-Queue ist damit ein harter Abbruch MIT Fundstelle statt eines + ;; stillen Rueckfalls auf eine Live-Abfrage, die im Batch haengen wuerde. + (setq old-gui *ssg-gui-aus* old-headless *vfl-headless*) + (if (car (atoms-family 1 '("SSG-GUI-AUS"))) (ssg-gui-aus)) + (setq *vfl-headless* T *vfl-m2-abweichung* nil) + + (vfl-journal-replay-start journal) + (setq err (vl-catch-all-apply 'vf-linienzug-modus2 '())) + + (setq *vfl-headless* old-headless *ssg-gui-aus* old-gui) + (if (car (atoms-family 1 '("SSG-GUI-AN"))) (if (null old-gui) (ssg-gui-an))) + + (setq offen (length *vfl-replay-queue*)) + (setq abw (if (boundp '*vfl-m2-abweichung*) *vfl-m2-abweichung* nil)) + (setq laengs (if abw (car abw) 0.0) + quer (if abw (cadr abw) 999.0) + dz (if abw (caddr abw) 999.0)) + (cond + ((vl-catch-all-error-p err) + (setq status "FEHLER") + (princ (strcat "\n FEHLER: " (vl-catch-all-error-message err)))) + ((null abw) + (setq status "FEHLER") + (princ "\n FEHLER: keine Abweichung gemessen (Bau nicht beendet).")) + (T + (princ (strcat "\n laengs=" (rtos laengs 2 1) + " quer=" (rtos quer 2 1) + " dZ=" (rtos dz 2 1) " mm")) + (if (> offen 0) + (princ (strcat "\n WARNUNG: " (itoa offen) + " Journal-Eintraege NICHT verbraucht (Ablauf weicht ab)."))) + ;; laengs gegen den erwarteten ES-Versatz pruefen, sofern die + ;; Testdaten einen nennen (siehe *tlz-m2-laengs-toleranz*). + (setq soll-laengs (if meta (ssg-val meta "erwartung_laengs_mm") nil)) + (setq laengs-ok + (if (numberp soll-laengs) + (<= (abs (- laengs (float soll-laengs))) *tlz-m2-laengs-toleranz*) + T)) + (if (not laengs-ok) + (princ (strcat "\n WARNUNG: laengs " (rtos laengs 2 1) + " statt erwarteter " (rtos (float soll-laengs) 2 1) + " mm - der Hauptstrang zeigt nicht mehr in die" + " gezeichnete Richtung (ES-Versatz verschwunden?)."))) + (setq status + (if (and (<= (abs quer) *tlz-m2-toleranz*) + (<= (abs dz) *tlz-m2-toleranz*) + laengs-ok + (= offen 0)) + "OK" "ABWEICHUNG")) + (princ (strcat "\n -> " status + " (Soll: |quer| und |dZ| <= " (rtos *tlz-m2-toleranz* 2 1) + " mm, laengs = " + (if (numberp soll-laengs) + (strcat (rtos (float soll-laengs) 2 0) " +/- " + (rtos *tlz-m2-laengs-toleranz* 2 0) " mm") + "frei") + ")")))) + (ssg-end))) + (list status laengs quer dz offen)) + +;; Testfall-Tabelle: (Dateiname test-id Anzeigename). Ein weiterer Fall ist +;; damit EINE Zeile - der Ablauf darunter ist generisch. Reihenfolge = +;; Ausgabereihenfolge; die beiden Paare stehen bewusst beieinander. +(setq *tlz-m2-faelle* + (list + (list "linienzug_modus2_variokurve.json" "LZ_M2_variokurve" + "Variante A: Ecke = Vario-Kurve") + (list "linienzug_modus2_gfbogen.json" "LZ_M2_gfbogen" + "Variante B: Ecke = GF-Bogen") + (list "linienzug_modus2_uform_gf1.json" "LZ_M2_uform_gf1" + "U-Form 1: GF alles am Einlauf") + (list "linienzug_modus2_uform_halb.json" "LZ_M2_uform_halb" + "U-Form 2: GF 1/2 + 1/2") + (list "linienzug_modus2_uform_halb_steil.json" "LZ_M2_uform_halb_steil" + "U-Form 3: GF 1/2 + 1/2, steilere Winkel-Option"))) + +(defun c:TEST_LINIENZUG_MODUS2 ( / basis fall r erg zeilen anzahl-ok) + ;; Doppelte Backslashes: "\t" waere in AutoLISP ein TABULATOR, der Pfad + ;; wuerde zu "...dxfmakrosestsestdata" (real passiert 2026-10-27). + (setq basis (strcat (getenv "DXFMAKRO") "\\tests\\testdata\\")) + (princ "\n================================================================") + (princ (strcat "\n TEST_LINIENZUG_MODUS2 - " (itoa (length *tlz-m2-faelle*)) + " Ketten aus echten BricsCAD-Laeufen")) + (princ "\n================================================================") + (setq erg '() zeilen '() anzahl-ok 0) + (foreach fall *tlz-m2-faelle* + (setq r (tlz-m2-run (strcat basis (car fall)) (cadr fall) (caddr fall))) + (if (= (car r) "OK") (setq anzahl-ok (1+ anzahl-ok))) + (setq erg (cons (list (caddr fall) (car r)) erg)) + (setq zeilen + (cons (strcat " { \"test_id\": \"" (cadr fall) + "\", \"status\": \"" (car r) + "\", \"quer_mm\": " (rtos (caddr r) 2 2) + ", \"dz_mm\": " (rtos (cadddr r) 2 2) + ", \"laengs_mm\": " (rtos (cadr r) 2 2) " }") + zeilen))) + (setq erg (reverse erg) zeilen (reverse zeilen)) + (princ "\n\n================================================================") + (princ "\n ERGEBNIS") + (princ "\n----------------------------------------------------------------") + (foreach e erg + (princ (strcat "\n " (car e) ": " (cadr e)))) + (princ (strcat "\n----------------------------------------------------------------" + "\n " (itoa anzahl-ok) " von " (itoa (length *tlz-m2-faelle*)) + " OK")) + (princ "\n================================================================") + ;; Ergebnis fuer run-all (Konvention wie linienzug:export-results). + ;; ssg-join aus ssg_core - die Zeilen sind bereits fertige JSON-Objekte. + (setq *linienzug-m2-test-results* (ssg-join zeilen ",\n")) + (princ) +) 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_run_all.lsp b/tests/test_run_all.lsp index 69f2494..80d244e 100644 --- a/tests/test_run_all.lsp +++ b/tests/test_run_all.lsp @@ -69,7 +69,56 @@ ;; --- Hilfsfunktion: String-Wert aus JSON-Objekt-Zeile lesen --- ;; Sucht "key": "value" in obj-str und gibt value zurueck. ;; Rueckgabe: String (nicht leer) oder nil (key fehlt, null, leer). -(defun alltests:get-str (obj-str key / pat pos val-start val-end val) +;; ------------------------------------------------------------ +;; Laufprotokoll je Test (Debug-Schalter "testlauf", Standard EIN) +;; ------------------------------------------------------------ +;; DXFM_LOG/testlauf_.dbg - eine Datei je Test, bei jedem Lauf neu. +;; Bewusst NICHT ueber dbgopen/*dbg-path*: die getesteten Module oeffnen und +;; schliessen dort ihre eigenen .dbg-Dateien (vfl_modus1.dbg ...) und wuerden +;; das Protokoll mitten im Test umlenken. Jede Zeile wird SOFORT angehaengt +;; (kein Puffer) - haengt ein Test, steht der letzte erreichte Schritt drin. +(if (not (boundp '*testrun-log*)) (setq *testrun-log* nil)) + +(defun testrun:log-start (name / dir fh) + (setq *testrun-log* nil) + (if (and (car (atoms-family 1 '("DBG-SCHALTER-P"))) (dbg-schalter-p "testlauf")) + (progn + (setq dir (cond ((getenv "DXFM_LOG")) ((strcat (getenv "DXFMAKRO") "/logs")))) + (vl-mkdir dir) + (setq *testrun-log* (strcat dir "/testlauf_" name ".dbg")) + (if (setq fh (open *testrun-log* "w")) + (progn (write-line (strcat "=== TESTLAUF " name " ===") fh) (close fh)) + (setq *testrun-log* nil)))) + *testrun-log*) + +(defun testrun:log (text / fh) + (if (and *testrun-log* (setq fh (open *testrun-log* "a"))) + (progn + (write-line (strcat (if (car (atoms-family 1 '("DBG-TIMESTAMP"))) (dbg-timestamp) "") + " " text) + fh) + (close fh))) + (princ)) + +;; Schalter, die in einem Testlauf eine Rueckfrage ausloesen koennen. +(defun testrun:zustand () + (strcat "GUI=" (if (and (boundp '*ssg-gui-aus*) *ssg-gui-aus*) "aus" "AN") + " hoehencheck-fragen=" (vl-princ-to-string (if (boundp '*csv-hoehencheck-fragen*) *csv-hoehencheck-fragen*)) + " bereinigen=" (vl-princ-to-string (if (boundp '*csv-bereinigen-vor-export*) *csv-bereinigen-vor-export*)) + " wizard=" (vl-princ-to-string (if (boundp '*vfl-wizard-mode*) *vfl-wizard-mode*)) + " DWGNAME=" (getvar "DWGNAME"))) + +;; Dateiname ohne fuehrenden Praefix (sonst unveraendert). Gegenstueck zu +;; export:dwg-praefix, den der Export selbst vor den Namen setzt. +(defun testrun:ohne-praefix (dateiname praefix) + (if (and praefix + (/= praefix "") + (> (strlen dateiname) (strlen praefix)) + (= (strcase (substr dateiname 1 (strlen praefix))) (strcase praefix))) + (substr dateiname (1+ (strlen praefix))) + dateiname)) + +(defun alltests:get-str(obj-str key / pat pos val-start val-end val) (setq pat (strcat "\"" key "\": \"")) (setq pos (vl-string-search pat obj-str)) (if pos @@ -151,7 +200,8 @@ namen befehl datei export-fn new-doc out-path dwg-pfad dxf-pfad old-json test-result old-filenames csv-name sivas-name csv-pfad - sivas-pfad csv-ok sivas-ok old-filedia) + sivas-pfad csv-ok sivas-ok old-filedia + praefix old-hoehencheck old-bereinigen) (setq tests-pfad (strcat (getenv "DXFMAKRO") "/tests")) (setq tests-out-dir (strcat tests-pfad "/output")) @@ -209,6 +259,13 @@ ;; oeffnet DCL-/Wizard-Dialoge, die den automatischen Lauf blockieren wuerden. ;; Am Ende wieder einschalten. Siehe ssg-gui-aus/-an in ssg_core.lsp. (if (car (atoms-family 1 '("SSG-GUI-AUS"))) (ssg-gui-aus)) + ;; Rueckfragen des Exports (export.lsp) fuer den ganzen Lauf abschalten - + ;; zusaetzlich zur GUI-Sperre, damit auch ein Test, der die GUI wieder + ;; einschaltet, den Export nicht anhalten kann. + (setq old-hoehencheck (if (boundp '*csv-hoehencheck-fragen*) *csv-hoehencheck-fragen*) + old-bereinigen (if (boundp '*csv-bereinigen-vor-export*) *csv-bereinigen-vor-export*)) + (setq *csv-hoehencheck-fragen* nil + *csv-bereinigen-vor-export* 'aus) ;; Tests laden und ausfuehren ;; Jeder Test bekommt eine eigene neue Zeichnung (statt die aktuelle @@ -261,11 +318,25 @@ (setq modelspace (vla-get-modelspace new-doc)) ;; Block-Library-Flag zuruecksetzen (Bloecke sind pro Zeichnung neu zu laden) (setq *lib-initialized* nil) + ;; Nummernzaehler zuruecksetzen: der Lauf bleibt im LISP-Namensraum des + ;; Startdokuments, die Zaehler (max aus Zeichnung UND Zaehler, +1) liefen + ;; sonst ueber alle Tests weiter - VF_5/Kreisel12 statt VF_1/Kreisel1 in + ;; einer frischen Zeichnung, die Namen hingen damit von der + ;; Testreihenfolge ab und jeder Referenz-Diff wurde unruhig. + (setq #VF_LetzteNr 0 #GF_LetzteNr 0 #Kreisel_LetzteNr 0 #Eckrad_LetzteNr 0) + + (testrun:log-start name) + (testrun:log (strcat "Test " (itoa idx) "/" (itoa anz) ": " befehl + " Modul=" (if module module "-") + " save=" (if save-fmt save-fmt "-") + " Modus=" (if auto-export "Automatik" "Kontrolle"))) + (testrun:log (strcat "Vor Test: " (testrun:zustand))) (if (findfile datei) (progn (load datei) ;; Test mit Fehlerbehandlung ausfuehren + (testrun:log (strcat "Starte " befehl)) (setq test-result (vl-catch-all-apply '(lambda () @@ -275,12 +346,18 @@ ) ) (if (vl-catch-all-error-p test-result) - (princ (strcat "\n FEHLER in " befehl ": " - (vl-catch-all-error-message test-result))) - ) + (progn + (princ (strcat "\n FEHLER in " befehl ": " + (vl-catch-all-error-message test-result))) + (testrun:log (strcat "FEHLER in " befehl ": " + (vl-catch-all-error-message test-result)))) + (testrun:log (strcat befehl " beendet"))) + (testrun:log (strcat "Nach Test: " (testrun:zustand))) ;; JSON-Export (immer) (apply export-fn (list tests-out-dir)) + (testrun:log (strcat "Ergebnis-JSON " name "_results.json: " + (if (findfile old-json) "vorhanden" "FEHLT"))) (setq out-path (strcat tests-out-dir "/" name "_tests")) @@ -328,31 +405,59 @@ ;; Nur die beiden CSV-Namen ersetzen, alle uebrigen Keys ;; (z.B. kreisel_weichen_datei) unveraendert uebernehmen - ;; eine hart nachgebaute Liste verliert sonst neue Keys. + ;; Nach vla-saveas (save "dwg") ist die Zeichnung benannt + ;; (DWGTITLED=1, DWGNAME=_tests.dwg), und der Export + ;; setzt selbst "_tests_" davor (export:dwg-praefix). + ;; Diesen Praefix hier abziehen, sonst entsteht + ;; "_tests__tests_export.csv" und das Warten auf + ;; csv-pfad laeuft ins Timeout. DXFOUT benennt die Zeichnung + ;; nicht um -> Praefix leer, Name bleibt vollstaendig. + (setq praefix (export:dwg-praefix)) (setq old-filenames *export-filenames*) (setq *export-filenames* (mapcar '(lambda (p) - (cond ((= (car p) "sivas_csv") (cons "sivas_csv" sivas-name)) - ((= (car p) "csv_csv") (cons "csv_csv" csv-name)) + (cond ((= (car p) "sivas_csv") + (cons "sivas_csv" (testrun:ohne-praefix sivas-name praefix))) + ((= (car p) "csv_csv") + (cons "csv_csv" (testrun:ohne-praefix csv-name praefix))) (T p))) old-filenames)) + ;; Unmittelbar vor dem Export erneut erzwingen: export.lsp setzt + ;; *csv-hoehencheck-fragen* beim (Nach-)Laden von nil auf T, und + ;; ein Test kann die GUI wieder eingeschaltet haben. + (if (not (and (boundp '*ssg-gui-aus*) *ssg-gui-aus*)) + (progn + (testrun:log "WARNUNG: GUI war nach dem Test wieder AN - fuer den Export abgeschaltet") + (princ "\n WARNUNG: GUI war nach dem Test wieder an - abgeschaltet.") + (ssg-gui-aus))) + (setq *csv-hoehencheck-fragen* nil + *csv-bereinigen-vor-export* 'aus) + (testrun:log (strcat "Vor Export: " (testrun:zustand))) + (princ (strcat "\n CSV-Export -> " csv-name)) + (testrun:log (strcat "EXPORTCSV -> " csv-pfad)) (c:EXPORTCSV) (setq csv-ok (testrun:wait-for-file csv-pfad 30.0)) (princ (if csv-ok "\n CSV OK" "\n CSV TIMEOUT/FEHLER")) + (testrun:log (if csv-ok "EXPORTCSV OK" "EXPORTCSV TIMEOUT/FEHLER - Datei nicht entstanden")) (princ (strcat "\n Sivas-Export -> " sivas-name)) + (testrun:log (strcat "EXPORTSIVAS -> " sivas-pfad)) (c:EXPORTSIVAS) (setq sivas-ok (testrun:wait-for-file sivas-pfad 30.0)) (princ (if sivas-ok "\n Sivas OK" "\n Sivas TIMEOUT/FEHLER")) + (testrun:log (if sivas-ok "EXPORTSIVAS OK" "EXPORTSIVAS TIMEOUT/FEHLER - Datei nicht entstanden")) (setq *export-filenames* old-filenames) ;; Zeichnung schliessen: der urspruenglich schon offene Tab ;; bleibt unangetastet, BricsCAD erzeugt daher kein neues ;; Blank-Dokument samt Modul-/Menue-Reload. + (testrun:log "Zeichnung schliessen") (vla-close new-doc :vlax-false) + (testrun:log "Test fertig") ) ;; ========================================================== @@ -414,7 +519,9 @@ ) ) ) - (princ (strcat "\n WARNUNG: " datei " nicht gefunden - uebersprungen")) + (progn + (princ (strcat "\n WARNUNG: " datei " nicht gefunden - uebersprungen")) + (testrun:log (strcat "WARNUNG: " datei " nicht gefunden - uebersprungen"))) ) ) ;; end (progn ...) des aktiven Zweigs ) ;; end (if (cdr (assoc "disabled" entry)) ...) @@ -422,6 +529,10 @@ ;; GUI wieder einschalten (Batch fertig). (if (car (atoms-family 1 '("SSG-GUI-AN"))) (ssg-gui-an)) + ;; nil = "nie gesetzt" (export.lsp belegt dann mit der Vorgabe vor) + (setq *csv-hoehencheck-fragen* (if old-hoehencheck old-hoehencheck T) + *csv-bereinigen-vor-export* (if old-bereinigen old-bereinigen 'an)) + (setq *testrun-log* nil) (setq *export-test-override* nil) diff --git a/tests/test_unit.lsp b/tests/test_unit.lsp index 6998874..183b1be 100644 --- a/tests/test_unit.lsp +++ b/tests/test_unit.lsp @@ -399,6 +399,342 @@ ) +;; ------------------------------------------------------------ +;; 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 _ez _plan2) + (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)) + + ;; --- Eck-Korrektur: gezeichneter Bogen gegen Eck-Bauteil --- + ;; Die Ecke des Pfads wird durch ein reales Bauteil ersetzt, dessen + ;; Fussabdruck abweichen darf. Die Differenz wird auf die Richtungen der + ;; beiden angrenzenden Geraden zerlegt. Werte aus dem echten Lauf vom + ;; 2026-10-26: 90-Grad-Ecke, Pfad R500 (Sehne 707.1 -> 500/-500), gebaute + ;; Vario-Kurve wirkt wie R406.2 -> je 93.78 mm auf beide Nachbargeraden. + (setq _ez (vfl-eck-zerlegen 500.0 -500.0 406.22 -406.22 (- (/ pi 2.0)))) + (tu-eqf "vfl-eck-zerlegen/90-grad-davor" 93.78 (car _ez)) + (tu-eqf "vfl-eck-zerlegen/90-grad-danach" 93.78 (cadr _ez)) + ;; 30-Grad-Ecke links, Gefaellebogen R500 trifft den Pfad fast exakt: + ;; nur 0.85 mm, und zwar ausschliesslich auf der Geraden DAVOR. + (setq _ez (vfl-eck-zerlegen 250.0 66.99 249.15 66.99 (/ pi 6.0))) + (tu-eqf "vfl-eck-zerlegen/30-grad-davor" 0.85 (car _ez)) + (tu-eqf "vfl-eck-zerlegen/30-grad-danach" 0.0 (cadr _ez)) + ;; Deckungsgleiches Bauteil -> kein Zuschlag auf keiner Seite. + (setq _ez (vfl-eck-zerlegen 500.0 -500.0 500.0 -500.0 (- (/ pi 2.0)))) + (tu-eqf "vfl-eck-zerlegen/gleich-davor" 0.0 (car _ez)) + (tu-eqf "vfl-eck-zerlegen/gleich-danach" 0.0 (cadr _ez)) + ;; Ohne Schwenk ist die Zerlegung nicht eindeutig - nil statt Division durch 0. + (tu-nil "vfl-eck-zerlegen/ohne-schwenk" + (vfl-eck-zerlegen 100.0 0.0 90.0 0.0 0.0)) + ;; GF-Boegen werden GENEIGT eingebaut: ihr Grundriss-Fussabdruck ist kuerzer + ;; als flach gemessen, und genau diese Differenz muss in die Eck-Korrektur. + ;; Werte aus dem echten Lauf 2026-10-26: Gefaellebogen_rechts_90_R500 flach + ;; dx=500 dz=-28.6, bei 3 Grad eingebaut 497.8 - die 2.2 mm blieben vorher + ;; als Rest am Kettenende stehen. Negatives dz muss dabei VERKUERZEN. + (tu-eqf "vfl-projiziere-neigung/gf-bogen-3-grad" + (- (* 500.0 (cos (* 3.0 (/ pi 180.0)))) + (* 28.6 (sin (* 3.0 (/ pi 180.0))))) + (car (vfl-projiziere-neigung 500.0 -28.6 3.0))) + (tu-true "vfl-projiziere-neigung/gf-bogen-kuerzer-als-flach" + (< (car (vfl-projiziere-neigung 500.0 -28.6 3.0)) 500.0)) + ;; Waagerecht eingebaut (Vario-Kurve) bleibt der Fussabdruck unveraendert. + (tu-eqf "vfl-projiziere-neigung/waagerecht" 500.0 + (car (vfl-projiziere-neigung 500.0 -28.6 0.0))) + + ;; --- Bau-Funktion aus dem Journal ableiten (vf_spec.lsp) --- + ;; vsp-bau-journal waehlt die Modus-Funktion anhand des Journals, statt sie + ;; als zusaetzliches Argument zu bekommen (exakte Argumentzahl, siehe + ;; CLAUDE.md). Kein SEGS = Modus 1; SEGS mit der Formatmarke "m2v2" = + ;; Modus 2 (nur vf-linienzug-modus2 schreibt sie); SEGS ohne = Modus 3. + (tu-true "vsp-bau-fn/ohne-segs-ist-modus1" + (eq (vsp-bau-fn-fuer-journal + (list (cons "PT" '(0.0 0.0 0.0)) (cons "STR" "1"))) + 'vf-linienzug-modus)) + (tu-true "vsp-bau-fn/segs-mit-marke-ist-modus2" + (eq (vsp-bau-fn-fuer-journal + (list (cons "PT" '(0.0 0.0 0.0)) (cons "SEGS" '(("Linie"))) + (cons "STR" "m2v2") (cons "STR" "2"))) + 'vf-linienzug-modus2)) + (tu-true "vsp-bau-fn/segs-ohne-marke-ist-modus3" + (eq (vsp-bau-fn-fuer-journal + (list (cons "PT" '(0.0 0.0 0.0)) (cons "SEGS" '(("Linie"))) + (cons "STR" "2"))) + 'vf-linienzug-modus3)) + ;; Die Marke zaehlt nur als STR-Eintrag - ein gleichlautender Wert in einem + ;; anderen Eintragstyp darf nicht faelschlich auf Modus 2 schliessen lassen. + (tu-true "vsp-bau-fn/marke-nur-als-str" + (eq (vsp-bau-fn-fuer-journal + (list (cons "SEGS" '(("Linie"))) (cons "INT" "m2v2"))) + 'vf-linienzug-modus3)) + + ;; --- Segment-Klassifizierung: Wert statt Menue-Ziffer --- + ;; Gemeinsamer Normalisierer fuer alle selbstbeschreibenden Antworten. + ;; Bestandsketten tragen die Alt-Ziffer, neue Ketten den Wert; beide Mengen + ;; sind disjunkt. Unbekanntes gibt nil - der Aufrufer bricht dann ab. + (foreach _p *vfl-m2-linie-alt* + (tu-eq (strcat "vfl-wert-norm/linie-alt-" (car _p)) (cdr _p) + (vfl-wert-norm (car _p) *vfl-m2-linie-werte* *vfl-m2-linie-alt*))) + (foreach _p *vfl-m2-bogen-alt* + (tu-eq (strcat "vfl-wert-norm/bogen-alt-" (car _p)) (cdr _p) + (vfl-wert-norm (car _p) *vfl-m2-bogen-werte* *vfl-m2-bogen-alt*))) + (foreach _p *vfl-m2-variante-alt* + (tu-eq (strcat "vfl-wert-norm/variante-alt-" (car _p)) (cdr _p) + (vfl-wert-norm (car _p) *vfl-m2-variante-werte* *vfl-m2-variante-alt*))) + ;; Neue Werte gehen unveraendert durch. + (foreach _w *vfl-m2-bogen-werte* + (tu-eq (strcat "vfl-wert-norm/bogen-neu-" _w) _w + (vfl-wert-norm _w *vfl-m2-bogen-werte* *vfl-m2-bogen-alt*))) + ;; Jeder Alt-Zielwert muss ein gueltiger heutiger Wert sein, sonst laeuft + ;; eine Bestandskette in den Unbekannt-Abbruch. + (foreach _p *vfl-m2-linie-alt* + (tu-true (strcat "vfl-wert-norm/linie-ziel-gueltig-" (car _p)) + (and (member (cdr _p) *vfl-m2-linie-werte*) t))) + ;; Typ und Variante benutzten frueher BEIDE "1"/"2" und waren im Journal + ;; nicht zu unterscheiden - die neuen Wertevorraete muessen disjunkt sein. + (tu-nil "vfl-wert-norm/bogen-und-variante-disjunkt" + (vl-some (function (lambda (w) (if (member w *vfl-m2-variante-werte*) w))) + *vfl-m2-bogen-werte*)) + (tu-nil "vfl-wert-norm/unbekannt-gibt-nil" + (vfl-wert-norm "3" *vfl-m2-linie-werte* *vfl-m2-linie-alt*)) + (tu-nil "vfl-wert-norm/kein-string" + (vfl-wert-norm 1 *vfl-m2-linie-werte* *vfl-m2-linie-alt*)) + + ;; --- Gefalteter VF-Lauf erkennen (Schenkel = Fahrtrichtungen) --- + ;; Der Modus-2-Solver bilanziert skalar ueber EINE Achse. Liegt der Lauf + ;; gefaltet (U-Form), sitzen die festen Teile in einem anderen Schenkel als + ;; die Kletterstrecke und die Kette wird sichtbar falsch gebaut. Bis die + ;; Bilanz achsenweise rechnet, wird so ein Lauf abgewiesen - diese + ;; Erkennung entscheidet darueber. + ;; Plan-Eintraege: Linie = ("Linie" hz laenge typ ...), Bogen = ("Bogen" hz ...) + (setq _plan2 (list (list "Linie" 0.0 9700.0 "VF" nil) + (list "Bogen" 0.0 707.1 90 "rechts" "Vario-Kurve" "aussen") + (list "Linie" -90.0 4296.0 "VF" nil))) + (tu-eq "vfl-m2-schenkel/u-form-zwei-richtungen" 2 + (length (vfl-m2-schenkel _plan2 0 2))) + (tu-true "vfl-m2-gefaltet/u-form" (vfl-m2-gefaltet-p _plan2 0 2)) + ;; Gerader Lauf: eine Richtung, auch ueber mehrere Geraden hinweg. + (setq _plan2 (list (list "Linie" 0.0 9700.0 "VF" nil) + (list "Linie" 0.0 2000.0 "VF" nil))) + (tu-eq "vfl-m2-schenkel/gerade-eine-richtung" 1 + (length (vfl-m2-schenkel _plan2 0 1))) + (tu-nil "vfl-m2-gefaltet/gerade" (vfl-m2-gefaltet-p _plan2 0 1)) + ;; Zurueck auf dieselbe Richtung zaehlt als NEUER Schenkel - die Kette ist + ;; dann seitlich versetzt, die Laengen liegen nicht mehr auf einer Linie. + (setq _plan2 (list (list "Linie" 0.0 3000.0 "VF" nil) + (list "Bogen" 0.0 707.1 90 "rechts" "Vario-Kurve" "aussen") + (list "Linie" -90.0 1000.0 "VF" nil) + (list "Bogen" -90.0 707.1 90 "links" "Vario-Kurve" "aussen") + (list "Linie" 0.0 3000.0 "VF" nil))) + (tu-eq "vfl-m2-schenkel/u-form-drei" 3 + (length (vfl-m2-schenkel _plan2 0 4))) + ;; Winkel werden normalisiert: 270 und -90 sind dieselbe Richtung. + (setq _plan2 (list (list "Linie" -90.0 1000.0 "VF" nil) + (list "Linie" 270.0 1000.0 "VF" nil))) + (tu-eq "vfl-m2-schenkel/270-gleich-minus90" 1 + (length (vfl-m2-schenkel _plan2 0 1))) + + ;; --- Eingangs-Hardware auf einem Fueller-Segment --- + ;; Steht der Lauf-Eingang (GF1 + Separator + Umlenkstation + Bogen) auf + ;; einem FUELLER, muss dessen Laenge abgezogen werden - sonst bekommt der + ;; Fueller die volle Restlaenge, als staende dort nichts (real 2026-10-27: + ;; 5855 mm Plan, 10668 mm belegt, Kette 8005 mm daneben). + ;; Ist das Eingangs-Segment selbst der Kletterer, steckt dieselbe Laenge + ;; schon in feste-vf - dann MUSS der Abzug 0 sein, sonst doppelt. + (tu-eqf "vfl-m2-eingang-fp/kletterer-kein-abzug" 0.0 + (vfl-m2-eingang-fp 0 0 '(0) 3726.34 (* 3.0 (/ pi 180.0)))) + ;; Anderes Segment als der Eingang: ebenfalls nichts. + (tu-eqf "vfl-m2-eingang-fp/fremdes-segment" 0.0 + (vfl-m2-eingang-fp 2 0 '(2) 3726.34 (* 3.0 (/ pi 180.0)))) + ;; Eingang ist Fueller (Kletterer liegt woanders): GF1 + 300 + 500, + ;; projiziert auf 3 Grad, plus der Uebergangsbogen aus der Tabelle. + ;; Die DIFFERENZ zweier Aufrufe prueft den GF-Anteil exakt und kommt ohne + ;; die Bogen-Tabelle aus - die ist im file-freien Unit-Test leer + ;; (init-bibliothek laeuft hier nicht), der Bogenanteil faellt also weg. + ;; Eine absolute Schranke waere dadurch umgebungsabhaengig gewesen. + (tu-eqf "vfl-m2-eingang-fp/gf-anteil-exakt" + (* 3726.34 (cos (* 3.0 (/ pi 180.0)))) + (- (vfl-m2-eingang-fp 0 0 '(2) 3726.34 (* 3.0 (/ pi 180.0))) + (vfl-m2-eingang-fp 0 0 '(2) 0.0 (* 3.0 (/ pi 180.0))))) + ;; Separator + Umlenkstation sind IMMER dabei, auch ohne GF und ohne Tabelle. + (setq _l (vfl-m2-eingang-fp 0 0 '(2) 0.0 (* 3.0 (/ pi 180.0)))) + (tu-true "vfl-m2-eingang-fp/stationen-immer-dabei" + (>= _l (* (+ *vfk-separator-laenge* *vfk-stations-laenge*) + (cos (* 3.0 (/ pi 180.0)))))) + + ;; --- Fremdanteil der Gefaellestrecke (fuer den stillen Nachrechner) --- + ;; Wieviel der vom Solver berechneten GF liegt NICHT auf dem Schenkel des + ;; Kletterers? Nur das darf dessen Spanne wieder zugeschlagen werden. + ;; Liegt der Eingang auf dem Kletterer selbst (gerader Normalfall), ist + ;; nichts fremd - dann MUSS 0 herauskommen, sonst wuerde der funktionierende + ;; Fall veraendert. + (tu-eqf "vfl-m2-gf-fremd/eingang-ist-kletterer" 0.0 + (vfl-m2-gf-fremdanteil 3726.34 1 T)) + (tu-eqf "vfl-m2-gf-fremd/alles-einlauf" 3726.34 + (vfl-m2-gf-fremdanteil 3726.34 1 nil)) + (tu-eqf "vfl-m2-gf-fremd/halb-halb" 1863.17 + (vfl-m2-gf-fremdanteil 3726.34 2 nil)) + ;; Alles am Auslauf (Modus 3, erzwungen bei offenem Anfang): die GF liegt + ;; dann beim Kletterer, nichts ist fremd. + (tu-eqf "vfl-m2-gf-fremd/alles-auslauf" 0.0 + (vfl-m2-gf-fremdanteil 3726.34 3 nil)) + + ;; --- ES-Reservierung auf die KS_AUS-Achse --- + ;; Vorgabe: quer zur KS_AUS-Achse MUSS 0 sein, laengs darf abweichen. + ;; Der reine Laengsanteil reicht dafuer NICHT - er laesst den bauteileigenen + ;; Querversatz stehen. Werte aus dem echten Lauf 2026-10-26: + ;; ES_Element_30_rechts an einer Geraden mit hz=-60, Schwenk -30 Grad, + ;; Fussabdruck (laengs 575.84 | quer -52.54). Reserve 484.8 statt 575.8 - + ;; die Gerade wird also rund 91 mm laenger und hebt den Querversatz auf. + (tu-eqf "vfl-es-achs-reserve/echt-30-grad" 484.838050570331 + (vfl-es-achs-reserve 575.84 -52.54 -60.0 -30.0)) + ;; Ohne Querversatz bleibt es beim reinen Laengsanteil. + (tu-eqf "vfl-es-achs-reserve/ohne-quer" 500.0 + (vfl-es-achs-reserve 500.0 0.0 -60.0 -30.0)) + ;; Ohne Schwenk faellt die Achse mit der Fahrtrichtung zusammen - dann gibt + ;; es keinen aufhebbaren Querversatz und der Laengsanteil ist richtig + ;; (Nenner 0, Rueckfall statt Division durch null). + (tu-eqf "vfl-es-achs-reserve/ohne-schwenk" 575.84 + (vfl-es-achs-reserve 575.84 -52.54 -60.0 0.0)) + ;; Richtungsunabhaengig: dieselbe Geometrie um 90 Grad gedreht gibt + ;; denselben Wert - die Reserve haengt an den Winkeln zueinander, nicht + ;; an der Lage im Welt-KS. + (tu-eqf "vfl-es-achs-reserve/gedreht" 484.838050570331 + (vfl-es-achs-reserve 575.84 -52.54 30.0 -30.0)) + + ;; --- 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 +782,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) ) @@ -2278,6 +2694,349 @@ ) ) +;; ------------------------------------------------------------ +;; 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)) + ;; Jeder Tag darf nur EINMAL vorkommen (zwei ATTDEFs gleichen Tags waeren + ;; im Block ungueltig, ssg-attrib-set-on traefe nur den ersten). + (setq _s 0) + (foreach _d _defs (if (= (car _d) "FOERDERERTYP") (setq _s (1+ _s)))) + (tu-eq "kf-attrib-defs/FOERDERERTYP-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) + (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")) + ) + ) +) + + +;; ------------------------------------------------------------ +;; TESTS: check_hoehen.lsp - Phase 3 (Buehnen-Familien), reine Kerne +;; ------------------------------------------------------------ +(defun tu-tests-hoehen-fam ( / _els) + (princ "\n[check_hoehen/Phase 3 Familien]") + + ;; --- ch-familien: transitive Verbindung, Sortierung nach ID-Nummer --- + (tu-eq "ch-familien/einzeln-und-kette" + '(("b") ("c" "a" "d") ("e")) + (ch-familien '(("a" 3) ("b" 1) ("c" 2) ("d" 5) ("e" 4)) + '(("a" "c") ("c" "d") ("x" "a")))) + (tu-eq "ch-familien/kette-ueber-mittleren" + '(("a" "b" "c")) + (ch-familien '(("a" 1) ("b" 2) ("c" 3)) '(("a" "b") ("b" "c")))) + (tu-eq "ch-familien/ohne-kanten" + '(("a") ("b")) + (ch-familien '(("a" 1) ("b" 2)) nil)) + (tu-eq "ch-familien/ring" + '(("a" "b" "c")) + (ch-familien '(("a" 1) ("b" 2) ("c" 3)) '(("a" "b") ("b" "c") ("c" "a")))) + + ;; --- ch-kreuz-abzug --- + (tu-eq "ch-kreuz-abzug/kein" '("kein" . 0.0) (ch-kreuz-abzug 0.0 0.0 5000.0 5000.0 1500.0)) + (tu-eq "ch-kreuz-abzug/konflikt" '("konflikt" . 0.0) (ch-kreuz-abzug 1.5 0.0 5000.0 5000.0 1500.0)) + (tu-eq "ch-kreuz-abzug/konflikt2" '("konflikt" . 0.0) (ch-kreuz-abzug 1.5 2.0 5000.0 5000.0 1500.0)) + (tu-eq "ch-kreuz-abzug/hoehe" '("hoehe" . 0.0) (ch-kreuz-abzug 1.5 1.5 5000.0 6600.0 1500.0)) + (tu-eq "ch-kreuz-abzug/grenze" '("abzug" . 1.5) (ch-kreuz-abzug 1.5 1.5 5000.0 6500.0 1500.0)) + (tu-eq "ch-kreuz-abzug/abzug" '("abzug" . 1.5) (ch-kreuz-abzug 1.5 1.5 5000.0 5200.0 1500.0)) + + ;; --- ch-strecke-abzug (Familiensaetze: idx handles z b) --- + (tu-eq "ch-strecke-abzug/innen" + '("innen" . 1.5) + (ch-strecke-abzug '(1 ("a") 5000.0 1.5) '(1 ("a") 5000.0 1.5) 1500.0)) + (tu-eq "ch-strecke-abzug/innen-ohne-buehne" + '("innen" . 0.0) + (ch-strecke-abzug '(1 ("a") 5000.0 0.0) '(1 ("a") 5000.0 0.0) 1500.0)) + (tu-eq "ch-strecke-abzug/zwischen" + '("abzug" . 1.5) + (ch-strecke-abzug '(1 ("a") 5000.0 1.5) '(2 ("b") 5400.0 1.5) 1500.0)) + + ;; --- ch-schleife-p: gleicher Kreisel + gleiche Hoehe --- + (tu-true "ch-schleife-p/gleicher-kreisel-flach" (ch-schleife-p "K1" "K1" 5000.0 5000.0 1.0)) + (tu-true "ch-schleife-p/toleranz" (ch-schleife-p "K1" "K1" 5000.0 5000.8 1.0)) + (tu-nil "ch-schleife-p/hoehenunterschied" (ch-schleife-p "K1" "K1" 5000.0 4800.0 1.0)) + (tu-nil "ch-schleife-p/anderer-kreisel" (ch-schleife-p "K1" "K2" 5000.0 5000.0 1.0)) + (tu-nil "ch-schleife-p/kein-kreisel" (ch-schleife-p nil nil 5000.0 5000.0 1.0)) + + ;; --- ch-abzug-anwenden --- + (tu-eqf "ch-abzug-anwenden/normal" 2.5 (ch-abzug-anwenden 3.5 1.0)) + (tu-nil "ch-abzug-anwenden/gleich" (ch-abzug-anwenden 3.5 3.5)) + (tu-nil "ch-abzug-anwenden/groesser" (ch-abzug-anwenden 3.5 4.0)) + (tu-nil "ch-abzug-anwenden/null" (ch-abzug-anwenden 3.5 0.0)) + + ;; --- ch-kreisel-finden: Kreisel r=400, Achse (400,0)-(2400,0) bzw. (400,5000)-(2400,5000) --- + (setq _els (list (tu-bp-el "KREISEL" 0.0 0.0 5000.0 0.0 2000.0 "K1") + (tu-bp-el "KREISEL" 0.0 5000.0 5000.0 0.0 2000.0 "K2"))) + (tu-eq "ch-kreisel-finden/auf-achse" + "K1" (ch-kreisel-finden '(1000.0 100.0 5000.0) 5000.0 _els 300.0 100.0)) + (tu-eq "ch-kreisel-finden/zweiter" + "K2" (ch-kreisel-finden '(1000.0 4900.0 5000.0) 5000.0 _els 300.0 100.0)) + (tu-eq "ch-kreisel-finden/hinter-dem-rad" + "K1" (ch-kreisel-finden '(-200.0 0.0 5000.0) 5000.0 _els 300.0 100.0)) + (tu-nil "ch-kreisel-finden/zu-weit" + (ch-kreisel-finden '(1000.0 1000.0 5000.0) 5000.0 _els 300.0 100.0)) + (tu-nil "ch-kreisel-finden/falsche-hoehe" + (ch-kreisel-finden '(1000.0 0.0 5300.0) 5300.0 _els 300.0 100.0)) +) + + + ;; ------------------------------------------------------------ ;; TESTS: ssg_core.lsp - Polygon-Helfer (reine 2D-Berechnung) ;; ------------------------------------------------------------ @@ -2720,11 +3479,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-poly" "tu-tests-lager") + "tu-tests-werkzeuge" "tu-tests-poly" "tu-tests-lager" "tu-tests-kf" "tu-tests-hoehen-fam") (tu-run-block fn)) (princ "\n\n----------------------------------------------------------------") diff --git a/tests/test_unit.scr b/tests/test_unit.scr index 8660b4d..d9dca44 100644 --- a/tests/test_unit.scr +++ b/tests/test_unit.scr @@ -10,6 +10,8 @@ ; 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 "DXFM_LISP") "/check_hoehen.lsp") "check_hoehen.lsp nicht gefunden") (load (strcat (getenv "DXFMAKRO") "/tests/test_unit.lsp")) (c:TEST_UNIT) (command "_.QUIT") diff --git a/tests/test_vf_headless_statisch.py b/tests/test_vf_headless_statisch.py index 60419fe..d17468b 100644 --- a/tests/test_vf_headless_statisch.py +++ b/tests/test_vf_headless_statisch.py @@ -175,10 +175,12 @@ EINGABE_ERLAUBT = { "vfl-in-selection": {"ssget": 1}, "vfl-in-segmente": {"ssget": 1}, # Modus-3-Wrapper: Live-Auswahl -> Segment-Essenz (SEGS), Replay aus Journal "vfl-winkel-live": {"getint": 1}, # livefn fuer vfl-in-value + "vfl-menu-strwert": {"getstring": 1}, # livefn fuer vfl-in-value (Wert statt Index) # --- Wizard-Schicht (DCL); bei ssg-gui-aus greift sie nicht --- "vflw-zahl": {"getreal": 1}, # Fallback ohne Dialog "vflw-zahl-impl": {"new_dialog": 1}, "vflw-wahl-impl": {"new_dialog": 1}, + "vflw-radio-wahl-impl": {"new_dialog": 1}, "vflw-gruppe-as-impl": {"new_dialog": 1}, "vflw-gruppe-gefaelle-impl": {"new_dialog": 1}, "vflw-gruppe-punkt-hoehe-impl": {"new_dialog": 1}, diff --git a/tests/testdata/linienzug_modus2_gfbogen.json b/tests/testdata/linienzug_modus2_gfbogen.json new file mode 100644 index 0000000..b602980 --- /dev/null +++ b/tests/testdata/linienzug_modus2_gfbogen.json @@ -0,0 +1,119 @@ +[ + { + "beschreibung": "Linienzug Modus 2, Variante B: 90-Grad-Ecke als GF-BOGEN (geneigt eingebaut). Deckt die Neigungs-Projektion der Eck-Korrektur ab (vfl-projiziere-neigung) und den Zweig OHNE flache Zone, in dem der ES-Fussabdruck frueher faelschlich vom VF-Lauf abgezogen wurde (878 mm). Aufgezeichnet 2026-10-27 aus einem echten BricsCAD-Lauf. Startpunkt fuer die Testreihe versetzt: alle Koordinaten (Start-/Zielpunkt und Pfadsegmente) um einen gemeinsamen Vektor verschoben, damit TEST_LINIENZUG_MODUS2 die Ketten nebeneinander auf einer Grundlinie baut statt verstreut. Reine Translation - Laengen, Winkel und die geprueften Abweichungen sind davon unabhaengig; Z bleibt unveraendert, weil die Starthoehe ein Eingabewert des Solvers ist.", + "test_id": "LZ_M2_gfbogen", + "kurz": "Ecke als GF-Bogen", + "erwartung_quer_mm": 0, + "erwartung_dz_mm": 0, + "erwartung_laengs_mm": 105, + "erwartung_hinweis": "quer zur ES-KS_AUS-Achse MUSS ~0 sein und dZ ~0; laengs darf abweichen - das ist die Ausladung des ES-Elements und kein Fehler. Beides zugleich geht nicht: entweder liegt die letzte Gerade auf der gezeichneten Linie und der KS_AUS landet seitlich daneben, oder umgekehrt. Entschieden ist - der Hauptstrang bleibt gerade." + }, + { + "art": "PT", + "x": 60000.0, + "y": 0.0, + "z": 0.0 + }, + { + "art": "REAL", + "wert": 0.0 + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "90" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "PT", + "x": 71000.0, + "y": -6315.123197, + "z": 184.3 + }, + { + "art": "REAL", + "wert": 184.3 + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "30" + }, + { + "art": "STR", + "wert": "2" + }, + { + "art": "SEGS", + "wert": "Linie|0|9700|0|links|60000|0|69700|0;Bogen|0|707.106781|90|rechts|69700|0|70200|-500;Linie|-90|4295.507955|0|links|70200|-500|70200|-4795.507955;Bogen|-90|258.819045|30|links|70200|-4795.507955|70266.987298|-5045.507955;Linie|-60|1466.025404|0|links|70266.987298|-5045.507955|71000|-6315.123197" + }, + { + "art": "STR", + "wert": "m2v2" + }, + { + "art": "STR", + "wert": "2" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "REAL", + "wert": 3.0 + }, + { + "art": "STR", + "wert": "2" + }, + { + "art": "STR", + "wert": "2" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "REAL", + "wert": 3.0 + }, + { + "art": "STR", + "wert": "2" + }, + { + "art": "STR", + "wert": "2" + }, + { + "art": "STR", + "wert": "mit-gf1" + }, + { + "art": "INT", + "wert": 1 + }, + { + "art": "STR", + "wert": "1" + } +] diff --git a/tests/testdata/linienzug_modus2_uform_gf1.json b/tests/testdata/linienzug_modus2_uform_gf1.json new file mode 100644 index 0000000..f4ddccc --- /dev/null +++ b/tests/testdata/linienzug_modus2_uform_gf1.json @@ -0,0 +1,99 @@ +[ + { + "beschreibung": "Linienzug Modus 2, GEFALTETER Lauf (U-Form): der Pfad wechselt ueber zwei 90-Grad-Vario-Kurven dreimal die Fahrtrichtung, die Kletterstrecke liegt dadurch in einem ANDEREN Schenkel als der Lauf-Eingang. GF-Verteilung 1 (alles am Einlauf, GF1) - diese Verteilung war bis 2026-10-29 durch keinen Test abgedeckt. Aufgezeichnet 2026-10-29 aus einem echten BricsCAD-Lauf. Startpunkt fuer die Testreihe versetzt: alle Koordinaten (Start-/Zielpunkt und Pfadsegmente) um einen gemeinsamen Vektor verschoben, damit TEST_LINIENZUG_MODUS2 die Ketten nebeneinander auf einer Grundlinie baut statt verstreut. Reine Translation - Laengen, Winkel und die geprueften Abweichungen sind davon unabhaengig; Z bleibt unveraendert, weil die Starthoehe ein Eingabewert des Solvers ist.", + "test_id": "LZ_M2_uform_gf1", + "kurz": "U-Form, GF alles am Einlauf", + "erwartung_quer_mm": 0, + "erwartung_dz_mm": 0, + "erwartung_laengs_mm": 638, + "erwartung_hinweis": "quer zur ES-KS_AUS-Achse MUSS ~0 sein und dZ ~0; laengs darf abweichen - das ist die Ausladung des ES-Elements und kein Fehler. Der laengs-Wert von rund 638 mm ist die Ausladung des ES_Element_90_links und in allen drei U-Form-Faellen gleich; geprueft werden nur quer und dZ." + }, + { + "art": "PT", + "x": 80000.0, + "y": 0.0, + "z": 355.289671 + }, + { + "art": "REAL", + "wert": 355.3 + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "90" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "PT", + "x": 81269.916932, + "y": 0.0, + "z": 355.289671 + }, + { + "art": "REAL", + "wert": 355.3 + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "90" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "SEGS", + "wert": "Linie|90|5854.769733|0|links|80000|0|80000|5854.769733;Bogen|90|707.106781|90|rechts|80000|5854.769733|80500|6354.769733;Linie|0|269.916931|0|links|80500|6354.769733|80769.916932|6354.769733;Bogen|0|707.106781|90|rechts|80769.916932|6354.769733|81269.916932|5854.769733;Linie|-90|5854.769733|0|links|81269.916932|5854.769733|81269.916932|0" + }, + { + "art": "STR", + "wert": "m2v2" + }, + { + "art": "STR", + "wert": "vf" + }, + { + "art": "STR", + "wert": "vario-kurve" + }, + { + "art": "STR", + "wert": "aussen" + }, + { + "art": "STR", + "wert": "vario-kurve" + }, + { + "art": "STR", + "wert": "aussen" + }, + { + "art": "STR", + "wert": "mit-gf1" + }, + { + "art": "STR", + "wert": "3" + }, + { + "art": "INT", + "wert": 2 + }, + { + "art": "STR", + "wert": "1" + } +] diff --git a/tests/testdata/linienzug_modus2_uform_halb.json b/tests/testdata/linienzug_modus2_uform_halb.json new file mode 100644 index 0000000..6a84abd --- /dev/null +++ b/tests/testdata/linienzug_modus2_uform_halb.json @@ -0,0 +1,99 @@ +[ + { + "beschreibung": "Linienzug Modus 2, GEFALTETER Lauf (U-Form), GF-Verteilung 2 (1/2 GF1 + 1/2 GF2). DAS ist der Lauf, an dem die Laengenbilanz des gefalteten Laufs entwickelt und gemessen wurde: 1424 -> 934 -> 402 -> 0.56 mm quer (9 Grad). Er deckt alle vier Teilstuecke zugleich ab - Eingangs-Hardware im fremden Schenkel, kletter-ende-fp, GF1-Fremdanteil (Nachrechner) und das unterdrueckte Fueller-A. Aufgezeichnet 2026-10-29 aus einem echten BricsCAD-Lauf. Startpunkt fuer die Testreihe versetzt: alle Koordinaten (Start-/Zielpunkt und Pfadsegmente) um einen gemeinsamen Vektor verschoben, damit TEST_LINIENZUG_MODUS2 die Ketten nebeneinander auf einer Grundlinie baut statt verstreut. Reine Translation - Laengen, Winkel und die geprueften Abweichungen sind davon unabhaengig; Z bleibt unveraendert, weil die Starthoehe ein Eingabewert des Solvers ist.", + "test_id": "LZ_M2_uform_halb", + "kurz": "U-Form, GF 1/2+1/2", + "erwartung_quer_mm": 0, + "erwartung_dz_mm": 0, + "erwartung_laengs_mm": 638, + "erwartung_hinweis": "quer zur ES-KS_AUS-Achse MUSS ~0 sein und dZ ~0; laengs darf abweichen - das ist die Ausladung des ES-Elements und kein Fehler. Der laengs-Wert von rund 638 mm ist die Ausladung des ES_Element_90_links und in allen drei U-Form-Faellen gleich; geprueft werden nur quer und dZ." + }, + { + "art": "PT", + "x": 100000.0, + "y": 0.0, + "z": 710.579341 + }, + { + "art": "REAL", + "wert": 710.6 + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "90" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "PT", + "x": 101269.916932, + "y": -1951.333591, + "z": 710.579341 + }, + { + "art": "REAL", + "wert": 710.6 + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "90" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "SEGS", + "wert": "Linie|90|5854.769733|0|links|100000|0|100000|5854.769733;Bogen|90|707.106781|90|rechts|100000|5854.769733|100500|6354.769733;Linie|0|269.916931|0|links|100500|6354.769733|100769.916932|6354.769733;Bogen|0|707.106781|90|rechts|100769.916932|6354.769733|101269.916932|5854.769733;Linie|-90|7806.103325|0|links|101269.916932|5854.769733|101269.916932|-1951.333591" + }, + { + "art": "STR", + "wert": "m2v2" + }, + { + "art": "STR", + "wert": "vf" + }, + { + "art": "STR", + "wert": "vario-kurve" + }, + { + "art": "STR", + "wert": "aussen" + }, + { + "art": "STR", + "wert": "vario-kurve" + }, + { + "art": "STR", + "wert": "aussen" + }, + { + "art": "STR", + "wert": "mit-gf1" + }, + { + "art": "STR", + "wert": "3" + }, + { + "art": "INT", + "wert": 2 + }, + { + "art": "STR", + "wert": "2" + } +] diff --git a/tests/testdata/linienzug_modus2_uform_halb_steil.json b/tests/testdata/linienzug_modus2_uform_halb_steil.json new file mode 100644 index 0000000..614b16f --- /dev/null +++ b/tests/testdata/linienzug_modus2_uform_halb_steil.json @@ -0,0 +1,99 @@ +[ + { + "beschreibung": "Linienzug Modus 2, GEFALTETER Lauf (U-Form) wie LZ_M2_uform_halb, aber mit der naechststeileren Winkel-Option. Der Restfehler der alten Bilanz skalierte mit L_GF und damit mit dem Winkel (6 Grad: 90 mm, 9 Grad: 934 mm) - zwei Winkel auf derselben Pfadfamilie sichern deshalb mehr ab als zwei Laeufe mit demselben. Aufgezeichnet 2026-10-29 aus einem echten BricsCAD-Lauf. Startpunkt fuer die Testreihe versetzt: alle Koordinaten (Start-/Zielpunkt und Pfadsegmente) um einen gemeinsamen Vektor verschoben, damit TEST_LINIENZUG_MODUS2 die Ketten nebeneinander auf einer Grundlinie baut statt verstreut. Reine Translation - Laengen, Winkel und die geprueften Abweichungen sind davon unabhaengig; Z bleibt unveraendert, weil die Starthoehe ein Eingabewert des Solvers ist.", + "test_id": "LZ_M2_uform_halb_steil", + "kurz": "U-Form, GF 1/2+1/2, steilere Winkel-Option", + "erwartung_quer_mm": 0, + "erwartung_dz_mm": 0, + "erwartung_laengs_mm": 638, + "erwartung_hinweis": "quer zur ES-KS_AUS-Achse MUSS ~0 sein und dZ ~0; laengs darf abweichen - das ist die Ausladung des ES-Elements und kein Fehler. Der laengs-Wert von rund 638 mm ist die Ausladung des ES_Element_90_links und in allen drei U-Form-Faellen gleich; geprueft werden nur quer und dZ." + }, + { + "art": "PT", + "x": 120000.0, + "y": 0.0, + "z": 709.285191 + }, + { + "art": "REAL", + "wert": 709.3 + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "90" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "PT", + "x": 121269.916932, + "y": 0.077406, + "z": 709.275779 + }, + { + "art": "REAL", + "wert": 709.3 + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "90" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "SEGS", + "wert": "Linie|90|5854.769733|0|links|120000|-21.403816|120000|5833.365917;Bogen|90|707.106781|90|rechts|120000|5833.365917|120500|6333.365917;Linie|0|269.916931|0|links|120500|6333.365917|120769.916932|6333.365917;Bogen|0|707.106781|90|rechts|120769.916932|6333.365917|121269.916932|5833.365917;Linie|-90|5854.769733|0|links|121269.916932|5833.365917|121269.916932|-21.403816" + }, + { + "art": "STR", + "wert": "m2v2" + }, + { + "art": "STR", + "wert": "vf" + }, + { + "art": "STR", + "wert": "vario-kurve" + }, + { + "art": "STR", + "wert": "aussen" + }, + { + "art": "STR", + "wert": "vario-kurve" + }, + { + "art": "STR", + "wert": "aussen" + }, + { + "art": "STR", + "wert": "mit-gf1" + }, + { + "art": "STR", + "wert": "3" + }, + { + "art": "INT", + "wert": 3 + }, + { + "art": "STR", + "wert": "2" + } +] diff --git a/tests/testdata/linienzug_modus2_variokurve.json b/tests/testdata/linienzug_modus2_variokurve.json new file mode 100644 index 0000000..7bbda36 --- /dev/null +++ b/tests/testdata/linienzug_modus2_variokurve.json @@ -0,0 +1,107 @@ +[ + { + "beschreibung": "Linienzug Modus 2, Variante A: 90-Grad-Ecke als VARIO-KURVE (waagerecht eingebaut), Segment 3 dadurch automatisch VF. Deckt die flache Zone ab (Abschluss-Fussabdruck Bogen+Motorstation) und die Eck-Korrektur von 93.8 mm je Nachbargerade. Aufgezeichnet 2026-10-27 aus einem echten BricsCAD-Lauf. Startpunkt fuer die Testreihe versetzt: alle Koordinaten (Start-/Zielpunkt und Pfadsegmente) um einen gemeinsamen Vektor verschoben, damit TEST_LINIENZUG_MODUS2 die Ketten nebeneinander auf einer Grundlinie baut statt verstreut. Reine Translation - Laengen, Winkel und die geprueften Abweichungen sind davon unabhaengig; Z bleibt unveraendert, weil die Starthoehe ein Eingabewert des Solvers ist.", + "test_id": "LZ_M2_variokurve", + "kurz": "Ecke als Vario-Kurve", + "erwartung_quer_mm": 0, + "erwartung_dz_mm": 0, + "erwartung_laengs_mm": 105, + "erwartung_hinweis": "quer zur ES-KS_AUS-Achse MUSS ~0 sein und dZ ~0; laengs darf abweichen - das ist die Ausladung des ES-Elements und kein Fehler. Beides zugleich geht nicht: entweder liegt die letzte Gerade auf der gezeichneten Linie und der KS_AUS landet seitlich daneben, oder umgekehrt. Entschieden ist - der Hauptstrang bleibt gerade." + }, + { + "art": "PT", + "x": 40000.0, + "y": 0.0, + "z": 0.0 + }, + { + "art": "REAL", + "wert": 0.0 + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "90" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "PT", + "x": 51000.0, + "y": -6315.123197, + "z": 184.3 + }, + { + "art": "REAL", + "wert": 184.3 + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "30" + }, + { + "art": "STR", + "wert": "2" + }, + { + "art": "SEGS", + "wert": "Linie|0|9700|0|links|40000|0|49700|0;Bogen|0|707.106781|90|rechts|49700|0|50200|-500;Linie|-90|4295.507955|0|links|50200|-500|50200|-4795.507955;Bogen|-90|258.819045|30|links|50200|-4795.507955|50266.987298|-5045.507955;Linie|-60|1466.025404|0|links|50266.987298|-5045.507955|51000|-6315.123197" + }, + { + "art": "STR", + "wert": "m2v2" + }, + { + "art": "STR", + "wert": "2" + }, + { + "art": "STR", + "wert": "2" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "STR", + "wert": "1" + }, + { + "art": "REAL", + "wert": 3.0 + }, + { + "art": "STR", + "wert": "2" + }, + { + "art": "STR", + "wert": "2" + }, + { + "art": "STR", + "wert": "mit-gf1" + }, + { + "art": "INT", + "wert": 1 + }, + { + "art": "STR", + "wert": "1" + } +] diff --git a/tests/testdata/linienzug_tests.json b/tests/testdata/linienzug_tests.json index 11878de..6291254 100644 --- a/tests/testdata/linienzug_tests.json +++ b/tests/testdata/linienzug_tests.json @@ -8,14 +8,19 @@ }, { "typ": "point_abs", - "wert": [-1289.407125, 95.871332, 2154], - "kommentar": "getpoint Startpunkt der Kette" + "wert": [0.0, 0.0, 2154], + "kommentar": "getpoint Startpunkt der Kette - fuer die Testreihe auf X=0/Y=0 versetzt, damit die Ketten aller Linienzug-Tests nebeneinander auf einer Grundlinie entstehen statt verstreut. Unkritisch, weil dies der EINZIGE absolute Punkt des Skripts ist: alle weiteren Punkte sind relativ (point_rel mit dL/hz), die Geometrie also unveraendert. Z bleibt stehen - das ist die Starthoehe und ein echter Eingabewert." }, { "typ": "real", "wert": 2154.0, "kommentar": "getreal Hoehe (Z) Startpunkt" }, + { + "typ": "string", + "wert": "1", + "kommentar": "getstring Bau-Richtung (1 = vorwaerts) - seit 2026-10-25 (Commit fb56794, Rueckwaerts-Bau). Die Frage steht VOR der AS-Praeambel. Fuer JOURNALE ist sie abwaertskompatibel (fehlt der Eintrag, gilt das Journal als Alt-Format), fuer dieses MOCK-Skript aber nicht: der Mock beantwortet jede getstring-Abfrage aus der Queue, eine fehlende Antwort verschiebt also alles Folgende um eine Position. Sichtbar wurde das als Abbruch in cdr mit dem String 5, weil die Achsen-Punktabfrage dann diesen String zog statt eines Punktes." + }, { "typ": "string", "wert": "1", @@ -31,6 +36,10 @@ "wert": "1", "kommentar": "getstring AS-Seite (links)" }, + { + "typ": "point_none", + "kommentar": "getpoint AS-Zufuehrungsachse (2. Punkt, optional seit 2026-10-21) - Enter ohne Punkt, Kette laeuft wie frueher ueber den naechsten Klick" + }, { "typ": "string", "wert": "5", diff --git a/tests/testdata/linienzug_tests_stufe2.json b/tests/testdata/linienzug_tests_stufe2.json index fca6e62..fed5ec8 100644 --- a/tests/testdata/linienzug_tests_stufe2.json +++ b/tests/testdata/linienzug_tests_stufe2.json @@ -8,14 +8,19 @@ }, { "typ": "point_abs", - "wert": [21377.904954, -10300, 2067], - "kommentar": "getpoint Startpunkt der Kette" + "wert": [20000.0, 0.0, 2067], + "kommentar": "getpoint Startpunkt der Kette - fuer die Testreihe auf X=20000/Y=0 versetzt, damit die Ketten aller Linienzug-Tests nebeneinander auf einer Grundlinie entstehen statt verstreut. Unkritisch, weil dies der EINZIGE absolute Punkt des Skripts ist: alle weiteren Punkte sind relativ (point_rel mit dL/hz), die Geometrie also unveraendert. Z bleibt stehen - das ist die Starthoehe und ein echter Eingabewert." }, { "typ": "real", "wert": 2154.0, "kommentar": "getreal Hoehe (Z) Startpunkt" }, + { + "typ": "string", + "wert": "1", + "kommentar": "getstring Bau-Richtung (1 = vorwaerts) - seit 2026-10-25 (Commit fb56794, Rueckwaerts-Bau). Siehe gleichlautenden Eintrag in linienzug_tests.json: fuer Journale abwaertskompatibel, fuer dieses Mock-Skript nicht." + }, { "typ": "string", "wert": "1", @@ -31,6 +36,10 @@ "wert": "1", "kommentar": "getstring AS-Seite (links)" }, + { + "typ": "point_none", + "kommentar": "getpoint AS-Zufuehrungsachse (2. Punkt, optional seit 2026-10-21) - Enter ohne Punkt" + }, { "typ": "string", "wert": "5", diff --git a/tests/testdata/mubea.json b/tests/testdata/mubea.json index 3712186..9f33bef 100644 --- a/tests/testdata/mubea.json +++ b/tests/testdata/mubea.json @@ -8,6 +8,7 @@ "abstand": 5000, "rotation": 0.0, "typ": "STANDARD", + "drehrichtung": "GUZ", "expect_block_prefix": "KREISEL_", "expect_hoehe": "1554", "expect_kreiselart": "STANDARD", @@ -22,7 +23,7 @@ "abstand": 20015, "rotation": 90.0, "typ": "STANDARD", - "drehrichtung": "GUZ", + "drehrichtung": "UZS", "expect_block_prefix": "KREISEL_", "expect_hoehe": "1554", "expect_kreiselart": "STANDARD",