(defun C:draw_ramka_planshet (/ list-dialog input-point point-s-w point-n-w point-n-e point-s-e)
  ; универсальная оболочка для отрисовки зарамочного оформления планшетов (пока только 500 масштаб)
  (setq list-dialog(dialog-draw-ramka-planshet))
  (if list-dialog
    (if(setq input-point(getpoint "\nУкажи точку внутри планшета: "))
      (draw-ramka-planshet input-point list-dialog)
      )
    )
  (princ)
  )