Schoenenberger_Systeme_GmbH/dxfmakros
3
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

[FIX] Beim Einfügen eines Blocks wird die Farbe des Layers nur noch neu gesetzt, wenn der Layer noch nicht existiert

Browse Source
This commit is contained in:
Simon Hensch
2026-07-20 08:43:08 +02:00
parent 2d6fd86d37
commit adfde744e2
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/ssg_core.lsp
+9 -4
View File
@@ -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 ;; 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 (if set-aktiv
(command "_LAYER" "_M" lay-name "_CO" color lay-name "") (command "_LAYER" "_M" lay-name "")
(command "_LAYER" "_N" lay-name "_CO" color lay-name "") (command "_LAYER" "_N" lay-name "")
)
(if neu
(command "_LAYER" "_CO" color lay-name "")
) )
) )