(defun c:Poly-t (/ aAWS) ; (c:Poly-t)
    (and
          (setq aAWS (ssadd))
          (or (= 'LIST (type Poly-t_lengthlist))
              (setq Poly-t_lengthlist '(30 40 50 60 43.93235100)))
          (or (= 'STR (type Poly-t_targetlayer))
              (not(command "_.-LAYER" "_new" (setq Poly-t_targetlayer "Beschriftung") "_co" "142" Poly-t_targetlayer "")))
          
          (princ(strcat "\nAktuelle Längenliste: (setq Poly-t_lengthlist `" (vl-princ-to-string Poly-t_lengthlist) "\n"))
	  (vlax-for item (vla-get-Modelspace(vla-get-activeDocument(vlax-get-acad-object)))
	    (if (and (= (vla-get-Objectname item) "AcDbPolyline") (= :vlax-true (vla-get-Closed item)))
	        (if (member T (mapcar '(lambda(v)(equal (vla-get-Length item) v 0.00001)) Poly-t_lengthlist))
		    (progn
                      (ssadd (vlax-vla-object->ename item) aAWS)
                      (vla-put-Layer item Poly-t_targetlayer)
                    )
	        )
	    )
	  )
    )
  
    (if (and(zerop(sslength aAWS))(= 1 (getvar 'TILEMODE)))
	      (princ "\nKeine Polylinien mit zutreffenden Längen gefunden\n")
	      (progn (sssetfirst nil aAWS)
		     (alert (princ (strcat
		       "Markiert und Layer gesetzt bei "
		       (if (= 1 (sslength aAWS)) "einem" (rtos(sslength aAWS)2 0)) " Objekt" (if (= 1 (sslength aAWS)) "" "en")
		     )      )      )
	      )
	  )
  (princ "\nPoly-t im Modellbereich ausgeführt")
  (princ)
)

(princ "\nPoly-t geladen")
(princ)