(defun analisis-nomenclature-full-for-m500-sis-coor-63 (t1 / n e nam1 nam2 nam3)
  ; определение полной номенклатуры СК-63 (на самом деле это не СК-63) планшета 500 масштаба по координатам точки левого нижнего угла
  (setq e (nth 0 t1))
  (setq n (nth 1 t1))
  (setq nam1 (abs(rem (fix(/ n 1000.0)) 100)))
  (setq nam2 (abs(rem (fix(/ e 1000.0)) 100)))
  (setq nam3 (analisis-nomenclature-3ch-for-m500-un n e))
  (strcat (if (not(minusp n)) "+" "-")(itoa(if (minusp n)  (1+ nam1) nam1))
	  (if (not(minusp e)) "+" "-")(itoa(if (minusp e)  (1+ nam2) nam2))
	  ":" nam3)
  )
 