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

Вернуться   Форум 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)
Просмотров: 22650
 
Непрочитано 25.08.2011, 00:07 gomer
#21
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 810
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


Кулик Алексей aka kpblc
Огромное спасибо.
Работает, все дело видимо в том, что копи паст я делал из сохраненных оперой страниц, сегодня попробовал копи пастить непосредственно из оперы онлайн и о чудо - все заработало. Лисп - крайне полезный - огромное спасибо, кроме того я так понимаю, с помощью *.vlx можно собрать в один файл многие часто используемые приложения на *.lsp коих набралось уже немало, надеюсь все же и самому влезть в программирование под свои нужды, но пока все некогда...
perpetule вне форума  
 
Автор темы   Непрочитано 31.08.2011, 19:15
#22
gomer

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


Обновил программу до версии 2.0
Теперь можно использовать собственные цветовые схемы (в архиве присутствует тестовая схема)
Здесь предлагаю обсуждать свои предпочтения, выкладывать собственные схемы
gomer вне форума  
 
Непрочитано 23.09.2011, 09:06
#23
Вовочка

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


Здравствуйте. На мое предпочтение лучше читать белым по черному при этом имея черный экран. Золотая середина между классикой и негативом. Пожелание: когда выбираешь схему, хотелось бы при двойном ЛКМ что бы она задействовалась, а не нажимать "ОК". Дело не в скорости, а в удобстве. Спасибо.
Вовочка вне форума  
 
Автор темы   Непрочитано 24.09.2011, 11:43
#24
gomer

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


Цитата:
Сообщение от Вовочка Посмотреть сообщение
когда выбираешь схему, хотелось бы при двойном ЛКМ что бы она задействовалась, а не нажимать "ОК".
К сожалению, насколько мне известно, это невозможно по определению ввиду ограничения dcl
gomer вне форума  
 
Непрочитано 24.09.2011, 15:48
#25
Vov.Ka


 
Регистрация: 21.07.2008
Луцьк
Сообщений: 177


Цитата:
Сообщение от Вовочка Посмотреть сообщение
Пожелание: когда выбираешь схему, хотелось бы при двойном ЛКМ что бы она задействовалась
после
Код:
[Выделить все]
label = "Выбери из списка:";
добавить
Код:
[Выделить все]
allow_accept = true;
Vov.Ka вне форума  
 
Автор темы   Непрочитано 24.09.2011, 18:31
#26
gomer

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


Цитата:
Сообщение от Vov.Ka Посмотреть сообщение
после

Код:

label = "Выбери из списка:";
добавить

Код:

allow_accept = true;
И что это дает? allow_accept больше подходит для "кнопок", а не для списков, где выбирается всегда первый элемент
Не обрабатывает акад второй клик по элементу и все тут...
gomer вне форума  
 
Непрочитано 24.09.2011, 20:15
#27
_REGEN


 
Регистрация: 14.12.2010
Там, где мамонты жили ...
Сообщений: 224


Цитата:
Сообщение от gomer Посмотреть сообщение
Не обрабатывает акад второй клик по элементу и все тут...
А если так -
очень похоже на двойной клик.

Забыл сказать СПАСИБО gomer
Добавил в *.lsp свои цветовые схемы, и чуствую себя человеком.
Еще раз СПАСИБО!
__________________
Время – лучшее лекарство, лечит даже от жизни.

Последний раз редактировалось _REGEN, 24.09.2011 в 20:33.
_REGEN вне форума  
 
Непрочитано 24.09.2011, 22:44
#28
Vov.Ka


 
Регистрация: 21.07.2008
Луцьк
Сообщений: 177


Цитата:
Сообщение от gomer Посмотреть сообщение
И что это дает? allow_accept больше подходит для "кнопок", а не для списков, где выбирается всегда первый элемент
Не обрабатывает акад второй клик по элементу и все тут...
даже не знаю, что и скзать тогда
ну поробуйте, хотя бы...
Vov.Ka вне форума  
 
Автор темы   Непрочитано 25.09.2011, 00:35
#29
gomer

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


Vov.Ka, попробуйте почитать об autolisp и dcl и вы поймете что мне нечего вам ответить к тому же я придерживаюсь мнения, что диалог должен иметь кнопки Ок и Отмена, иначе ошибка может стоить времени... Другой вопрос, может быть стоит добавить предпросмотр схем по клику на списке, но тогда при нажатии кнопки отмена придется восстанавливать исходную расцветку
gomer вне форума  
 
Непрочитано 25.09.2011, 02:27
#30
Vov.Ka


 
Регистрация: 21.07.2008
Луцьк
Сообщений: 177


Цитата:
Сообщение от gomer Посмотреть сообщение
Vov.Ka, попробуйте почитать об autolisp и dcl

