[Makswell]

Кнопки ШАГ, СЕТКА, ОРТО и т.д....
Видимость этих кнопок можно отключить, нажав на маленький черный треугольник справа внизу (см картинку). А как это можно сделать программно?

[KAI]

При помощи системных переменных, например:
(setvar "GRIDMODE" 0); или 1
(setvar "ORTHOMODE" 0); или 1
и т.д.

[Makswell]

Этим способом кнопки ставятся в соостояние нажата/ не нажата. А нужно получить доступ к видимости этих кнопок на экране. Т.е. убрать их совсем с дисплея или поставить обратно.

ЗЫ или даже добавить новую кнопку, как это сделано в VetCAD'е (добавлена кнопка масштабов).

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

Сообщение от Makswell Этим способом кнопки ставятся в соостояние нажата/ не нажата. А нужно получить доступ к видимости этих кнопок на экране. Т.е. убрать их совсем с дисплея или поставить обратно. ЗЫ или даже добавить новую кнопку, как это сделано в VetCAD'е (добавлена кнопка масштабов).

ObjectARX + Win32

[Makswell]

Александр Ривилис, а лиспом никак?

[ShaggyDoc]

Через LISP можно добавить собственные кнопки, в строку. Для этого надо использовать AxAcadStatusBarButton.dll от http://www.manusoft.com/

Сам LISP, естественно, ничего не может добавить или убавить. Но он может обратиться к COM-объекту AcadStatusBarButton.Button и на LISP можно прицепить к созданной кнопке свои функции. Да и то на свой риск - некоторые версии рушили AutoCAD. Версия 4.30 вроде нормально работает, включая 2008ю

А работать со StatusBar для спрятывания кнопок можно только, как написал Александр Ривилис. Наверное, можно сделать и функцию или COM-объект для использования в LISP. Но порочную идею программно прятать стандартные кнопки вряд ли стоит осуществлять. А вот действительно ненужные иконки можно спрятать и без диалога - (setvar "TRAYICONS" 0)

[Makswell]

В том то и дело, что прятать я ничего не хотел. Наоборот. Просто у меня периодически сама прячется кнопка ЛИСТ/МОДЕЛЬ (также и снимается галочка в меню строки состояния). Хотелось бы это как-то исправить.
Т.к. у меня кроме VetCAD'a ничего серьёзного не поставлено, думаю что это происходит из-за его фишки с кнопкой масштабов.
А уже потом у меня фантазия разыгралась. Думаю, сделали ведь кнопку, может и мне тоже что-нибудь такое замутить?

