[olga87]

Здравствуйте Уважаемые программисты AutoCAD!
Подскажите пожалуйста, как исправить код ниже, чтобы после запуска команды (test) по нажатию ENTER, т.е. при выборе опции "Да" по умолчанию, работал код, т.е. выводилось сообщение "Выбрано Да."?

Код:

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

 (defun c:test ()
(initget "Да Нет")
(setq x (getkword "\nПродолжить ? [Да/Нет] <Да> :"))
(if (= x "Да")
(prompt "\nВыбрано Да.")
)
(if (= x "Нет")
(prompt "\nВыбрано Нет.")
nil
)
(princ)
)

Спасибо!

[skkkk]

Так?

Код:

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

 ...
(setq x (getkword "\nПродолжить ? [Да/Нет] <Да> :"))
(if (null x) (setq x "Да"))
(if (= x "Да")
...

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

Код:

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

 (setq x (cond
          ((getkword "\nПродолжить ? [Да/Нет] <Да> :"))
          (t "Да")
          ) ;_ end of cond
      ) ;_ end of setq

[olga87]

Спасибо!

[Alan]

удалил

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

Правильно, потому что у меня уже тыщу лет как подобная задачка выведена в отдельную практически стандартную конструкцию:

Код:

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

 ((lambda (/ res)
   (if (= (type (setq res (vl-catch-all-apply
                            (function (lambda ()
                                        (initget "Да Нет Yes No _ Y N Y N")
                                        (cond
                                          ((getkword "\nПродолжить ? [Да/Нет] <Да> :"))
                                          (t "Y")
                                          ) ;_ end of cond
                                        ) ;_ end of LAMBDA
                                      ) ;_ end of function
                            ) ;_ end of VL-CATCH-ALL-APPLY
                      ) ;_ end of setq
                ) ;_ end of type
          'str
          ) ;_ end of =
     (progn
       (princ res)
          ; че-то делаем
       ) ;_ end of progn
     (alert "Нажат Esc")
     ) ;_ end of if
   ) ;_ end of lambda
 )

[ShaggyDoc]

Добавлю - для ввода значения по умолчанию совсем не обязательно использовать именно getkword. Это может быть любая get-функция. Причем имя этой функции можно передавать тоже аргументом, как и ключевые слова. В результате любой ввод можно сделать надежным и безошибочным.

Насколько я помню, такую функцию публиковал в dwgru-lisp-lib.

[gomer]

Не нужно делать программы шибко вумными. А то сами же станете жертвами подобного

- Продолжить?
- Пожалуй...
- Может чашечку кофе?..
- Только со сгущенкой!
- Не желаете ли взглянуть на девочек?
- Рисуй уже этот */;?@нный сварной шов!!!=[

[ShaggyDoc]

Не нужно делать программы шибко вумными. А то сами же станете жертвами подобного

Это так. Но программы должны быть простыми, короткими и надежными. Для этого "конечные" программы должны использовать библиотечные функции (например, для ввода данных). Вот эти функции могут быть как угодно сложны - они разрабатываются один раз, а используются сотни раз. При этом их текст не засоряет программу. И любое изменение библиотечной функции сразу приводит к изменению работы сотен программ.

Кроме того, конкретно для Автокада, интерфейс командной строки должен быть максимально приближен к его штатной концепции:

1. В момент запроса, например, точки - позволять сразу ввести точку или отказаться.
2. Иметь набор опций, позволяющих в момент запроса точки, например, вместо указания точки выбрать опцию, а потом вновь вернуться к указанию.
3. Всегда иметь действие (или значение) по умолчанию - выполняется при нажатии Enter.

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

А последовательные гнусные предложения выбора конечно не нужны и вредны.

[gomer]

Одно мне не нравится в библиотечных функциях - их нужно уметь использовать. Например, в pltools набор преобразуется в список примитивов, потом в в список vla-объектов или наоборот, то есть вместо одной итерации происходит две, а то и три... на малых наборах это не заметно, но если взять набор побольше...

[Дима_]

На то есть композиция функций - но в автолиспе с этим "слабовато".
з.ы. еще есть ленивые вычисления и последовательности - но с этим еще слабее - хотя реализовать можно.