[protorgovec]

Добрый день форумчане. Подскажите пожалуйста. Нужно заставить пользователя выбрать один из предложенных вариантов:

Код:

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

 (initget 1 "01 02 03 04 11 21")
(setq Tip (atof (getkword "\n Тип фланца 01, 02, 03, 04, 11, 21 Tip >: ")))

все работает, но есть одна загвоздка. Если пользователь вводит 1, то присваивается 11, а если 2 то присваивается 21. Воспринимает сокращения. Как мне заставить пользователя прописывать только предложенные варианты, без сокращений? Заранее благодарю.

[Сергей812]

Сообщение от protorgovec Как мне заставить пользователя прописывать только предложенные варианты, без сокращений? Заранее

никак. У нормального пользователя не заложено писать лидирующие нули в числах) Сделайте диалог нормальный.

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

Код:

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

 (initget 1 "101 102 103 104 111 112")
(getkword "\nВыберите тип [101/102/103/104/111/112] <Отмена> : ")

[protorgovec]

Сообщение от Сергей812 никак. У нормального пользователя не заложено писать лидирующие нули в числах) Сделайте диалог нормальный.

Но у меня есть варианты именно такие. Перелопатил Полищука, но не нашел команды, которая бы воспринимала ввод пользователя без вариантов сокращения.
А как например тогда с такой строчкой:

Код:

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

 (initget 1 "10 12 100 120 1000 1200")
(setq Dy (atof (getkword "\n Длина, мм Dy >: ")))

введя 1, он примет первую по счету, т.е. 10, а у пользователя просто не нажалась вторая клавиша 2.
Как сделать что бы не воспринимал сокращения.

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

Делай dcl - это будет проще всего.

[Сергей812]

сделайте диалог.. на DCL в данном случае. Ну не будет пользователь в процессе реальной работы думать - в какой последовательности ему что нажимать. Голова у него совершенно другим занята в данный момент.

[Setvar]

Сообщение от protorgovec А как например тогда с такой строчкой: Код: (initget 1 "10 12 100 120 1000 1200") (setq Dy (atof (getkword "\n Длина, мм Dy >: ")))

А вот так:

Код:

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

(initget 7)
(setq Dy (getint "\n Длина, мм Dy >: ")))

[protorgovec]

Сообщение от Кулик Алексей aka kpblc Код: [Выделить все] (initget 1 "101 102 103 104 111 112") (getkword "\nВыберите тип [101/102/103/104/111/112] <Отмена> : ")

Спасибо. Отличный вариант!

----- добавлено через ~1 ч. -----

Сообщение от Кулик Алексей aka kpblc Код: [Выделить все] (initget 1 "101 102 103 104 111 112") (getkword "\nВыберите тип [101/102/103/104/111/112] <Отмена> : ")

Подскажите пожалуйста. У меня после всех запросов определяются все величины. Как сделать, что бы после того, как сделались все вычисления и определенная величина (например (= Mb nil)), то программа прописывая, что данной конфигурации не существует, возвращалась к самому началу программы и начанала заново делать запросы?

[Сергей812]

переменная-флаг и цикл

[protorgovec]

Сообщение от Сергей812 переменная-флаг и цикл

Спасибо. Структуру то я понял. Просто никогда не приходилось зацикливать программу, поэтому не понимаю что за функции использовать

[Сергей812]

просто большой цикл вокруг ввода данных и расчета, если расчет удался - флаг сбросили и очередной итерации не будет.

[protorgovec]

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

я никогда ничего не зацикливал писал только для себя, и всегда точно знал что нужно вводить. А теперь коллеги просят для них, я в принципе не могу пока понять как зациклить

[Сергей812]

Код:

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

 (setq lFlagErr 1)
(while (= lFlagErr 1)
... Ввод данных
... Вычисление
... Если получен неправильный результат, то сообщение пользователю. Иначе  (setq lFlagErr 0)
) ; Завершение цикла
... Вывод результата правильного расчета

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

[protorgovec]

