(defun get-point-by_numenklature5000 (file-name / current-n current-e current-point  flag n num-1 num-2 num-3 numenklature-list start-e start-n str-list)
    ; вычисление координат левого нижнего угла планшета по номенклатуре (МСК-Саратов М1:2000)
    (setq numenklature-list (convert-string-to-list-be-delimiter file-name "-"))
    (setq num-1 (atoi (nth 0 numenklature-list)))
    (setq num-2 (atoi (nth 1 numenklature-list)))
    (setq str-list (list 1 7 15 23 30 38 46 54 60 64 68))
    (setq start-n 13000.0)
    (setq start-e -18000.0)
    (setq n 0)
    (while (not flag)
      (if (< num-1 (nth (setq n (1+ n)) str-list))
	(setq current-n (- start-n (* (1- n) 4000.0))
	      flag T)
	(if (<(length str-list)n)(setq flag T))
	)
      )
    (if current-n
      (progn
	(setq current-e (+ start-e (* (- num-1 (nth (1- n) str-list)) 4000.0)))
	(setq current-point (list current-e current-n))
	(cond
	  ((= num-2 1)
	   (setq current-point (mapcar '+ current-point (list 0.0 2000.0)))
	   )
	  ((= num-2 2)
	   (setq current-point (mapcar '+ current-point (list 2000.0 2000.0)))
	   )
	  ((= num-2 4)
	   (setq current-point (mapcar '+ current-point (list 2000.0 0.0)))
	   )
	  )
	current-point
	)
      (princ (strcat "\nПланшет "file-name " не определен."))
      )
    )