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

Цветовые схемы вкладки модель · 25.05.2010, 00:02

По просьбам трудящихся... вот:
Готовый модуль ищите здесь: 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)

Кулик Алексей aka kpblc · 25.05.2010, 00:05

А развивать придется

Хотя бы снять необходимость отдельного файла диалогового окна: http://autolisp.ru/2010/03/15/dcl-dialogs-create/

gomer · 25.05.2010, 00:53

>Кулик Алексей aka kpblc: Думаю в данном случае диалог предпочтительнее, возможно я ошибаюсь...
Насчет bricscad - отдельная тема
1. Диалог нужно создавать динамически, чтобы защитить код... (ненадежно если win-система барахлит, хотя у меня проблем с этим не было пока)
2. Цвета только индексные труколор пока не реализован (может сейчас ситуация изменилась - не тестировал)
В общем получается совсем другая программа

Кулик Алексей aka kpblc · 25.05.2010, 01:02

Вообще-то BricsCAD упоминался в качестве примера, ну да ладно. Основная идея - формировать файл диалога на лету:

Цитата:

Обратите внимание – конечный пользователь получает один (!) лисп, который по мере надобности создает файл диалога и корректно его отображает. Уже не надо беспокоиться о том, чтобы dcl-файл лежал в строго определенном месте.

gomer · 25.05.2010, 01:10

Цитата:

Сообщение от Кулик Алексей aka kpblc

Основная идея - формировать файл диалога на лету

ага, что-то типа вот этого:

Код:

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

