[TheBuTeK]

Вопрос заключается в следующем: есть чертеж, содержащий тучу листов разных форматов, заточенных под разные принтеры. И есть программа, выводящая на печать задаваемую область (писалась под пространство модели). Теперь пытаемся научить эту программу печатать из листа так, чтобы она получала из параметров листа имя принтера и формат листа.
А возможно ли это вообще в принципе?
Текст программы могу привести, просто пока дело не в нем.

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

Этой группы нет, если в ВЭ не заморожен ни один слой. Как вариант проверки:

Код:

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

(cdr (assoc 1003 (member (cons 1002 "{") (cdr (assoc"ACAD" (cdr (assoc -3 (entget (car (entsel)) '("*")))))))))

на приложенном файле в Layout1 выдаст nil, в Layout2 - "Layer2"

[fixo]

Сообщение от Кулик Алексей aka kpblc Этой группы нет, если в ВЭ не заморожен ни один слой. Как вариант проверки: Код: [Выделить все] (cdr (assoc 1003 (member (cons 1002 "{") (cdr (assoc"ACAD" (cdr (assoc -3 (entget (car (entsel)) '("*"))))))))) на приложенном файле в Layout1 выдаст nil, в Layout2 - "Layer2"

Дьявол всегда скрывается в мелочах...
Ты ведь не случайно вставил свой чертеж вместо того
чтобы использовать чертеж Виктора
Хочешь показать, что тут все дураки и один
ты умный?
Или я ошибаюсь
Чем разводить пустые базары лучше бы помог
человеку

~'J'~

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

Блин, а ты проверил заблокированность слоев внутри ВЭ? Руками?
Наверняка нет. Слои выключены а не заморожены внутри ВЭ:!:
Вот переделанный файл TheBuTek'a и код, специально для тебя:

Код:

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

(defun test (/ selset _dwgru-conv-pickset-to-list res)

  (defun _dwgru-conv-pickset-to-list (value / tab item)
    (repeat (setq tab  nil
                  item (sslength value)
                  ) ;_ end setq
      (setq tab (cons (ssname value (setq item (1- item))) tab))
      ) ;_ end repeat
    ) ;_ end defun

  (if (setq selset (ssget '((0 . "VIEWPORT"))))
    (mapcar
      '(lambda (x)
         (princ
           (apply 'strcat
                  (mapcar
                    '(lambda (b) (strcat "\n" (cdr b)))
                    (vl-remove-if-not
                      '(lambda (a) (= (car a) 1003))
                      (member (cons 1002 "{")
                              (cdr (assoc "ACAD"
                                          (cdr
                                            (assoc -3
                                                   (entget
                                                     x
                                                     '("*")
                                                     ) ;_ end of entget
                                                   ) ;_ end of assoc
                                            ) ;_ end of cdr
                                          ) ;_ end of assoc
                                   ) ;_ end of cdr
                              ) ;_ end of member
                      ) ;_ end of vl-remove-if-not
                    ) ;_ end of mapcar
                  ) ;_ end of apply
           ) ;_ end of princ
         ) ;_ end of lambda
      (_dwgru-conv-pickset-to-list selset)
      ) ;_ end of mapcar
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

P.S. Предлагаю снизить тональность общения.

[fixo]

Я ж говорю одна болтовня
У меня твой шедевр ничего не возвращает
если кому интересно
Мне тут некогда талдычить с тобой я уж лучше
парню кодом помогу
Good bye

~'J'~

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

Я тебе предлагал говорить потише. Не понял? Объясняю еще раз: не хами! Это раз.
Второе, скачай файл из #23, перейди на лист A2_Landscape и запусти код из #23. А потом - на лист A4 и по новой код на выполнение. Для гарантии запускай его под vlide.
Третье: в листе A2_Landscape войди внутрь ВЭ и посмотри состояние слоев (обычным менеджером, без выпендрежа). То же самое повтори на А4.
Четвертое: запусти свой код и посмотри на результаты обработки файла из #23.

[fixo]

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

Скоро перестану уважать

~'J'~

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

Нарушая все мыслимые и немыслимые правила, отвечу здесь, а не в ПМ (как следовало бы).
fixo, во-первых, мне глубоко фиолетово, кому ты отвечал - мне, Петру или еще кому. Хамить не след.
Во-вторых, лично я расценил как начало неадекватного поведения #22. И продолжение.
В-третьих, гаси эмоции.

[Alaspher]

2 fixo
Во первых, ты мне никаких вопросов не задавал, во вторых, на невысказанный вопрос о группе 1003 исчерпывающе ответил Алексей. В третиьих - такой тон общения мне неинтересен => игнор.