[granit201z]

Здравствуйте. Подскажите пожалуйста как организовать запрос данных от пользователя целым списком. То есть не какого-то 1-го ключевого слова, а сразу десятка таких слов. То есть для примера такой запрос: "Выберите группы с которыми будем работать дальше: ". И должен выпасть список наподобие:

Гр.1
Гр.2
Гр.3
...
Гр.47
Гр.48

Пользователь за раз должен выбрать из этого списка столько групп - сколько ему захочется (от одной до всех сорока восьми), причем необязательно подряд. Например он хочет выбрать с 3 по 16 и с 32 по 39, или вообще через одну

Какими средствами это осуществляется?

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

[Кулик Алексей aka kpblc]

На каком языке интересует решение / метода?

[granit201z]

Сообщение от Кулик Алексей aka kpblc На каком языке интересует решение / метода?

Алексей, на AutoLisp

[Кулик Алексей aka kpblc]

В таком случае есть несколько вариантов: либо сделать initget и в конт.меню запрашивать у пользователя "до посинения" каждый элемент (пока он не нажмет "Хватит"), либо делать диалог на том же dcl, в котором прописывать popup_list с возможностью многократного выбора.

[granit201z]

спасибо. беда только в том, что если воспользоваться первым методом - необходимость в программе отпадает, так как вручную, пожалуй будет проще делать расчеты и чертить, а если вторым, то придется изучать все что с ним связано, так как для меня это темный лес. Тут в голову мысль бредовая пришла: Можно создать 48 примитивов MTEXT, вывести их в чертеж, заставить пользователя выбрать необходимые при помощи ssget, а после извлечь информацию о выбранных и удалить их с чертежа.

[Кулик Алексей aka kpblc]

Можно и так. Просто я предпочитаю без крайней нужды не создавать временные примитивы.

[Сергей812]

ввод строки, в ней через пробел номера позиций меню.. только настройте ввод-чтобы пробел не воспринимался как ввод

----- добавлено через ~16 мин. -----
т.е. что-то типа

Код:

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

 (setq s (getstring T "\nВведите позиции через пробел или группы позиций через '-'. Завершение - Ввод\n"))

а потом распарсить полученную строку по пробелам и тире.

----- добавлено через ~55 мин. -----
Ну или разбирайтесь с DCL. Ничего сложного там нет:

Код:

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

 dd_toggle : dialog 
{
 	label = "Выберите рабочие группы";
	fixed_height = true;
	// Размещаем в строке нужное количество чекбоксов, меняя лишь значения key и label
	:row
	{
		:toggle // Задаем чекбокс
 		{ 
			key = "tog01"; 
			value = "0"; 
			fixed_height = true; 
			alignment = center; 
			label = "Гр.01"; 
		} 
		:toggle 
 		{ 
			key = "tog02"; 
			value = "0"; 
			fixed_height = true; 
			alignment = center; 
			label = "Гр.02"; 
		}
		:toggle 
 		{ 
			key = "tog03"; 
			value = "0"; 
			fixed_height = true; 
			alignment = center; 
			label = "Гр.03"; 
		}

	}
	// Повторяем предыдущий код столько раз - сколько нужно строк с чекбоксами. При этом значения key должны быть уникальные!

	: row 
 	{
 		ok_button;
 		cancel_button;
 	}
}

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

[Do$]

http://www.lee-mac.com/listboxsync.html

[Profan]

48 переключателей в одной строке или в одном столбце - это не годится. Нужна матрица, скахем, 6х8.

[Сергей812]

Сообщение от Profan 48 переключателей в одной строке или в одном столбце - это не годится. Нужна матрица, скахем, 6х8.

Так и показал в примере - как разбить чекбоксы по строкам и столбцам.. решение в лоб.. не хочет человек глубоко влезать в DCL, пускай занимается копипастингом с незначительными корректировками) Можно, как показывал Алексей Кулик на autolisp.ru - делать файл dcl динамически и забивать в цикле значения. Можно на том же NetApi написать lisp-функцию и подключить и т.д.

[granit201z]

спасибо за ответы. буду разбираться

как показывал Алексей Кулик на autolisp.ru - делать файл dcl динамически и забивать в цикле значения

а можно ссылку на эту страницу. скорее всего это наиболее подходящий вариант, т.к. 48 групп это не статичная цифра. в зависимости от конкретной ситуации их может быть и 6, и 80, и т.д.

[Кулик Алексей aka kpblc]

Наверное, эта: http://autolisp.ru/2010/03/15/dcl-dialogs-create/

[Nike]

granit201z, функция dos_multilist из DOSLib не подойдет?

[granit201z]

Nike, пожалуй идеально подойдет. Но что такое DOSLib. И где можно подробнее ознакомиться с его практическим применением

----- добавлено через ~5 мин. -----
и еще вопрос. эта функция будет работать только на компе где этот самый DOSLib имеется?

[Nike]

granit201z, библиотека функций чья-то
http://www.en.na.mcneel.com/doslib.htm

Естественно, будет работать там, где имеется и заранее подгружена.

[gomer]

Сообщение от granit201z эта функция будет работать только на компе где этот самый DOSLib имеется?

Более того, раз в 2-3 года нужно будет обновлять код, чтоб включить поддержку новых версий дослиб, поддерживающих новые версии автокада.

[granit201z]

Сергей 812, спасибо за код. Получилось создать и запустить из лиспа диалог с тремя флажками в ряд. Но тут одна загвоздка. Чтобы активировать (деактивировать) флажок по нему нужно щелкнуть индивидуально - то есть не получается сразу выделить кучку близлежащих флажков рамкой, потом нажать например CTRL и выделить еще одну кучку близлежащих флажков. Можно ли с помощью DCL сделать окно подобное тому, которое нарисовано в скриншоте, который прислал Nike, описывая DOSLib

[Nike]

granit201z, глянь тут еще http://web2.iadfw.net/terrycad/Tutor...m#MyMultiLists

[trushev]

В развитие #4 Кулик Алексей aka kpblc,

Сообщение от Кулик Алексей aka kpblc либо делать диалог на том же dcl, в котором прописывать popup_list с возможностью многократного выбора.

При замене popup_list на list_box при multiple_select = true; многократно используя (action_tile "sp" "(setq s $value)")
в s, выделяя строки (блоки строк) загруженного списка, можно сформировать любую строку (список) номеров строк разделенных пробелами.

[Кулик Алексей aka kpblc]

Вот черт, старею... Перепутал popup_list и list_box. Позор!!