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

@@ -852,26 +852,6 @@
   ))
 )
 
-;; Ermittelt den "letzten Entity" VOR einer neuen Einfuegung, so dass
-;; nachfolgende Attribut-Entities/SEQEND eines vorherigen INSERT (z.B. eines
-;; vorangegangenen VF_N-Blocks) nicht versehentlich in die naechste
-;; vf-block-erstellen-Sammlung hineinfallen. Muss von JEDEM Aufrufer von
-;; vf-block-erstellen anstelle eines nackten (entlast) verwendet werden.
-(defun vf-lastent-ohne-attribute ( / ent)
-  (setq ent (entlast))
-  (if (and ent
-           (= (cdr (assoc 0 (entget ent))) "INSERT")
-           (= (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
-)
-
 ;; --- 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
@@ -1057,7 +1037,7 @@
             (cond ((= richtung "Auf") (+ hoehe-von deltaH))
                   ((= richtung "Ab")  (- hoehe-von deltaH))
                   (t hoehe-von)))
-          (setq lastEnt (vf-lastent-ohne-attribute))
+          (setq lastEnt (ssg-lastent-ohne-attribute))
           (setq vf-endpunkt
             (apply einfuege-fn
               (list deltaL deltaH richtung best-winkel L_GF1 L_GF2 L_VF startpunkt seite hz)))
@@ -1523,7 +1503,7 @@
         (t hoehe-von)))
 
       ;; lastEnt VOR der Einfuegung merken
-      (setq lastEnt (vf-lastent-ohne-attribute))
+      (setq lastEnt (ssg-lastent-ohne-attribute))
 
       ;; Typ-spezifische Einfuegung
       (apply einfuege-fn