(defun write-point-in-kml-file (list-punct-ass-list put-file convert-sys-property / bl deskription list-strings n o-doc  squares style)
  ;экспортирует список в kml файл
  (setq list-strings (list
		       "<?xml version=\"1.0\" encoding=\"windows-1251\"?>"
		       "<kml xmlns=\"http://earth.google.com/kml/2.2\">"
		       "<Document>"
		       )
	)
  (foreach z list-punct-ass-list
    (setq deskription
	   (strcat
	     "N=" (rtos (get-item-by-name-in-list z "N")2 3) "<br>"
	     "E=" (rtos(get-item-by-name-in-list z "E")2 3) "<br>"
	     (if (/=(get-item-by-name-in-list z "Z")nil)
	       (strcat "Z=" (rtos(get-item-by-name-in-list z "Z")2 3) "<br>") "")
	     )
	  )
    (setq BL (convert-xy-to-bl-wgs-84-by-property convert-sys-property (list (get-item-by-name-in-list z "E")(get-item-by-name-in-list z "N"))))
    (setq list-strings
	   (append list-strings
		   (list
		     (strcat"  <Placemark><name>" (get-item-by-name-in-list z "description")
			    "</name><description><![CDATA[" deskription
			    "]]></description><Point><coordinates>" (rtos(nth 1 BL)2 16) "," (rtos(nth 0 BL)2 16) ",0.000000</coordinates></Point></Placemark>")
		     )
		   )
	  )
    )
  (setq list-strings
	 (append list-strings
		 (list
		   "</Document>"
		   "</kml>"
		   )
		 )
	)
  (file_write_list_to_file put-file list-strings)
  (princ)
  )