; LISP mit Gemini erstellt am 10.09.2024.
; Macht im Prinzip nur ein: (entget(car(entsel))) 
;
(defun c:ElementInfos ()
  (command "entsel")  ; Benutzer fordert auf, ein Element auszuwählen
  (setq ent (car (entsel)))  ; Ausgewähltes Element speichern

  (if ent
    (entget ent)  ; Entitätsinformationen abrufen und zurückgeben
    (princ "\nKein Element ausgewählt.")  ; Fehlermeldung, falls kein Element ausgewählt
  )
)