Сообщение от Сергей812 Код: [Выделить все] (setq lFlagErr 1) (while (= lFlagErr 1) ... Ввод данных ... Вычисление ... Если получен неправильный результат, то сообщение пользователю. Иначе (setq lFlagErr 0) ) ; Завершение цикла ... Вывод результата правильного расчета только по нормальному пользователю еще надо давать возможность выхода до завершения ввода всех данных (иначе превращается в квест), но диалогов вы боитесь, видимо)

Большое спасибо. Получилось.

Код:

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

 (setq Rez 1)
(while (= Rez 1)
ввод данных
вычисления
(if (/= Mb nil) (setq Rez 0)))

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

[Сергей812]

Сообщение от protorgovec высвечивалось например что данной конструкции не существует

Сообщение от Сергей812 Если получен неправильный результат, то сообщение пользователю

Код:

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

 (if (= Mb nil)(alert "Данной конструкции не существует!"))

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

[protorgovec]

Сообщение от Сергей812 Код: [Выделить все] (if (= Mb nil)(alert "Данной конструкции не существует!")) я то на лиспе не пишу, а вам то эти все базовые конструкции надо знать - чтобы не изобретать велосипеды в коде каждый раз)

Спасибо. Я знаю все эти конструкции. Но у нас проектировщики тетки работают, сейчас гост поменялся, они в панике, программно могут ввести не существующие данные для этого и ограничиваю их возможности

[Сергей812]

Сообщение от protorgovec программно могут ввести не существующие данные

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

[protorgovec]

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

Я не программист нормальные диалоги для меня темный лес пытаюсь сварганить на основании своих минимальных знаниях

[Сергей812]

Сообщение от protorgovec Я не программист

А хто тут программист?)

Сообщение от protorgovec нормальные диалоги для меня темный лес

Ну так пришла пора - азы в картинках: тыц тыц
поверьте - проще разобраться с диалогами в лиспе, чем с тетями-проектировщиками - у которых вдруг что-то стало работать не так как раньше...

[protorgovec]

Сообщение от Сергей812 А хто тут программист?) Ну так пришла пора - азы в картинках: тыц тыц поверьте - проще разобраться с диалогами в лиспе, чем с тетями-проектировщиками - у которых вдруг что-то стало работать не так как раньше...

Посмотрел, но тут же появилась загвоздка. По примеру все сделал, но при попытке просмотра DCL из редактора получаю в ответ:
предупреждение:не удается создать временный файл для DCL: "C:/Program Files/Autodesk/AutoCAD 2015/$vld$.dcl"
Что это означает? Сделал один в один как в уроке все

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

Это означает, что локальных прав недостаточно. Ты ж не локальный админ, верно?

----- добавлено через ~1 мин. -----
У сисадминов попроси права на запись в каталог C:/Program Files/Autodesk/AutoCAD 2015 - тогда сможешь тестировать dcl спокойно.

[protorgovec]

Сообщение от Кулик Алексей aka kpblc Это означает, что локальных прав недостаточно. Ты ж не локальный админ, верно? ----- добавлено через ~1 мин. ----- У сисадминов попроси права на запись в каталог C:/Program Files/Autodesk/AutoCAD 2015 - тогда сможешь тестировать dcl спокойно.

Спасибо. Но тогда вопрос. Когда я сделаю и передам для других пользователей, то им тоже нужно будет доступ к этой папке? Или же этот доступ нужен только для тестирования мне?

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

Им это не понадобится. Ты же проверял, как диалог выглядит, через VLIDE?

[protorgovec]

Сообщение от Кулик Алексей aka kpblc Это означает, что локальных прав недостаточно. Ты ж не локальный админ, верно? ----- добавлено через ~1 мин. ----- У сисадминов попроси права на запись в каталог C:/Program Files/Autodesk/AutoCAD 2015 - тогда сможешь тестировать dcl спокойно.

Вроде спокойно зашел в эту папку. Доступ есть. В чем еще может быть причина?

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

Зайти в папку и создать в ней файл - немного разные вещи

[Сергей812]

Вообще то по первой ссылке в посте №19 в статье даже ссылка есть - "Что делать если диалоговое окно DCL не отображается?" )

[protorgovec]

Сообщение от Сергей812 А хто тут программист?) Ну так пришла пора - азы в картинках: тыц тыц поверьте - проще разобраться с диалогами в лиспе, чем с тетями-проектировщиками - у которых вдруг что-то стало работать не так как раньше...

