[ADD] Geruest: Teile-DWGs (data/geruest/<artnr>.dwg) als Geometrie im GR_-Block; TEILEFARBE als Liste parallel zu ARTINR (Flag farbig in geruest.json), Sivas-Merkmal 108 aus cfg [Sivas]; Menue-Befehle GERUEST_SAEULEN/_ROHRABHAENGER/_WANDBEFESTIGUNG

[FIX] Sivas-Export las nicht existierendes Attribut FARBE

Lisp/ssg_core.lsp

@@ -972,6 +972,28 @@
   )
 )
 
+;; Ermittelt den "letzten Entity" VOR einer neuen Einfuegung als Startmarke
+;; fuer eine anschliessende (entnext marke)-Sammlung. (entlast) liefert nur
+;; das Hauptobjekt; ist das ein INSERT mit Attributen (Gruppencode 66 = 1),
+;; liefert (entnext insert) aber zuerst dessen ATTRIB-Subentities und SEQEND.
+;; Die wuerden dann mit eingesammelt und von _.-BLOCK aus dem vorherigen
+;; Block entfernt (realer Bug: per Strg+C/V kopierter GR_-Block verlor beim
+;; naechsten GERUEST alle Attribute). Deshalb bis zum SEQEND vorlaufen.
+;; Muss von JEDEM "alles Neue seit Marke einsammeln"-Aufrufer anstelle eines
+;; nackten (entlast) verwendet werden. Rueckgabe: Entity oder nil (leer).
+(defun ssg-lastent-ohne-attribute ( / ent)
+  (setq ent (entlast))
+  (if (and ent (= (cdr (assoc 66 (entget ent))) 1))
+    (progn
+      (setq ent (entnext ent))
+      (while (and ent (/= (cdr (assoc 0 (entget ent))) "SEQEND"))
+        (setq ent (entnext ent))
+      )
+    )
+  )
+  ent
+)
+
 ;; Alle Attribute eines INSERT-Entity als Assoziationsliste lesen.
 ;; ent = Entity-Name eines INSERT mit Attributen.
 ;; Rueckgabe: (("TAG1" . "Wert1") ("TAG2" . "Wert2") ...) oder nil