[Andrey_13]

Вызов командой "_AL".
Указать слой с рамками чертежей (рамки выполнить в виде прямоугольников либо в виде блоков). Программа создаёт листы с видовыми экранами, совпадающими c рамками листов.
Программа нумерует листы по порядку следования рамок в одну строку или в один столбец (либо слева направо, либо сверху вниз). При расположении рамок матрицей - листы будут созданы, но нумерация вкладок потеряет упорядоченность.
Обновление (от старых к новым):
- предусмотрена установка параметров листов (установка принтера DWG to PDF.pc3, подбор ближайших стандартных форматов (A0,1,2,3,4), таблица стилей печати monochrome);
- убрано слово "Лист" из наименования листов;
- для нестандартных форматов листов устанавливается пустое устройство печати;
- улучшение для размещающих рамки форматов в пространстве модели вертикально;
- вместо ввода имени слоя с рамками определение слоя указанием объекта;
- предусмотрено блокирование создаваемых видовых экранов;
- предусмотрен ввод масштаба;
- исправлено завершение программы при пустом выборе объекта для определения слоя с форматами;
- исправлены мелкие ошибки, предусмотрен ввод номера первого листа при работе с удалением существующих листов;
- предусмотрено зумирование создаваемых листов, команда вызова "_AddLay" в целях ускорения набора сокращена до "_AL".
----------------------------
Выложена дополнительная программа создания группы видовых экранов в пространстве листа AVP.lsp. Выход из программы клавишей Esc.
Обновление:
- расширены пределы указания масштабов видовых экранов;
- показана рамка видового экрана при вставке.
----------------------------
По просьбе участника petro_f привожу ссылку на альтернативную версию программы http://forum.dwg.ru/showpost.php?p=1577494&postcount=92

[Ingpro]

Лисп для создания листов и видовых экранов AddLay.LSP предполагает выбор масштаба.
Чертёж в сотом масштабе, если печатать из модели, пунктирные и осевые линии отображаются, как надо.
Если создать листы лиспом (М100), все линии на листах и на печати сплошные.
Если уменьшать масштаб линий, чтобы корректно отображались на листах, тогда в модели линии сплошные...
Может быть можно в лиспе что-то изменить для видового экрана, чтобы для М100 (и для любого масштаба)
линии были видны на листах также, как в модели?
Приходится создавать листы для разных масштабов, лисп очень удобный, но с линиями морока...

[petro_f]

Сообщение от Ingpro Лисп для создания листов и видовых экранов AddLay.LSP предполагает выбор масштаба. Чертёж в сотом масштабе, если печатать из модели, пунктирные и осевые линии отображаются, как надо. Если создать листы лиспом (М100), все линии на листах и на печати сплошные. Если уменьшать масштаб линий, чтобы корректно отображались на листах, тогда в модели линии сплошные... Может быть можно в лиспе что-то изменить для видового экрана, чтобы для М100 (и для любого масштаба) линии были видны на листах также, как в модели? Приходится создавать листы для разных масштабов, лисп очень удобный, но с линиями морока...

Попробуйте версию плагина с 92 поста

[Ingpro]

Сообщение от petro_f Попробуйте версию плагина с 92 поста

Спасибо, за совет, но устанавливать доп. принтер. использовать шаблоны рамок (не свои) не хотелось бы...
И вопрос по видовым экранам для AddLay.LSP остаётся. Возможно ли настроить отображение пунктирных и осевых линий в листах (на печати), как в модели. Или иметь возможность установки пользовательского масштаба видового экрана...

[petro_f]

Сообщение от Ingpro Спасибо, за совет, но устанавливать доп. принтер. использовать шаблоны рамок (не свои) не хотелось бы...

Удачи тогда )))
P.S. Кто тупит и не читает текст, то ещё раз напишу - рамки можете использовать любые.... Хоть просто прямоугольник

[Ingpro]

Сообщение от petro_f Кто тупит и не читает текст

Читаю, конечно, но...
petro_f, Вы добавили 40!!! пунктов в AddLay.LSP, может Вам не трудно будет (плз) просто изменить настройки
видового экрана для М100 для корректного отображения пунктирных и осевых линий в листах, Ваш плагин
несомненно удобный, но диалоговое окно и множество настроек как бы не надо...

[petro_f]

Сообщение от Ingpro Читаю, конечно, но...

Не, не читаете. Так бы обратили внимание, что авторы плагинов разные

[Ingpro]

Сообщение от petro_f авторы плагинов разные

Т.е. в лиспе автора Andrey_13 не сможете подправить? А зайдет ли автор ещё раз в тему, и захочет ли подправить?..
Видовой экран в свойствах изменить нельзя, а как эти установки добавить в лисп?
Может кто-нибудь подскажет?
То есть пользовательский масштаб ВЭ в свойствах должен быть 1, а не 0.01 (при выборе масштаба для листов 100).

[petro_f]

Сообщение от Ingpro Т.е. в лиспе автора Andrey_13 не сможете подправить?

Вопрос немного не корректно поставлен. Правильно он звучит так: А нахрена править чужую и старую версию программы, когда в моей версии лиспа это уже давно корректно реализовано....

[Ingpro]

Сообщение от petro_f А нахрена править чужую и старую версию программы

Версия лиспа Andrey_13 проста в установке и использовании, загружаешь один лисп, выбираешь рамки и листы готовы.
Никаких лишних движений...

[petro_f]

Сообщение от Ingpro Версия лиспа Andrey_13 проста в установке и использовании, загружаешь один лисп, выбираешь рамки и листы готовы. Никаких лишних движений...

Ну так и пишите автору. Я вариант предложил.
Если трудно скопировать пару файлов, то как говорится... "Флаг Вам в руки..."

[Ingpro]

