| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > Цветовые схемы вкладки модель

Цветовые схемы вкладки модель

Ответ
Поиск в этой теме
Непрочитано 25.05.2010, 00:02 1 |
Цветовые схемы вкладки модель
gomer
 
строю, ломаю
 
Украина
Регистрация: 03.04.2008
Сообщений: 5,550

По просьбам трудящихся... вот:
Готовый модуль ищите здесь: http://dwg.ru/dnl/5976
Программа дает возможность применять цветовые схемы в Автокад (по типу WinAmp)

lsp:
Код:
[Выделить все]
(defun C:ACS ( / conv what_select what_next dcl_id slist dspl_obj)
  (vl-load-com)
  (setq
	conv (lambda (x) (vlax-make-variant (+(*(caar x))(* (cadar x)(expt 2 8))(*(caddar x)(expt 2 16)))vlax-vbLong))
	what_next 3
  )
  (if (setq dcl_id (load_dialog "ACS.dcl"))
	(progn
	  (while (< 1 what_next)
		(cond
		  ((= 3 what_next)
			(new_dialog "ACS_MAIN" dcl_id)
			(start_list "select")
			(mapcar '(lambda (x) (add_list (car x)))
			  (setq
				slist
				;; ( цвет_фона цвет_курсора цвет_фона_комстр цвет_текста_комстр )
				(list
				(list "Классик" '(0 0 0) '(255 255 255) '(255 255 255)  '(0 0 0) )
				(list "Негатив" '(255 255 255) '(0 0 0) '(0 0 0) '(255 255 255 ) )
				(list "Зима"    '(214 214 214) '(0 0 0) '(255 255 255 ) '(0 0 0) )
				(list "Матрица" '(0 0 0) '(0 255 0) '(0 0 0) '(0 255 0)  )
				(list "Океан"   '(0 0 0) '(255 255 255) '(0 173 173)  '(255 255 255) )
				(list "Паскаль" '(0 0 0) '(255 255 255) '(0 0 255) '(255 255 0) )
				(list "Сакура"  '(0 0 0) '(246 223 233) '(246 223 233) '(120 70 44) )
				(list "Глубокое погружение" '(38 40 48) '(127 159 255) '(38 40 48) '(127 159 255) )
				)
			  )
			)
			(end_list)
			(mode_tile "accept" 1)
			(action_tile "select" "(mode_tile \"accept\" 0)")
			(action_tile "cancel" "(done_dialog 0)")
			(action_tile "accept" "(setq what_select (get_tile \"select\"))(done_dialog 1)")
			(action_tile "help"   "(alert \"Справка пока не доступна\")")
			(action_tile "info" "(done_dialog 2)")
			(setq what_next (start_dialog))
		  )
		  ((= 2 what_next)
			(new_dialog "ACS_ABOUT" dcl_id)
			(action_tile "accept" "(done_dialog 3)")
			(setq what_next (start_dialog))
		  )
		)
	  )
	  (unload_dialog dcl_id)
	  (if (= 1 what_next)
		(progn
		  (prompt "\nПрименяю новую цветовую схему...")
		  (setq
			dspl_obj (vla-get-display (vla-get-Preferences (vlax-get-acad-object)))
			slist (cdr (nth (atoi what_select) slist))
		  )
		  (vla-put-GraphicsWinModelBackgrndColor dspl_obj (conv slist))
		  (setq slist (cdr slist))
		  (vla-put-ModelCrosshairColor dspl_obj (conv slist))
		  (setq slist (cdr slist))
		  (vla-put-TextWinBackgrndColor dspl_obj (conv slist))
		  (setq slist (cdr slist))
		  (vla-put-TextWinTextColor dspl_obj (conv slist))
		)
	  )
	)
	(alert "Невозможно загрузить диалог")
  )
  (princ)
)
(prompt "\nЦветовые схемы вкладки модель\nНаберите в командной стоке <ACS+[Enter]> для запуска приложения")
(princ)
dcl:

Код:
[Выделить все]
ACS_MAIN : dialog {
  key = "main";
  label = "Цветовые схемы вкладки *Модель*";
  : list_box {
	key = "select";
	label = "Выбери из списка:";
  }
  :row {
    fixed_width = true;
    ok_cancel_help_info;
  }
}

ACS_ABOUT : dialog {
  key = "about";
  label = "О программе...";
  : boxed_column {
  : paragraph {
  	children_alignment = centered;
	: text_part {label = "  Цветовые схемы 1.1  ";}
	: text_part {label = "";}	
	: text_part {label = "  БЕСПЛАТНАЯ ВЕРСИЯ  ";}
	: text_part {label = "";}
  }}
  ok_only;
}
Для развития программы пока нет сил
Хотелось бы что бы схемы загружлись из внешних файлов (*.lsp)
Просмотров: 20359
 
Непрочитано 30.09.2011, 09:19
#41
semvb

Инженер-технолог
 
Регистрация: 18.11.2003
Мурманск
Сообщений: 180


