[swkx]

Коллеги,

в диалоге имеем вот такой списочек:
: popup_list { key = "tip"; list = "Тип 1\nТип 2\nТип 3\nТип 4";}

Использование в программе двух этих вариантов:

1. (action_tile "tip" "(setq num-tip (get_tile \"tip\"))")
2. (action_tile "tip" "(setq num-tip (atoi $value))")

даёт одинаково правильные результаты.

Оба способа абсолютно идентичны или есть какие-нибудь нюансы их применения ?

[gomer]

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

[swkx]

Даже если это список дней недели ??

[Do$]

Сообщение от swkx есть какие-нибудь нюансы их применения ?

Есть конечно.
$value - значение того элемента диалога, над которым производится действие. То есть с его помощью можно вытащить значение только одного элемента диалога.
get_tile получает текущее значение любого элемента диалога, даже если с ним не совершается никаких действий.
Ну а в приведенном примере оба варианта отработают одинаково.

[E-degtyarev]

ИМХО В варианте №1 масло-масляное получается. Get_tile прекрасно работает и без Action_tile.

[Do$]

Все равно get_tile должно вызываться по какому-то событию. Здесь это событие - действие с элементом "tip". В том-то и плюс, что get_tile можно к любому действию "прикрутить", и не обязательно с тем элементом, чье значение нужно получить.
Зы

Использование в программе двух этих вариантов: 1. (action_tile "tip" "(setq num-tip (get_tile \"tip\"))") 2. (action_tile "tip" "(setq num-tip (atoi $value))") даёт одинаково правильные результаты.

Как эти два выражения могут давать одинаковые результаты, если во втором выражении есть atoi, а в первом нету?

[swkx]

Как мне кажется, было бы логичнее в любом месте программы, где мне нужно получить номер выбранного зачения из списка "tip", использовать конструкцию (get_tile "tip"), но у меня почему-то всегда это значение оказывается равным nil при любом выбранном значении списка.

В чем может быть дело ?

Do$,

в обоих случаях переменная num-tip будет иметь целочисленный тип. Разве не так ?

[Do$]

В первом варианте num_tip будет строкой.

Сообщение от swkx Как мне кажется, было бы логичнее в любом месте программы, где мне нужно получить номер выбранного зачения из списка "tip", использовать конструкцию (get_tile "tip"), но у меня почему-то всегда это значение оказывается равным nil при любом выбранном значении списка. В чем может быть дело ?

покажи код

[swkx]

Код:

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

(defun C:TESTDIA ()
(vl-load-com)

(setq activedoc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark activedoc) 

(loaddialog)

(setq num-tip (get_tile "tip"))
(princ num-tip)


(vla-endundomark activedoc)
(princ)	
	
)


(defun loaddialog ()

	(if (< (setq dcl_id (load_dialog "F:\\CAD_Work\\TESTDIA.dcl")) 0) (exit))
	(if (not (new_dialog "testdia" dcl_id)) (exit))

	
	(start_dialog)
	(unload_dialog dcl_id)	

)

[Do$]

Теперь понятно...
Все <>_tile должны вызываться между вызовами функций new_dialog и start_dialog.
И что-то я сомневаюсь, что так будет правильно работать:

Код:

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

(setq num-tip (get_tile "tip"))

Лучше один из двух предыдущих вариантов.

[swkx]

Сообщение от Do$ Все <>_tile должны вызываться между вызовами функций new_dialog и start_dialog

Этого я и не знал Учту.

[Евгений А.]

Сообщение от swkx Все <>_tile должны вызываться между вызовами функций new_dialog и start_dialog.

Тоже не совсем верно. После new_dialog на экране появляется диалог, но он ещё не активен для пользователя, поэтому в этот момент можно и нужно только присваивать элементам диалога нужные параметры, заполнять списки и т.д.. И смысла в чтении этих параметрах ещё нет. Вызов (start_dialog) делает диалоговое окно активным, но сам лисп останавливается до закрытия диалога. То есть после (start_dialog) Опять бесполезно использовать get_tile, так как окно в этот момент уже закрыто! (именно поэтому nil) Все чтения параметров нужно выполнять в функциях отклика диалога.