Ув. профи лисп, подскажите, пожалуйста, можно ли в лиспе Андрея_13 из поста #1 прописать PSLTSCALE с установкой в 0 для корректного отображения пунктиров и осей при печати.

[Ingpro]

Может с этим получится...
Можно ли часть из кода VVA добавить в лисп Андрея_13 (AddLay.LSP), чтобы "psltscale" была 0 для создаваемых листов.

часть кода VVA с изменениями

Код:

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

 ;;;ModeL Space пространство Модели
    (setvar "ltscale"
            (* (if (= (getvar "dimscale") 1)
                 1
               ) ;_ end of if
               (getvar "dimscale")
            ) ;_ end of *
            1
    ) ;_ end of setvar
    (progn
;;;Layout tab пространство Листа
           (setvar "ltscale" 1)
           (setvar "psltscale" 0)
    ) ;_ end of progn
  )

dimscale здесь особо не нужна, просто не знаю, как правильно убрать...
Нужны такие значения (может можно без реактора обойтись):
In model Space LTSCALE =1
In layout space LTSCALE=1 PSLTSCALE=0

[391460]

Откройте обычным блокнотом AddLay.LSP (автор Andrey_13) и Sbugo_addlay_insert.LSP (автор petro_f). В посте #92 пункт 15 смотрите.
Через Ctrl+F найдите эту строчку. Ctrl+С и Ctrl+V. Закрыть и сохранить. Переменная psltscale будет иметь значение 0.

[petro_f]

Сообщение от 391460 Sbugo_addlay_insert.LSP (автор petro_f). В посте #92 пункт 15 смотрите.

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

[Ingpro]

Сообщение от 391460 Откройте обычным блокнотом AddLay.LSP (автор Andrey_13) и Sbugo_addlay_insert.LSP (автор petro_f). В посте #92 пункт 15 смотрите.Через Ctrl+F найдите эту строчку. Ctrl+С и Ctrl+V. Закрыть и сохранить. Переменная psltscale будет иметь значение 0.

С этой строчкой (if (= (getvar 'PSLTSCALE) 1) (setvar 'PSLTSCALE 0) ) заработало.
Спасибо большое, 391460!

[Ingpro]

А ещё, подскажите, плз, кто знает, как добавить нестандартные форматы в лисп Андрея_13 AddLay.lsp.
Можно ли их просто добавить по типу стандартных или нужны дополнительные действия?
Это строка из лиспа для станд. форматов:

Код:

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

 (cond ; Выбор формата в зависимости от площади видового экрана
      ((and (> Square 59251) (< Square 65488)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A4_(297.00_x_210.00_MM)"))

[Oberin Martell]

Сообщение от Ingpro С этой строчкой (if (= (getvar 'PSLTSCALE) 1) (setvar 'PSLTSCALE 0) ) заработало. Спасибо большое, 391460!

А можете подсказать куда именно вставляли эту строчку в исходном лиспе?

[Ingpro]

Эта строчка для основного формата A4_297.00_x_210.00_MM

Код:

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

 ((and (> Square 59251) (< Square 65488)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A4_(297.00_x_210.00_MM)"))

Эта цифра 59251 одинаковая для всех форматов 297х...? Вторая цифра 65488 получается прибавлением к первой 6237 (297*210=62370 площадь, 65488-59251=6237), т.е. площадь, но / на 10.
Какое здесь правило для указания площади видового экрана, поясните, пожалуйста. И можно ли нестандартный формат записать по типу:

Код:

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

 ((and (> Square 59251) (< Square 77962)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A4x3_(297.00_x_630.00_MM)"))

т.е. 297*630=187110 и 59251+187110/10=77962
Для формата A4x4_(297.00_x_841.00_MM

Код:

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

  ((and (> Square 59251) (< Square 84229)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A4x4_(297.00_x_841.00_MM)"))

площадь 297*841=249777, здесь последняя цифра не "0", последнюю цифру отсекать или округлять до 8, и 59251+24978=84229?
И для остальных дополнительных:

Код:

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

  ((and (> Square 118503) (< Square 155925)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A3x3_(420.00_x_891.00_MM)"))
 ((and (> Square 118503) (< Square 168441)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A3x4_(420.00_x_1189.00_MM)"))
      ((and (> Square 237006) (< Square 311909)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A2x3_(594.00_x_1261.00_MM)"))
      ((and (> Square 237006) (< Square 336917)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A2x4_(594.00_x_1682.00_MM)"))

Добавляю в код AddLay.lsp, но листы с доп. форматами не создаются, что я делаю не так?

[petro_f]

Сообщение от Ingpro что я делаю не так?

Занимаетесь ерундой.
В описании моего лиспа, даже указана что и куда вписывать, что бы добавить нужное количество форматов.
Ну Вы же всех заманаете из-за "...ой, долее одного файла надо подгрузить.."

[Ingpro]

Сообщение от petro_f В описании моего лиспа, даже указана что и куда вписывать, что бы добавить нужное количество форматов. Ну Вы же всех заманаете из-за "...ой, долее одного файла надо подгрузить.."

petro_f, у меня загружено около 100 лисп-программ, которыми я активно пользуюсь, подгрузить Ваши 2-3 не проблема.
Ваш лисп немного в другом формате и Вы много потрудились над ним, уважаю Ваш труд. Но он очень многофункциональный (и многострочный - почти 4000 строк, у Андрея_13 всего 377 строк). Думаю, программа должна быть максимально лаконична, для определённых задач.
Мне просто большинство функций не нужны и полное количество дополнительных форматов тоже не надо. Я совсем не разбираюсь в лисп-программах, просто хочется добавить несколько ходовых доп. форматов (А4х3, А3х3, А2х3) в авторский AddLay.lsp, а своими силами точно не справлюсь...