[slbne]

Добрый день , пытаюсь освоить диалоговое окно и сильно туплю .
как пример хотелось бы создать диалоговое окно с выпадающим списком по номеру детали, вот мой код:

Код:

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

(DEFUN tr_1 (/ p1 p2 p3 L h ) ; начало функции
; Ввод значений гипотенузы и угла
(setq L 300
H 100
)
  (setq x 50 y 50)
(setq p1 (list x y )) ; Запрос координат базовой точки
(setq p2 (polar p1 0 L)) ; определение координат точки p2
(setq p3 (polar p2 (/ pi 2) h)) ; определение координат точки p3
(command "_line" p1 p2 p3 p1 "") ; рисуем треугольник
 
)
 
(DEFUN tr_2 (/ p1 p2 p3 L h ) ; начало функции
; Ввод значений гипотенузы и угла
(setq L 200
H 90
)
  (setq x 50 y 50)
(setq p1 (list x y )) ; Запрос координат базовой точки
(setq p2 (polar p1 0 L)) ; определение координат точки p2
(setq p3 (polar p2 (/ pi 2) h)) ; определение координат точки p3
(command "_line" p1 p2 p3 p1 "") ; рисуем треугольник
 
)
 
 
(DEFUN tr_3 (/ p1 p2 p3 L h ) ; начало функции
; Ввод значений гипотенузы и угла
(setq L 100
H 50
)
  (setq x 50 y 50)
(setq p1 (list x y )) ; Запрос координат базовой точки
(setq p2 (polar p1 0 L)) ; определение координат точки p2
(setq p3 (polar p2 (/ pi 2) h)) ; определение координат точки p3
(command "_line" p1 p2 p3 p1 "") ; рисуем треугольник
 
)
  (setq dcl_id (load_dialog "eokno.dcl"))
(new_dialog "examokno" dcl_id)
  (if (not (new_dialog "examokno" dcl_id))(exit))
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (setq ddi (start_dialog))
(if (= ddi 1) (tr_1))
(princ)

Вот код диалогового окна

Код:

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

examokno : dialog {label = "Построение детали" ;
    : spacer{height=1;} 
    
    : spacer{height=1;} 
    :popup_list{label="Выберете № чертежа детали";
     key="pop1";
     list="1" "\n2" "\n3" ;
     edit_width=15;
     }
     : spacer{height=1;} 
    ok_cancel;
}

Тут я хотя бы хочу реализовать что бы при нажатии кнопки "ОК" рисовал треугольник tr_1.
tr_1,tr_2,tr_3 простые программы которые без каких либо вводных строят треугольники.
Конечно в идеале хочу понять как сделать, что-бы при выборе 1 - рисовал tr_1 , при выборе 2 - рисовал tr_2, при выборе 3 - рисовал tr_3
Но пока даже без выборки при нажатии на кнопку "Ок" пытаюсь хоть что-то изобразить , но автокад при нажатии на кнопку "Ок" висит замертво, помогите найти ошибку

[===AAA===]

Неверно обрабатываешь нажатия кнопок. Нужно примерно так:

(action_tile "accept" "(done_dialog) (setq p0 3)")

Затем проверяешь, чему стала равна p0 - и погнал дальше...

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

М-да... Совет как минимум вредный.
(action_tile "accept" "(done_dialog 1)")
(setq dcl_res (start_dialog))
(unload_dialog dcl_id)
(if (= dcl_res 1)
; ...

[===AAA===]

Я в своё время остановился на этом варианте.
Почему - уже не помню. :-)

Но всё работает стабильно.

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

А на фига вводить дополнительные переменные? Да еще и с настолько информативными именами?

[===AAA===]

Ох, полез смотреть, вспоминать...

Итог.

Всё это тянется у меня ещё с DOS-версии Автокада.

Видимо, возврат функцией (start_dialog) какого-нибудь
значения ввели позже. А далее - классика.
Работает - не трогай.

Я и не трогал. :-)))

Что касается информативности - у меня такой стиль.

Если переменная нужна в десятке-другом строчек кода,
помещающихся на один экран, я называю их p, p1, p2.

