; dieses Programm erstellt aus verschiedensten aufgeteilten Geometieren einzelne Polylinienelemente
; als internet Punkt wird der Einfügepunk eines beliebigen Textes verwendet

(defun c:blerst ()


(while (= 1 1)

		;hier werden die Elemente ausgewählt, die für die spätere Bearbeitung herangezogen werden
		(princ "\nElemente wählen die zusammengefasst werden sollen: ")
		(setq aws (ssget))
		(setq anzahl (sslength aws))
		; ab hier werden die Polylinien erstellt, als interner Punkt wird der Ursprung des beinhalteten Textes verwendet

		(setq n 0)
		(while
		(/= n anzahl)
		(setq elementtyp (cdr (assoc 0 (entget (ssname aws n)))))
			(while 
				(or (= elementtyp "TEXT") (= elementtyp "MTEXT"))
		
		; nachfolgend wird der Variablennamen zusammengesetzt; an die Variable wird der Inhalt des Textes gehängt
				(setq zahl (cdr (assoc 1 (entget (ssname aws n)))))
				(setq basis (cdr (assoc 10 (entget (ssname aws n)))))
				(setq varname (strcat "block_" zahl))
				
				(set (read varname) aws); mit (read wird der Name der Variable aus einem zuvor erstellten String übernommen

				

				(princ "\nName der später aufzurufenden Variable: ")
				(princ "block_")
				(princ zahl)
				(terpri)
				(setq elementtyp "NULL")
			); while der Unterschleife ende
		(setq n (+ n 1))
		); while der Überschleife ende
)
(princ)
)