Браво!!!
semvb вне форума  
 
Непрочитано 19.01.2012, 09:57
#42
semvb

Инженер-технолог
 
Регистрация: 18.11.2003
Мурманск
Сообщений: 180


В 2012 ACADе появились дополнительные настройки цветовых схем - например цвет фона и текста активной строчки командной строки. Хотелось бы дополнить файл с цветовыми схемами. Не подскажите, где хранятся настойки цветов [GraphicsWinModelBackgrndColor '(33 40 48)], [ModelCrosshairColor '(255 255 255)] и т.д.
semvb вне форума  
 
Непрочитано 19.01.2012, 18:42
#43
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,795
<phrase 1= Отправить сообщение для VVA с помощью Skype™


semvb, Если ты про код из #39, то в dwgru_color_schema.xml Нужно узнать как называется это свойство (по типу ModelCrosshairColor). Пусть, например, оно называется ModelCommandLineTextColor. Тогда в xml добавить строчку
Цитата:
<item lsp="(set_shema vla-put-ModelCommandLineTextColor '(33 33 33))"/>
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 19.01.2012, 19:16
#44
semvb

Инженер-технолог
 
Регистрация: 18.11.2003
Мурманск
Сообщений: 180


Как добавить строчки в dwgru_color_schema.xml понятно, имелось в виду именно узнать как называются нужные свойства (типа: ModelCommandLineTextColor, ModelCrosshairColor и т.п.)
semvb вне форума  
 
Непрочитано 19.01.2012, 19:54
#45
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,795
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Скопировать код ниже в командную строчку, нажать Enter, F2 и поищи там
Код:
[Выделить все]
(vlax-dump-Object(vla-get-display(vla-get-preferences(vlax-get-acad-object))) t)
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 20.01.2012 в 10:52. Причина: уточнение формултровки
VVA вне форума  
 
Непрочитано 19.01.2012, 20:10
#46
semvb

Инженер-технолог
 
Регистрация: 18.11.2003
Мурманск
Сообщений: 180


Чего-то не понял? F2 открывает текстовое окно, и где тут искать?

Файл адаптации загружен успешно. Группа адаптации: ACAD
Файл адаптации загружен успешно. Группа адаптации: CUSTOM
Файл адаптации загружен успешно. Группа адаптации: AUTOCADWS
Файл адаптации загружен успешно. Группа адаптации: MODELDOC
Файл адаптации загружен успешно. Группа адаптации: CONTENTEXPLORER
Файл адаптации загружен успешно. Группа адаптации: ACFUSION
Файл адаптации загружен успешно. Группа адаптации: EXPRESS
Файл адаптации загружен успешно. Группа адаптации: SPDS7
Файл адаптации загружен успешно. Группа адаптации: MENU
Файл адаптации загружен успешно. Группа адаптации: FORMAT
СПДС GraphiCS enabler loaded succesfully.
Подстановка [simplex.shx] вместо [svb.shx].
Выполняется регенерация модели.
_zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>:
_e Выполняется регенерация модели.
Утилиты меню AutoCAD загружены.
Команда: КОМСТР
Команда:
Команда:
Команда:
СПДС GraphiCS loaded succesfully.
Команда: _zoom
Укажите угол рамки, введите масштаб (nX или nXП), или
[Все/Центр/Динамика/Границы/Предыдущий/Масштаб/Рамка/Объект] <реальное время>:
_e Выполняется регенерация модели.
Команда:
semvb вне форума  
 
Непрочитано 20.01.2012, 10:51
#47
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,795
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Сначала вставить код в командную строчку, а а затем F2. Уточнил формулировку в #45
Цитата:
Команда:
(vlax-dump-Object(vla-get-display(vla-get-preferences(vlax-get-acad-object))) t)
; IAcadPreferencesDisplay: This object contains the options from the Display
tab on the Options dialog
; Значения свойств:
; Application (RO) = #<VLA-OBJECT IAcadApplication 00cdb528>
; AutoTrackingVecColor = неподдерживаемый тип результата: 19
; CursorSize = 100
; DisplayLayoutTabs = -1
; DisplayScreenMenu = 0
; DisplayScrollBars = 0
; DockedVisibleLines = 3
; GraphicsWinLayoutBackgrndColor = неподдерживаемый тип результата: 19
; GraphicsWinModelBackgrndColor = неподдерживаемый тип результата: 19
; HistoryLines = 400
; ImageFrameHighlight = 0
; LayoutCreateViewport = -1
; LayoutCrosshairColor = неподдерживаемый тип результата: 19
; LayoutDisplayMargins = -1
; LayoutDisplayPaper = -1
; LayoutDisplayPaperShadow = -1
; LayoutShowPlotSetup = 0
; MaxAutoCADWindow = 0
; ModelCrosshairColor = неподдерживаемый тип результата: 19
; ShowRasterImage = 0
; TextFont = "Courier New"
; TextFontSize = 10
; TextFontStyle = 0
; TextWinBackgrndColor = неподдерживаемый тип результата: 19
; TextWinTextColor = неподдерживаемый тип результата: 19
; TrueColorImages = -1
; XRefFadeIntensity = 50
; Нет методов
T
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 20.01.2012, 12:51
#48
semvb

