VF: gemeinsamen Wrapper-Rumpf vf-wrapper-bauen (Standard/Etage + Linienzug)
vf-block-erstellen (vf_core, Standard/Etage) und vfl-block-erstellen (vf_linienzug) hatten denselben ~25-Zeilen-Rumpf wortgleich: ATTDEFs am Startpunkt, Entity-Sweep seit lastEnt, Sepliste sichern, ssg-block-wrap-welt, Layer setzen, Sepliste-XDATA, Attribute setzen, ID + Dim-XDATA. Jetzt in vf-wrapper-bauen (vf_core) zusammengefasst; beide Aufrufer bauen nur noch ihre FERTIGE Attributliste (Standard/Etage: feste Werte; Linienzug: *vfl-acc-*- Komma-Listen) und uebergeben sie - der Rumpf kennt die Attribut-Semantik nicht. ATTDEF-FORMAT VEREINHEITLICHT auf den kanonischen Stil: 3 von 4 Wrapper-Bauern (vfl-block-erstellen, Gefaellestrecke, Vario_Kette_Merge) nutzten bereits identisch (10/11=startpunkt, 40, 70/72/74, alle am selben Punkt). vf-block- erstellen war der Ausreisser mit Layer-0/Model-Space-Zwang, y-Dekrementierung je Zeile und fehlenden Ausrichtungscodes - historischer Drift OHNE Effekt bei unsichtbaren ATTDEFs (Flag 70=1, reine Attribut-Container). Standard/Etage bauen die ATTDEFs damit jetzt im kanonischen Format. Toter Code entfernt: *vfk-attdef-zeilenabstand* (einzige Nutzung war die entfernte y-Dekrementierung). *vfk-attdef-texthoehe* jetzt in vf-wrapper-bauen zentral genutzt. Die ATTRIBUTWERTE sind unveraendert (Diff-Review: Bezeichnung wertgleich, Etage-Bogen-Extra nur von zweitem ssg-attrib-set-on in die Hauptliste gezogen). Verhaltensneutral fuer den Linienzug (hatte schon das kanonische Format); fuer Standard/Etage aendert sich nur das (unsichtbare) ATTDEF-Format. 243/243 LISP-Unit-Tests gruen; Python-Suite unveraendert (11 Baseline); Klammerbalance geprueft. Der Attribut-/Geometrie-Gleichstand von Standard/Etage ist interaktiv in BricsCAD bzw. per SSG_RUN_ALL_TESTS gegenzupruefen. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
This commit is contained in:
Michael Stangl
co-authored by
Claude Opus 4.8
Claude Opus 4.8
parent
cdb9183692
commit
8be256fb5a
+79
-77
@@ -862,74 +862,87 @@
|
||||
ent
|
||||
)
|
||||
|
||||
;; --- Gemeinsamer VF_n-Wrapper-Rumpf (Standard/Etage UND Linienzug) ----------
|
||||
;; Der frueher in vf-block-erstellen (vf_core) und vfl-block-erstellen
|
||||
;; (vf_linienzug) wortgleiche Rumpf: unsichtbare ATTDEFs am Startpunkt nach dem
|
||||
;; gemeinsamen Strecken-Schema erzeugen, alle seit lastEnt neu entstandenen
|
||||
;; Entities einsammeln, die Sepliste sichern, per ssg-block-wrap-welt zu einem
|
||||
;; Block VF_n wickeln, auf den Baugruppen-Layer legen, Sepliste-XDATA + die
|
||||
;; uebergebene Attributliste + ID + Dimensions-XDATA schreiben.
|
||||
;;
|
||||
;; typ-str = "Streckengruppe"/"Gefaellestrecke" (steuert nur ssg-strecke-attrib-
|
||||
;; defs, das Attribut-Schema). attrib-liste = FERTIGE (tag . wert)-Liste, die
|
||||
;; der Aufrufer baut (feste Werte bei Standard/Etage, *vfl-acc-*-Komma-Listen
|
||||
;; beim Linienzug) - der gemeinsame Rumpf kennt die Semantik NICHT.
|
||||
;; ATTDEF-Format: kanonisch (wie vfl-block-erstellen/Gefaellestrecke/
|
||||
;; Vario_Kette_Merge - 3 von 4 Bauern nutzten es schon; vf-block-erstellen war
|
||||
;; der Ausreisser mit Layer-0/Model-Space-Zwang + y-Dekrementierung ohne
|
||||
;; belegbaren Zweck bei unsichtbaren ATTDEFs).
|
||||
;; Rueckgabe: die Block-Referenz (vf-insert) oder nil, wenn seit lastEnt nichts
|
||||
;; entstand (Leere-Menge-Schutz, frueher nur in vf-block-erstellen).
|
||||
(defun vf-wrapper-bauen (vf-nummer typ-str startpunkt lastEnt attrib-liste
|
||||
/ vf-bname vf-ss vf-e vf-insert vf-sepliste)
|
||||
(setq vf-bname (strcat "VF_" (itoa vf-nummer)))
|
||||
;; Unsichtbare ATTDEFs (kanonisches Format) am Startpunkt.
|
||||
(foreach def (ssg-strecke-attrib-defs typ-str)
|
||||
(entmake
|
||||
(list '(0 . "ATTDEF")
|
||||
(cons 10 startpunkt)
|
||||
(cons 11 startpunkt)
|
||||
(cons 40 *vfk-attdef-texthoehe*)
|
||||
(cons 1 (cadr def))
|
||||
(cons 2 (car def))
|
||||
(cons 3 (car def))
|
||||
'(70 . 1)
|
||||
'(72 . 0)
|
||||
'(74 . 0)))
|
||||
)
|
||||
;; Alle neuen Entities seit lastEnt sammeln.
|
||||
(setq vf-ss (ssadd))
|
||||
(setq vf-e (if lastEnt (entnext lastEnt) (entnext)))
|
||||
(while vf-e (ssadd vf-e vf-ss) (setq vf-e (entnext vf-e)))
|
||||
;; Sepliste VOR dem Sweep sichern (danach existieren die Sub-Entities nicht
|
||||
;; mehr einzeln).
|
||||
(setq vf-sepliste (ssg-sepliste-sammeln lastEnt))
|
||||
(if (> (sslength vf-ss) 0)
|
||||
(progn
|
||||
(setq vf-insert (ssg-block-wrap-welt vf-bname startpunkt vf-ss))
|
||||
(ssg-layer-setzen vf-insert "variofoerderer")
|
||||
(ssg-sepliste-xdata-schreiben vf-insert "SSG_VF_SEP" vf-sepliste)
|
||||
(ssg-attrib-set-on vf-insert attrib-liste)
|
||||
(if (car (atoms-family 1 '("SSG-ID-GENERATE")))
|
||||
(ssg-id-generate vf-insert))
|
||||
(if (car (atoms-family 1 '("SSG-DIM-XDATA-SCHREIBEN")))
|
||||
(ssg-dim-xdata-schreiben vf-insert (ssg-ils-dim-aktuell)))
|
||||
vf-insert)
|
||||
(progn (princ (ssg-text "vfc-fehler-keine-entities")) nil)))
|
||||
|
||||
;; Erstellt VF_N-Block aus allen seit lastEnt erzeugten Entities.
|
||||
;; Setzt Attributwerte entsprechend Typ, Seite und Geometrieparametern.
|
||||
(defun vf-block-erstellen (anlage-typ seite vf-nummer n-scanner
|
||||
hoehe-von hoehe-bis deltaH deltaL L_VF L_GF1 L_GF2
|
||||
richtung best-winkel startpunkt lastEnt hz
|
||||
geruest-einzelmodul geruest-typ
|
||||
/ vf-bname vf-ss vf-e vf-insert montagehoehe-m attdef-ypos L_GF_m-str
|
||||
vf-sepliste)
|
||||
/ vf-insert montagehoehe-m L_GF_m-str)
|
||||
(if (null hz) (setq hz 0.0))
|
||||
(if (null geruest-einzelmodul) (setq geruest-einzelmodul "1"))
|
||||
(if (null geruest-typ) (setq geruest-typ (ssg-geruest-idx-to-typ (ssg-geruest-typ-to-idx nil))))
|
||||
;; Beschriftungstext erzeugen
|
||||
;; Beschriftungstext erzeugen (VOR dem Wrapper-Bau, damit er mit eingesammelt
|
||||
;; wird - Standard/Etage-spezifisch, der Linienzug hat kein solches Label).
|
||||
(vf-make-label vf-nummer hoehe-von hoehe-bis deltaH deltaL L_VF L_GF1 L_GF2
|
||||
richtung best-winkel 2 n-scanner startpunkt hz)
|
||||
|
||||
;; Unsichtbare ATTDEFs am Startpunkt erzeugen (gemeinsames Strecken-Schema;
|
||||
;; VarioFoerderer ist immer TYP "Streckengruppe" -> voller Attributsatz).
|
||||
(setq attdef-ypos (cadr startpunkt))
|
||||
(foreach def (ssg-strecke-attrib-defs "Streckengruppe")
|
||||
(entmake (list
|
||||
'(0 . "ATTDEF")
|
||||
'(8 . "0")
|
||||
'(67 . 0)
|
||||
(cons 10 (list (car startpunkt) attdef-ypos (caddr startpunkt)))
|
||||
(cons 40 *vfk-attdef-texthoehe*)
|
||||
(cons 1 (cadr def))
|
||||
(cons 3 (car def))
|
||||
(cons 2 (car def))
|
||||
'(70 . 1)
|
||||
))
|
||||
(setq attdef-ypos (- attdef-ypos *vfk-attdef-zeilenabstand*))
|
||||
)
|
||||
|
||||
;; Alle neuen Entities seit lastEnt sammeln
|
||||
(setq vf-ss (ssadd))
|
||||
(if lastEnt
|
||||
(setq vf-e (entnext lastEnt))
|
||||
(setq vf-e (entnext))
|
||||
)
|
||||
(while vf-e
|
||||
(ssadd vf-e vf-ss)
|
||||
(setq vf-e (entnext vf-e))
|
||||
)
|
||||
|
||||
;; Sepliste (Separator/AS/ES-Reihenfolge, siehe ssg_ks_insert.lsp) VOR dem
|
||||
;; Sweep sammeln - danach existieren die Sub-Entities nicht mehr einzeln.
|
||||
(setq vf-sepliste (ssg-sepliste-sammeln lastEnt))
|
||||
|
||||
;; Block erstellen, einfuegen, Attribute setzen
|
||||
(setq vf-bname (strcat "VF_" (itoa vf-nummer)))
|
||||
(if (> (sslength vf-ss) 0)
|
||||
(progn
|
||||
;; Block definieren und einfuegen mit garantiert weltparallelem BKS.
|
||||
;; startpunkt ist ein Welt-Punkt; ssg-block-wrap-welt setzt das BKS
|
||||
;; temporaer auf Welt (verhindert den 31.95mm-Z-Versatz bei
|
||||
;; abweichendem BKS) und stellt es danach wieder her.
|
||||
(setq vf-insert (ssg-block-wrap-welt vf-bname startpunkt vf-ss))
|
||||
;; Ziel-Layer der Baugruppe aus cfg/layer.cfg (ohne Eintrag bleibt die
|
||||
;; Referenz auf dem aktuellen Layer, wie vor der Umstellung).
|
||||
(ssg-layer-setzen vf-insert "variofoerderer")
|
||||
(ssg-sepliste-xdata-schreiben vf-insert "SSG_VF_SEP" vf-sepliste)
|
||||
(setq montagehoehe-m (/ (+ hoehe-von hoehe-bis) 2000.0))
|
||||
;; L_GF_m: kommagetrennte Segmentlaengen in Metern (vorne,hinten),
|
||||
;; analog L_GF_m in Gefaellestrecke.lsp.
|
||||
(setq L_GF_m-str (strcat (rtos (/ L_GF1 1000.0) 2 3) "," (rtos (/ L_GF2 1000.0) 2 3)))
|
||||
(ssg-attrib-set-on vf-insert
|
||||
(setq montagehoehe-m (/ (+ hoehe-von hoehe-bis) 2000.0))
|
||||
;; L_GF_m: kommagetrennte Segmentlaengen in Metern (vorne,hinten),
|
||||
;; analog L_GF_m in Gefaellestrecke.lsp.
|
||||
(setq L_GF_m-str (strcat (rtos (/ L_GF1 1000.0) 2 3) "," (rtos (/ L_GF2 1000.0) 2 3)))
|
||||
;; Standard/Etage-Attributsatz (feste Werte). VarioFoerderer ist immer TYP
|
||||
;; "Streckengruppe" -> voller Attributsatz. Etage-Sonderfall (2x Gefaellebogen
|
||||
;; je Seite) direkt in die Liste, statt als zweiter ssg-attrib-set-on-Aufruf.
|
||||
(setq vf-insert
|
||||
(vf-wrapper-bauen vf-nummer "Streckengruppe" startpunkt lastEnt
|
||||
(append
|
||||
(list
|
||||
(cons "Bezeichnung" vf-bname)
|
||||
(cons "Bezeichnung" (strcat "VF_" (itoa vf-nummer)))
|
||||
;; ARTINR bleibt auf Schema-Vorgabe "6220"
|
||||
(cons "MONTAGEHOEHE_m" (rtos montagehoehe-m 2 3))
|
||||
(cons "HOEHE_VON_mm" (itoa (fix hoehe-von)))
|
||||
@@ -954,27 +967,16 @@
|
||||
(cons "ANZAHL_SEPARATOR" "2")
|
||||
(cons "ANZAHL_SCANNER" (itoa n-scanner))
|
||||
(cons "GERUEST_EINZELMODUL" geruest-einzelmodul)
|
||||
(cons "GERUEST_TYP" geruest-typ)
|
||||
)
|
||||
)
|
||||
;; Typ-spezifische Bogen-Zaehler (Etage: 2x Gefaellebogen je Seite)
|
||||
(if (= anlage-typ "etage")
|
||||
(if (= seite "rechts")
|
||||
(ssg-attrib-set-on vf-insert (list (cons "GF_Bogen_R_60" "2")))
|
||||
(ssg-attrib-set-on vf-insert (list (cons "GF_Bogen_L_60" "2")))
|
||||
)
|
||||
)
|
||||
;; Aufsteigende, eindeutige ID vergeben (wie beim Kreisel), falls verfuegbar.
|
||||
(if (car (atoms-family 1 '("SSG-ID-GENERATE")))
|
||||
(ssg-id-generate vf-insert))
|
||||
;; Dimension (2D/3D) merken -> Doppelklick-Edit erkennt sie automatisch.
|
||||
(if (car (atoms-family 1 '("SSG-DIM-XDATA-SCHREIBEN")))
|
||||
(ssg-dim-xdata-schreiben vf-insert (ssg-ils-dim-aktuell)))
|
||||
(princ (ssg-textf "vfc-block-erstellt-eingefuegt" (list vf-bname)))
|
||||
vf-insert
|
||||
)
|
||||
(progn (princ (ssg-text "vfc-fehler-keine-entities")) nil)
|
||||
)
|
||||
(cons "GERUEST_TYP" geruest-typ))
|
||||
;; Typ-spezifische Bogen-Zaehler (Etage: 2x Gefaellebogen je Seite)
|
||||
(if (= anlage-typ "etage")
|
||||
(if (= seite "rechts")
|
||||
(list (cons "GF_Bogen_R_60" "2"))
|
||||
(list (cons "GF_Bogen_L_60" "2")))
|
||||
'()))))
|
||||
(if vf-insert
|
||||
(princ (ssg-textf "vfc-block-erstellt-eingefuegt" (list (strcat "VF_" (itoa vf-nummer))))))
|
||||
vf-insert
|
||||
)
|
||||
|
||||
;; ============================================================
|
||||
|
||||
Reference in New Issue
Block a user