[CHANGE] Sivas Export schaut nun nur noch auf die kommaseparierte Liste im Attribut ARTINR und fügt die Artikelnummern in die Export-Liste ein; [ADD] Menü und dwg für Omniflo Ladeschleifen

Lisp/ssg_layer.lsp

@@ -56,6 +56,24 @@
   )
 )
 
+;; Layer gefroren? (nur Frieren, NICHT Ausschalten - anders als
+;; ssg-layer-visible-p). Rueckgabe: T wenn der Layer existiert und gefroren
+;; ist (Bit 0 in Gruppe 70), sonst nil. Genutzt vom Export
+;; (csv:collect-export-blocks, export.lsp).
+(defun ssg-layer-gefroren-p (lay-name / entry)
+  (setq entry (if lay-name (tblsearch "LAYER" lay-name)))
+  (if entry
+    (= (logand (cdr (assoc 70 entry)) 1) 1)
+  )
+)
+
+;; Liegt die Entity ename auf einem gefrorenen Layer (Gruppe 8)?
+(defun ssg-ent-layer-gefroren-p (ename)
+  (if ename
+    (ssg-layer-gefroren-p (cdr (assoc 8 (entget ename))))
+  )
+)
+
 ;; Pruefen ob Objekt-Layer der aktive Layer ist (Schutz vor Ausschalten)
 ;; lay-name = zu pruefender Layer; ist-gruppe = T wenn Gruppen-Layer
 ;; Rueckgabe: T wenn sicher (nicht aktiver Layer), nil wenn Problem