Кнопки смены фона пространства модели AutoCAD

[Sharfik]

Поделюсь готовым вариантом "Как сделать кнопку переключения фона модели AutoCAD".

Кто работает с чертежами других проектировщиков мог сталкиваться с тем, что некоторые люди делают чертежи в цветах которые хорошо видны на светлом фоне, а на темном плохо и на оборот.

В архиве есть файл readme с описанием установки. В общих чертах что нужно сделать, чтобы получить две кнопки для установки цветов.


Установка:
1.Скопировать две приложенные картинки в папку AutoCAD
2.Создать панель инструментов с двумя кнопками в AutoCAD
3.Вставить в качестве команд кнопок ниже идующие lisp коды, и установить картинки.

Вставить в качестве команды для кнопки "Сделать фон светлым"

Код: [Select]

(defun c:LB ()
(setq acadobject (vlax-get-acad-object))
(setq acadpref (vlax-get-property acadobject 'preferences))
(setq acaddisp (vlax-get-property acadpref 'display))
(vlax-put-property acaddisp 'GraphicsWinmodelBackgrndColor 15659762) ; rgb 242,242,238
(vlax-put-property acaddisp 'ModelCrosshairColor 50) ; ACAD color 12 - rgb 50,50,50
)
lb;


 Вставить в качестве команды для кнопки "Сделать фон темным"

Код: [Select]

(defun c:DB ()
(setq acadobject (vlax-get-acad-object))
(setq acadpref (vlax-get-property acadobject 'preferences))
(setq acaddisp (vlax-get-property acadpref 'display))
(vlax-put-property acaddisp 'GraphicsWinmodelBackgrndColor 0) ; rgb 0,0,0
(vlax-put-property acaddisp 'ModelCrosshairColor 15659762) ; ACAD color 12 - rgb 242,242,238
)
db;


* В обоих случаях значение идущее после GraphicsWinmodelBackgrndColor обозначает цвет фона. В примерах он черный и белый. Если требуется другой, то формула для вычисления цвета из формата RGB в формат AutoCAD есть в readme архива.

PS: Те, у кого AutoCAD LT могут не тратить свое время, эта версия весьма урезанная, по самые не балуйся и там такой трюк не работает.

[Kirzaa]

Не у всех работает без  (vl-load-com). Ставьте второй строкой.