(defun c:at_def()
;;;Nur für Probelisp - damit Punkt definiert ist
(setq einf_Blo (getpoint "\nPunkt wählen:"))
(setq einf (list (+ (car einf_blo) 0.00) (+ (cadr einf_blo) 0.75) 0))
;;;DA WAR EIN FEHLER (STRCAT - WOZU? -UND KEIN GETRSTRING!!)
(setq Txt (getstring "\n Name Attributdef. :"))
(entmake (list
;;;DA WAR EIN FEHLER(cons 0 "ATTRIB")
 (cons 0   "ATTDEF")
 (cons 100 "AcDbEntity")
 (cons 67  0)
 (cons 410 "Model")
 (cons 8   "-MSR")
 (cons 62  1)
 (cons 6   "Continuous")
 (cons 100 "AcDbText")
 (cons 10  einf)
 (cons 40  2.5)
 (cons 1   "")
 (cons 50  0.0)
 (cons 41  1.0)
 (cons 51  0.0)
 (cons 7   "Standard")
 (cons 71  0)
 ;;;Text-Ausrichten
 (cons 72  1)
 (cons 11  einf)
 (cons 100 "AcDbAttributeDefinition")
 (cons 3   "Größe")
 (cons 2   Txt)
 (cons 70  0)
 (cons 73  0)
 ;;;Ausrichtung Mitte ZentrumArt der Ausrichtung
 (cons 74  2)
  ;;;Endlist
 )
;;;Endmake
)
;;;Nur für Probelisp auf Element zoomen
(command "_zoom" "o" "_l""")
;;;Enddefun
)
(princ "\nProbelisp für Atrributdefinition mit cons ,Aufruf mit at_def")
(princ)