Своеобразный индикатор временности.

Вычислил попридержал в памяти, обработал и забыл.

Кстати, тоже с тех времён привычка, когда компы были
медленными и памяти мало было. А переменная с именем
не более 6 символов позволяла в одной ячейке АвтоЛиспа
хранить и имя переменной и её значение.

А память "на всё и про всё" в килобайтах измерялась. :-)

[slbne]

Сообщение от Кулик Алексей aka kpblc М-да... Совет как минимум вредный. (action_tile "accept" "(done_dialog 1)") (setq dcl_res (start_dialog)) (unload_dialog dcl_id) (if (= dcl_res 1) ; ...

Не могу увидеть разницу между моим кодом и вашим , вы просто мою переменную ddi заменили на dcl_res, суть не поменялась , видимо эту часть кода я правильно понимаю, по факту мы задаем при нажатии на "ОК" значение 1, при нажатии на "Отмена" значение 0.,
потом считываем в переменную в вашем коде в dcl_res и вот если уже dcl_res у нас 1 , то выполняем программу tr_1 , это и есть уже оператор if видимо в нем я и косячу, в принципе сейчас написал новое диалоговое окно просто с кнопками , и разобрался как нажимая на кнопку изображать рисунок, теперь возвращаюсь к списку и начинаю думать о нем., в этой части кода я должен оставить все так-же если отмена то 0 , если ОК то 1, далее если у нас 1 , то необходимо опять сравнение, нужно вытащить из диалогового окна значение которое выбрал пользователь, преобразовать его в инт и уже его сравнивать - если 1 то tr_1 если 2 то tr_2 и тп., саму суть я полностью понимаю но откодировать не получается

[===AAA===]

Это делается примерно так:

(action_tile "pop1" "(setq p12 $value)")

У меня - "пещерного человека" :-)

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

Сообщение от slbne Не могу увидеть разницу между моим кодом и вашим , вы просто мою переменную ddi заменили на dcl_res, суть не поменялась , видимо эту часть кода я правильно понимаю, по факту мы задаем при нажатии на "ОК" значение 1, при нажатии на "Отмена" значение 0., потом считываем в переменную в вашем коде в dcl_res и вот если уже dcl_res у нас 1 , то выполняем программу tr_1 , это и есть уже оператор if видимо в нем я и косячу, в принципе сейчас написал новое диалоговое окно просто с кнопками , и разобрался как нажимая на кнопку изображать рисунок, теперь возвращаюсь к списку и начинаю думать о нем., в этой части кода я должен оставить все так-же если отмена то 0 , если ОК то 1, далее если у нас 1 , то необходимо опять сравнение, нужно вытащить из диалогового окна значение которое выбрал пользователь, преобразовать его в инт и уже его сравнивать - если 1 то tr_1 если 2 то tr_2 и тп., саму суть я полностью понимаю но откодировать не получается

Я отвечал на бегу, разрываясь между 3 проектами одновременно и полностью твой код не видел, сорри. И отвечал я ===ААА===, еще раз извини, что не уточнил.

Сообщение от ===AAA=== (action_tile "pop1" "(setq p12 $value)")

callback-функцию из принципа не пользуешь?

[===AAA===]

Использую, конечно. :-)

Если нужно, скажем, заблокировать какую-нибудь кнопку
диалогового окна или слайд поменять после выбора
радиокнопки/переключателя. Куда же без неё-то...

[slbne]

Сообщение от ===AAA=== Это делается примерно так: (action_tile "pop1" "(setq p12 $value)") У меня - "пещерного человека" :-)

Такой командой в p12 сразу в инт придет значение выбранное пользователем ? или текстовое

[===AAA===]

Текстовое.

[slbne]

Сообщение от ===AAA=== Текстовое.

Дописал код , что бы можно было вызывать программку с раб поля автокада

