Сообщество программистов Autodesk в СНГ

ADN Club => AutoLisp / VisualLISP и DCL => Тема начата: altver от 31-03-2023, 11:37:14

Название: открыть чертеж максимально на экране
Отправлено: altver от 31-03-2023, 11:37:14
Добрый день, господа!
Возможно ли програмным путем открыть чертеж максимально на экране?
Имею ввиду Maximize.
Заранее благодарен!
Название: Re: открыть чертеж максимально на экране
Отправлено: Александр Ривилис от 31-03-2023, 22:10:41
В документации есть такой код. Не проверял.
Код - 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. )
Название: Re: открыть чертеж максимально на экране
Отправлено: altver от 04-04-2023, 21:28:31
Извините, Александр, к сожалеию ничего у меня не полчается...
может еще раз объясню:
на экране была отжата кнопка Restore Down чертежа (не самого окна Автокада)
как прораммно сделать Maximize? 
Название: Re: открыть чертеж максимально на экране
Отправлено: Александр Ривилис от 05-04-2023, 15:34:27
Цитата: altver от 04-04-2023, 21:28:31
как прораммно сделать 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. )
Название: Re: открыть чертеж максимально на экране
Отправлено: altver от 05-04-2023, 16:16:28
ОТЛИЧНО!!!
То что надо!
Спасибо огромное!
Есть решене!
Название: Re: открыть чертеж максимально на экране
Отправлено: Александр Ривилис от 05-04-2023, 16:27:06
altver,
Если бы ты еще научился правильно отмечать сообщение с решением... :)
Название: Re: открыть чертеж максимально на экране
Отправлено: altver от 05-04-2023, 17:35:24
 ;D