[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. Позор!!

[granit201z]

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

там есть такие строки:

(set_tile "Title" " My Multi Lists")
(set_tile_list "List1" List1@ Value1$);*Included
(set_tile_list "List2" List2@ Value2$);*Included

у меня лисп вылетает и пишет:

Команда: MYMULTILISTS MyMultiLists; ошибка: no function definition: SET_TILE_LIST

то есть насколько я понимаю (set_tile) он глотает, а на (set_tile_list) давится. А что это за функции такие? Насколько я понимаю это какие-то пользовательские функции? или нет?

----- добавлено через ~25 мин. -----
хотя нет не пользовательские. в учебнике Полищука нашел описание функции set_tile. А вот с функцией set_tile_list по прежнему неясно что за функция и почему на ней lisp выдает ошибку

[Сергей812]

Вы на dwg.ru - где все разжевывают и в ротик кладут - совсем разучились информацию искать) Если это неопределенная функция, то забиваем в поисковик "(defun set_tile_list" - чтобы получить описание функции, а не ссылку на нее в коде

[granit201z]

все разобрался. Это действительно пользовательская функция.

На стороне LISP код будет выглядеть следующим образом

Код:

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

 ;----------------------------------------------------------------------------------------------------------
; c:MyMultiLists - Dialog for list_boxes with single and multi select examples
; Syntax: MyMultiLists
;----------------------------------------------------------------------------------------------------------
(defun c:MyMultiLists (/ Dcl_Id% List1@ List2@ Return# Value1$ Value2$)

;-------------------------------------------------------------------------------
; set_tile_list - Sets a dialog popup_list or list_box tile to a list
; Arguments: 3
;   KeyName$ = Key name of tile
;   ListName@ = The list to set in tile
;   Selected = An item in the ListNames@ or a list of items selected
; Syntax: (set_tile_list "TileName" '("A" "B" "C") "B")
;         (set_tile_list "TileName" '("A" "B" "C") '("A" "C"))
; Returns: Sets Selected items in dialog popup_list or list_box tiles.
;-------------------------------------------------------------------------------
(defun set_tile_list (KeyName$ ListName@ Selected / Item)
  (start_list KeyName$ 3)
  (mapcar 'add_list ListName@)
  (end_list)
  (foreach Item (if (listp Selected) Selected (list Selected))
   (if (member Item ListName@)
     (set_tile KeyName$ (itoa (- (length ListName@) (length (member Item ListName@)))))
   );if
  );foreach
);defun set_tile_list
;-------------------------------------------------------------------------------

;-------------------------------------------------------------------------------
; set_multilist_value - Sets SentVar$ to list of the items selected in SentList$
; Arguments: 2
;   SentList$ = String of the list variable name
;   SentVar$ = String of the variable name
; Syntax: (set_multilist_value "ListName" "Variable")
;-------------------------------------------------------------------------------
(defun set_multilist_value (SentList$ SentVar$ / SubList@)
  (setq SubList@ (eval (read SentList$)))
  (set (read SentVar$) (list (nth (atoi $value) SubList@)))
  (setq $value (substr $value (+ (strlen (itoa (atoi $value))) 2)))
  (while (/= $value "")
    (set (read SentVar$) (append (eval (read SentVar$))
      (list (nth (atoi $value) SubList@)))
    );set
    (setq $value (substr $value (+ (strlen (itoa (atoi $value))) 2)))
  );while
);defun set_multilist_value
;-------------------------------------------------------------------------------

;-------------------------------------------------------------------------------
; set_list_value - Sets SentVar$ to the item selected in SentList$
; Arguments: 2
;   SentList$ = String of the list variable name
;   SentVar$ = String of the variable name
; Syntax: (set_list_value "ListName" "Variable")
;-------------------------------------------------------------------------------
(defun set_list_value (SentList$ SentVar$ / SaveVar$ SubList@)
  (setq SubList@ (eval (read SentList$)))
  (setq SaveVar$ (eval (read SentVar$)))
  (set (read SentVar$) (nth (atoi $value) SubList@))
  (if (= (eval (read SentVar$)) "")
    (progn
      (set (read SentVar$) SaveVar$)
      (set_tile_list $key SubList@ SaveVar$)
    );progn
  );if
  (princ)
);defun set_list_value
;-------------------------------------------------------------------------------

  (princ "\nMyMultiLists")(princ)

  ; Set Default Variables

  (if (not *MyMultiLists@);Unique global variable name to store dialog info
    (setq *MyMultiLists@ (list nil "" ""))
  );if

  (setq Value1$ (nth 1 *MyMultiLists@)
        Value2$ (nth 2 *MyMultiLists@)
        List1@ (list "Sunday" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday")
        List2@ (list "January" "February" "March" "April" "May" "June" "July" "August" 
                     "September" "October" "November" "December")
  );setq


  ; Load Dialog

  (setq Dcl_Id% (load_dialog "D:/For_AutoCAD/My_LISP/Эксперименты с прогой/СИНХРОНИЗАЦИЯ/ДЕКАБРЬ/MLL.dcl"))
  (new_dialog "MyMultiLists" Dcl_Id%)


  ; Set Dialog Initial Settings

  (set_tile "Title" " My Multi Lists")
  (set_tile_list "List1" List1@ Value1$);*Included
  (set_tile_list "List2" List2@ Value2$);*Included


  ; Dialog Actions

  (action_tile "List1" "(set_list_value \"List1@\" \"Value1$\")");*Included
  (action_tile "List2" "(set_multilist_value \"List2@\" \"Value2$\")");*Included
  (setq Return# (start_dialog))


  ; Unload Dialog

  (unload_dialog Dcl_Id%)
  (setq *MyMultiLists@ (list nil Value1$ Value2$))

  (princ *MyMultiLists@)
);defun c:MyMultiLists

а на стороне DCL

Код:

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

//---------------------------------------------------------------------------------------------------------
// MyMultiLists
//---------------------------------------------------------------------------------------------------------
MyMultiLists : dialog {
  key = "Title";
  label = "";
  : boxed_column {
    label = "Select an Item";
    : list_box {
      key = "List1";//Value1$ from lsp file
      height = 6.27;
      fixed_height = true;
      width = 32.92;
      fixed_width = true;
    }
    spacer;
  }
  : boxed_column {
    label = "Multi Select Items";
    : list_box {
      multiple_select = true;
      key = "List2";//Value2$ from lsp file
      height = 6.27;
      fixed_height = true;
      width = 32.92;
      fixed_width = true;
    }
    spacer;
  }
  spacer;
  ok_only;
}//MyMultiLists

Протестировал. Работает как мне и хотелось. Дальше можно ковыряться уже в этом коде, затачивая под свои задачи. Всем большое спасибо за оказанную помощь

[VVA]

Тема 2013 года. Как создать свой выпадающий список? Там есть готовая функция. Строит диалог динамически.