Инженер-технолог
 
Регистрация: 18.11.2003
Мурманск
Сообщений: 180


Не выходит каменный цветок!
Цитата:
Команда:
(vlax-dump-Object(vla-get-display(vla-get-preferences(vlax-get-acad-object))) t)
; ошибка: no function definition: VLAX-GET-ACAD-OBJECT
semvb вне форума  
 
Непрочитано 20.01.2012, 17:40
#49
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,693


Цитата:
Сообщение от semvb Посмотреть сообщение
Не выходит каменный цветок!
Offtop: А нечего было его глотать!
http://autolisp.ru/2010/06/09/no-fun...t-acad-object/
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 20.01.2012, 18:45
#50
semvb

Инженер-технолог
 
Регистрация: 18.11.2003
Мурманск
Сообщений: 180


Виват всем Гуру! Заработало!
Как бы хотелось успевать все знать!
semvb вне форума  
 
Непрочитано 21.02.2012, 15:47
#51
Traycho


 
Регистрация: 08.03.2005
Болгария
Сообщений: 5


А можно изменить фона /или цветовую схему/ только текущего чертежа, а не для всех открытых чертежей? Так как это происходит (версии 2008 и выше), ели "вручную" изменить в Tools->Options->Display->Colors->2D model space->Uniform background->Color для каждого чертежа. Или я чего-то не разбираюсь. /Извините если по русский не очень/
Traycho вне форума  
 
Непрочитано 21.02.2012, 17:59
#52
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,795
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Traycho, Может быть и можно, но я таких свойств (только для текущего чертежа) не нашел.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 19.09.2012, 14:09
#53
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


Суть вопроса. Работаю я с многими чертежами, разработанными разными людьми. Соответственно у одного рабочее место - черное, у другого белое ну и разные цветовые схемы. После перелопачивания огромного количества документов я понял, что в основной меняю цвета с классики на зиму. Получается, что диалогового окна данной программы мне не нужно. Хотелось бы иметь ОДНУ кнопочку с переключением с классики на зиму и обратно. Всем спасибо.
Вовочка вне форума  
 
Автор темы   Непрочитано 19.09.2012, 16:40
#54
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,550


Цитата:
Сообщение от Вовочка Посмотреть сообщение
Хотелось бы иметь ОДНУ кнопочку с переключением с классики на зиму
Перезалил архив, теперь вы можете сами создавать макросы для переключения схем. Команда acs работает из командной строки и не чувствительна к регистру, для вызова окошка используйте команду ddacs
gomer вне форума  
 
Непрочитано 04.10.2012, 09:57
#55
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


gomer, спасибо. Но не хочу прикручивать назад vlx. Понравился вариант от VVA. Может быть он чуть модифицирует свою программу (пост №39) под мои нужды Спасибо.
Вовочка вне форума  
 
Непрочитано 14.11.2012, 17:27
1 | #56
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,795
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Вовочка, Внес изменения в #39
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 14.11.2012, 18:50
#57
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


Можно ли 2 макроса прикрепить к одной кнопке по принципу "зима или классика"?
Вовочка вне форума  
 
Непрочитано 14.11.2012, 19:45
1 | #58
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,795
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Что-то типа такого
Код:
[Выделить все]
(dwgru_put_schema_by_name "dwgru_color_schema.xml"
  (if (eq(getvar "USERS1")"Winter") (setvar "USERS1" "Classic")(setvar "USERS1" "Winter")
 )
)
при желании можно и кнопку поменять
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 15.11.2012, 10:08
#59
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


большое спасибо. последняя просьба по даному вопросу - можно еще убить всплывающее окно замены цветовой схемы с звуковым сопровождением?
Вовочка вне форума  
 
Непрочитано 16.11.2012, 12:08
1 | #60
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,795
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Вовочка Посмотреть сообщение
большое спасибо. последняя просьба по даному вопросу - можно еще убить всплывающее окно замены цветовой схемы с звуковым сопровождением?
Обновил #39
Вместо
Код:
[Выделить все]
(setq *SHOW_MESSAGE* t) ;_показывать сообщения
Поставь
Код:
[Выделить все]
(setq *SHOW_MESSAGE* nil) ;_Не показывать сообщения
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > Цветовые схемы вкладки модель

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Расчетная модель каркасного здания со стеновым заполнением aldt Расчетные программы 5 12.03.2012 08:45
Лира 9.6. Монолитный тоннель и модель грунта Митрич Лира / Лира-САПР 4 12.04.2010 05:38
Предложения по расчетным моделям сооружений aldt Расчетные программы 8 06.07.2009 17:53
Проектирование КЖ в объеме. Haos Другие CAD системы 265 20.06.2009 22:50