;Changes drawing window size
;(C)2010  CADstudio.cz for CADforum.cz
(vl-load-com)

(if (not sizer_width) (setq sizer_width 800))
(if (not sizer_height) (setq sizer_height 600))

(defun win_sizer (w h / actdoc)
 (setq actdoc (vla-get-activedocument (vlax-get-acad-object)))
 (vla-put-width actdoc w)
 (vla-put-height actdoc h)
 (prin1)
)

(defun C:Sizer ( / screen aux)
 (initget 6)
 (setq aux (getint (strcat "\nSIZER> New width in pixels <" (itoa sizer_width) ">: ")))
 (if aux (setq sizer_width aux))
 (initget 6)
 (setq aux (getint (strcat "\nSIZER> New height in pixels <" (itoa sizer_height) ">: ")))
 (if aux (setq sizer_height aux))
 (win_sizer sizer_width sizer_height)
 (setq aux (getstring "\nSIZER> Press <ENTER> "))
 (setq screen (getvar "SCREENSIZE"))
 (princ (strcat "\nSIZER> Window size: " (itoa sizer_width) "x" (itoa sizer_height) ", content size: " (itoa (fix (car screen))) "x" (itoa (fix (cadr screen)))))
 (prin1)
)

(princ "\nSIZER loaded.")(princ)