(defun C:import-kml-to-cogo-point (/ put-file point-bl-coor-list point-coor point-obj)
  (if(setq put-file (getfiled "Выбор файла координат" (getvar "DWGPREFIX")  "kml" 0))
    (progn
      (princ(setq point-bl-coor-list(get-kml-point-coor put-file)))
;;;      (setq point-coor(convert-bl-wgs-84-to-xy-by-property (dialog-print_to_png_area)(nth 1 point-bl-coor-list)))
;;;      (setq point-obj (vla-add C3D_points(vlax-3d-point(nth 0 point-coor)(nth 1 point-coor)0.0)))
;;;      (vlax-put-property point-obj 'Description (car point-bl-coor-list))
      ))
  (princ)
  )

(defun get-kml-point-coor (put-file / bl-point-list childlist folder o-doc point)
  (setq o-doc(XML-Get-XMLObject put-file))
  (setq Folder(XML-Get-Child (XML-Get-Child o-doc nil "Folder") nil "Folder"))
  (setq ChildList(XML-Get-ChildList Folder))
  (foreach x ChildList
    (if (setq point (XML-Get-Child x nil "Point"))
      (setq bl-point-list (append bl-point-list (list (list
							(XML-Get-Value(XML-Get-Child x nil "name"))
							(XML-Get-Value(XML-Get-Child x nil (XML-Get-Child x nil "coordinates")))))))
      )
    )
  (vlax-release-object o-doc)
  bl-point-list
  )

;(get-kml-point-coor "d://1.kml")

;;;(defun get-punkt-recorg-by-ass-list (ass-list o-doc / N PUNKT-RECORG RESULT SQUARE SQUARES)
;;;  (setq squares(XML-Get-Child (XML-Get-Child o-doc nil "puncts") nil "squares"))
;;;  (setq square
;;;	 (XML-Get-Children
;;;	   (XML-Get-Child-ByAttribute squares nil "name"
;;;	     (analisis-point-square
;;;	       (extract-coor-of-ass-list ass-list))) nil))
;;;  (setq n 0)
;;;  (while (setq punkt-recorg (vlax-get-property square 'item n))
;;;    (if (and (= (cadr(assoc"N"ass-list))(XML-Get-Attribute punkt-recorg "N" ""))
;;;	     (= (cadr(assoc"E"ass-list))(XML-Get-Attribute punkt-recorg "E" "")))
;;;      (progn
;;;	(setq result punkt-recorg)
;;;	(setq n (1+(vlax-get-property square 'length)))
;;;	))
;;;    (setq n (1+ n))
;;;    )
;;;  result
;;;  )