Undo Funktion mit ssg-start und ssg-end verwendet. Routinen standardisiert

Lisp/KreiselInsert.lsp

@@ -115,8 +115,7 @@
 ;; Rueckgabe: Entity-Name des eingefuegten Blocks
 
 (defun draw-module (basePoint abstand rotation attribs / lastEnt ss e bname
-                                                         radius pin-y is-pin
-                                                         oldAttreq oldAttdia)
+                                                         radius pin-y is-pin)
 
   ;; Attribute vorbereiten
   (setq attribs (ssg-attrib-merge attribs *kreisel-attrib-defs*))
@@ -184,13 +183,10 @@
 
   ;; --- Block am Zielpunkt einfuegen (ohne Attribut-Dialog) ---
   ;; basePoint kann 2D oder 3D sein; INSERT uebernimmt die Z-Koordinate
-  (setq oldAttreq (getvar "ATTREQ"))
-  (setq oldAttdia (getvar "ATTDIA"))
+  ;; ATTREQ/ATTDIA werden durch ssg-start/ssg-end der Aufrufer gesichert
   (setvar "ATTREQ" 0)
   (setvar "ATTDIA" 0)
   (command "_.INSERT" bname basePoint 1 1 rotation)
-  (setvar "ATTREQ" oldAttreq)
-  (setvar "ATTDIA" oldAttdia)
 
   ;; --- Attribut-Werte setzen ---
   (ssg-attrib-set-many attribs)
@@ -208,7 +204,7 @@
 ;; --------------------------------------------
 (defun c:KreiselInsert ( / pt abstand typ rotation rotStr)
 
-  (ssg-start "Kreisel Modul einfuegen" '(("OSMODE") ("CECOLOR")))
+  (ssg-start "Kreisel Modul einfuegen" '(("OSMODE") ("CECOLOR") ("ATTREQ") ("ATTDIA")))
   (setvar "OSMODE" 0)
 
   ;; 1. Einfuegepunkt
@@ -263,7 +259,7 @@
                             z1s z1e z2s z2e zCoord zTol
                             ok msg)
 
-  (ssg-start "Kreisel Smart Connect" '(("OSMODE") ("CECOLOR")))
+  (ssg-start "Kreisel Smart Connect" '(("OSMODE") ("CECOLOR") ("ATTREQ") ("ATTDIA")))
   (setvar "OSMODE" 0)
   (setq ok T msg nil)
 
@@ -399,7 +395,7 @@
 ;; -----------------------------------------------
 (defun c:KreiselRedraw ( / sel ent ed attribs basePoint rotation newAbstand)
 
-  (ssg-start "Kreisel Neu Zeichnen" '(("OSMODE") ("CECOLOR")))
+  (ssg-start "Kreisel Neu Zeichnen" '(("OSMODE") ("CECOLOR") ("ATTREQ") ("ATTDIA")))
   (setvar "OSMODE" 0)
 
   ;; 1. Bestehenden Kreisel-Block auswaehlen
@@ -445,7 +441,7 @@
 ;; KreiselQuick: Schnell mit Defaults (horizontal)
 ;; --------------------------------------------
 (defun c:KreiselQuick ( / pt)
-  (ssg-start "Kreisel Schnell Einfuegen" '(("OSMODE") ("CECOLOR")))
+  (ssg-start "Kreisel Schnell Einfuegen" '(("OSMODE") ("CECOLOR") ("ATTREQ") ("ATTDIA")))
   (setvar "OSMODE" 0)
   (setq pt (getpoint "\nBasispunkt (AN-Seite): "))
   (if pt