(defun c:prepare ()

  (initget 6)
  (setq razmera (getreal "\nPlotting scale 1:n? <1000>: "))
  (if (not razmera) (setq razmera 1000));end if
  (setq razmera (/ 1000 razmera))

  (setq pt1 (getpoint "\nLower left:") pt2 (getpoint "\nLower right:") pt3 (getpoint "\nUpper right:")
	)

  (command ".dview" "" "tw" (* 180 (/ 1 pi) (- (* 2 pi) (angle pt1 pt2))) "")
  (command ".zoom" pt1 pt3)
  (command ".zoom" (strcat (rtos razmera 2) "xp"))

  (princ)
  );end defun

(princ "\nKomanda PREPARE okrece pogled u situacionom planu u polozaj za stampu.")