(defun analisis-insert-point-planset-left-down-point (insert-point side / )
  ;определение левой нижней точки планшета, по точке  указанной внутри планшета
  (setq e (*(fix(/ (nth 0 insert-point) side))side))
  (setq n (*(fix(/ (nth 1 insert-point) side))side))
  (list
    (if (minusp (nth 0 insert-point))
      (- e side)e)
    (if (minusp (nth 1 insert-point))
      (- n side)n)
    )
  )