(defun DynDia ( / objScr objFile strFile dcl_id tmp strEnter)
  (vlax-invoke
	(setq
	  strEnter "Default"
	  objFile
	  (vlax-invoke
		(setq objScr (vla-getinterfaceobject (vlax-get-acad-object) "Scripting.FilesystemObject"))
		'CreateTextFile
		(setq strFile
			(strcat
				(vl-filename-directory (setq tmp (vl-filename-mktemp (getvar "DWGNAME"))))
				(vl-filename-base tmp)
				".dcl"
			)
		)
	  )
	)
	'Write
	(apply
	  'strcat
	  (mapcar
		'(lambda (x) (strcat x "\r\n"))
		'(
			"dlg : dialog {"
			"label = \"Dynamic Dialog Example\";"
			": boxed_column {"
			"label = \"Enter Data to process\";"
			":edit_box{edit_width = 16;key = \"Edit1\";label = \"Enter string: \";}"
			"}"
			"ok_only;"
			"}"
		)
	  )
	)
  )
  (vlax-invoke objFile 'Close)
  (mapcar 'vlax-release-object (list objScr objFile))
  (setq dcl_id (load_dialog strFile))
  (vl-file-delete strFile)
  (new_dialog "dlg" dcl_id)
  (set_tile "Edit1" strEnter)
  (action_tile "accept" "(setq strEnter (get_tile \"Edit1\"))")
  (start_dialog)
  (unload_dialog dcl_id)
  strEnter
)

Причем каждый раз происходит запись на диск...

Кулик Алексей aka kpblc · 25.05.2010, 01:54

Зачем обращаться к Scripting - лично я не очень понимаю...

Александр Ривилис · 25.05.2010, 14:35

Цитата:

Сообщение от Кулик Алексей aka kpblc

Зачем обращаться к Scripting - лично я не очень понимаю...

Я тоже. (open), (princ), (write-line), (close), и т.д. еще никто не отменял.

gomer · 25.05.2010, 16:10

>Александр Ривилис: Согласен с вами

Хотя не знаю, что быстрее...
Дело в другом, Обратная схема работает немного коряво (ИМХО) с помощю функции (read-line fd) в цикле... (while или repeat)
Scripting.FileSystemObject позволяет сразу считать весь файл с помощью метода ReadAll

Код:

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

(defun _ReadTextFile (strFile / strFullName objScr objFile Result)
 (if (setq strFullName(findfile strFile))
   (setq
	objScr (vla-getinterfaceobject (vlax-get-acad-object) "Scripting.FilesystemObject")
	objFile(vlax-invoke-method objScr 'OpenTextFile strFullName 1 nil -2)
	Result (vlax-invoke objFile 'ReadAll)
	*dummy*(vlax-invoke objFile 'Close)
	*dummy*(mapcar 'vlax-release-object (list objFile objScr)))
  )

  Result
)

и дальше быстро преобразовать результат в список...
Это очень удобно при работе с форматом cdf

Вовочка · 19.08.2011, 13:20

gomer, хочу загрузить лиспом, но ничего не выходит. Почему?

gomer · 20.08.2011, 04:15

А что именно не выходит - то?

perpetule · 22.08.2011, 16:13

Да все работает - замечательно, но хотелось бы свои наборы цветов.
А перекомпилировать я не могу из лиспа в начале топика, проставил свои цвета, даже *.VLX скомпилировал, он даже грузится, и выводит начальные строки типа введите ACS + enter и на этом далее тишина ...

Так, есть еще *.dcl файлик, но что с ним делать - выше моего понимания ...

gomer · 22.08.2011, 16:43

а вводить acs в командной строке пробовали?

perpetule · 22.08.2011, 17:10 **gomer**

Цитата:

Да все работает - замечательно, но хотелось бы свои наборы цветов.

Слишком большой контраст при классической теме напрягает глаза , белый фон вообще их убивает.

gomer · 22.08.2011, 19:56

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

perpetule · 22.08.2011, 22:25 **gomer**

Поменял цвета в исходном коде lsp, скомпилировал vlisp ом оба файла acs.lsp acs.dcl
Но выходной файл acs.vlx не функционирует...

gomer · 23.08.2011, 15:30

прошу прощения за кривые ручки, но они не у меня... у меня все работает

Цитата:

Сообщение от perpetule

выходной файл acs.vlx не функционирует...

опишите подробно ваши действия!

perpetule · 23.08.2011, 18:07 **gomer**

Кстати, попытался исходники без всяких изменений с моей стороны перекомпилировать в *.vlx - картина ровно такая же.

Пошагово - копи паст из листингов темы в файлы acs.lsp acs.dcl
_vlisp далее мастер новых приложений - создать - расширенный режим - пути обзором - подкидываю последовательно оба вышеназванных файла на выходе подлучаю acs.vlx котрый скармливаю автокаду, на совет набрать в ком строке acs + enter выполняю далее абсолютно ничего не происходит...
Скармливаю опять acs.vlx из http://dwg.ru/dnl/5976, все опять работает, но мне бы хотелось ваять свои наборы цветов, т.к. даже в течение дня неплохо было бы менять фон, матерчатые жалюзи не до конца солнышко гасят, а оно у нас в Волгограде очень неслабое.

gomer · 23.08.2011, 18:53

Цитата:

Сообщение от perpetule

_vlisp далее мастер новых приложений - создать - расширенный режим - пути обзором - подкидываю последовательно оба вышеназванных файла на выходе подлучаю acs.vlx котрый скармливаю автокаду, на совет набрать в ком строке acs + enter выполняю далее абсолютно ничего не происходит...
Скармливаю опять acs.vlx из http://dwg.ru/dnl/5976, все опять работает

странно... у меня работает и компилированный вариант и просто лисп с диалогом... если в ком строке уже есть приглашение, значит загрузка прошла успешно...попробуйте загрузить лисп (некомпилированный) из папки которую видит акад... если у вас проблемы с акадом или что-то стоит еще, это может выплыть... попробуйте изменить название команды... и скомпилировать еще раз...

perpetule · 24.08.2011, 21:05 **gomer**

Цитата:

попробуйте загрузить лисп (некомпилированный) из папки которую видит акад

Попробовал, результат такой же, папка прописана в путях доступа, вер. а. 2010
ACS.lsp
ACS.dcl

Файл *.dcl через меню автокада не грузится (нет такого типа расширений), но просто находится в той же папке.

Цитата:

попробуйте изменить название команды... и скомпилировать еще раз...

попробовал результат тото же.

Просьба к уважаемым лисперам, отпишитесь, будьте так добры, у кого нибудь работает лисп копи пастом из #1

Кулик Алексей aka kpblc · 24.08.2011, 22:35

Работает, только что специально проверял на некомпилированном.

perpetule · 25.08.2011, 00:07 **gomer**

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

gomer · 31.08.2011, 19:15

Обновил программу до версии 2.0
Теперь можно использовать собственные цветовые схемы (в архиве присутствует тестовая схема)
Здесь предлагаю обсуждать свои предпочтения, выкладывать собственные схемы

Вовочка · 23.09.2011, 09:06

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

gomer · 24.09.2011, 11:43

Цитата:

Сообщение от Вовочка

когда выбираешь схему, хотелось бы при двойном ЛКМ что бы она задействовалась, а не нажимать "ОК".

К сожалению, насколько мне известно, это невозможно по определению ввиду ограничения dcl

Vov.Ka · 24.09.2011, 15:48

Цитата:

Сообщение от Вовочка

Пожелание: когда выбираешь схему, хотелось бы при двойном ЛКМ что бы она задействовалась

после

Код:

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

label = "Выбери из списка:";

добавить

Код:

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

allow_accept = true;

gomer · 24.09.2011, 18:31

Цитата:

Сообщение от Vov.Ka

после

Код:

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

Код:

allow_accept = true;

И что это дает? allow_accept больше подходит для "кнопок", а не для списков, где выбирается всегда первый элемент

Не обрабатывает акад второй клик по элементу и все тут...

_REGEN · 24.09.2011, 20:15

Цитата:

Сообщение от gomer

Не обрабатывает акад второй клик по элементу и все тут...

А если так -

очень похоже на двойной клик.

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

Vov.Ka · 24.09.2011, 22:44

Цитата:

Сообщение от gomer

И что это дает? allow_accept больше подходит для "кнопок", а не для списков, где выбирается всегда первый элемент

Не обрабатывает акад второй клик по элементу и все тут...

даже не знаю, что и скзать тогда

ну поробуйте, хотя бы...

gomer · 25.09.2011, 00:35

Vov.Ka, попробуйте почитать об autolisp и dcl и вы поймете что мне нечего вам ответить

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

Vov.Ka · 25.09.2011, 02:27

Цитата:

Сообщение от gomer

Vov.Ka, попробуйте почитать об autolisp и dcl

не, лучше пойду в WoW поиграю

VVA · 25.09.2011, 11:58

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

gomer · 25.09.2011, 14:31

Цитата:

Сообщение от VVA

Зря ты шумишь. Лучше попробуй. Человек тебе дело советует.

действительно... запутали меня вовы... Vov.Ka правильно сказал, но остается вопрос, что делать с кнопкой Ок? Без нее дабл клик не работает (я собственно потому и кричал, что при проверке убрал ее, как хотел Вовочка). Кнопка более наглядна, но дабл клик удобен для уверенных пользователей... вобщем на неделе перезалью, наверное...

semvb · 28.09.2011, 12:03

Хорошая утилита, спасибо автору! Но можно ли как нибудь добавить в код еще и изменение цвета фона листа и курсора на листе?

gomer · 28.09.2011, 14:37

Цитата:

Сообщение от semvb

можно ли как нибудь добавить в код еще и изменение цвета фона листа и курсора на листе?

Можно будет в следующей версии. Я планирую сделать схемы в формате xml.

semvb · 28.09.2011, 15:31

Цитата:

схемы в формате xml

xml - это параметры цветовой схемы окон? или полный код программы?
Можно ли будет настроить под себя и навесить макрос на кнопку?
Честно говоря, вполне устраивает lsp c dcl, как говорил Жванецкий, если и так хорошо, зачем еще лучше!

Вовочка · 28.09.2011, 17:45

Большое спасибо. Ждемс...

gomer · 28.09.2011, 18:17

Цитата:

Сообщение от semvb

xml - это параметры цветовой схемы окон? или полный код программы?

Ну, конечно же схемы будут храниться в формате xml. А сама пограмма останется лисп-приложением

semvb · 29.09.2011, 08:55

Большое спасибо. Ждем!

VVA · 29.09.2011, 19:37

Цитата:

Сообщение от 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 файле

gomer · 29.09.2011, 21:23

Цитата:

Сообщение от VVA

Мой вариант.

Я мог бы долго ругаться насчет кода #39, но меня давно удивляет способность таких Программистов, как VVA, kpblc... в коротких срок писать коды, которые сам б вынашивал гораздо дольше... За что им почет, респект и уважуха

Что ж нужно парировать! Займусь этим на выходных

semvb · 30.09.2011, 09:19

Браво!!!

semvb · 19.01.2012, 09:57

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

VVA · 19.01.2012, 18:42

semvb, Если ты про код из #39, то в dwgru_color_schema.xml Нужно узнать как называется это свойство (по типу ModelCrosshairColor). Пусть, например, оно называется ModelCommandLineTextColor. Тогда в xml добавить строчку

Цитата:

semvb · 19.01.2012, 19:16

Как добавить строчки в dwgru_color_schema.xml понятно, имелось в виду именно узнать как называются нужные свойства (типа: ModelCommandLineTextColor, ModelCrosshairColor и т.п.)

VVA · 19.01.2012, 19:54

Скопировать код ниже в командную строчку, нажать Enter, F2 и поищи там

Код:

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

(vlax-dump-Object(vla-get-display(vla-get-preferences(vlax-get-acad-object))) t)

semvb · 19.01.2012, 20:10

Чего-то не понял? 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 Выполняется регенерация модели.
Команда:

VVA · 20.01.2012, 10:51

Сначала вставить код в командную строчку, а а затем 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

semvb · 20.01.2012, 12:51

Не выходит каменный цветок!

Цитата:

Команда:
(vlax-dump-Object(vla-get-display(vla-get-preferences(vlax-get-acad-object))) t)
; ошибка: no function definition: VLAX-GET-ACAD-OBJECT

Кулик Алексей aka kpblc · 20.01.2012, 17:40

Цитата:

Сообщение от semvb

Не выходит каменный цветок!

Offtop: А нечего было его глотать!

http://autolisp.ru/2010/06/09/no-fun...t-acad-object/

semvb · 20.01.2012, 18:45

Виват всем Гуру! Заработало!

Как бы хотелось успевать все знать!

Traycho · 21.02.2012, 15:47

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

VVA · 21.02.2012, 17:59

Traycho, Может быть и можно, но я таких свойств (только для текущего чертежа) не нашел.

Вовочка · 19.09.2012, 14:09

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

gomer · 19.09.2012, 16:40

Цитата:

Сообщение от Вовочка

Хотелось бы иметь ОДНУ кнопочку с переключением с классики на зиму

Перезалил архив, теперь вы можете сами создавать макросы для переключения схем. Команда acs работает из командной строки и не чувствительна к регистру, для вызова окошка используйте команду ddacs

Вовочка · 04.10.2012, 09:57

gomer, спасибо. Но не хочу прикручивать назад vlx. Понравился вариант от VVA. Может быть он чуть модифицирует свою программу (пост №39) под мои нужды

Спасибо.

VVA · 14.11.2012, 17:27

Вовочка, Внес изменения в #39

Вовочка · 14.11.2012, 18:50

Можно ли 2 макроса прикрепить к одной кнопке по принципу "зима или классика"?

VVA · 14.11.2012, 19:45

Что-то типа такого

Код:

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

(dwgru_put_schema_by_name "dwgru_color_schema.xml"
  (if (eq(getvar "USERS1")"Winter") (setvar "USERS1" "Classic")(setvar "USERS1" "Winter")
 )
)

при желании можно и кнопку поменять

Вовочка · 15.11.2012, 10:08

большое спасибо. последняя просьба по даному вопросу - можно еще убить всплывающее окно замены цветовой схемы с звуковым сопровождением?

VVA · 16.11.2012, 12:08

Цитата:

Сообщение от Вовочка

большое спасибо. последняя просьба по даному вопросу - можно еще убить всплывающее окно замены цветовой схемы с звуковым сопровождением?

Обновил #39
Вместо

Код:

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

(setq *SHOW_MESSAGE* t) ;_показывать сообщения

Поставь

Код:

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

(setq *SHOW_MESSAGE* nil) ;_Не показывать сообщения

hwd · 17.11.2012, 16:12

Цитата:

Сообщение от VVA

Обновил #39

Возможно стоит обновить ещё раз: всё содержимое файла ReadMe.txt идёт в одну строку... Для того, чтобы прочитать, приходится самому сначала заниматься форматированием, добавляя недостающие пробелы и переносы строк. Если ваш txt-файл открывать в браузере - кажет нормально, но если заменить расширение txt на html - так же будет в одну строку.

VVA · 17.11.2012, 16:31

hwd, Только что скачал на домашний компьютер. Открывал readme.txt notepad++ и просто notepad - текст выглядит нормально

hwd · 17.11.2012, 16:51

Цитата:

Сообщение от VVA

Открывал readme.txt notepad++ и просто notepad - текст выглядит нормально

Попробовал в Notepad++ - да, он показывает корректно... Но "виндовый" блокнот отображает так:

У меня Windows 8 x64.

skkkk · 17.01.2014, 07:28

Никто ли случайно из "местных топиковцев" не знает, как можно программно менять цвет динамической размерной линии? (Она же резиновая нить, она же rubber-band, она же dynamic dimension line). Для нее в Active-X такого свойства нет и в помине. Мои соображения и раскопки есть здесь, начиная с #64.
Ну и до кучи: как менять цвет вектора автоотслеживания? Конструкция наподобие

Код:

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

 (vla-put-AutoTrackingVecColor
	(vla-get-Display
		(vla-get-Preferences
			(vlax-get-acad-object)))
	(vlax-make-variant 12634758 19))

почему-то не отрабатывает. То ли меняет что-то, чего я так и не нашел, то ли ничего не меняет. У Полещука сказано, что AutoTrackingVecColor - это вообще свойство цвета маркера объектной привязки, но логики тут не видать: во-первых, по смыслу значений английских слов, это - все же более походит на вектор автоотслеживания, а во вторых, не наблюдается принадлежности к пространству модели/листа, а этот цвет в листе может отличаться от такового в модели (по аналогии с ModelCrosshairColor/LayoutCrosshairColor).

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Расчетная модель каркасного здания со стеновым заполнением	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