Форум проєктувальників електричних та слабострумних мереж
Проєктування => Програми, САПР та ін. => AutoCAD => Тема розпочата: Sharfik від 12 Березень 2012, 11:05:10
-
Поделюсь готовым вариантом "Как сделать кнопку переключения фона модели AutoCAD".
Кто работает с чертежами других проектировщиков мог сталкиваться с тем, что некоторые люди делают чертежи в цветах которые хорошо видны на светлом фоне, а на темном плохо и на оборот.
В архиве есть файл readme с описанием установки. В общих чертах что нужно сделать, чтобы получить две кнопки для установки цветов.
Установка:
1.Скопировать две приложенные картинки в папку AutoCAD
2.Создать панель инструментов с двумя кнопками в AutoCAD
3.Вставить в качестве команд кнопок ниже идующие lisp коды, и установить картинки.
Вставить в качестве команды для кнопки "Сделать фон светлым"
(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;
Вставить в качестве команды для кнопки "Сделать фон темным"
(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 могут не тратить свое время, эта версия весьма урезанная, по самые не балуйся и там такой трюк не работает.
-
Не у всех работает без (vl-load-com). Ставьте второй строкой.