Добрый день. Почитал про DCL. Во многом разобрался. Есть один вопрос. Возможно ли в диалоговом окне делать замороженные окна. И если пользователь задает определенный параметр, то окно размораживалось? Не могу понять как сделать. Может есть какой нибудь пример со сложным DCL окном?

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

Ставишь enabled = false, а в callback-функции меняешь это свойство.

[protorgovec]

Сообщение от Кулик Алексей aka kpblc Ставишь enabled = false, а в callback-функции меняешь это свойство.

А есть какой нибудь пример? Если конечно не сложно

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

Код:

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

 (defun test (/ dcl_file dcl_handle dcl_res dcl_id dcl_lst)
  (defun fun_callback (key value ref-list)
    (cond ((= key "txt")
           (set ref-list (subst (cons "txt" value) (assoc "txt" (eval ref-list)) (eval ref-list)))
           )
          ((= key "chk")
           (mode_tile "txt" (atoi value))
           (set ref-list (subst (cons "chk" value) (assoc "chk" (eval ref-list)) (eval ref-list)))
           )
          ) ;_ end of cond
    ) ;_ end of defun
  (setq dcl_file   (strcat (vl-string-right-trim "\\" (getenv "temp")) "\\dlg.dcl")
        dcl_handle (open dcl_file "w")
        ) ;_ end of setq
  (foreach item '("dlg:dialog{label=\"test\";" "	:toggle{key=\"chk\";label=\"check\";}" "	:edit_box{key=\"txt\";}" "	ok_cancel;" "	}")
    (write-line item dcl_handle)
    ) ;_ end of foreach
  (close dcl_handle)
  (setq dcl_lst '(("chk") ("txt"))
        dcl_id  (load_dialog dcl_file)
        ) ;_ end of setq
  (new_dialog "dlg" dcl_id "(fun_callback $key $value 'dcl_lst)")
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (setq dcl_res (start_dialog))
  (unload_dialog dcl_id)
  (if (= dcl_res 1)
    dcl_lst
    ) ;_ end of if
  ) ;_ end of defun

[protorgovec]