Но вижу, не судьба. Скачал AcadStatButton (кстати вот ссылка: http://www.manusoft.com/Software/Fre...StatButton.zip) - и понял, что мне это не по зубам, потому что знаю только лисп, да и то не на "отлично". Мал я ишо и не опытен.
Да и, как я понял, там решается задача именно создания кнопки в статусбаре, а у меня изначально стояла другая задача.

[Кулик Алексей aka kpblc]

У меня на 2006-м AcadStatusBar вел себя некорректно даже на тестовых примерах (подробностей уже не помню). Так что с ним я плюнул разбираться...

[ShaggyDoc]

Сообщение от Кулик Алексей aka kpblc У меня на 2006-м AcadStatusBar вел себя некорректно даже на тестовых примерах (подробностей уже не помню). Так что с ним я плюнул разбираться...

Автор исправил этот баг для 2006. Это было в версии 4.10.

понял, что мне это не по зубам, потому что знаю только лисп,

А тут только LISP и надо. Как именно сделана dll и знать не надо. Достаточно её зарегистрировать (в архиве есть bat-файл). Есть и примеры, в том числе на LISP. Я сделал кнопку для вывода вертикального списка Layouts. Очень удобно - см. рисунок.

А вот весь набор функций:

Код:

[Выделить все]

 
(defun ru-acad-sbb-make-layouts-button
       (button_text button_clicked_call_back / srv)
;|
В качестве COM-сервера используется
AcadStatusBarButton.dll
Copyright 2003 ManuSoft http://www.manusoft.com
|;
  (setq *ru_sbb_layouts_maked* (vl-bb-ref '*ru_bb_sbb_layouts_maked* ))
  (if (not *ru_sbb_layouts_maked* )
    (progn
      (setq srv (vlax-create-object "AcadStatusBarButton.Button"))
      (vlax-put-property srv 'Text button_text)
      (vlax-put-property srv 'Width 0)
      (vlax-put-property
        srv
        'TooltipText
        "Выбор компоновки"
      ) ;_ end of vlax-put-property
      (vlax-put-property srv 'TooltipEnabled :vlax-true)
      (vlax-put-property
        srv
        'LispFunctionOnClicked
        (vl-symbol-name button_clicked_call_back)
      ) ;_ end of vlax-put-property
      (vlax-put-property srv 'Visible :vlax-true)
      (setq *ru_sbb_layouts_maked* t)
      (vl-bb-set '*ru_bb_sbb_layouts_maked* *ru_sbb_layouts_maked* )
    ) ;_ end of progn
  ) ;_ end of if
  srv
) ;_ end of defun
(defun ru-acad-sbb-make-layouts-button-on-click ()
                            ;|
Функция реакции на нажатие кнопки. Автокаду посылается
команда методом SendCommand. В строке команды мы вызываем
функцию переключения меню
|;
  (vlax-invoke-method
    (vla-get-activedocument (vlax-get-acad-object))
    'SendCommand
    "(ru-dlg-set-layout)\n"
  ) ;_ end of vlax-invoke-method
  (princ)
) ;_ end of defun

(defun ru-acad-sbb-layouts-erase-button ()
  (vlax-release-object *ru_sbb_layouts_srv* )
) ;_ end of defun

Теперь где-то в инициализации можем записать:

Код:

[Выделить все]

 
(setq *ru_sbb_layouts_srv*
           (ru-acad-sbb-make-layouts-button
                                 "Компоновки"
                                 'ru-acad-sbb-make-layouts-button-on-click
            ) 
    )

И будет кнопка. Функция (ru-dlg-set-layout) здесь не приведена. Она собственно рисует диалог и включает выбранный Layout. А чтобы убрать кнопку - надо вызвать (ru-acad-sbb-layouts-erase-button)

[Makswell]

Покопавшись в реестре, нашел, где хранятся настройки строки состояния. Для моего Автокада с моим профилем они нашлись здесь:

Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R17.1\ACAD-6001:419\Profiles\M-CAD2008\StatusBar\Application] "CursorCoordinatesPane"=dword:00000000 "SnapPane"=dword:00000001 "GridPane"=dword:00000001 "OrthoPane"=dword:00000001 "PolarPane"=dword:00000001 "OSnapPane"=dword:00000001 "OTrackPane"=dword:00000001 "DynamicUCSPane"=dword:00000001 "DynInputPane"=dword:00000001 "LineweightPane"=dword:00000001 "Paper/ModelPane"=dword:00000001 "TabletPane"=dword:00000001 "FloatPane"=dword:00000001 "SpacerPane"=dword:00000001 "VpMaxPrevPane"=dword:00000001 "VpMaxPane"=dword:00000001 "VpMaxNextPane"=dword:00000001 "ModelIconPane"=dword:00000001 "LayoutIconPane"=dword:00000001 "LayoutMoreIconPane"=dword:00000001 "CleanScreenPane"=dword:00000001 "AnnotationScales"=dword:00000001 "ViewportScales"=dword:00000001 "ViewportLockState"=dword:00000001 "AnnotationVisibility"=dword:00000001 "AutoScale"=dword:00000001

Следовательно, можно убрать и вернуть на место любую стандартную кнопку. Для удаления кнопки лист/модель код будет такой (опять же для моей конфигурации):

Код:

[Выделить все]

(defun test (/ WshShell)
  (setq WshShell (vlax-create-object "WScript.Shell"))
  (vlax-invoke
    WshShell 'RegWrite
    "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD\\R17.1\\ACAD-6001:419\\Profiles\\M-CAD2008\\StatusBar\\Application\\Paper/ModelPane"
    0 "REG_DWORD")
)

[Makswell]

Хотя нет, здесь я поспешил.
Я уже немного улучшил предыдущий код, сделав его универсальным:

Код:

[Выделить все]

(defun test (/ WshShell RegistryPath RegistryKey Key)
  (setq RegistryKey "Paper/ModelPane")	;имя параметра реестра
  (setq Key 0)				;значение параметра реестра
  (setq	RegistryPath
	 (strcat "HKEY_CURRENT_USER\\"
		 (vlax-product-key)
		 "\\Profiles\\"
		 (getvar "CPROFILE")
		 "\\StatusBar\\Application\\"
	 )
  )
  (setq WshShell (vlax-create-object "WScript.Shell"))
  (vlax-invoke
    WshShell
    'RegWrite
    (strcat RegistryPath RegistryKey)
    Key
    "REG_DWORD"
  )
  (princ)
)

Но не тут то было.
В реестре всё меняется, но в Автокаде - нет.
1. Если закрыть Автокад, значения в реестре возвращаются к начальному состоянию.
2. Если после запуска этого лиспа запустить вторую копию Автокада, то она запустится уже без кнопки ЛИСТ/МОДЕЛЬ.

В итоге, я вообще усомнился в целесообразности работы с реестром из лиспа, т.к. лисп работает только в Автокаде, а Автокад сам меняет значения параметров в реестре, несмотря ни на какие лиспы.