[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/KreiselInsert.lsp

@@ -403,26 +403,8 @@
   (if (not block-exists)
     (progn
       ;; WICHTIG: Vor dem Zeichnen den aktuellen letzten Entity merken
-      ;; Aber wenn die Zeichnung leer ist, setzen wir lastEnt auf nil
-      (if (setq lastEnt (entlast))
-        (progn
-          ;; Falls lastEnt ein INSERT mit Attributen ist, muessen wir
-          ;; bis zum SEQEND navigieren, da entnext sonst in die
-          ;; ATTRIB-Sub-Entities hineinlaeuft
-          (if (and (= (cdr (assoc 0 (entget lastEnt))) "INSERT")
-                   (= (cdr (assoc 66 (entget lastEnt))) 1))
-            (progn
-              (setq lastEnt (entnext lastEnt))
-              (while (and lastEnt
-                          (/= (cdr (assoc 0 (entget lastEnt))) "SEQEND"))
-                (setq lastEnt (entnext lastEnt))
-              )
-              ;; lastEnt ist jetzt SEQEND - entnext darauf gibt das naechste Top-Level-Entity
-            )
-          )
-        )
-        (setq lastEnt nil)  ;; Zeichnung ist leer
-      )
+      ;; (SEQEND-Schutz fuer INSERT mit Attributen, nil bei leerer Zeichnung)
+      (setq lastEnt (ssg-lastent-ohne-attribute))
 
       ;; AN8 Kreis (Antriebsstation) bei (radius, 0) - Dim-Suffix im Dateinamen
       (command "_.INSERT" (strcat *block-path* "AN8_" *ki-dxfm-dim* ".dwg") (list radius 0.0 0.0) 1 1 0)
@@ -1220,24 +1202,9 @@
     (progn
       (dbgp "Erzeuge neue Blockdefinition...")
       ;; Letzten Entity merken (mit SEQEND-Schutz wie bei draw-module)
-      (if (setq lastEnt (entlast))
-        (progn
-          (dbgp (strcat "lastEnt Typ=" (cdr (assoc 0 (entget lastEnt)))))
-          (if (and (= (cdr (assoc 0 (entget lastEnt))) "INSERT")
-                   (= (cdr (assoc 66 (entget lastEnt))) 1))
-            (progn
-              (dbgp "lastEnt ist INSERT mit Attributen -> navigiere zu SEQEND")
-              (setq lastEnt (entnext lastEnt))
-              (while (and lastEnt
-                          (/= (cdr (assoc 0 (entget lastEnt))) "SEQEND"))
-                (setq lastEnt (entnext lastEnt))
-              )
-              (dbgp "SEQEND erreicht")
-            )
-          )
-        )
-        (setq lastEnt nil)
-      )
+      (setq lastEnt (ssg-lastent-ohne-attribute))
+      (if lastEnt
+        (dbgp (strcat "lastEnt Typ=" (cdr (assoc 0 (entget lastEnt))))))
 
       ;; AN8 Block einfuegen bei (0,0) - Eckrad ist ein einzelner Kreis (Dim-Suffix im Dateinamen)
       (dbgp (strcat "INSERT Block: " *block-path* "AN8_" *ki-dxfm-dim* ".dwg"))