Anwendung der Erzeugung einer Id für jedes Element

Lisp/KreiselInsert.lsp

@@ -47,7 +47,8 @@
     ("DREHUNG"       "0")
     ("ABSTAND"       "2300")
     ("NUMMER"        "0")
-    ("HOEHE"         "0"))
+    ("HOEHE"         "0")
+    ("ID"            ""))
 )
 
 ;; Eckrad-Einstellungen
@@ -59,7 +60,8 @@
     ("DREHRICHTUNG"  "UZS")
     ("DREHUNG"       "0")
     ("NUMMER"        "0")
-    ("HOEHE"         "0"))
+    ("HOEHE"         "0")
+    ("ID"            ""))
 )
 
 ;; Letzter gewaehlter Typ (gespeichert zwischen Aufrufen)
@@ -455,7 +457,11 @@
     (setq att-entity (entnext att-entity))
   )
   (entupd block-ent)
-  (princ (strcat "\n-> Kreisel #" (itoa kreisel-nummer) " eingefügt: " bname 
+  ;; Eindeutige ID zuweisen
+  (if (atoms-family 1 '("ssg-id-generate"))
+    (ssg-id-generate block-ent)
+  )
+  (princ (strcat "\n-> Kreisel #" (itoa kreisel-nummer) " eingefügt: " bname
                  " (Höhe=" block-hoehe ")"))
   (entlast)
 )