[Jek30]

В общем вот фрагмент кода из лиспа (возможно он у меня какой-то длинный и усложненный, но как смог):

Код:

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

(setq r (+ Dy Dx Dy))

(if (and (> r 798) (< r 810)) (setq forma "A4"))

(if (and (> r 711) (< r 723)) (setq forma "A4"))

(if (and (> r 1008) (< r 1020)) (setq forma "A3"))

(if (and (> r 1131) (< r 1143)) (setq forma "A3"))

(if (and (> r 1428) (< r 1440)) (setq forma "A2"))

(if (and (> r 1602) (< r 1614)) (setq forma "A2"))

(if (and (> r 2023) (< r 2034)) (setq forma "A1"))

(if (and (> r 2270) (< r 2282)) (setq forma "A1"))

(if (and (> r 2865) (< r 2877)) (setq forma "A0"))

(if (and (> r 3213) (< r 3225)) (setq forma "A0"))

(if (and (> r 1088) (< r 1100)) (setq forma "A3 500 (297.00 x 500.00 мм)"))

(if (and (> r 1188) (< r 1200)) (setq forma "A3 600 (297.00 x 600.00 мм)"))

(if (and (> r 1288) (< r 1300)) (setq forma "A3 700 (297.00 x 700.00 мм)"))

(if (= forma "A4") (setq printerok "PDFCreator") (setq printerok "DWG To PDF.pc3"))

(if (= forma "A3") (setq printerok "PDFCreator") (setq printerok "DWG To PDF.pc3"))

(if (= forma "A2") (setq printerok "PDFCreator") (setq printerok "DWG To PDF.pc3"))

(if (= forma "A1") (setq printerok "PDFCreator") (setq printerok "DWG To PDF.pc3"))

(if (= forma "A0") (setq printerok "PDFCreator") (setq printerok "DWG To PDF.pc3"))

Суть условия простыми словами следующий:
Если условие будет равняться любому одному из следующих: "A4", либо "A3", либо "A2", либо "A1", либо "A0". То выражение принимает - "PDFCreator" (отправка файла на этот принтер). А если условие не равняется тем значениям, то "DWG To PDF.pc3" (отправка файла на этот принтер).

В общем дело в последних пяти строчках в фрагменте кода который я представил выше (остальное работает), дело в том что лисп почему-то всегда выполняет только последнее условие
→(if (= forma "A0") (setq printerok "PDFCreator") (setq printerok "DWG To PDF.pc3"))←
а на остальные четыре оставшиеся выдает ошибку. Хотя если я поменяю местами последнюю строчку с предпоследней, то будет работать уже новая последняя строчка, а остальные четыре опять нет.
Короче таким образом я понял что у меня выполняется только одно условие из этих пяти. Как сделать чтобы все условия заработали?

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

Как-то больно сложно у тебя написано... А чего cond и wcmatch не используешь?
Попробуй нечто типа:

Код:

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

 (setq r (+ dy dx dy))
(setq forma
       (cond
         ((or (< 798 r 810) (< 711 r 723)) "A4")
         ((or (< 1008 r 1020) (< 1131 r 1143)) "A3")
         ((or (< 1428 r 1440) (< 1602 r 1614)) "A2")
         ((or (< 2023 r 2034) (< r 2270 2282)) "A1")
         ((or (< 2865 r 2877) (< 3213 r 3225)) "A0")
         ((< 1088 r 1100) "A3 500 (297.00 x 500.00 мм)")
         ((< 1188 r 1200) "A3 600 (297.00 x 600.00 мм)")
         ((< 1288 r 1300) "A3 700 (297.00 x 700.00 мм)")
       ) ;_ end of cond
) ;_ end of setq
(setq printerok (if (wcmatch forma "A#")
                  "PDFCreator"
                  "DWG To PDF.pc3"
                ) ;_ end of if
) ;_ end of setq

----- добавлено через ~1 мин. -----
Правда, в моем коде не учитывается вариант, что forma вообще хоть какое-то значение получила.

[Jek30]

Сообщение от Кулик Алексей aka kpblc Как-то больно сложно у тебя написано... А чего cond и wcmatch не используешь?

Просто я в этом деле полный чайник.
Большое спасибо!