не, лучше пойду в WoW поиграю
Vov.Ka вне форума  
 
Непрочитано 25.09.2011, 11:58
#31
VVA

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


gomer, Зря ты шумишь. Лучше попробуй. Человек тебе дело советует.
Код:
[Выделить все]
ACS_MAIN : dialog {
  key = "main";
  label = "Цветовые схемы вкладки *Модель*";
  : list_box {
	key = "select";
	label = "Выбери из списка:";
	allow_accept = true;
  }
  :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;
}
Dcl, конечно, ограниченный язык описания диалогов, но не на столько
Using double-click in a dcl list box
Dialog Boxes in Action
AutoLISP treasure chest
Can DCL be set to accept double clicks?
Double Click in a List_Box
Еще двойной клик можно анализировать по $reason. Оно в этом случае будет равно 4
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 30.09.2011 в 12:41.
VVA вне форума  
 
Автор темы   Непрочитано 25.09.2011, 14:31
#32
gomer

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


Цитата:
Сообщение от VVA Посмотреть сообщение
Зря ты шумишь. Лучше попробуй. Человек тебе дело советует.
действительно... запутали меня вовы... Vov.Ka правильно сказал, но остается вопрос, что делать с кнопкой Ок? Без нее дабл клик не работает (я собственно потому и кричал, что при проверке убрал ее, как хотел Вовочка). Кнопка более наглядна, но дабл клик удобен для уверенных пользователей... вобщем на неделе перезалью, наверное...
gomer вне форума  
 
Непрочитано 28.09.2011, 12:03
#33
semvb

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


Хорошая утилита, спасибо автору! Но можно ли как нибудь добавить в код еще и изменение цвета фона листа и курсора на листе?
semvb вне форума  
 
Автор темы   Непрочитано 28.09.2011, 14:37
1 | #34
gomer

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


Цитата:
Сообщение от semvb Посмотреть сообщение
можно ли как нибудь добавить в код еще и изменение цвета фона листа и курсора на листе?
Можно будет в следующей версии. Я планирую сделать схемы в формате xml.
gomer вне форума  
 
Непрочитано 28.09.2011, 15:31
#35
semvb

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


Цитата:
схемы в формате xml
xml - это параметры цветовой схемы окон? или полный код программы?
Можно ли будет настроить под себя и навесить макрос на кнопку?
Честно говоря, вполне устраивает lsp c dcl, как говорил Жванецкий, если и так хорошо, зачем еще лучше!
semvb вне форума  
 
Непрочитано 28.09.2011, 17:45
#36
Вовочка

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


Большое спасибо. Ждемс...
Вовочка вне форума  
 
Автор темы   Непрочитано 28.09.2011, 18:17
#37
gomer

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


Цитата:
Сообщение от semvb Посмотреть сообщение
xml - это параметры цветовой схемы окон? или полный код программы?
Ну, конечно же схемы будут храниться в формате xml. А сама пограмма останется лисп-приложением
gomer вне форума  
 
Непрочитано 29.09.2011, 08:55
#38
semvb

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


Большое спасибо. Ждем!
semvb вне форума  
 
Непрочитано 29.09.2011, 19:37
3 | #39
VVA

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


Цитата:
Сообщение от gomer Посмотреть сообщение
Ну, конечно же схемы будут храниться в формате xml. А сама пограмма останется лисп-приложением
Мой вариант. Цветовые схемы хранятся в XML файле.
Доступны 2 команды:
ACS - применяет выбранную схему
GetShema - печатает в текстовом окне фрагмент настроек для xml файла текущей цветовой схемы.
xml файл должен находится в путях доступа

*Добавлено 2012-11-14 *
Обновлен архив добавлена функция для использования в макросах dwgru_put_schema_by_name
Пример
(dwgru_put_schema_by_name "D:\\dwgru_color_schema.xml" "Winter")
Файл находится на диске D: Схема - Winter
(dwgru_put_schema_by_name "dwgru_color_schema.xml" "Classic")
Файл находится в путях поддержки Схема - Classic
Важно!
Название схемы чувствительно к регистру! Должно быть точно таким, как в xml файле
Вложения
Тип файла: zip color sheme.zip (4.9 Кб, 86 просмотров)
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 16.11.2012 в 12:07.
VVA вне форума  
 
Автор темы   Непрочитано 29.09.2011, 21:23
#40
gomer

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


Цитата:
Сообщение от VVA Посмотреть сообщение
Мой вариант.
Я мог бы долго ругаться насчет кода #39, но меня давно удивляет способность таких Программистов, как VVA, kpblc... в коротких срок писать коды, которые сам б вынашивал гораздо дольше... За что им почет, респект и уважуха Что ж нужно парировать! Займусь этим на выходных
gomer вне форума  
Ответ
Вернуться   Форум 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