[swkx]

После теоретических изысканий и экспериментов напрашивается вывод:

Код:

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

(new_dialog)
...
(setq num-tip 0) ; на случай, если пользователь не прикоснётся к списку
(action_tile "tip" "(setq num-tip (atoi $value))")
...
(start_dialog)

[Do$]

Сообщение от Евгений А. Тоже не совсем верно.

Смотря как делать, конечно же!
Если задавать из лиспа действия с помощью action_tile, то делать это надо между вызовами функций new_dialog и start_dialog. Вот это я имел в виду.

[gomer]

Сообщение от Do$ Как эти два выражения могут давать одинаковые результаты, если во втором выражении есть atoi, а в первом нету?

Стал стар и слеп, простите, автор... Еще давно такими конструкциями не пользуюсь... action_tile всегда делаю по количеству элементов изменяющих диалог (т.е. если, например, кликнуть тоггл, станет недоступным едит_бокс и т.д.) + 2 на кенцел и акцепт, который собирает значения всех элементов диалога...
Минус метода в #1 в том, что если элемент не трогать, то значение переменной останется nil как следствие обязательно выскочит ошибка или переменную нужно инициализировать изначально...

[Евгений А.]

Самый, на мой взгляд, удобный вариант работы с диалогом - это когда есть одна главная функция отклика для диалога и там делать всю его обработку, тогда не надо париться с action-tile и т.п.. Вот на данном примере накидал такой вариант:

Код:

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

(defun C:TESTDIA (/ num-tip activedoc)
  (vl-load-com)
  (setq activedoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark activedoc)
  (loaddialog)
  (princ num-tip)
  (vla-endundomark activedoc)
  (princ)
  )


(defun loaddialog (/ dcl_id)
  (if (< (setq dcl_id (load_dialog "F:\\CAD_Work\\TESTDIA.dcl")) 0)
    (exit)
    )
  (if (not (new_dialog "testdia" dcl_id "(action-dialog)"))
    (exit)
    )
  (start_dialog)
  (unload_dialog dcl_id)
  )

(defun action-dialog (/)
  (cond	((= $key "tip") (setq num-tip $value))
            ;;((= $key "tip") (setq num-tip (get_tile "tip"))); - аналогично и по вкусу
               ((= $key "close") (DONE_DIALOG 0))
	(t nil)
	)
  )

[gomer]

ИМХО, не лучший стиль программирования: action-dialog - это функция по умолчанию для элементов, которым явно не присвоено действие, зачем в него вставлять разграничение? Есть ведь action_tile! А что если забыть кнопку "close"... диалог не закроется просто... вы потеряете часть работы!

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

По-моему, для accept и cancel не требуется специально назначать action_tile (ну, только если не требуется анализировать результат выполнения диалога )

[gomer]

Сообщение от Кулик Алексей aka kpblc для accept и cancel не требуется специально назначать action_tile

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

[Евгений А.]

Э-э-э, налетели коршуны - это всего лишь пример, никого не заставляю делать именно так. Он удобен тем, что не надо вообще использовать action_tile. И это лучше, чем плодить множество мелких функции под каждый tile, особенно когда в программе много диалогов. Потом на кнопку cancel или accept тоже неплохо бы повесить какую-то деятельность, а не просто (done_dialog 0) или (done_dialog 1), которые по умолчанию, тогда и "детских" проблем не будет. Я про это:

Сообщение от gomer Минус метода в #1 в том, что если элемент не трогать, то значение переменной останется nil как следствие обязательно выскочит ошибка или переменную нужно инициализировать изначально...

Ну каждый сам решает, задачи разные бывают.

PS: Забыл самое приятное - отлов ошибок диалога в отладчике при таком алгоритме - не проблема, а вот с action_tile - извините, тока силой мысли.