Сообщение от Кулик Алексей aka kpblc Код: [Выделить все] (defun test (/ dcl_file dcl_handle dcl_res dcl_id dcl_lst) (defun fun_callback (key value ref-list) (cond ((= key "txt") (set ref-list (subst (cons "txt" value) (assoc "txt" (eval ref-list)) (eval ref-list))) ) ((= key "chk") (mode_tile "txt" (atoi value)) (set ref-list (subst (cons "chk" value) (assoc "chk" (eval ref-list)) (eval ref-list))) ) ) ;_ end of cond ) ;_ end of defun (setq dcl_file (strcat (vl-string-right-trim "\\" (getenv "temp")) "\\dlg.dcl") dcl_handle (open dcl_file "w") ) ;_ end of setq (foreach item '("dlg:dialog{label=\"test\";" " :toggle{key=\"chk\";label=\"check\";}" " :edit_box{key=\"txt\";}" " ok_cancel;" " }") (write-line item dcl_handle) ) ;_ end of foreach (close dcl_handle) (setq dcl_lst '(("chk") ("txt")) dcl_id (load_dialog dcl_file) ) ;_ end of setq (new_dialog "dlg" dcl_id "(fun_callback $key $value 'dcl_lst)") (action_tile "accept" "(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq dcl_res (start_dialog)) (unload_dialog dcl_id) (if (= dcl_res 1) dcl_lst ) ;_ end of if ) ;_ end of defun

Спасибо. Только как я понял, что в самом DCL окне все окна активные. А уже непосредственно в lisp я заставляю замораживать и размораживать окна ,в зависимости что выберет пользователь?

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

Почти все контролы в диалоге по умолчанию активные. Это уже программист решает, что активно, а что нет. И почему

[protorgovec]

Сообщение от Кулик Алексей aka kpblc Почти все контролы в диалоге по умолчанию активные. Это уже программист решает, что активно, а что нет. И почему

Составил короткий dcl

Код:

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

 GOST332592015: dialog {label = "Исходные данные"; key = "t1";
    : spacer{height=1;}
    : popup_list {label = "Тип фланца:"; key = "eb_Tip"; edit_width=3; list=" \n01\n02\n03\n04\n11\n21";}
    : popup_list {label = "Материал фланца:"; key = "eb_Mat"; edit_width=13; list=" \n1 - сталь\n2 - серый чугун\n3 - ковкий чугун";}
    : spacer{height=1;}
    ok_cancel;
}

Все равно не могу понять как заставить второе окно активироваться только в одном варианте. Если тип фланца любой кроме 21, то материал фланца не нужен. А если тип 21, то материал фланца активировался. Не по галочке, а именно смотря что ввести в тип

----- добавлено через ~1 ч. -----
Помогите кто может!!! Не понимаю я!
Есть у меня программно:

Код:

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

 (initget 1 "01 02 03 04 11 21")
(setq Tip (atof (getkword "\n Тип фланца [01/02/03/04/11/21] Tip >: ")))

(initget 1 "1 2 3")
(if (= Tip 21) (setq Mat (atof (getkword "\n Материал [1 - сталь/2 - серый чугун/3 - ковкий чугун] Mat >: "))))

Все хорошо. Но вот не могу я сделать это диалоговым окном.
Получается только так

Код:

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

 GOST332592015: dialog {label = "Исходные данные"; key = "t1";// наименование диалога

    : spacer{height=1;} // вставка одной пустой строки
    
    : popup_list {label = "Тип фланца:"; key = "eb_Tip"; edit_width=3; list=" \n01\n02\n03\n04\n11\n21";}
    : popup_list  {label = "Материал фланца:"; key = "eb_Mat"; edit_width=13; list=" \n1 - сталь\n2 - серый чугун\n3 - ковкий чугун";}

    : spacer{height=1;}   // вставка пустой строки

    ok_cancel;   // добавление кнопок ОК и Отмена
}  // окончание диалога

И когда открываю это диалоговое окно

Код:

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

 (setq dcl_id (load_dialog "GOST332592015.dcl")) ;загружаем файл DCL
(if (not (new_dialog "GOST332592015" dcl_id)) (exit)) ;проверка существования диалога
(action_tile "ok" "(dannie) (done_dialog 1)") ;если нажата кнопка "ok"
(action_tile "cancel" "(done_dialog 0)") ;если нажата кнопка "cancel"
(setq ddi (start_dialog))
(unload_dialog dcl_id) ;выгружаем диалоговое окно
(defun dannie ()
(setq Tip (atoi (get_tile "eb_Tip")))
(setq Mat (atoi (get_tile "Mat")))
)

Переменные Tip и Mat он не определяет, пишет что не известно, пишет что неверный тип аргумента. Хотя все по примеру сделал который мне присылали.

[Сергей812]

Имхо, хотите нормальные динамические диалоги:
1. Делайте диалоги на других языках и вызывайте их из лиспа.
2. Слезайте с лиспа - ваши задачи стали выходить за его пределы.

[protorgovec]

Сообщение от Сергей812 Имхо, хотите нормальные динамические диалоги: 1. Делайте диалоги на других языках и вызывайте их из лиспа. 2. Слезайте с лиспа - ваши задачи стали выходить за его пределы.

Например? Какой язык тогда мне более подходит? Хотя, наверное любой, так как я в лиспе то не бум бум, а остальные меня с ума сведут

[Сергей812]

Естественно, рекомендовал бы .Net Но даже VBA с контролами чуть ли не 20-летней давности дает готовые стандартные средства для вашей задачи - накидываете на форму, связываете с данными и обвешиваете обработчиками событий.

[protorgovec]

Сообщение от Сергей812 Имхо, хотите нормальные динамические диалоги: 1. Делайте диалоги на других языках и вызывайте их из лиспа. 2. Слезайте с лиспа - ваши задачи стали выходить за его пределы.

Мне программа для автокада нужна, как я с лиспа слезу?

[Сергей812]

Сообщение от protorgovec Мне программа для автокада нужна, как я с лиспа слезу?

в акаде альтернатива VBA (с установкой энаблера при необходимости), вне акада - .Net и ObjectARX в сторонних средствах разработки (visual studio) с подгрузкой готовых *.dll/*.arx в акад.

[protorgovec]

Сообщение от Сергей812 Естественно, рекомендовал бы .Net Но даже VBA с контролами чуть ли не 20-летней давности дает готовые стандартные средства для вашей задачи - накидываете на форму, связываете с данными и обвешиваете обработчиками событий.

а что за .net?

[Сергей812]

Сообщение от protorgovec а что за .net?

Посмотрите - огромное количество готовых функций, на базе которых можно реализовать уже свои непосредственные задачи. А не искать очередной велосипед. Этот Фреймворк есть на любом компе - без него акад просто не запустится.

----- добавлено через ~13 мин. -----
Ну и сам Net Api для акада.
Есть официальный русскоязычный сайт разработчиков.

[koMon]

Сообщение от protorgovec Помогите кто может!!!

диалог Flange_Select.dcl

Код:

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

 
Flange_Dialog : dialog {
				label = "Выбор фланца";
					: boxed_row {
							height = 5;
							: column  {
									width = 15;
									: text_part  {
											label = "Тип";
											alignment = centered;
										     }
									: row {
										spacer_0;
    										: popup_list {
												key = "Flange_Type";
												edit_width = 5;
												list = "\n01\n02\n03\n04\n11\n21";
												value = "0";
												alignment = left;
											     }
										spacer_1;
									      }
									spacer_1;

								}
							: column {
									width = 15;
									: text_part  {
											label = "Материал";
											alignment = centered;
										     }
									spacer_0;
    									: list_box   {
											key = "Flange_Material";
											list = "\n  Cталь  \n  Cерый чугун  \n  Ковкий чугун  ";
											width = 15;
											height = 4;
											is_enabled = false;
											value = "0";
										     }
								}
						    }
					spacer_1;
    					ok_cancel;
			}

лисп flange_selecting.lsp

ПУТЬ К ДИАЛОГУ поменять на реальный путь

Код:

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

 
(defun flange_selecting ()
	(setq dcl_filename_full "ПУТЬ К ДИАЛОГУ\\Flange_Select.dcl"
		  	  fs_dcl_id (load_dialog dcl_filename_full)
			  flange_type "0"
			  flange_material "0"
	)
		(if (not fs_dcl_id)
			(progn
				(alert "Ошибка загрузки DCL файла!")
				(exit)
			)
			(progn
				(if (not (new_dialog "Flange_Dialog" fs_dcl_id))
					(progn
						(alert "Ошибка загрузки DCL файла!")
						(exit)
					)
					(progn
						(action_tile "OK" "(done_dialog 1)")
						(action_tile "Cancel" "(done_dialog 2)")
						(action_tile "Flange_Type" "(if (= \"5\" $value)
															(progn
																(mode_tile \"Flange_Material\" 0)
																(set_tile \"Flange_Material\" flange_material)
															)
															(mode_tile \"Flange_Material\" 1)
													)
													(setq flange_type $value)
												   "
						)
						(action_tile "Flange_Material" "(setq flange_material $value)")
						(set_tile "Flange_Type" flange_material)
						(setq diag_result (start_dialog))
						(unload_dialog fs_dcl_id)
						(cond
								(
									(= diag_result 1)
										(princ (strcat "\nВыбран " (cadr (assoc flange_type '(("0" "01") ("1" "02") ("2" "03") ("3" "04") ("4" "11") ("5" "21")))) " тип фланца"))
										(if (= "5" flange_type)
											(princ (strcat "\nМатериал фланца " (cadr (assoc flange_material '(("0" "Сталь") ("1" "Серый чугун") ("2" "Ковкий чугун"))))))
										)
								)
								(
									t
										(princ "\nEsc нажат")
								)
						)
					)
				)
			)
		)
		(princ)
)

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

Сообщение от Сергей812 2. Слезайте с лиспа - ваши задачи стали выходить за его пределы.

да как бы нет)

[gomer]

Сообщение от protorgovec Переменные Tip и Mat он не определяет, пишет что не известно, пишет что неверный тип аргумента.

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

[protorgovec]

Сообщение от koMon диалог Flange_Select.dcl Код: [Выделить все] Flange_Dialog : dialog { label = "Выбор фланца"; : boxed_row { height = 5; : column { width = 15; : text_part { label = "Тип"; alignment = centered; } : row { spacer_0; : popup_list { key = "Flange_Type"; edit_width = 5; list = "\n01\n02\n03\n04\n11\n21"; value = "0"; alignment = left; } spacer_1; } spacer_1; } : column { width = 15; : text_part { label = "Материал"; alignment = centered; } spacer_0; : list_box { key = "Flange_Material"; list = "\n Cталь \n Cерый чугун \n Ковкий чугун "; width = 15; height = 4; is_enabled = false; value = "0"; } } } spacer_1; ok_cancel; } лисп flange_selecting.lsp ПУТЬ К ДИАЛОГУ поменять на реальный путь Код: [Выделить все] (defun flange_selecting () (setq dcl_filename_full "ПУТЬ К ДИАЛОГУ\\Flange_Select.dcl" fs_dcl_id (load_dialog dcl_filename_full) flange_type "0" flange_material "0" ) (if (not fs_dcl_id) (progn (alert "Ошибка загрузки DCL файла!") (exit) ) (progn (if (not (new_dialog "Flange_Dialog" fs_dcl_id)) (progn (alert "Ошибка загрузки DCL файла!") (exit) ) (progn (action_tile "OK" "(done_dialog 1)") (action_tile "Cancel" "(done_dialog 2)") (action_tile "Flange_Type" "(if (= \"5\" $value) (progn (mode_tile \"Flange_Material\" 0) (set_tile \"Flange_Material\" flange_material) ) (mode_tile \"Flange_Material\" 1) ) (setq flange_type $value) " ) (action_tile "Flange_Material" "(setq flange_material $value)") (set_tile "Flange_Type" flange_material) (setq diag_result (start_dialog)) (unload_dialog fs_dcl_id) (cond ( (= diag_result 1) (princ (strcat "\nВыбран " (cadr (assoc flange_type '(("0" "01") ("1" "02") ("2" "03") ("3" "04") ("4" "11") ("5" "21")))) " тип фланца")) (if (= "5" flange_type) (princ (strcat "\nМатериал фланца " (cadr (assoc flange_material '(("0" "Сталь") ("1" "Серый чугун") ("2" "Ковкий чугун")))))) ) ) ( t (princ "\nEsc нажат") ) ) ) ) ) ) (princ) ) ----- добавлено через ~33 мин. ----- да как бы нет)

Огромное спасибо. Сам бы в жизни не допер.

[protorgovec]

Сообщение от koMon диалог Flange_Select.dcl Код: [Выделить все] Flange_Dialog : dialog { label = "Выбор фланца"; : boxed_row { height = 5; : column { width = 15; : text_part { label = "Тип"; alignment = centered; } : row { spacer_0; : popup_list { key = "Flange_Type"; edit_width = 5; list = "\n01\n02\n03\n04\n11\n21"; value = "0"; alignment = left; } spacer_1; } spacer_1; } : column { width = 15; : text_part { label = "Материал"; alignment = centered; } spacer_0; : list_box { key = "Flange_Material"; list = "\n Cталь \n Cерый чугун \n Ковкий чугун "; width = 15; height = 4; is_enabled = false; value = "0"; } } } spacer_1; ok_cancel; } лисп flange_selecting.lsp ПУТЬ К ДИАЛОГУ поменять на реальный путь Код: [Выделить все] (defun flange_selecting () (setq dcl_filename_full "ПУТЬ К ДИАЛОГУ\\Flange_Select.dcl" fs_dcl_id (load_dialog dcl_filename_full) flange_type "0" flange_material "0" ) (if (not fs_dcl_id) (progn (alert "Ошибка загрузки DCL файла!") (exit) ) (progn (if (not (new_dialog "Flange_Dialog" fs_dcl_id)) (progn (alert "Ошибка загрузки DCL файла!") (exit) ) (progn (action_tile "OK" "(done_dialog 1)") (action_tile "Cancel" "(done_dialog 2)") (action_tile "Flange_Type" "(if (= \"5\" $value) (progn (mode_tile \"Flange_Material\" 0) (set_tile \"Flange_Material\" flange_material) ) (mode_tile \"Flange_Material\" 1) ) (setq flange_type $value) " ) (action_tile "Flange_Material" "(setq flange_material $value)") (set_tile "Flange_Type" flange_material) (setq diag_result (start_dialog)) (unload_dialog fs_dcl_id) (cond ( (= diag_result 1) (princ (strcat "\nВыбран " (cadr (assoc flange_type '(("0" "01") ("1" "02") ("2" "03") ("3" "04") ("4" "11") ("5" "21")))) " тип фланца")) (if (= "5" flange_type) (princ (strcat "\nМатериал фланца " (cadr (assoc flange_material '(("0" "Сталь") ("1" "Серый чугун") ("2" "Ковкий чугун")))))) ) ) ( t (princ "\nEsc нажат") ) ) ) ) ) ) (princ) ) ----- добавлено через ~33 мин. ----- да как бы нет)

Подскажите: немного изменил под себя.

Код:

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

 GOST_33259_2015 : dialog {
                label = "Исходные данные"; //название диалогового окна
                    : boxed_row { //блок из двух данных, тип и материал
                            height = 4; //высота блока
                            : column  { //расставление диалога в столбик
                                    width = 30; //ширина блока
                                    : text_part  {
                                            label = "Тип";
                                            alignment = centered;
                                             }
                                    : row { //средство объединение тип и материал в ряд
                                        spacer_0;
                                            : popup_list {
                                                key = "eb_Tip";
                                                edit_width = 5; //ширина видимой части редактируемого поля Тип
                                                list = " \n01\n02\n03\n04\n11\n21";
                                                value = "0";
                                                alignment = left;
                                                 }
                                        spacer_1;
                                          }
                                    spacer_1;
 
                                }
                            : column {
                                    width = 20; //размер видимой части редактируемого поля Материал
                                    : text_part  {
                                            label = "Материал";
                                            alignment = centered;
                                             }
                                    spacer_0;
                                        : popup_list   {
                                            key = "eb_Mat";
                                            list = " \n1 - сталь\n2 - серый чугун\n3 - ковкий чугун";
                                            width = 10; //ширина видимой части редактируемого поля Материал
                                            height = 4;
                                            is_enabled = false;
                                            value = "0";
                                             }
                                }
                            }
                    spacer_1;
                        ok_cancel;
            }

Получается окошко:

Почему редактируемое окно материала стоит ниже, не могу найти как его сделать на одном уровне с редактируемым окном для типа

[koMon]

Сообщение от protorgovec Почему редактируемое окно материала стоит ниже, не могу найти как его сделать на одном уровне с редактируемым окном для типа

нужно убрать spacer_0; после : text_part { label = "Материал"; alignment = centered; }
и добавить spacer_1; после : popup_list {...}

[trushev]

Сообщение от koMon нужно убрать spacer_0; после : text_part { label = "Материал"; alignment = centered; }

Это 31 строка, или добавить между 10 и 11 строками.

[koMon]

как-то так

[protorgovec]

Сообщение от koMon как-то так

Огромнейшее спасибо!!!!!!!

----- добавлено через ~8 ч. -----

Сообщение от koMon как-то так

koMon? Добрый день. Подскажи:

В свой блок решил завести еще одну кнопку

Код:

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

 GOST_33259_2015 : dialog {
                label = "Исходные данные"; //название диалогового окна
                
                //первый блок
                    : boxed_row { //блок из двух данных, тип и материал
                            height = 4; //высота блока
                            : column  { //расставление диалога в столбик
                                    width = 15; //ширина блока
                                    : text_part  {
                                            label = "Тип";
                                            alignment = centered;
                                             }
                                    : row { //средство объединение тип и материал в ряд
                                        spacer_0;
                                            : popup_list {
                                                key = "Tip";
                                                edit_width = 5; //ширина видимой части редактируемого поля Тип
                                                list = " \n01\n02\n03\n04\n11\n21";
                                                value = "0";
                                                alignment = left;
                                                 }     
                                        spacer_1;
                                          }
                                    spacer_1;
 
                                }
                            : column {
                                    width = 20; //размер видимой части редактируемого поля Материал
                                    : text_part  {
                                            label = "Материал";
                                            alignment = centered;
                                             }
                                        : popup_list   {
                                            key = "Mat";
                                            list = " \n1 - сталь\n2 - серый чугун\n3 - ковкий чугун";
                                            width = 10; //ширина видимой части редактируемого поля Материал
                                            height = 4;
                                            is_enabled = false;
                                            value = "0";
                                             }
                                             spacer_1;
                                }
                                : column {
                                    width = 5; //размер видимой части редактируемого поля Исполнение
                                    : text_part  {
                                            label = "Исполнение";
                                            alignment = centered;
                                             }
                                        : popup_list   {
                                            key = "Isp";
                                            list = " \nA\nB\nC\nD\nE\nF\nJ\nK\nL\nM";
                                            width = 10; //ширина видимой части редактируемого поля Исполнение
                                            height = 4;
                                            is_enabled = false;
                                            value = "0";
                                             }
                                             spacer_1;
                                }





                                
                            }
                    spacer_1;
                    ok_cancel;
            }

Все хорошо. Но в ней третье окно должно активироваться если выбирают тип 03. Написал код для активации, но похоже я не понял всех операций, которые были в твоем коде.

Код:

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

 (defun flange_selecting ()
    (setq dcl_filename_full "U:\\Автоматизация проекта\\Lisp\\Замороженное окно.dcl"
              fs_dcl_id (load_dialog dcl_filename_full)
              Tip "0"
              Mat "0"
	      Isp "0"
    )
        (if (not fs_dcl_id)
            (progn
                (alert "Ошибка загрузки DCL файла!")
                (exit)
            )
            (progn
                (if (not (new_dialog "GOST_33259_2015" fs_dcl_id))
                    (progn
                        (alert "Ошибка загрузки DCL файла!")
                        (exit)
                    )
                    (progn
                        (action_tile "OK" "(done_dialog 1)")
                        (action_tile "Cancel" "(done_dialog 2)")
                        (action_tile "Tip" "(if (= \"6\" $value)
                                                            (progn
                                                                (mode_tile \"Mat\" 0)
                                                                (set_tile \"Mat\" Mat)
                                                            )
                                                            (mode_tile \"Mat\" 1)
                                                    )
                                                    (setq Tip $value)
                                                   "
                        )
                        (action_tile "Mat" "(setq Mat $value)")
                        (set_tile "Tip" Mat)
		      (setq diag_result (start_dialog))



		      (action_tile "Tip" "(if (= \"3\" $value)
                                                            (progn
                                                                (mode_tile \"Isp\" 0)
                                                                (set_tile \"Isp\" Isp)
                                                            )
                                                            (mode_tile \"Isp\" 1)
                                                    )
                                                    (setq Tip $value)
                                                   "
                        )
                        (action_tile "Isp" "(setq Isp $value)")
                        (set_tile "Tip" Isp)
		      (setq diag_result1 (start_dialog))





		      
                        
                        (unload_dialog fs_dcl_id)
                        (cond
                                (
                                    (= diag_result 1)
                                        (princ (strcat "\nВыбран " (cadr (assoc Tip '(("0" "")("1" "01") ("2" "02") ("3" "03") ("4" "04") ("5" "11") ("6" "21")))) " тип фланца"))
                                        (if (= "6" Tip)
                                            (princ (strcat "\nМатериал фланца " (cadr (assoc Mat '(("0" "") ("1" "Сталь") ("2" "Серый чугун") ("3" "Ковкий чугун"))))))
                                        )
                                )
				(
				(= diag_result1 1)
				(if (= "3" Tip)
                                            (princ (strcat "\nИсполнение " (cadr (assoc Isp '(("0" "") ("1" "A") ("2" "B") ("3" "C") ("4" "D") ("5" "E") ("6" "F") ("7" "J") ("8" "K") ("9" "L") ("10" "M") )))))
                                        )
				 )
				 
                                (
                                    t
                                        (princ "\nEsc нажат")
                                )
                        ) 
                    ) 
                )
            )
        )
        (princ)
)

Можешь помочь, что я не до понял.
И еще

Код:

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

 (
                                    t
                                        (princ "\nEsc нажат")
                                )

Объясни что за операция. Я как понял, что если не выбрано нужного типа, то это как будто нажатие Esc для замороженного окна?