(defun c:V2 (/ file zeile)
  
  (setq Kontrollmessung (getint "\n Wievielte Kontrollmessung hat stattgefunden?"))
  (setq P1 (getint "\n Startnummer angeben: "))
  (setq Px (getint "\n Höchste Punktnummer angeben: " ))
  (setq Eingabe (- Px P1))


  (setq file (getfiled "Verzeichnisliste" "" "" 2))
  (if file
    (progn
      (setq file (open file "r"))
      (while (setq zeile (read-line file))


(setq LISTE (read(strcat "(" (vl-string-left-trim "0"zeile) ")")))

	(while (<= P1 Px)
	 	
(setq A (list (nth 1 LISTE) (nth 2 LISTE) (nth 3 LISTE))
      B (list (nth 4 LISTE) (nth 5 LISTE) (nth 6 LISTE))  ); setq

         (cond
	  ((= (nth 0 LISTE) P1)
	  (progn
     	  (command "_line" A B "")
	  (command "_layer" "_n" "ÜW_Nr_501" "FA" "20" "ÜW_Nr_501" "L" "Continuous" "ÜW_Nr_501" "LS" "0.25" "ÜW_Nr_501" "")
              (entmod
                (list  '(8 . "ÜW_Nr_501" )
                (assoc -1(entget (entlast)))
                ) ; schliesst list
              ) ; schliesst entmod
	  	  (princ)
	  ) ; progn
	 ) ; schliesst leere Klammer
	) ; cond

  (setq P1 (+ 1 P1))
           
   ) ;while

      (close file)
      
      (princ)
    )
  )
) ;defun