открыть чертеж максимально на экране

[altver]

Добрый день, господа!
Возможно ли програмным путем открыть чертеж максимально на экране?
Имею ввиду Maximize.
Заранее благодарен!

[Александр Ривилис]

В документации есть такой код. Не проверял.

Код - Auto/Visual Lisp [Выбрать]

1. (vl-load-com)
2. (defun c:Example_MaxAutoCADWindow()
3.     ;; This example returns the current setting of
4.     ;; MaxAutoCADWindow. It then changes the value, and finally
5.     ;; it resets the value back to the original setting.
6.     (setq acadObj (vlax-get-acad-object))
7.     (setq preferences (vla-get-Preferences acadObj))
8.    
9.     ;; Retrieve the current MaxAutoCADWindow value
10.     (setq currMaxAutoCADWindow (vla-get-MaxAutoCADWindow (vla-get-Display preferences)))
11.     (alert (strcat "The current value for MaxAutoCADWindow is " (if (= currMaxAutoCADWindow :vlax-true) "True"  "False")))
12.    
13.     ;; Change the value for MaxAutoCADWindow
14.     (vla-put-MaxAutoCADWindow (vla-get-Display preferences) (if (= currMaxAutoCADWindow :vlax-true) :vlax-false :vlax-true))
15.     (alert (strcat "The new value for MaxAutoCADWindow is " (if (= (vla-get-MaxAutoCADWindow (vla-get-Display preferences)) :vlax-true) "True" "False")))
16.    
17.     ;; Reset MaxAutoCADWindow to its original value
18.     (vla-put-MaxAutoCADWindow (vla-get-Display preferences) currMaxAutoCADWindow)
19.     (alert (strcat "The MaxAutoCADWindow value is reset to " (if (= (vla-get-MaxAutoCADWindow (vla-get-Display preferences)) :vlax-true) "True" "False")))
20. )
21.  

Код - Auto/Visual Lisp [Выбрать]

1. (vl-load-com)
2. (defun c:Example_WindowState()
3.     ;; This example reads and displays the current window state of the AutoCAD application.
4.     (setq acadObj (vlax-get-acad-object))
5.     (setq doc (vla-get-ActiveDocument acadObj))
6.    
7.     ;; Use the "WindowState" variable to determine the window state of AutoCAD
8.     (setq CurrentState (cond
9.                            ((= (vla-get-WindowState acadObj) acMin) "Minimized")
10.                            ((= (vla-get-WindowState acadObj) acMax) "Maximized")
11.                            ((= (vla-get-WindowState acadObj) acNorm) "Normal Size")
12.                        ))
13.  
14.     ;; Display window state
15.     (alert (strcat "AutoCAD is now: " CurrentState))
16. )

[altver]

Извините, Александр, к сожалеию ничего у меня не полчается...
может еще раз объясню:
на экране была отжата кнопка Restore Down чертежа (не самого окна Автокада)
как прораммно сделать Maximize? 

[Александр Ривилис]

как прораммно сделать Maximize?

Код - Auto/Visual Lisp [Выбрать]

1. (vl-load-com)
2. (defun c:SetMax()
3.     (setq acadObj (vlax-get-acad-object))
4.     (setq doc (vla-get-ActiveDocument acadObj))
5.     (vla-put-WindowState doc acMax)
6. )

[altver]

ОТЛИЧНО!!!
То что надо!
Спасибо огромное!
Есть решене!

[Александр Ривилис]

altver,
Если бы ты еще научился правильно отмечать сообщение с решением...

[altver]