From adfde744e22175fa3fd16bf41fbc407f9cc85c61 Mon Sep 17 00:00:00 2001 From: Simon Hensch Date: Mon, 20 Jul 2026 08:43:08 +0200 Subject: [PATCH] =?UTF-8?q?[FIX]=20Beim=20Einf=C3=BCgen=20eines=20Blocks?= =?UTF-8?q?=20wird=20die=20Farbe=20des=20Layers=20nur=20noch=20neu=20geset?= =?UTF-8?q?zt,=20wenn=20der=20Layer=20noch=20nicht=20existiert?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Lisp/ssg_core.lsp | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/Lisp/ssg_core.lsp b/Lisp/ssg_core.lsp index accbc60..df84901 100644 --- a/Lisp/ssg_core.lsp +++ b/Lisp/ssg_core.lsp @@ -126,12 +126,17 @@ ) ) -;; Layer anlegen (falls nicht vorhanden) und optional setzen +;; Layer anlegen (falls nicht vorhanden) und optional aktivieren ;; lay-name = Name; color = Farbnummer als String z.B. "2"; set-aktiv = T/nil -(defun ssg-make-layer (lay-name color set-aktiv) +;; Farbe wird nur bei Neuanlage gesetzt, bestehende Layer bleiben unveraendert +(defun ssg-make-layer (lay-name color set-aktiv / neu) + (setq neu (not (tblsearch "LAYER" lay-name))) (if set-aktiv - (command "_LAYER" "_M" lay-name "_CO" color lay-name "") - (command "_LAYER" "_N" lay-name "_CO" color lay-name "") + (command "_LAYER" "_M" lay-name "") + (command "_LAYER" "_N" lay-name "") + ) + (if neu + (command "_LAYER" "_CO" color lay-name "") ) )