Код:

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

 (DEFUN c:gol (/ ddi dcl_id num )
    (setq dcl_id (load_dialog "eokno.dcl"))
  (if (not (new_dialog "examokno" dcl_id))(exit))
(action_tile "pop1" "(setq num $value)")
   (princ num)
  (action_tile "accept" "(done_dialog 1)") 
  (action_tile "cancel" "(done_dialog 0)")
  (setq ddi (start_dialog))
   (unload_dialog dcl_id)

Пытаюсь хотя бы текстовое вытащить, строкой (action_tile "pop1" "(setq num $value)") даже добавил строку (princ num) выводить, то что выдает, но переменная num всего nill.......
зато сейчас все кнопки жмутся , автокад не висит замертво , нормально закрывает диалоговое окно после "ОК" "Отмена" и тп

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

Так либо выводить внутри основной функции, либо делать переменную глобальной.

[name02]

Попробуй убрать num из локальных переменных

[slbne]

Сообщение от name02 Попробуй убрать num из локальных переменных

Её уже и туда и сюда не помогает., только через сложные танцы выходит

Код:

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

(defun iz_sech ()
    (setq plist_K (list "1" "2" "3" "4" ))
  (start_list "pop1")
  (mapcar 'add_list plist_K)
  (end_list)
)

(defun num_kol ()
  (setq Raz (atoi (nth (atoi (get_tile "pop1")) plist_k)))
  )
 (DEFUN c:gol (/ ddi dcl_id num )
    (setq dcl_id (load_dialog "eokno.dcl"))
  (if (not (new_dialog "examokno" dcl_id))(exit))
   (iz_sech)
   (num_kol)
(action_tile "pop1" "(num_kol)")
   (princ Raz)
  (action_tile "accept" "(done_dialog 1)") 
  (action_tile "cancel" "(done_dialog 0)")
  (setq ddi (start_dialog))
   (unload_dialog dcl_id)
)

через две подфункции , в одной мы заново заполняем наш список запоминая его в plist_k , во второй вытаскиваем инт в переменную raz. Неужели нету попроще вариантов. Так робит кстати ., теперь буду над If думать

[name02]

В первой строке ты убирал num?

Код:

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

 (DEFUN c:gol (/ ddi dcl_id num) ;; <-- тут убирал?
  (setq dcl_id (load_dialog "eokno.dcl"))
  (if (not (new_dialog "examokno" dcl_id))
    (exit)
  ) ;_ end of if
  (action_tile "pop1" "(setq num $value)")
  (princ num)
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (setq ddi (start_dialog))
  (unload_dialog dcl_id)
) ;_ end of DEFUN

[koMon]

Сообщение от slbne создать диалоговое окно с выпадающим списком по номеру детали

Код:

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

 
(defun populate_list (list_key list_to_process)
	(start_list list_key 3)
		(mapcar 'add_list
				(mapcar '(lambda (list_element)
				  			(strcat "\n" list_element)
				  		 )
				  		 list_to_process
				)
		)
	(end_list)
)
(defun get_choice (/ exam_dcl_id popup_choice_list dialog_result choice)
	(setq exam_dcl_id (load_dialog "drive:\\path\\examokno.dcl")
		  popup_choice_list '("1" "2" "3")
	) 
	(if exam_dcl_id
		(if (new_dialog "examokno" exam_dcl_id)
			(progn
				(populate_list "pop1" popup_choice_list) 
				(action_tile "accept" "(setq choice (nth (atoi (get_tile \"pop1\")) popup_choice_list)) (done_dialog 1)")
				(action_tile "pop1" "(setq choice (nth (atoi $value) popup_choice_list))")  
				(setq dialog_result (start_dialog))
				(unload_dialog exam_dcl_id)
				(cond
						((= dialog_result 1) choice)
						(t (setq choice nil))
				)
			)
	 	)
	)
)
(if (setq choice_picked (get_choice))
	(cond
		((= "1" choice_picked) (tr_1)) 
		((= "2" choice_picked) (tr_2)) 
		((= "3" choice_picked) (tr_3)) 
	)
)

диалог

Код:

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

examokno :dialog {label = "Построение детали";
			initial_focus = "pop1";
			spacer_1; 
			:popup_list {
				   	label = "ВыберИте № чертежа детали";
    			   		key = "pop1";
    			   	}
			spacer_1; 
			ok_cancel;
		}