(defun C:polyline2txt ( / 2dpline_vla list-str-for-archaeosys n pline putch-text-file-coord spisok)
 
  (load_global_variable)
  
  
  (initget 1)(setq pline (car (entsel "\nВыбери полилинию: ")))
  (cond
    ((eq pline nil)
     (alert "Ничего не выбрано!"))
    ((not(eq (cdr(assoc 0 (entget pline))) "LWPOLYLINE"))
     (alert "Выбрана не 2D полилиния!"))
    ((eq (cdr(assoc 0 (entget pline))) "LWPOLYLINE")
     (setq 2Dpline_vla (vlax-ename->vla-object pline))
     (setq spisok (extract_coord_lwpolyline (entget pline)))
     (setq n 1)
     (foreach x spisok
       (setq list-str-for-archaeoSYS (append list-str-for-archaeoSYS (list (strcat (itoa n)";"(rtos(nth 1 x)2 3)";"(rtos(nth 0 x)2 3)))))
       (setq n (1+ n))
       )
     (setq putch-text-file-coord (strcat
		    (getvar "DWGPREFIX")
		    (substr (getvar "DWGNAME") 1 (-(strlen (getvar "DWGNAME"))4))
		    ".txt"
		    ))
     (alert (strcat"Сейчас будет сформирован файл координат:\n" putch-text-file-coord))
     (file_write_list_to_file putch-text-file-coord list-str-for-archaeoSYS)
     (alert "Файл с координатами сформирован!")
     )
    )
  (princ)
  )