Редактор списка координат

(defun _ru-dlg-coord-edit-2d (caption      std_lst_coords
                              /            is_closed    lst_coords
                              result       srv          tmp_file
                             )
                             ;|  
 (_ru-dlg-coord-edit-2d "Проба" (list (list (list 1000.0 6000.0)  (list -566.0 1000.0) (list 340.0 444.0)) T))
 (((1000.0 6000.0) (-566.0 1000.0) (340.0 444.0) (3000.0 100.0)) T)
|;

  (setq is_closed (cadr std_lst_coords))
  (setq tmp_file (ru-file-tmp "coordedit.tmp"))
  (vl-file-delete tmp_file)
  (if (ru-list-coords-write-to-file tmp_file std_lst_coords)
    (if (setq srv (_ru-dlg-coord-edit-srv))
      (if (= (vlax-variant-value
               (vlax-invoke-method
                 srv
                 "edit2dCoords"
                 caption
                 tmp_file
                 (ru-conv-value-to-wordbool is_closed)
               ) ;_ end of vlax-invoke-method
             ) ;_ end of vlax-variant-value
             :vlax-true
          ) ;_ end of =
        (if (setq lst_coords (ru-list-coords-read-from-file tmp_file))
          (setq result (list lst_coords is_closed))
        ) ;_ end of if
      ) ;_ end of if
    ) ;_ end of if
  ) ;_ end of if
  result
) ;_ end of defun