[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

[MrBrown]

Не работает.
При выборе рамки выдает в ком.строке:

Выберите объекты:
; ошибка: неверный тип аргумента: lselsetp nil
______________
через пару минут:
работает!

Пожелание:
- хорошо бы не только указывать существующий слой, но и создавать новый.

[freese]

Так же пожелание:
- чтобы после создания листа - задавалась область печати из ближайших форматов в принтере DWG to PDF

[Andrey_13]

Сообщение от freese Так же пожелание: - чтобы после создания листа - задавалась область печати из ближайших форматов в принтере DWG to PDF

Сделано, см. заглавный пост.

Сообщение от MrBrown Пожелание: - хорошо бы не только указывать существующий слой, но и создавать новый.

Это чуть позже, но скорее всего вряд ли.

[perpetule]

хорошо бы не только указывать существующий слой, но и создавать новый

Не надо этого делать, установить текущий слой перед вызовом команды секундное дело.
Дело в том что СТП на оформление у всех разный.

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

P.S. Архинужный лисп однако. Спасибо Огромное. Из пожеланий - сделать аналог лиспа с другим именем и немного другой логикой,
при создании ВЭ запрашивать точку вставки на вкладке и далее по циклу не создавая новых вкладок, без создания наборов параметра листа (НПЛ).
Это необходимо для компоновки чертежей с несколькими ВЭ или для распечатки того что в модели (несколько листов чертежа) на рулон плоттера
портянкой вида:
A4x7 + A4xn и т.д.
A4x6 + A2 + A4xn и т.д.

[freese]

Сообщение от perpetule Кроме того название версии в имени файла имхо лишнее, каждый раз придется переписывать макрос на кнопку

переименовать файл проще

[Andrey_13]

Файл в заглавном посте снова обновлён, есть некоторые моменты, требующие доработки, вопрос времени.

Сообщение от perpetule при создании ВЭ запрашивать точку вставки на вкладке и далее по циклу не создавая новых вкладок, без создания наборов параметра листа (НПЛ). Это необходимо для компоновки чертежей с несколькими ВЭ или для распечатки того что в модели (несколько листов чертежа) на рулон плотера портянкой вида:

Как это выглядит по шагам?
1. Выделение рамок.
2. Открытие вкладки листа.
3. Указание точки вставки 1-го видового экрана, вставка видового экрана.
4. Указание точки вставки 2-го видового экрана, вставка видового экрана.
5. и т.д.
Так?

[perpetule]

По шагам ( подобная есть AF.lsp , время от времени кривовато работающая ).
1. Переход в целевой лист.
2. Запуск лиспа.
3. Лисп переходит в модель.
4. Запрос двух диагональных точек рамки (очень круто будет запрос двух опционально неортоганальных точек одной стороны и ортогонально к ним запрос третьей точки второй стороны по типу R3P - Прямоугольник по 3-м точкам из pltools.lsp, позволит быстро нарезать трассы).
5. Запрос масштаба (по умолчанию 1), если согласны то просто Enter.
6. Лисп переходит в лист п.1.
7. Запрос точки вставки нижнего левого угла ВЭ (две первые точки запроса п.4 параллельны оси 0-x), по умолчанию 0,0,0 если согласны то просто Enter.
8. Запрос - повтор п.1 (Enter), или выход (ESC). Можно и просто выход, зациклить несложно макросом.


P.S. R3P - Прямоугольник по 3-м точкам из pltools.lsp http://dwg.ru/dnl/607

P.P.S. Не критично, но слово лист при возможности, на создаваемых вкладках хорошо бы упразднить, результат сразу можно в подшивку засунуть, секунды на переименование слова Лист при 50-100 вкладках, довольно серьезный бонус.

P.P.P.S. По основной версии лиспа, вместо текстового указания имени слоя (набор замысловатого имени слоя) гораздо удобнее будет:
1. выбор слоя указанием объекта;
2.Или взять имя текущего.
(п.1 - предпочтительнее)

[Andrey_13]

Снова небольшое обновление, см. заглавный пост.

perpetule, чем af.lsp не устраивает?

[perpetule]

чем af.lsp не устраивает?

Периодически неверно выдает размеры и ориентацию ВЭ, помогает только перезапуск автокада. Нет фичи п.2 R3P.

убрано слово "Лист" из наименования листов

Спасибо, круть. Очень шустро работает.

[Andrey_13]

Нет предела совершенству. Снова смотрим на пост №1.

Сообщение от perpetule Цитата: чем af.lsp не устраивает? Периодически неверно выдает размеры и ориентацию ВЭ, помогает только перезапуск автокада. Нет фичи п.2 R3P.

Будет свободное время - займусь вашей задачей, ибо такое может понадобиться самому. Изначально мною программа писалась как альтернатива LFM от bargool, так как её не удалось запустить на 2015.

[perpetule]

У bargool лучшая из всех коими пользовался. Но, теткам такое не поставить - универсальность требует уже запредельное для них кол-во кликов при настройке. И dll зависит от версии автокада.

Лисп же практически независим от версии.

[freese]

Сообщение от Andrey_13 - для нестандартных форматов листов устанавливается пустое устройство печати;

получается что, если чертить 1:1 милиметрах, то устройство печать пустое, а можно ли чтобы программа меняла масштаб печати?

[Andrey_13]

Сообщение от perpetule Но, теткам такое не поставить - универсальность требует уже запредельное для них кол-во кликов при настройке.

С утра всё настроение испортили упоминанием этой категории пользователей)

Сообщение от freese получается что, если чертить 1:1 милиметрах, то устройство печать пустое, а можно ли чтобы программа меняла масштаб печати?

Установка масштаба предусмотрена в дополнительной программе-аналоге af.lsp из поста №8. Снова отсылаю к заглавному посту. Дегустируйте.

[perpetule]

С утра всё настроение испортили

А вы мне подняли своей программой. Работает! И замечательно работает.

P.S. Мне не нужно, но кому-то возможно потребуются и масштабы увеличения.
При возможности выбора повернутого вьюпорта - будет вообще шедевр.
Вы вообще спите когда-нибудь?
Теткам как раз такого инструмента недоставало для освоения вкладок листов.

[kacugu]

Утро доброе.
В модели три рамки (динамические блоки).
Выполнение лиспа прекращается после создания 1го видового экрана с ошибкой "Ошибка Automation. Неверный ввод"
Autocad 2014 sp1 rus

[stas_org]

А с форматкой что делать? В модели ее постоянно вырисовывать? Потом размещать на чертежи с учетом масштабов, а если я хочу план (1-100) и узлы (1-10) на одном листе разместить?

[freese]

Сообщение от stas_org А с форматкой что делать? В модели ее постоянно вырисовывать? Потом размещать на чертежи с учетом масштабов, а если я хочу план (1-100) и узлы (1-10) на одном листе разместить?

ручками)) Т.к. эта программа для оформленных в моделе чертежей

[stas_org]

А чем инструменты "подшивки" в совокупности с "именованными видами пространства модели" не устраивают? Как удобно из палитры перетаскивать на лист вставленный по шаблону заранее выбранные рамкой вид, с настроенным масштабом.

Очередной заново изобретенный велосипед!

----- добавлено через ~2 мин. -----

Сообщение от freese ручками)) Т.к. эта программа для оформленных в моделе чертежей

А какого черта нужно оформленные в модели на лист пихать?

[kacugu]

Сообщение от stas_org А какого черта нужно оформленные в модели на лист пихать?

Offtop: Как бывает у нас:
Исполнитель1 и исполнитель2 работают над одним комплектом чертежей (1 делает опалубку, 2 - арматуру).
Исполнитель1 работает 1к1, оформляет в листах и использует подшивки.
Исполнитель2 работает в модели и о листах с подшивками не подозревает.
Когда комплект формируется исполнитель1 запихивает листы исполнителя2 из модели в лист и добавляет их в подшивку.

[freese]

Сообщение от stas_org А какого черта нужно оформленные в модели на лист пихать?

публикация, PDF удобней из листов делать

Сообщение от stas_org А чем инструменты "подшивки" в совокупности с "именованными видами пространства модели" не устраивают?

поподробней, как виды пространства модели можно в подшивку перенести?

[baksconstructor]

Тогда Вам сюда
Можно найти то, что "переварит" и модель и листы.

[freese]

Сообщение от baksconstructor Тогда Вам сюда Можно найти то, что "переварит" и модель и листы.

те которые переварят нужно или устанавливать (а на рабочем месте нет прав на установку приложений), или платные, или то и другое, спс

[stas_org]

Не легче ли научить Исполнителя 2 использовать

Сообщение от stas_org инструменты "подшивки" в совокупности с "именованными видами пространства модели"

чем изобретать велосипед, тем более что новый велосипед тоже нужно освоить.

----- добавлено через 54 сек. -----
Именованный вид можно и на готовый чертеж в пространстве модели легко развернуть.

----- добавлено через ~7 мин. -----

Сообщение от freese поподробней, как виды пространства модели можно в подшивку перенести?

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

----- добавлено через ~21 мин. -----
Причем не переносим, а изящно перетаскиваем)))) и компонуем на вставленный "по шаблону" лист заранее настроенный на нужный принтер и имеющий форматку.

[freese]

Сообщение от stas_org и компонуем на вставленный "по шаблону" лист заранее настроенный на нужный принтер и имеющий форматку

и опять листы... а не проще ли сразу в лист?

[stas_org]

Сообщение от freese и опять листы... а не проще ли сразу в лист?

Не проще, теряется смысл использования подшивок.

Сообщение от freese откуда и куда?))

Из палитры подшивок (закладка "Виды моделей" активна) на пустой лист (с настроенной областью печати и форматкой со штампом).

[kacugu]

Сообщение от freese поподробней, как виды пространства модели можно в подшивку перенести?

Немного разобрано здесь http://forum.dwg.ru/showthread.php?t=20147&page=2 (см. сообщение 30)

Сообщение от stas_org Не легче ли научить Исполнителя 2 использовать

Offtop: К сожалению, не проще

[freese]

Сообщение от stas_org Не проще, теряется смысл использования подшивок.

Вот! Не проще так ка больше лишних действий руками. А удобство у подшивок только в работе, в навигации.

Сообщение от kacugu Немного разобрано здесь http://forum.dwg.ru/showthread.php?t=20147&page=2 (см. сообщение 30)

спс, в принципе уже разобрался

[stas_org]

Сообщение от freese А удобство у подшивок только в работе, в навигации.

Кроме навигации - авто нумерация листов, мгновенное изменение штампа во всех листах проекта, автоматическое создание ведомости чертежей, автоматическая печать всех листов проекта (самое главное). Может не все перечислил.

[perpetule]

Не надо писать кипятком по поводу преимуществ подшивки, да использую, да знаю про именованные виды модели и как их вставить на вкладку листа простым перетаскиванием из интерфейса подшивки.
Но тормоза и вылеты в фатал при выполнении данной операции сводят на нет все преимущества данной фичи подшивки.
Лисп же означенный в заголовке, позволяет это делать быстро, легко и непринужденно, не теряя визуального контакта с проектом (несколько/все форматки в одном dwg).
Сохраняя совместимость с теми кто о листах и понятия не имеет.

[stas_org]

Сообщение от perpetule Лисп же означенный в заголовке

Очень сомневаюсь что кроме самого автора кто то будет его использовать. ИМХО.

[perpetule]

Очень сомневаюсь что кроме самого автора кто то будет его использовать.

Посмотрите здесь
http://forum.dwg.ru/showthread.php?t=83750&page=23
Или здесь
http://forum.dwg.ru/showthread.php?t=104517&page=8
на аналогичные велосипеды, и количество их успешно использующих.

На вкус и цвет все фломастеры разные.

[stas_org]

Сообщение от perpetule Или здесь

Вижу 29 человек с 2013 года успешно использую данные приблуды.

[maratovich]

Сообщение от stas_org Цитата: Сообщение от perpetule Посмотреть сообщение Или здесь Вижу 29 человек с 2013 года успешно использую данные приблуды.

Пишут или голосуют в этой теме максимум 1% от пользователей.

[perpetule]

stas_org,
По сути программерам автодеска ничего и делать не надо, они просто шарятся по подобным ресурсам всего мира и наиболее удачные вещи включают в штатный функционал автокада, чем и снискали ведущее место в САПР .
Но далеко не все у них идеально работает.

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

P.S. В штатный функционал вошла например команда _selectsimilar.
А родом она
http://www.maestrogroup.com.ua/support/
selsim.zip
Выбор примитивов по образцу - команда _SelSim
Выбор примитивов по образцу из уже выбранных - команда _SelSimSel

[Andrey_13]

Небольшое обновление.

[perpetule]

Суть AddLay.LSP.
Замечательно работает, но исчез запрос масштаба ВЭ, ранее был запрос масштаба создаваемых ВЭ, или я путаю с AVP.lsp ?

Не суть AddLay.LSP.
ВЭ создает с текущим слоем - это хорошо и правильно.
Масштаб создаваемых ВЭ можно сделать и с уменьшением/увеличением, а не только 1:1
"Лишний" запрос масштаба ВЭ вовсе не лишний и легко убирается макросом на кнопку.
При загрузке многих лиспов появляется их краткое описание в комм. строке. хорошо бы добавить и здесь.
При попытке начать работу во вкладке листа (не входя в модель), нет предупреждения о неверных действиях, и кажется перестают работать некоторые функции, до следующей загрузки лиспа.
Нужно добавить проверку и либо писать текстом предупреждение, либо просто лиспом переходить во вкладку модели.

P.S. Это все не существенно, но похоже у Вас есть желание довести лисп до образцового состояния.

[Andrey_13]

perpetule, вы про какую программу говорите? AVP.LSP или AddLay.LSP?

[freese]

Andrey_13, можно ли чтобы видовые экраны, после создания листов, были заблокированы?

[perpetule]

freese
Есть специализированный
VIEWSBLK.lsp

Макросы на кнопки
^C^C(IF (NULL C:VIEWSBLK)(LOAD "VIEWSBLK.lsp"));viewsblk Block
^C^C(IF (NULL C:VIEWSBLK)(LOAD "VIEWSBLK.lsp"));viewsblk Unblock

Блокирует/разблокирует все ВЭ файла dwg.

[Andrey_13]

Сообщение от freese Andrey_13, можно ли чтобы видовые экраны, после создания листов, были заблокированы?

Сообщение от perpetule Не надо превращать лисп в монстра, посмотрите на последний Office.

Это одна строка кода. Так да или нет?

Сообщение от perpetule Замечательно работает, но исчез запрос масштаба ВЭ, ранее был запрос масштаба создаваемых ВЭ, или я путаю с AVP.lsp ?

В AddLay ввода масштаба изначально не было.

Сообщение от perpetule Масштаб создаваемых ВЭ можно сделать и с уменьшением/увеличением, а не только 1:1

Сделано.

[perpetule]

Сделано

Спасибо!

По AddLay.LSP и масштабу имелись ввиду те извращенцы которые увеличивают штамп и форматку раз в 50 или 100.

С чужими чертежами рано или поздно приходится всем сталкиваться, когда срочно надоть выдать.

[Andrey_13]

Сообщение от perpetule С чужими чертежами рано или поздно приходится всем сталкиваться, когда срочно надоть выдать.

Гадость. Чужие чертежи для меня это как чужой зубной щёткой пользоваться.

Сообщение от perpetule По AddLay.LSP и масштабу имелись ввиду те извращенцы которые увеличивают штамп и форматку раз в 50 или 100.

Давайте чуть позже.

[freese]

Сообщение от Andrey_13 Это одна строка кода. Так да или нет?

да

[Andrey_13]

Обновление AddLay.lsp. Предусмотрено блокирование ВЭ и ввод масштаба создаваемых ВЭ.
---
Исправлено "вылетание" программы при пустом выборе объекта для определения слоя с форматами.

----- добавлено через ~23 ч. -----
Вопросы/пожелания ещё есть?

[perpetule]

Andrey_13
AddLay.LSP
На насыщенном чертеже (около 30 форматок) отказалась работать - создает 1 вкладку листа без ВЭ и все.
После удаления всего кроме форматок нормально отработала.
У bargool я лишь изредка пользовался автоопределением (bargLFBL от bargool), как правило рамками обкруживал, так надежней.
Дело в том что иногда попадаются странные объекты на тех же съемках (подосновах).
Переделывать видимо не надо, пусть народ еще потестит в понедельник.
А вот вариант (другая команда вызова и другой/тот-же лисп) с ручным указанием каждой рамки (аналог LFM от bargool) не помешал бы.

P.S. AddLay.LSP
Как вариант решения сработал такой вариант - на том же капризном файле выключил и заморозил все слои кроме слоя форматок,
лисп отработал как на вычищенном файле. Насколько я разбираюсь, могу предложить такой алгоритм:
- запуск лиспа;
- запросы лиспа;
- запомнить состояние слоев;
- заморозить-и-выключить все слои кроме слоя форматок;
- выполнить лисп;
- вернуть состояние слоев.

Кроме того такой подход должен положительно сказаться на скорости обработки тяжелых файлов.

P.P.S. За Avp.lsp огромное спасибо, теперь в том числе есть масштабы увеличения (1:0.5), и проверка на неверные действия пользователя.

[Andrey_13]

Это наверняка проблема файла, а не проблема программы, и решать её нужно другими средствами.
См. ЛС.

[Vetinj]

Andrey_13 возможно ли добавить в AVP.lsp функцию при котором будет показываться силуэт видового экрана при вставки на лист( пример Af.lsp) и привязка будет осуществляться за левый верхний угол + добавить блокирование ВЭ.

[perpetule]

По AVP.lsp

Условие 1 делает спорным условие 2, в Af.lsp за НЛУ ВЭ привязывается, т.к. по умолчанию настройки печати (лист) пляшут как раз от нижнего левого угла вкладки листа.


1.

при котором будет показываться силуэт видового экрана при вставке на лист

2.

привязка будет осуществляться за левый верхний угол

3.

+ добавить блокирование ВЭ

P.S.
Условие 1 - красивое решение, но по возможности без показа содержимого ВЭ (только границы), т.к. динамическое отображение содержимого ВЭ вызывает сильные тормоза/лаги при вставке ВЭ.
Настройка печати "лист" вкладки листа, также участвует в функции подшивки - печатать без учета параметров листа, и является предпочтительной при оформлении через вкладки листов.

Упс. поправил
Условие 1 - поддерживаю в список пожеланий, с указанной оговоркой.
Условие 2 - не могу поддержать, причины указаны.
Условие 3 - поддерживаю в список пожеланий.

[kacugu]

Прикладываю проблемный файл.
При указании масштаба 1:1 лисп обрабатывает только 1 рамку. Выполнение лиспа прекращается после создания 1го видового экрана с ошибкой "Ошибка Automation. Неверный ввод".
При указании других масштабов - обрабатывает все рамки, но не устанавливает параметры листа для печати.

[perpetule]

Попутно по AddLay.lsp

1. При подтверждении удалять листы, исчезает запрос первого номера создаваемых вкладок.
2. При указании в качестве источника слоя блока часто/но-не-всегда- пишет
; ошибка: неверный тип аргумента: lselsetp nil
, при указании полилиниий - все Ок.

[Vetinj]

perpetule У меня в организации чертежи распечатывают специально обученные люди и поэтому вкладка лист не привязана к плоттеру печати. Во вкладку лист я копирую форматку и через ВЭ формирую чертеж. Т.к. лист начинаю формировать с левого верхнего угла, то при вставки ВЭ за нижний угол да еще без границ ВЭ, очень не удобно расставлять ВЭ по чертежу. Если сложно описать в коде, давайте оставим что-то одно либо ЛВУ либо границы.

[perpetule]

Vetinj
по AVP.lsp
Поддерживаю границы, и блокировку ВЭ.
Привязку ЛВУ - не поддерживаю, лучше оставить как есть НЛУ.

что-то одно либо ЛВУ либо границы

Andrey_13
по AddLay.lsp
Подтверждаю kacugu прикладываю файл с его и своими форматками,
проблема возникает именно при масштабе 1:1 колл-во созданных ВЭ или один или меньше выбранной области (иногда 5-6 вместо 14).

Проблем не вызывают масштабы
1:0.95
1:1.05

Ведут себя также как и 1:1
1:0.99
1:1.01

P.S. Была попытка отследить проблемы в устройстве блоков, имени слоя и т.п.
У программы bargool вызывали проблемы блоки с объектами вне рамки, пусть даже и скрытые через видимость, несмотря на то что платформы программирования разные, на уровне ядра механизм определения ВЭ видимо один и тот же.

Во вложении файл верно отработанный программой bargool , с двумя блоками форматок,
проблемы AddLay.lsp описаны выше.

Еще раз повторюсь, все на автомате это хорошо конечно, но и вариант
с ручным указанием каждой рамки (аналог LFM от bargool) не помешал бы.
Кроме того не все и не всегда листы располагают по полочкам (слева направо, сверху вниз), ручное указание порядка следования форматок было бы не лишним (как вариант).

для всех
Выкладываю архив с набором параметров листа (НПЛ) всех форматов по ГОСТ 2.301-68
1) _QNEW_DWFx ePlot (XPS Compatible)_1_005_.dwt

и файлами виртуального принтера под этот файл (переписать в ось с заменой), все поля выставлены в 0.
2) DWFx ePlot (XPS Compatible).pc3
3) DWFx ePlot (XPS Compatible).pmp

Пояснения к 3) ,см. скриншот. (подключить *.pmp к *.pc3)
- ctrl+P
- DWFx ePlot (XPS Compatible).pc3 - Свойства
- правая вкладка, нестандартные форматы и калибровка, имя pmp, подключить.

Данный архив позволяет через публикацию-dwg или публикацию подшивки-dst печатать вкладки листов в DWF либо DWFx либо PDF, не меняя НПЛ вкладки листа.
Файл DWF либо DWFx далее позволяет печатать на физический принтер.
Тема большая, кому интересно, изучаем самостоятельно.

[kacugu]

Всё оказалось просто. В строке

Код:

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

 ((and (> Square 474012) (< Square 523908)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A1_(840.00_x_594.00_MM)"))

нужно исправить 840 на 841

[Andrey_13]

Сообщение от perpetule 1. При подтверждении удалять листы, исчезает запрос первого номера создаваемых вкладок.

Его изначально не было. Сделано.

Сообщение от perpetule Кроме того не все и не всегда листы располагают по полочкам (слева направо, сверху вниз)

Это наиболее приемлемый и естественный порядок. Приняв ваше предложение, потом начнётся: "Давайте учтём интересы тех пользователей, кто чертит в зеркальном отражении/с похмелья/чтобы программа сама проект сделала и т.п."

Сообщение от Vetinj добавить блокирование ВЭ

Блокирование добавлено.

Сообщение от perpetule Поддерживаю границы, и блокировку ВЭ. Привязку ЛВУ - не поддерживаю, лучше оставить как есть НЛУ. Цитата: что-то одно либо ЛВУ либо границы

Сделан показ границ.

Сообщение от kacugu нужно исправить 840 на 841

Исправлено.

Сообщение от perpetule 2. При указании в качестве источника слоя блока часто/но-не-всегда- пишет

Исправлено.

[perpetule]

Это наиболее приемлемый и естественный порядок. Приняв ваше предложение, потом начнётся: "Давайте учтём интересы тех пользователей, кто чертит в зеркальном отражении/с похмелья/чтобы программа сама проект сделала и т.п."

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

По шагам.
0. Переход во вкладку модели.
1. Указание масштаба (в идеале как у bargool, длиной штампа, т.е. 1:1 = 185 мм).
2. Указание слоя рамок.
3. Выделение рамок в произвольном порядке (каждой по диагональным точкам, либо для блоков-рамок указанием каждого такого блока).
....
N+1. Создание вкладок листов , в том порядке в каком они были указаны п.3 ... N, (в идеале с назначением любого формата по ГОСТ 2.301-68 имеющегося в НПЛ файла dwg, для упрощения будем считать что есть отдельные НПЛ для горизонтальной и вертикальной ориентации форматки, импорт-из-другог-файла-НПЛ-нежелателен, т.к. ведет к усложнению запросов лиспа).
N+2. Выполнение команды _zoom _All для каждой вкладки листа.
N+3. Переход в модель.

P.S. Я понимаю, что - "а оно мне надо", но программа bargool развивалась пару лет точно, вы же за неделю набросали два рабочих лиспа, до которых штатные программеры автодеска до сих пор не доросли, кол-во запросов для создания вкладки листа штатными методами превышает все разумные пределы.

P.P.S. Для чего все сказанное выше, при компоновке сырого проекта All-in-One во вкладке модели-dwg, важно не терять визуального контакта с собираемыми листами (л.N), страницами (стр.N), надписями в штампах, перекрестными ссылками на листы, и т.п..
В альтернативе же, по завершению компоновки автоматом - лазить по вкладкам листов, отлавливая мелкие нестыковки - ну очень долго и утомительно.

P.P.P.S По п. N+1. Виртуальный принтер может быть и
DWG to PDF.pc3
правда в последних локализованных версиях он зовется
DWG в PDF.pc3
(есть готовый комплект подобный #53 посту, только НПЛ/dwg еще надо набросать).

P.P.P.P.S Никто и не просит начинать программить сказанное выше немедленно, сам базовый AddLay.lsp еще требует доводки (назначение всех верт/гор. форматов из ГОСТ 2.301-68, а не только основных), хотя даже это уже несущественно, требуется всего лишь один дополнительный ручной заход на вкладку листа и ручное назначение из готового НПЛ файла-dwg на любой принтер по вкусу пользователя. Кол-во запросов AddLay.lsp просто поражает здоровым минимализмом.

P.P.P.P.P.S
И наконец по текущей версии AddLay.lsp
во вложении стрелками в модели показан порядок создания вкладок листов при отработке лиспа, используются два блока форматок, мой и kacugu, он немного не соответствует заявленому слева направо, сверху вниз, или я чего-то не понимаю?

В шапке темы

Обновление (от поздних к ранним):

не соответствует истории изменений, последние записываются ниже.

[Vetinj]

Andrey_13 Спасибо за оперативное изменение AVP.lsp. Удобнее стало работать с ВЭ

[Andrey_13]

Сообщение от perpetule Имелось ввиду не арабское письмо(используется для письма справа налево) или иные лишние запросы в AddLay.LSP, а другая команда - алгоритм похожий на алгоритм из поста#7.

Может быть когда-нибудь.

Сообщение от perpetule N+2. Выполнение команды _zoom _All для каждой вкладки листа.

Добавлено.

Сообщение от perpetule P.P.P.P.S Никто и не просит начинать программить сказанное выше немедленно, сам базовый AddLay.lsp еще требует доводки (назначение всех верт/гор. форматов из ГОСТ 2.301-68, а не только основных), хотя даже это уже несущественно, требуется всего лишь один дополнительный ручной заход на вкладку листа и ручное назначение из готового НПЛ файла-dwg на любой принтер по вкусу пользователя.

Для работы с НПЛ без захода в каждую вкладку я пользовался этим http://forum.dwg.ru/showthread.php?t=16792

Сообщение от perpetule во вложении стрелками в модели показан порядок создания вкладок листов при отработке лиспа, используются два блока форматок, мой и kacugu, он немного не соответствует заявленому слева направо, сверху вниз, или я чего-то не понимаю?

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

Сообщение от perpetule не соответствует истории изменений, последние записываются ниже.

Исправлено.

Сообщение от perpetule Кол-во запросов AddLay.lsp просто поражает здоровым минимализмом.

Минимализм - моя крайность.
-----
Обратите внимание: изменена команда вызова программы.

[perpetule]

AddLay.lsp

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

Пожелание, в шапку-описание отредактировать/добавить следущее:
"Лисп пока может адекватно распознать форматки и пронумеровать ВЭ по порядку следования в одну строку или в один столбец (либо слева направо, либо сверху вниз").
При расположении форматок матрицей - ВЭ будут созданы, но нумерация вкладок потеряет упорядоченность.

[Andrey_13]

Подправлено.

[perpetule]

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

Пожелание (вопрос неоднозначный - обсуждается):
устанавливать ANNOALLVISIBLE=1 для вкладок листов,
либо делать запрос (чего не хотелось бы),
либо добавить описание переменной в шапку темы для добавления желающими в макрос запуска.

Чужие чертежи - только что наткнулся, в модели установлен масштаб 1:1 (обозван он 1:1000), шифр разбросан многострочным аннотативным текстом, ВЭ созданы с масштабом (1:1 и обозван он в списке 1:1). ВЭ создавались не вашей программой.

Но при ANNOALLVISIBLE=0, при котором создавались ВЭ, шифр через ВЭ не виден и не печатается, до установки ANNOALLVISIBLE=1 для каждой вкладки листа.


Скрытие или отображение аннотативных объектов, не поддерживающих текущего аннотативного масштаба.
Возможные значения:
0 - Отображаются только аннотативные объекты, поддерживающие текущий аннотативный масштаб
1 - Отображаются все аннотативные объекты

Значение переменной ANNOALLVISIBLE сохраняется отдельно для пространства модели и каждого листа.

http://forum.dwg.ru/showthread.php?t=29436

Вот ведь ... чем же теперь разом всем вкладкам ANNOALLVISIBLE=1 назначить чтоб листы не пересоздавать их таки 56 штучек.

Просто убрал свойство: аннотативность - да, для всех многострочных текстов, т.к. она была назначена не через стиль, то пришлось делать выборку, таких текстов.

Данную фичу (аннотативность) используют единицы, а вот пропажа размеров, текстов, и других объектов поддерживающих аннотативность (через стиль, или как свойство объекта) отследить сложно,
потому ИМХО ANNOALLVISIBLE=1 для вкладок листов нужно устанавливать программно, с предупреждением в шапке темы (можно указать какие строки закоментировать при желании не менять эту переменную).
В этом случае и лишнего запроса нет, и переделать под аннотативность можно.

[Vetinj]

AVP.LSP При вставки ВЭ у предыдущего слетает видимость изображения, при дальнейшей работе вставляется пустой ВЭ. Переменная MAXACTVP-64, ВЭ включен.
В чем может быть причина?

[betonolom]

Пользуюсь AVP.LSP, огромное спасибо разработчикам.
Немного исправил для своих нужд:
(if (not Scale) (setq Scale (getvar "USERI2")))
Теперь когда необходимо вставить на лист огромное число узлов конструкций в масштабе 1:20, я присваиваю USERI2 значение 20, масштабы при этом устанавливаются по умолчанию 1:20.

Теперь о проблемке: использую лисп автоматического переноса объектов на слои http://forum.dwg.ru/showpost.php?p=58664&postcount=25
в который добавил следующее: ((wcmatch thecommandstart "*VPORTS*") ;_Если выполняется команда *VPORTS
(setvar "clayer" (Layer? "КР_П_01_ВЭ"))

Видовые экраны, которые созданы в AVP.LSP при этом не переходят в нужный слой.
Подскажите как подправить AVP.LSP или лисп автоматического переноса, чтобы видовые экраны переходили на нужный слой.
Спасибо.

[Andrey_13]

Сообщение от Vetinj В чем может быть причина?

По вашей проблеме у меня, к сожалению, нет информации.

Сообщение от betonolom Подскажите как подправить AVP.LSP или лисп автоматического переноса, чтобы видовые экраны переходили на нужный слой.

В конце программы AVP.LSP после строки

Код:

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

 (vla-put-CustomScale Viewport (/ (float 1) (float Scale)))

добавьте строку

Код:

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

 (vla-put-Layer Viewport "КР_П_01_ВЭ")

[perpetule]

Надеюсь не offtop
Сборник ссылок на виртуальные Pdf принтера / конвертеры с упоминанием их платности / бесплатности и локализации
http://kompazbuka.ru/office/text-converters

P.S. Добавлен PDF reDirect, дальнейшие добавления виртуальных PDF - > пишем в ЛС, дабы не размазывать тему!
Nike - спасибо за ссылку!

[Nike]

perpetule, "PDF reDirect" забыли.

[betonolom]

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

....
А у меня другая проблема: при использовании AVP.LSP видовые экраны создаются с масштабом аннотаций равным 1:1, и поэтому даже если масштаб аннотаций текстов и размеров в модели совпадает с масштабом, устанавливаемом при запросе лиспа, то в видовом экране они не отображаются (масштаб аннотаций в модели не совпадает с масштабом аннотаций видового экрана).
Подскажите пожалуйста, как откорректировать лисп, чтоб масштаб аннотаций видового экрана устанавливался равным масштабу видового экрана?

[Poker face]

Привет всем. Новичок на форуме и в лиспе. По работе понадобился инструмент для автоматического формирования листов. Скачал addlay, попробовал, некоторые моменты подправил под себя, нашел 2 ошибки. По ошибкам:
1) строка (vla-put-Name (vla-Item Layouts 1) (itoa FirstSheet)) ; Переименование первого листа вызывает ошибку на английской версии, т.к. похоже для английской версии vla-Item Layouts 0 является List1 , а vla-Item Layouts 1 - model. В отличие от русской где все наоборот.
Переделал этот момент, также переделал строку (setq Layout (vla-item Layouts 0)) по той же причине, хотя она отрабатывала корректно после переименования листа.
2) Цикл с проверкой на совпадение листов при выполнении условия совпадения становится бесконечным, поправил это.
По переделке под себя. Надеюсь автор не обидится на подобное надругательство над программой. Ну и т.к. в лиспе я новичок возможны ошибки и огрехи в добавлениях. Тут надеюсь на опытных форумчан, возможно поправят или дадут добрый совет.
Что именно поменял:
1) задал слой для рамок по умолчанию
2) добавил возможность выбора нескольких наборов листов по горизонтали либо вертикали
3) добавил выбор форматов для набора новых листов А4/А3/А2/А1/Масштаб, форматы А4 и А3 вписываются в область печати принтера независимо от размера вьюпорта, для форматов А2 и А1 масштаб установлен 1:1, при выборе Масштаб идет запрос масштаба из оригинального Addlay.
4) добавил выбор файла настроек принтера и выбор стиля ctb для формируемых листов
5) добавил обработку выбора мелких объектов и взорванных рамок с сообщением и выходом
6) добавил проверку регенерации листов и установку переменной LAYOUTREGENCTL в 0
7) убрал выбор формата по площади, т.к. в моем случае формат листа задается вручную

[Kserg_nn]

Добрый день. Спасибо за полезный лисп.
Если можно то внесите небольшое изменение
Суть. Есть планы линейных объектом, на протяжении трассы расставляются форматки, соответственно не горизонтально, а под разными углами, вдоль самой трассы.
Программа определяет и создает листы и видовые экраны, НО видовой экран на этом участке остается горизонтальным. Пожалуйста сделайте так, чтобы и форматка и видовой экран были вместе одинаково ориентированы по горизонтали на листе.
Еще маленький вопрос. Где и что добавить в лиспе чтобы по умолчанию видовые экраны сохранялись в слое "ВЭ" и этот слой был не печатный.
Спасибо

[Poker face]

Небольшим изменением тут не обойтись. Стороны видового экрана параллельны осям мировых координат. Могу посоветовать ставить форматку на плане горизонтально/вертикально, а уже потом зайдя в модель через видовой экран (не забудьте разблокировать вид в свойствах видового экрана) поворачивать как надо и менять ПСК. Со слоем проще, в лисп добавлять ничего не надо, видовые экраны создаются в текущем слое, соответственно если в чертеже есть слой ВЭ и он непечатаемый, то нужно просто сделать его текущим перед запуском лиспа.

[Kserg_nn]

Сообщение от Poker face Небольшим изменением тут не обойтись. Стороны видового экрана параллельны осям мировых координат. Могу посоветовать ставить форматку на плане горизонтально/вертикально, а уже потом зайдя в модель через видовой экран (не забудьте разблокировать вид в свойствах видового экрана) поворачивать как надо и менять ПСК. Со слоем проще, в лисп добавлять ничего не надо, видовые экраны создаются в текущем слое, соответственно если в чертеже есть слой ВЭ и он непечатаемый, то нужно просто сделать его текущим перед запуском лиспа.

как по вернуть экран я знаю, но это все руками, теряется весь смысл автоматизации, поэтому хотелось бы это видеть программно (есть подобный лисп, но он привязан к шаблонам и работает только до 2012 версии + с ним есть ряд неудобств)
по поводу ВЭ.
хотелось бы это сразу чтобы в лиспе было прописано, чтобы с самого начала слой устанавливался нужного имени или создавался нужного имени. Так как этим лиспом пользуются разные люди, каждый раз контролировать какой слой текущий не каждый будет да и не нужно это.

[freese]

Сообщение от Kserg_nn как по вернуть экран я знаю, но это все руками, теряется весь смысл автоматизации, поэтому хотелось бы это видеть программно (есть подобный лисп, но он привязан к шаблонам и работает только до 2012 версии + с ним есть ряд неудобств) по поводу ВЭ. хотелось бы это сразу чтобы в лиспе было прописано, чтобы с самого начала слой устанавливался нужного имени или создавался нужного имени. Так как этим лиспом пользуются разные люди, каждый раз контролировать какой слой текущий не каждый будет да и не нужно это.

http://forum.dwg.ru/showthread.php?t=83750 - прототип, с вашей задачей справится

[Kserg_nn]

Сообщение от freese http://forum.dwg.ru/showthread.php?t=83750 - прототип, с вашей задачей справится

не подходит или что то не так делаю
по повернутым форматкам нельзя ничего сделать, не саму форматку в правильную рамку определить, ни видовой экран по форматке сделать ((

[perpetule]

прототип, с вашей задачей справится

Такового на форуме нет, есть стандартный набор действий, не самый быстый, который позволит нарезать трассы.

_Chspace

_-vports _o

[Vladimir_Sergeevich]

AddLay отличная программа, сделал несколько изменений под себя.
У нас принято печатать рамкой для этого:
1. Перед назначением метода печати рамкой надо эту рамку задать

Код:

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

 ;;; Установка параметров печати
    ;;(vla-put-StyleSheet Layout "monochrome.ctb") ; Установка таблицы стилей печати не надо монохрома!
    (vla-SetWindowToPlot Layout ;;;задаем рамку для печати
		(vlax-safearray-fill 
			(vlax-make-safearray vlax-vbDouble '(0 . 1))
			'(0 0)
		)
		(vlax-safearray-fill 
			(vlax-make-safearray vlax-vbDouble '(0 . 1))
			(list ViewportWidth ViewportHight)
		)
	)
	(vla-put-PlotType Layout 4) ;; Установки области печати "Лист"(5) "рамка"(4)

2.После задания области печати и выбора формата подправить единицы и центровку (перед зумированием)
По крайней мере на том чертеже, где тестил, по умолчанию выставлялись дюймы

Код:

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

 	(vla-put-PaperUnits Layout 1) ;;миллиметры
	(vla-put-CenterPlot Layout :vlax-true) ;;центровка

и поменял листы на "ISO_expand_A4_(297.00_x_210.00_MM)" и тому подобные, думаю можно будет и неформат позже дописать туда же

[kacugu]

betonolom, попробуйте после строчки

Код:

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

 (vla-put-mspace ActiveDocument :vlax-true)

вставить строчку

Код:

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

 (setvar "cannoscale" (strcat "1:" (rtos Scale 2 0)))

Должно подходить и для addlay.lsp

[KEHT]

Сообщение от Vetinj AVP.LSP При вставки ВЭ у предыдущего слетает видимость изображения, при дальнейшей работе вставляется пустой ВЭ. Переменная MAXACTVP-64, ВЭ включен. В чем может быть причина?

Таже проблема) игрался лиспом настраивал под себя, добавлял удалял, добавлял удалял видовые экраны и бац стали выключаться, хотя их на листе 5-6. Думаю удаленные ВЭ не чистяться на листе при удалении...

----- добавлено через ~55 мин. -----
(vla-zoomcenter Application (vlax-3d-point (list (/ (+ Point1x Point2x) 2) (/ (+ Point1y Point2y) 2))) 1.0) Ошибка в этой строчке иногда сбивается центровка...

[Segey.K]

Сообщение от Andrey_13 По вашей проблеме

Андрей подскажи пожалуйста куда и что нужно дописать в коде AddLay.LSP, чтобы при создании листа переменная PSLTSCALE была = 0, по умолчанию PSLTSCALE=1. Очень нужно. Заранее спасибо.

[Andrey_13]

Сообщение от Segey.K Андрей подскажи пожалуйста куда и что нужно дописать в коде AddLay.LSP, чтобы при создании листа переменная PSLTSCALE была = 0, по умолчанию PSLTSCALE=1. Очень нужно. Заранее спасибо.

Посмотрите во вложении.

[KEHT]

Сообщение от KEHT Таже проблема) игрался лиспом настраивал под себя, добавлял удалял, добавлял удалял видовые экраны и бац стали выключаться, хотя их на листе 5-6. Думаю удаленные ВЭ не чистяться на листе при удалении... ----- добавлено через ~55 мин. ----- (vla-zoomcenter Application (vlax-3d-point (list (/ (+ Point1x Point2x) 2) (/ (+ Point1y Point2y) 2))) 1.0) Ошибка в этой строчке иногда сбивается центровка...

Отвечаю Vetinj и самому себе. Проблема была в двух строчках, Когда рисовался видовой экран, должна была видна быть точка 0,0 (начало координат). Поэтому поправил код так:

Код:

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

;;; Создание группы видовых экранов в одной вкладке листа
(defun C:AVP (/
	      Application
	      ActiveDocument
	      CenterPointViewport
	      FrameHeight
	      FrameWidth
	      LayoutName
	      PaperSpace
	      Point1
	      Point2
	      Point1x
	      Point1y
	      Point2x
	      Point2y
	      Scale
	      Viewport
	      ViewportHeight
	      ViewportWidth	      
		 )
  (vl-load-com) ; Загрузка функций ActiveX
  (setq Application (vlax-get-acad-object) ; Указатель приложения
	ActiveDocument (vla-get-ActiveDocument Application) ; Указатель активного документа
	PaperSpace (vla-get-PaperSpace ActiveDocument) ; Указатель пространства листа
	)
  (if (= (getvar "CTAB") "Model")
    (progn
      (alert "Перейдите в лист назначения.") ; Предупреждение о переходе во вкладку листа
      (quit)
      )
    (setq LayoutName (getvar "CTAB")) ; Сохранение имени листа
    )
  (while T
    (setvar "CTAB" "Model") ; Переход во вкладку модели
    (setq Point1 (getpoint "Первая вершина области")) ; Запрос первой точки области
    (setq Point2 (getcorner Point1 "Вторая вершина области")) ; Запрос второй точки области
    (initget 6) (setq Scale (getreal "Масштаб 1:<1>")) ; Запрос масштаба
    (if (not Scale) (setq Scale 1))
    (setvar "CTAB" LayoutName) ; Переход во вкладку листа
    (setq
      FrameWidth (abs (- (car Point1) (car Point2))) ; Получение ширины рамки
      FrameHight (abs (- (cadr Point1) (cadr Point2))) ; Получение высоты рамки
      ViewportWidth (/ FrameWidth Scale) ; Получение высоты видового экрана
      ViewportHight (/ FrameHight Scale) ; Получение ширины видового экрана
      PaperSpace (vla-get-paperspace ActiveDocument)
      Point1x (car Point1) ; Получение координат из точек
      Point1y (cadr Point1)
      Point2x (car Point2)
      Point2y (cadr Point2)
      )	 
    ;(setq PointViewport (getpoint "Левая нижняя точка видового экрана"))
    (setq CenterPointViewport (list (/ ViewportWidth 2) (/ ViewportHight 2) 0))  ; Преобразование левой нижней точки видового экрана в центральную точку
    (setq Viewport (vla-AddPViewport PaperSpace (vlax-3d-point (getvar "VIEWCTR")) ViewportWidth ViewportHight)) ; Видовой экран
    (vla-display Viewport :vlax-true) ; Включение видового экрана
    (vla-put-mspace ActiveDocument :vlax-true) ; Активизация модели в видовом экране
    (vla-zoomcenter Application (vlax-3d-point (list (/ (+ Point1x Point2x) 2) (/ (+ Point1y Point2y) 2))) 1.0) ; Центровка зума экрана
    (vla-put-mspace ActiveDocument :vlax-false) ; Деактивация пространства модели
    (vla-put-standardscale Viewport acVpCustomScale) ; Установка пользовательского масштаба видового экрана
    (vla-put-DisplayLocked Viewport "-1") ; Блокировка видового экрана
    (vla-put-CustomScale Viewport (/ (float 1) (float Scale))) ; Установка масштаба видового экрана
    (command "._move" (vlax-vla-object->ename Viewport) "" (getvar "VIEWCTR") pause) ; Указание точки вставки видового экрана
    )
  )

Теперь вайпорты не сбиваются

[ElectricSib]

Попробовал AddLay.LSP из шапки темы. Отлично работает на чертежах, выполненных в А3, А4. Но тем не менее, заглючил в файле с чертежами формата А4х5 (1050х297), вместо листов размером 1050х297 создаются неправильные листы различного случайного размера, и поверх них видовой экран правильного размера, совмещенный с листами по левому нижнему углу.
Как-то можно допилить этот скрипт, чтобы он корректно подгонял размер таких нестандартных вытянутых листов под размер видового экрана/рамки? Или это скорее особенность автокадовского принтера DWG to PDF?

[skkkk]

В окне печати в свойствах принтера, в разделе Нестандартные форматы листа нужно создать необходимые форматы вручную, выставив все поля в ноль. После этого запускать AddLay. Кажется, так.

[ElectricSib]

Сообщение от skkkk В окне печати в свойствах принтера, в разделе Нестандартные форматы листа нужно создать необходимые форматы вручную, выставив все поля в ноль. После этого запускать AddLay. Кажется, так.

Необходимые нестандартные форматы типа A4x3 там уже есть. Но AddLay.LSP у меня нормально работает только на стандартных форматах, иначе он ставит либо неверный мелкий формат для DWG to PDF, либо отсутствие принтера вообще:

Сообщение от Andrey_13 Обновление (от старых к новым): - для нестандартных форматов листов устанавливается пустое устройство печати;

[kacugu]

что-то мне подсказывает, что вот часть кода вам надо переписать под себя, с учетом ваших форматов

Код:

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

 
;;; Установка форматов листа
    (setq Square (* ViewportHight ViewportWidth)) ; Расчёт площади видового экрана
    (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)"))
      ((and (> Square 118503) (< Square 130977)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A3_(420.00_x_297.00_MM)"))
      ((and (> Square 237006) (< Square 261954)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A2_(594.00_x_420.00_MM)"))
      ((and (> Square 474012) (< Square 523908)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A1_(841.00_x_594.00_MM)"))
      ((and (> Square 948024) (< Square 1047816)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A0_(841.00_x_1189.00_MM)"))
      ((or ; Установка пустого устройства печати для нестандартных форматов листа
	 (< Square 59251)
	 (and (> Square 65488) (< Square 118503))
	 (and (> Square 130977) (< Square 237006))
	 (and (> Square 261954) (< Square 474012))
	 (and (> Square 523908) (< Square 948024))
	 (> Square 1047816)
	 )
       (vla-put-ConfigName Layout "Нет")
       )
      )
 

[AlexCondor]

Сообщение от ElectricSib Но тем не менее, заглючил в файле с чертежами формата А4х5

Сообщение от ElectricSib Необходимые нестандартные форматы типа A4x3 там уже есть.

Что-то не стыкуется

[ElectricSib]

Сообщение от kacugu что-то мне подсказывает, что вот часть кода вам надо переписать под себя, с учетом ваших форматов

Тут в условии выбор формата листа осуществляется по площади. К нестандартному формату А4х4 (297х841) такое условие, мне кажется, не подойдет, т.к. площадь у него такая же как у формата А2 (594х420). Т.е. я попробовал заменить все условия после cond на проверку ширины и длины видового экрана, и присвоении ему формата A4x4, чтобы проверить его работу на A4x4:

Код:

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

  (cond ; Выбор формата А4х4 в зависимости от размеров видового экрана
      
      ((and (> ViewportHight 270) (< ViewportHight 330) (> ViewportWidth 760) (< ViewportWidth 925)
       (or (> ViewportWidth 270) (< ViewportWidth 330) (> ViewportHeight 760) (< ViewportHeight 925)) ) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "A4x4_(297.00_x_841.00_MM)"))

Но тем не менее, код с этим условием назначает создающемуся листу принтер DWG To PDF.pc3 с обычным форматом А4 (210х297).

[kacugu]

Попробуйте с помощью лиспа

Код:

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

 
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com

; (setq ad (vla-get-activedocument (vlax-get-acad-object)))

(defun GetCanonicalMediaNames (ad)
  (vla-RefreshPlotDeviceInfo
    (vla-get-activelayout ad))
  (vlax-safearray->list
    (vlax-variant-value
      (vla-GetCanonicalMediaNames
        (vla-item (vla-get-layouts ad) "Model"))))
)

узнать CanonicalMediaName вашего формата. Оно будет отличаться от "A4x4_(297.00_x_841.00_MM)" - это LocalMediaName.

[Vladimir_Sergeevich]

CanonicalMediaName скорее всего будет вида "UserDefinedMetric (279.00 x 841.00 мм)"
Когда то создавал наборы параметров печати под ПДФ, назначал имя таким макаром

Код:

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

 (strcat "UserDefinedMetric (" (rtos (cadr size) 2 2) " x " (rtos (car size) 2 2) "мм)")

[Denis86]

Можете подсказать как исправить код чтобы устанавливалось "Центрировать" в параметрах печати.

[kacugu]

Почитайте про свойство centerplot (стр. 560 в "Autolisp и Visual Lisp в среде Autocad" Полещука)

[Denis86]

Спасибо, вот что получилось:-)
(vla-put-PlotType Layout 1) ; Установка области печати "Граница"
(vla-put-CenterPlot Layout :vlax-true); Центрорование

----- добавлено через ~2 ч. -----
Почему то для формата А0 ориентация определяется не правильно, для горизонтального устанавливается вертикальный, а для вертикального - горизонтальная ориентация.

Хотел узнать про нестандартные форматы, у меня они имеют название ("A4x3", "A4x4", "A4x5" и т.д.) не получается узнать их имя через CanonicalMediaName.

PS. Новичок в LISPе.

[petro_f]

Добрый день, сотоварищи.
Попробовал я плагин (исходный) от Andrey_13. Огромное спасибо ему.
Но как то не очень чётко отрабатывалось по площади рамки и я немного переделал плагин. Небольшой список изменений:

1. Добавил диалоговое окно;
2. Добавил файл инициализации (самосоздающийся при отсутсвии на старте плагина);
3. Прописал принтер PDF (DWG To PDF) встроенный в автокад;
4. Добавил выбор настроек печати;
5. Добавил выбор между физическим и PDF принтером/плоттером;
6. Добавил суффиксы и префиксы названия листа;
7. Произвёл небольшую оптимизацию, правда почти не трогая ядро проги;
8. Добавил возможность "гасить" не используемые слои (в версии 3) по мотивам поста #46 ;
9. Добавил включение полноценного ручного указания последовательности вывода рамок в листы [>= v 3.2.3].
10. Поправил нумерацию листов, теперь листы создаётся корректно [>= v 3.3].
11. Реализовал удаление спец символов из имени листа [>= v 3.8].
12. Добавил вещественное число в переменную масштабирования [>= v 3.8].
13. Добавил корректное завершение работы плагина при аварийном завершении программы (разблокировка заблокированных слоёв) [>= v 4.0].
14. Добавил корректное определение плагином зависимость между именованными стилями печати и цветозависимыми стилями печати, теперь автоматом заменяется расширение с ".ctb" на ".stb".[>= v 4.1].
15. Добавил автоматическое присвоение переменной psltscale значение 0. Если не нравится то закомментируйте строку 527 (для версии [= v 4.1]) с содержимым (if (= (getvar 'PSLTSCALE) 1) (setvar 'PSLTSCALE 0) ).[>= v 4.1].
16. Добавил пробную функцию автоматического определения масштаба, по мотивам поста 135 [>= v 4.2].
17. Добавил функцию автоматической и более корректной установки масштаба (строки 560- 569 для версии [= v 4.3]) , по мотивам поста 139 [>= v 4.3].
18. Добавил функцию применения к листу настроек отображения стиля печати. Позволяет сразу видеть лист в формате в котором он будет выводиться на печать. Если например стоит монохром, а чертёж цветной, то лист будет показывать сразу монохромное изображение. [>= v 4.4].
19. Добавил функцию автоматического приведения "Единицы чертежа -> Масштаб вставки -> Единицы для измерения вставленных элементов" в миллиметры. Убирает косяк, когда единицы чертежа стоят в дюймах и плагин не верно распознаёт размер рамок. Временно переменная INSUNITS приводится к значению 4 [>= v 4.5].
20. Добавил функцию выбора файла с настройками принтеров/плоттеров. Для изменения места расположения файлов конфигурации по умолчанию, правьте адрес (строка 1257 для версии [= v 4.6]) в файле плагина. [>= v 4.6].
21. Поправил функцию определения размера рамки. Теперь в момент расчёта координат рамок можно включать учёт размерных единиц, а именно параметр InsUnitsFactor блока. Параметр включается автоматически при включении параметра в пункте 19. Включение данного параметра даёт возможность правильно получать координаты рамок сделанных блоком в дюймах и вставленных в мм чертёж. [>= v 4.7].
    
22. Добавил функцию автоматического включения аннотативных объектов (переменная ANNOALLVISIBLE) и функцию автоматической добавки масштаба для этих объектов (переменная ANNOAUTOSCALE в 4) по мотивам поста #61 [>= v 4.8].
23. Добавил функцию вращения отображения видового экрана (в тестовом режиме) по мотивам поста #190 [>= v 4.9].
24. Добавил функцию переноса рамки из модели в пространство листа [>= v 4.10].
25. Добавил функцию отображения проекции видового экрана в модель, вшил плагин Viewport Outline с развязкой по имени плагина [>= v 4.10].
26. Добавил (тестовую) функцию подрезки видового экрана по внутренней поверхности рамки. Тестировал с рамками как в посте #93. В принципе должно работать с рамками у которых точка привязки левый нижний угол и она является динамическим блоком. Определение обычных блоков добавлю позже. Есть определённые ограничения, так как подрезка ВЭ осуществляется методом простого расчёта с условием, что слева идёт поле 20 мм, а по остальным краям по 5 мм. [>= v 4.10.2].
27. Изменил функцию расчёта размера рамки не лежащей в плоскости оси Х (повёрнутые рамки). Теперь расчёт сделан более корректно, но ещё есть над чем работать. [>= v 4.11].
28. Изменил интерфейс - сделал удобней указание что рамка не параллельна оси Х. Теперь для указания куда смотрит рамка есть графическая подсказка. [>= v 4.11].
29. Вернул функцию возврата стартового слоя при окончании работы плагина на место. Теперь настройка слоя не "улетает" при работе плагина. [>= v 4.11.1].
30. Добавил защиту от падения при обработке файла в котором есть всего один слой и стоит галочка "отключать лишние слои". [>= v 4.11.2].
31. Обновил функцию вывода перечня стилей печати. Теперь программа считывает существующие стили печати из параметров автокада.[>= v 4.12.0].
32. Добавил функционал плагину. Теперь плагин умеет у уже существующих листов менять тип принтера, например с PDF на физический принтер (при условии корректной настройки принтеров). Это удобно при печати сначала печатаем в PDF, а потом, не пересоздавая листы, печатаем на физическом носителе.[>= v 4.12.0].
33. Исправил мелкие ошибки и поставил защиту от "выстрела в ногу" при распаковке safearray. Убрал падение плагина при запуске в автокаде без стилей печати.[>= v 4.12.1].
34. Добавил функцию позволяющую "разобрать" лист в котором собрано несколько настроенных листов для печати на отдельные листы.[>= v 4.13.0].
35. Добавил функцию позволяющую "собрать" лист из нескольких настроенных листов. Функция обратная предыдущей функции.[>= v 5.04.0].
36. Изменил функцию копирования элементов при разборе одного листа на несколько листов. Функция теперь не использует буфер системы, что позволяет более устойчиво разбирать листы на копии.[>= v 5.04.1].
37. Добавил функционал функции которая уже существующим листам меняет тип принтера. Теперь функция меняет не только принтер, но и настройки листа (таблицу стилей печати, веса линий, масштабирование листа, настройки печати листа и остальные типовые параметры.[>= v 5.05.0].
38. Немного переделал экран настройки плагина, так как на длинных, но не высоких экранах, окно плагина не открывается.[>= v 5.06.0].
39. Поправил определение модели чертежа для файлов созданных не в AutoCAD (по мотивам поста #303).[>= v 5.07.1].
40. Добавил возможность принудительно перемещать вновь созданный видовой экран, на вновь созданном листе, в слой "Defpoints" (по мотивам поста #332).[>= v 5.08.0].
    
    
    

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

По настройке плагина.
Если файл плагина будет лежать в зарегистрированных путях автокада, то будет считан файл настройки лежащий возле плагина. Если файл настройки "Sbugo_addlay_insert.ini" не будет найден, то в темп директории (скорее всего по пути "C:\Users\ВАША_УЧЁТНАЯ_ЗАПИСЬ\AppData\Local\Temp") будет создан точно такой же файл с настройками.
В файле подробно расписано, что и куда записывать.

В комплекте даны файлы "DWG To PDF_all_formats.pc3" и "DWG To PDF_all_formats.pmp".
Файл "DWG To PDF_all_formats.pc3" кладётся обычно в путь "C:\Users\ВАША_УЧЁТНАЯ_ЗАПИСЬ\AppData\Roaming\AutodeskAutoCAD_НУЖНОЙ_ВЕРСИИ\RХХ.Х\rus\Plotters", а файл "DWG To PDF_all_formats.pmp" в "C:\Users\ВАША_УЧЁТНАЯ_ЗАПИСЬ\AppData\Roaming\Autodesk\AutoCAD_НУЖНОЙ_ВЕРСИИ\RХХ.Х\rus\Plotters\PMP Files". В данных файлах настроен стандартный плоттер "DWG To PDF", который идёт в комплекте с автокадом.

Сейчас по умолчанию PDF принтер настроен на все форматы по ГОСТ (плюс один не ГОСТ формат). Итого получается 27 настроек форматов. В настроечном файле с номера 01 по 27 идут настройки принтера PDF, а с номера 101 по 127 настройки физических плоттеров/принтеров.

Если кому надо добавить форматы, то в строке 243 (repeat (* 27 2) [для v5.06.0] надо исправить кол-во форматов, а в строках 87-195 (добавить строки, правда не обязательно) и в строках 1088-1141 [для v5.06.0] внести свои исправления.

Если же надо настроить физический плоттер, то в .ini файле в позициях с 101 по 127 внести свои данные.
Как "вытащить" имя формата листа, написано в файле .ini (в начале хелп) и дан лисп "Имя_и_формат_плоттера.lsp".
Скажу сразу, немного по началу сложно, но оно того стоит. Проект в пакетную печать улетает "влёт". Сейчас сразу настраиваю два комплекта листов PDF и PLOT .

Если что забыл по настройке, то не ругайте, а спросите.

P.S. Надеюсь автор не будет возражать за такое издевательство на плагином. И просьба "ссаными тряпками" не кидать, так как времени писать красиво, не было.
P.P.S. Обновил исходный файл - добавил стили печати в формате ".stb".

P.P.P.S. Для получения последней версии надо скачать файл исходного плагина "LISP.zip" и файл последней версии плагина (например файл "Sbugo_addlay_insert_v4.13.0.zip"). Распаковать и заменить (добавить) все содержащиеся там файлы. На данный момент (22.05.2020) стабильная версия плагина (v 5.04.1). Предыдущая версия 4.13.0 находится в файле "LISP.zip", а файл "Sbugo_addlay_insert_v5.08.0.zip" содержит новую версию с новым функционалом или исправленными найденными ошибками.

Вызов плагина осуществляется командой SBADDLAY

[petro_f]

Да, забыл добавить, настраивал на вот эти рамки (что в приложении), но вроде ловит все.

Настраивал на ручное указание рамок, так как они у меня через программу вставляются вообще в определённый слой.

P.S. Не обращайте внимание на настроенные там листы, это для команды "по шаблону", что бы от-туда брать заготовку файла.

P.P.S. Поправил, перепаковав в формат RAR

[petro_f]

Сообщение от Denis86 Спасибо, вот что получилось:-) (vla-put-PlotType Layout 1) ; Установка области печати "Граница" (vla-put-CenterPlot Layout :vlax-true); Центрорование ----- добавлено через ~2 ч. ----- Почему то для формата А0 ориентация определяется не правильно, для горизонтального устанавливается вертикальный, а для вертикального - горизонтальная ориентация. Хотел узнать про нестандартные форматы, у меня они имеют название ("A4x3", "A4x4", "A4x5" и т.д.) не получается узнать их имя через CanonicalMediaName. PS. Новичок в LISPе.

Попробуй этим лиспом, команда FORMPLOT Он покажет "имя" формата. Название формата - полное название файла "*.pc3" или полное имя принтера. Лисп это тоже покажет.

[freese]

petro_f, спасибо, но только без DWG To PDF_all_formats не отрабатывает, необходимо наличие данного принтера.
Что у вас за архиватор?

[petro_f]

Сообщение от freese petro_f, спасибо, но только без DWG To PDF_all_formats не отрабатывает, необходимо наличие данного принтера. Что у вас за архиватор?

Да у меня ZIP стал косячить со шрифтами. Перепаковал на RAR формат, и положил в исходники.
Перекачайте и всё будет ОК.

"DWG To PDF_all_formats" это настроенный на листы виртуальный принтер PDF-формата "DWG To PDF.pc3", который идёт встроенным в акад (с 15 версией точно он есть).
Как вставить принтеры себе (копировать два файла) я уже там писал.

[greyser]

Сообщение от petro_f Добрый день, сотоварищи. Попробовал я плагин (исходный) от Andrey_13. Огромное спасибо ему.

Багрепорт: прога некорректно выводит порядок листов. Например, если листы по горизонтали и я выделяю их рамкой слева направо, то листы добавляются справа налево или вообще в случайном порядке. При использовании команды AL такой проблемы нет

[Ranmitril]

Здравствуйте! Подскажите пожалуйста, как можно доработать Ваш код, что бы "научить" программу выбирать из настроек pmp файла нестандартные форматы листов.
В коде я видел как реализован метод назначения стандартных форматов. Я рассчитал диапазон площадей для нестандартного формата А4х3, вбил в код дополнительную строчку к стандартным листам, с данными, но способ не работает... Пробовал закоментить диапазоны для нестандартных листов, что бы он мой нестандартный формат не выкидывал, а думал что он стандартный, но это тоже не увенчалось успехом, может дело в имени (vla-put-CanonicalMediaName Layout "A4x3_(630.00_x_297.00_ММ)")). Но я не знаю как программно получить названия нестандартных форматов, т.е как они в pmp файле забиты... вроде функция vla-get-CanonicalMediaName Layout... но как ее воткнуть куда не знаю. Подскажите пожалуйста, как сделать ?

[petro_f]

Сообщение от Ranmitril Здравствуйте! Подскажите пожалуйста, как можно доработать Ваш код, что бы "научить" программу выбирать из настроек pmp файла нестандартные форматы листов. В коде я видел как реализован метод назначения стандартных форматов. Я рассчитал диапазон площадей для нестандартного формата А4х3, вбил в код дополнительную строчку к стандартным листам, с данными, но способ не работает... Пробовал закоментить диапазоны для нестандартных листов, что бы он мой нестандартный формат не выкидывал, а думал что он стандартный, но это тоже не увенчалось успехом, может дело в имени (vla-put-CanonicalMediaName Layout "A4x3_(630.00_x_297.00_ММ)")). Но я не знаю как программно получить названия нестандартных форматов, т.е как они в pmp файле забиты... вроде функция vla-get-CanonicalMediaName Layout... но как ее воткнуть куда не знаю. Подскажите пожалуйста, как сделать ?

Ranmitril посмотри пост 94 и на базе этого попробуй вытянуть нестандартные форматы. Но скажу сразу? с чисто нестандартными форматами, о которых кад не знает, ничего не получится, так как там надо программно распаковывать ppm и pc3 файлы и их кодить..

[ElectricSib]

Я как-то не обратил внимание сразу, но сегодня вернувшись к этому скрипту AddLay.LSP, обнаружил странный глюк.
Допустим, есть несколько рамок формата А4 (210х297) в непечатаемом слое Defpoint. С помощью AL создаю из них листы по инструкции. Но в получившихся листах видовой экран смещен относительно рамки вниз-влево на 0,7 мм по горизонтали и вертикали. В результате в получившемся PDF правая и верхняя границы срезаны минимум на 0,7 мм а снизу-слева отображается узкая темная полоса.



Это особенность скрипта или этот глюк возникает только у меня? Если причиной является первый вариант, то есть ли возможность как-то подправить скрипт, чтобы Рамка чертежа и Видовой экран точно соответствовали друг другу по координатам?

[Andrey_13]

Сообщение от ElectricSib Это особенность скрипта или этот глюк возникает только у меня? Если причиной является первый вариант, то есть ли возможность как-то подправить скрипт, чтобы Рамка чертежа и Видовой экран точно соответствовали друг другу по координатам?

Выложите файл с рамками для анализа.

[ElectricSib]

Сообщение от Andrey_13 Выложите файл с рамками для анализа.

Приложил файл с рамками и получившийся PDF.

[kacugu]

Сообщение от ElectricSib правая и верхняя границы срезаны минимум на 0,7 мм

не 0,7 мм, а 0,8 (смотрите вложение)

[ElectricSib]

Сообщение от kacugu не 0,7 мм, а 0,8 (смотрите вложение)

Да, верно. Только сейчас обратил внимание, что в настройках стандартных форматов по умолчанию два поля отличались от нуля. Дело не в скрипте. Спасибо.

[Serghei]

Автокад 2014.
У меня не работает лисп AddLay.LSP, подскажите пожалуйста как это исправить?
Лисп AVP работает, но он создает только лист и спрашивает масштаб, и все.
Хотелось бы рабочий лисп, чтобы иметь возможность выбора принтера, хотя dwg to pdf.pc3 вполне устраивает, выбор стиля печати.
Помогите пожалуйста.
Спасибо.

[greyser]

Сообщение от Serghei Автокад 2014. У меня не работает лисп AddLay.LSP, подскажите пожалуйста как это исправить? Лисп AVP работает, но он создает только лист и спрашивает масштаб, и все. Хотелось бы рабочий лисп, чтобы иметь возможность выбора принтера, хотя dwg to pdf.pc3 вполне устраивает, выбор стиля печати. Помогите пожалуйста. Спасибо.

Лиспы из поста №92 работают. Надо придерживаться инструкции. На каком шаге проблемы?

[Serghei]

У меня не работает лисп, тот что в шапке:
Тип файла: lsp AddLay.LSP (12.6 Кб, 678 просмотров)

Из поста 92 лисп работает. Не заметил его сразу, спасибо.

[Gotch]

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

и есть форматы ГОСТ которые уже вбиты в DWG to PDF

задача простая, взять размер динамической рамки и установить такой же формат в листе из плоттера DWG to PDF

можно ли такое сделать лиспом?

[baksconstructor]

Сообщение от Gotch именно под динамическую рамку делал настройку листа пример прикладываю

небольшое уточнение - у вас уже есть листы, но вам надо в каждом поменять настройки печати ?

[skkkk]

Gotch, вот эта программа умеет: C# .net Создание Layout для чертежей, оформленных в модели

----- добавлено через ~7 мин. -----
Правда, динамический блок рамки должен находиться в модели. Я почему-то принял слово "Листе" за опечатку. Уж больно "Модели" напрашивалось по смыслу. Возможно, ошибался.

Сообщение от Gotch имеется динамический блок рамки которая находится на Листе, все остальное через видовой экран выводим на лист

.

[baksconstructor]

Сообщение от skkkk Gotch, вот эта программа умеет: C# .net Создание Layout для чертежей, оформленных в модели

У него уже есть лист с рамкой, поэтому и вопрос уточнения.

[Gotch]

смотрите, сделали чертеж в модели, начинаю оформлять на лист
открываю лист
там какой то произвольный формат
ставлю динамическую рамку
создаю видовой экран
подбираю рамку под видовой экран чтобы все влезло
после этого захожу настройки листа задаю плоттер - DWG to PDF
задаю размер листа
область печати - Рамка
выделаю по рамке динамического блока
и ОК

вот эту часть -
после этого захожу настройки листа задаю плоттер - DWG to PDF
задаю размер листа
область печати - Рамка
выделаю по рамке динамического блока

делать лиспом

----- добавлено через 39 сек. -----

Сообщение от baksconstructor небольшое уточнение - у вас уже есть листы, но вам надо в каждом поменять настройки печати ?

Да

[baksconstructor]

Сообщение от Gotch Да

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

[Gotch]

подскажите что такое реверс и как с ним работать?

[baksconstructor]

Сообщение от Gotch подскажите что такое реверс и как с ним работать?

Полная тема здесь http://forum.dwg.ru/showthread.php?t=104517
а вот ссылка на прогу

[petro_f]

Сообщение от Gotch Доброго времени суток Подскажите пожалуйста имеется динамический блок рамки которая находится на Листе, все остальное через видовой экран выводим на лист возможно ли что бы Ваш липс, или может какой другой, именно под динамическую рамку делал настройку листа пример прикладываю и есть форматы ГОСТ которые уже вбиты в DWG to PDF задача простая, взять размер динамической рамки и установить такой же формат в листе из плоттера DWG to PDF можно ли такое сделать лиспом?

А не проще в модель "обрушить" эти рамки? Команда "(command "_CHSPACE")" в консоли при нахождении на листе. Далее уже по накатанной просто создаётся новый лист с нужными настройками.


Для обратного переноса есть вот тут плагин. Тоже просто на загляденье работает. Команда "C2L" с листа или модели всё позволяет копировать.

[Gotch]

Сообщение от baksconstructor Полная тема здесь http://forum.dwg.ru/showthread.php?t=104517 а вот ссылка на прогу

платная программа отпадает

[skkkk]

Сообщение от baksconstructor У него уже есть лист с рамкой, поэтому и вопрос уточнения.

Не было возможности посмотреть чертеж. Прошу прощения, если ввел в заблуждение.
Gotch, просто из всех программ, которые я знаю для подобных целей, по-моему, все создают листы по рамкам из модели. Лично для себя принял несколько иную методику работы с листами. Мне удобнее создать рамку в модели. Там сразу без всяких заморочек выставляем нужный формат динамической рамки, причем, рамки в пределах модели могут быть разных масштабов (при том, что чертежи выполнены в модели 1:1). Программа, что я указал, сама находит в модели все блоки-рамки (с именем, задаваемым в настройках), сама определяет их масштаб и создает уже готовые листы нужного формата с видовыми экранами. После этого в случае необходимости рамки переносятся на лист командой _CHSPACE. У меня такая необходимость возникает только если нужно, чтобы видовой экран по каким-то причинам был меньше листа (например, если нужно вывести на лист не весь генплан, а его фрагмент), или если нужно использовать поля для нумерации листов из подшивки.

[Gotch]

Сообщение от skkkk Не было возможности посмотреть чертеж. Прошу прощения, если ввел в заблуждение. Gotch, просто из всех программ, которые я знаю для подобных целей, по-моему, все создают листы по рамкам из модели. Лично для себя принял несколько иную методику работы с листами. Мне удобнее создать рамку в модели. Там сразу без всяких заморочек выставляем нужный формат динамической рамки, причем, рамки в пределах модели могут быть разных масштабов (при том, что чертежи выполнены в модели 1:1). Программа, что я указал, сама находит в модели все блоки-рамки (с именем, задаваемым в настройках), сама определяет их масштаб и создает уже готовые листы нужного формата с видовыми экранами. После этого в случае необходимости рамки переносятся на лист командой _CHSPACE. У меня такая необходимость возникает только если нужно, чтобы видовой экран по каким-то причинам был меньше листа (например, если нужно вывести на лист не весь генплан, а его фрагмент), или если нужно использовать поля для нумерации листов из подшивки.

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

[baksconstructor]

Offtop:

Сообщение от Gotch платная программа отпадает

а чё так ? мы довольны.

[petro_f]

Сообщение от Gotch я понимаю, если рамка в модели то по ней легко создать ВЭ на листе и готово но, к примеру топопланы, их не оформишь в модели особенно если это трасса поэтому у нас стандарт что рамки должны быть на листах а все остальное в модели

А этот плагин не пробовали (создавая фрагменты) http://forum.dwg.ru/showpost.php?p=1634638&postcount=16 это исправленная версия исходного плагина http://forum.dwg.ru/showthread.php?p...38#post1634638

Или использовать шаблонные листы с настроенными принтерами (типо как тут http://forum.dwg.ru/showpost.php?p=1577497&postcount=93 ) а далее команда _layout и там команда _template. Выбирается нужный лист и вперёд..

[Gotch]

Сообщение от petro_f А этот плагин не пробовали (создавая фрагменты) http://forum.dwg.ru/showpost.php?p=1634638&postcount=16 это исправленная версия исходного плагина http://forum.dwg.ru/showthread.php?p...38#post1634638

зачем мне какие то фрагменты вырезать?
у меня трасса выкидного трубопровода от скважины и...
длинной до 10 км бывает
зачем мне ее разделять на кусочки, это неудобно

[petro_f]

Сообщение от Gotch зачем мне ее разделять на кусочки, это неудобно

Ну тогда в какой масштаб влезет 10-и километровая трасса? Она вообще на чертеже видна будет то?

Если не резать, то по второму совету "Или использовать шаблонные листы с настроенными принтерами (типо как тут http://forum.dwg.ru/showpost.php?p=1577497&postcount=93 ) а далее команда _layout и там команда _template. Выбирается нужный лист и вперёд.."

[Gotch]

Сообщение от petro_f Ну тогда в какой масштаб влезет 10-и километровая трасса? Она вообще на чертеже видна будет то? Если не резать, то по второму совету "Или использовать шаблонные листы с настроенными принтерами (типо как тут http://forum.dwg.ru/showpost.php?p=1577497&postcount=93 ) а далее команда _layout и там команда _template. Выбирается нужный лист и вперёд.."

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

шаблонные листы не удобно
вставил один лист не подошел, удалил, вставил новый лист
ладно понятно нужно обращаться к VVA

[Liverka]

Gotch, Динамический блок у вас такой себе.
Вам нужно сделать шаблон листов с настройками области печати и форматками, и шаблон для черчения в котором настроить диспетчер параметров листов (для изменения области печати в будущем) и никакие лиспы не нужны будут.

Сообщение от Gotch шаблонные листы не удобно вставил один лист не подошел, удалил, вставил новый лист

В диспетчере параметров листов можно менять

[baksconstructor]

Сообщение от Gotch трасса разбивается видовыми экранами, для этого не нужно ее разрезать с помощью ВЭ разбиваешь на листы

просто здесь всегда у людей противоположная задача, поэтому сразу не понятно.
Offtop: а вопрос всего то стоит 190 руб.

[petro_f]

Сообщение от Gotch не понимаю вас трасса разбивается видовыми экранами, для этого не нужно ее разрезать с помощью ВЭ разбиваешь на листы шаблонные листы не удобно вставил один лист не подошел, удалил, вставил новый лист ладно понятно нужно обращаться к VVA

Ну как то у нас на размеры листов существует ГОСТ, который довольно чётко регламентирует как сами форматки так и масштабы. Так что хочешь не хочешь, а его желательно придерживаться.

[skkkk]

Сообщение от Gotch но, к примеру топопланы, их не оформишь в модели особенно если это трасса

О том я и говорил:

Сообщение от skkkk После этого в случае необходимости рамки переносятся на лист командой _CHSPACE. У меня такая необходимость возникает только если нужно, чтобы видовой экран по каким-то причинам был меньше листа (например, если нужно вывести на лист не весь генплан, а его фрагмент)

Еще стоило добавить: или если нужно разделить большую (длинную) трассу на листы.
Для таких трасс я расставляю рамки на непечатаемом слое и без штампов (чтоб не мешались) в модели таким образом, чтобы адекватно все поместилось с учетом линий совмещения листов. Далее запускаю программу, получаю все листы, затем в листах расставляю блоки уже со штампами и в печатаемом слое, а затем подгоняю видовые экраны по линиям совмещения. На трассу в 10 км уходит 20-25 минут от силы. А непечатаемые рамки остаются в модели и напоминают о расположении листов, а также в уменьшенном виде идут на схему размещения листов.

[Gotch]

у всех свое оформление
Ваше оформление нам не подходит

[skkkk]

А в чем принципиальная разница? Вроде все оформление тоже в итоге в листах, трасса физически не разбивается на куски. Либо я что-то не так понял или не так объяснил?

[DMS-chiii]

Сообщение от Andrey_13 Посмотрите во вложении.

Хорошая программа. Но значение PSLTSCALE на листах остается равным 1. Наверное строки нужно как то по другому написать?
Какое то время спустя
Ха 1 из 10 вставленных одинаковых строк попали в нужное место Все же интересно какое место правильно.

[petro_f]

Сообщение от DMS-chiii Хорошая программа. Но значение PSLTSCALE на листах остается равным 1. Наверное строки нужно как то по другому написать? Какое то время спустя

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

[kacugu]

petro_f, а в ваш плагин из поста 92 реально сложно добавить возможность выбора масштаба прямо с объекта?
Например у меня есть 50 рамок. Часть из них имеет масштаб 50, часть 25 и так далее. И чтобы не выделять рамки по отдельности, задавая для них соответствующий масштаб, мы выделяем все рамки, а плагин считывает и применяет масштаб каждой рамки.

[petro_f]

Сообщение от kacugu petro_f, а в ваш плагин из поста 92 реально сложно добавить возможность выбора масштаба прямо с объекта? Например у меня есть 50 рамок. Часть из них имеет масштаб 50, часть 25 и так далее. И чтобы не выделять рамки по отдельности, задавая для них соответствующий масштаб, мы выделяем все рамки, а плагин считывает и применяет масштаб каждой рамки.

Если бы был какой либо закреплённый жёсткий маркер, по которому можно бы было высчитать масштаб... тогда да. А тут получается всё "плавает" и привязаться к чему либо нет возможности.

[kacugu]

Сообщение от petro_f Если бы был какой либо закреплённый жёсткий маркер

А если использовать XScaleFactor Property?
(vla-get-XScaleFactor (vlax-ename->vla-object (car (entsel))))

[petro_f]

Сообщение от kacugu А если использовать XScaleFactor Property? (vla-get-XScaleFactor (vlax-ename->vla-object (car (entsel))))

Хм.. сделал... попробуйте версию 4.2

[kacugu]

petro_f, спасибо, завтра попробую ваш вариант
Offtop: сам только сегодня сделал свой)
********************
Проверил - всё работает.
Только вставил после 559 строки код.

Код:

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

 (setvar "cannoscale" (strcat "1:" (rtos sbugoPDScale 2 0)))

А то не отображались размеры и надписи в видовых экранах, из-за того, что "значение масштаба видового экрана не соответствовало аннотативному масштабу"

[petro_f]

Сообщение от kacugu Только вставил после 559 строки код. Код: (setvar "cannoscale" (strcat "1:" (rtos sbugoPDScale 2 0))) А то не отображались размеры и надписи в видовых экранах, из-за того, что "значение масштаба видового экрана не соответствовало аннотативному масштабу"

Я бы не стал рисковать - если такого масштаба по умолчанию нет в именованном масштабе то это вызовет падение плагина. Надо минимум проверку на наличие такого масштаба поставить.

P.S. Я стараюсь не использовать аннотативные объекты... я пару раз попадал с ними при распечатке у Заказчика и больше решил не использовать.

[kacugu]

Сообщение от petro_f если такого масштаба по умолчанию нет в именованном масштабе

Так в том и дело, что эти масштабы существуют. Просто устанавливается масштаб 1:25.00000, а не 1:25

[petro_f]

Сообщение от kacugu Цитата: Сообщение от petro_f если такого масштаба по умолчанию нет в именованном масштабе Так в том и дело, что эти масштабы существуют. Просто устанавливается масштаб 1:25.00000, а не 1:25

Странно не наблюдал такого - у меня ровно выставляется масштаб.

P.S. Защиту всё же надо ставить - иначе крах плагина при не стандартном масштабе.

----- добавлено через ~37 мин. -----

Сообщение от kacugu Цитата: Сообщение от petro_f если такого масштаба по умолчанию нет в именованном масштабе Так в том и дело, что эти масштабы существуют. Просто устанавливается масштаб 1:25.00000, а не 1:25

Добавил более корректную функцию установки масштаба (строки 560-569). Попробуйте версию 4.3

[kacugu]

Сообщение от petro_f Попробуйте версию 4.3

Попробовал. Спасибо, отрабатывает нормально.

[DMS-chiii]

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

Ваш плагин выдает такую ошибку:
Открывается файл формата AutoCAD 2018.
Выполняется регенерация модели.
Утилиты меню AutoCAD загружены.
DS> DotSoft ToolPac 17.0 Lisp Loaded
DS> Quick Keys Macro System ... Loaded.
[Info] Старт плагина SBADDLAY [Info]
[Info] Версия плагина 4.3 [Info]*Прервано*
Команда:
Файл Autodesk DWG. Это файл формата TrustedDWG, сохраненный в приложении Autodesk или в приложении, лицензированном корпорацией Autodesk.
Команда:
Команда:
Команда: SBADDLAY
Найден файл локальных настроект плагина, расположенный: D:\работа\программы\lisp\sbugo_addlay_insert\lisp\Sbugo_addlay_insert.ini
Для работы плагина будет применён файл настроек, расположенный: D:\работа\программы\lisp\sbugo_addlay_insert\lisp\Sbugo_addlay_insert.ini
Укажите объект для определения слоя с рамками
Выберите объекты: Противоположный угол: найдено: 2
Выберите объекты:
Выполняется регенерация листов.
Выполняется регенерация листов.
Выполняется регенерация модели.
Команда: Выполняется регенерация модели.
Команда:
Команда: Выполняется регенерация модели.
Программа допустила ошибку в функции "SBugo-AddLay". Ошибка Automation. Неверный вводВосстановление кэшированных видовых экранов.
Регенерация 9 измененных примитивов.
Команда:

[petro_f]

Сообщение от DMS-chiii Укажите объект для определения слоя с рамками Выберите объекты: Противоположный угол: найдено: 2 Выберите объекты: Выполняется регенерация листов.

Есть два варианта - либо выбирая рамкой зацепил какой либо предмет кроме рамки... либо не подгрузил настройки принтера с поста №92.
Как вариант для проверки можно выложить файл с рамкой либо попробовать рамку с поста №93 и выбирать вручную только рамку.

[DMS-chiii]

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

[petro_f]

Сообщение от DMS-chiii Как я понял проблема с моей рамкой, хоть аккуратно выделять только рамки, хоть сразу все элементы на Модели не работает. Если из поста 93 взять рамку, то нужно очень аккуратно выделять все рамки чтобы ничего кроме них не попадало в выбор, тогда работает. На мой взгляд удобно как в исходной программе когда можно сразу выделить все что есть на Модели. В вашей рамке не нашел ничего такого из за чего с ней работает. В своей пытаюсь поставить на тот же слой и не прокатывает.

Как я уже и говорил kacugu в посте №134, что найдётся человек, который сделает всё через жопу нестандартный масштаб. Вместо того что бы нарисовать рамку в масштабе 1:1 а затем масштабировать её в нужный размер DMS-chiii Вы сразу нарисовали рамку в масштабе 1:100
Вам DMS-chiii скажу одно - отключите автоматическое определение масштаба и поставьте вручную масштаб равный 1:100. Слой тут не причём.

[DMS-chiii]

Спасибо заработало! Просто не очень понятно, что настройки создания видовых экранов значат

[petro_f]

Сообщение от DMS-chiii Спасибо заработало! Просто не очень понятно, что настройки создания видовых экранов значат

Ну я в логах изменений плагина писал, что "Добавил пробную функцию автоматического определения масштаба, по мотивам поста 135 [>= v 4.2].". Согласен, что действие этой функции не всем понятно.
Самое главное, что получилось - так что пользуйтесь на здоровье

[petro_f]

Сообщение от petro_f Цитата: Сообщение от DMS-chiii Спасибо заработало! Просто не очень понятно, что настройки создания видовых экранов значат Ну я в логах изменений плагина писал, что "Добавил пробную функцию автоматического определения масштаба, по мотивам поста 135 [>= v 4.2].". Согласен, что действие этой функции не всем понятно.

В посте #92 добавил картинку привязки элементов плагина к окну настройки чертежей автокада.

[tujn08]

есть список точек

Код:

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

 ((31409.8 10478.6 0.0) (31722.2 10494.6 0.0) (31789.1 10529.8 0.0) (31953.9 10545.7 0.0) (32142.9 10584.2 0.0) (32304.5 10535.1 0.0) (32404.1 10337.9 0.0) (32388.2 10307.1 0.0) (31950.3 10281.5 0.0) (31409.8 10239.7 0.0))

подскажите команду создания многоугольного видового экрана через vla/

Код:

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

 (command "_-vports" "_p" point1 point2 point3 point4 point5 "_C")

- не устраивает
либо как в эту команду вставить точки?

[petro_f]

Сообщение от tujn08 есть список точек Код: [Выделить все] ((31409.8 10478.6 0.0) (31722.2 10494.6 0.0) (31789.1 10529.8 0.0) (31953.9 10545.7 0.0) (32142.9 10584.2 0.0) (32304.5 10535.1 0.0) (32404.1 10337.9 0.0) (32388.2 10307.1 0.0) (31950.3 10281.5 0.0) (31409.8 10239.7 0.0)) подскажите команду создания многоугольного видового экрана через vla/ Код: [Выделить все] (command "_-vports" "_p" point1 point2 point3 point4 point5 "_C") - не устраивает либо как в эту команду вставить точки?

Код:

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

 (command "_-vports" "_p" '(31409.8 10478.6 0.0) '(31722.2 10494.6 0.0) '(31789.1 10529.8 0.0) '(31953.9 10545.7 0.0) '(32142.9 10584.2 0.0) '(32304.5 10535.1 0.0) '(32404.1 10337.9 0.0) '(32388.2 10307.1 0.0) '(31950.3 10281.5 0.0) '(31409.8 10239.7 0.0) "_C")

Так пойдёт?

[tujn08]

Сообщение от petro_f Так пойдёт?

это я знаю.
есть список из списков точек (списки разной длины)
надо цикл по подстановке этих точек в команду

----- добавлено через ~31 мин. -----

Код:

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

 		(princ cord_list_all)
		(
			((30963.3 10458.8 0.0) (31105.9 10450.6 0.0) (31223.9 10469.1 0.0) (31722.2 10494.6 0.0) (31789.1 10529.8 0.0) (31953.9 10545.7 0.0) (32142.9 10584.2 0.0) (32304.5 10535.1 0.0) (32404.1 10337.9 0.0) (32388.2 10307.1 0.0) (31950.3 10281.5 0.0) (31346.8 10234.9 0.0) (30963.3 10166.8 0.0)) 
			((30963.3 10166.8 0.0) (30958.7 10165.9 0.0) (30580.7 10142.2 0.0) (30467.7 10175.9 0.0) (29420.1 10133.1 0.0) (29420.1 10368.6 0.0) (29643.3 10373.8 0.0) (29715.2 10392.4 0.0) (30362.8 10406.5 0.0) (30695.4 10413.7 0.0) (30779.0 10492.8 0.0) (30922.6 10461.1 0.0) (30963.3 10458.8 0.0)) 
			((29420.1 10133.1 0.0) (28325.7 10088.4 0.0) (28313.0 9951.78 0.0) (28008.5 9943.33 0.0) (27995.2 9959.75 0.0) (27995.2 10341.5 0.0) (28575.0 10349.1 0.0) (29420.1 10368.6 0.0)) 
			((27995.2 9959.75 0.0) (27870.0 10113.9 0.0) (26469.3 10059.6 0.0) (26469.3 10258.2 0.0) (27095.1 10281.6 0.0) (27314.3 10308.5 0.0) (27706.7 10311.1 0.0) (27747.8 10338.3 0.0) (27995.2 10341.5 0.0)) 
			((26469.3 10059.6 0.0) (25037.9 10212.3 0.0) (25374.9 10195.7 0.0) (25483.9 10240.2 0.0) (25747.5 10231.2 0.0) (26469.3 10258.2 0.0)) 
			((25037.9 10004.2 0.0) (24239.6 9973.34 0.0) (23752.3 9938.92 0.0) (23748.8 9840.84 0.0) (23563.5 9847.49 0.0) (23516.2 9815.3 0.0) (23516.2 10023.0 0.0) (23667.8 10027.7 0.0) (23848.9 10144.9 0.0) (24024.6 10194.1 0.0) (24083.3 10278.7 0.0) (24301.9 10180.8 0.0) (24509.8 10178.1 0.0) (24546.1 10218.1 0.0) (24812.8 10223.3 0.0) (25037.9 10212.3 0.0)) 
			((23516.2 9815.3 0.0) (22618.1 9382.11 0.0) (22647.7 9481.73 0.0) (22820.7 9503.34 0.0) (22858.2 9635.43 0.0) (23000.3 9645.15 0.0) (23041.5 9790.74 0.0) (23424.9 9921.62 0.0) (23452.0 10021.0 0.0) (23516.2 10023.0 0.0)) 
			((22811.6 9335.81 0.0) (22725.0 9276.87 0.0) (21782.7 8667.94 0.0) (21604.7 8552.88 0.0) (21602.0 8392.64 0.0) (21316.0 8392.64 0.0) (21319.0 8395.29 0.0) (21366.0 8643.44 0.0) (21672.8 8740.52 0.0) (21717.2 8882.22 0.0) (21872.3 8915.43 0.0) (21924.3 9029.55 0.0) (22130.4 9044.09 0.0) (22150.1 9145.43 0.0) (22375.7 9196.82 0.0) (22410.3 9332.96 0.0) (22613.1 9365.58 0.0) (22618.1 9382.11 0.0)) 
			((21602.0 8392.64 0.0) (21601.8 8382.78 0.0) (21183.7 7972.29 0.0) (20696.2 7972.29 0.0) (20763.9 8018.44 0.0) (20891.1 8022.1 0.0) (21316.0 8392.64 0.0)) 
			((21183.7 7972.29 0.0) (20941.4 7734.35 0.0) (20747.7 7701.52 0.0) (20581.3 7552.62 0.0) (20294.5 7385.56 0.0) (20294.5 7644.17 0.0) (20333.8 7656.65 0.0) (20345.2 7692.01 0.0) (20450.1 7716.63 0.0) (20483.7 7774.86 0.0) (20607.0 7799.27 0.0) (20655.0 7944.16 0.0) (20696.2 7972.29 0.0)) 
			((20294.5 7385.56 0.0) (19518.0 6933.2 0.0) (19390.2 6859.82 0.0) (19225.0 6936.66 0.0) (19184.2 6870.3 0.0) (19000.2 6886.84 0.0) (18878.4 6995.8 0.0) (18897.1 7067.13 0.0) (18763.7 7132.57 0.0) (18764.1 7249.04 0.0) (18982.1 7257.83 0.0) (19053.7 7169.69 0.0) (19361.1 7040.54 0.0) (19384.7 7131.03 0.0) (19561.2 7140.35 0.0) (19564.3 7224.97 0.0) (19692.5 7237.94 0.0) (19701.6 7323.87 0.0) (19837.7 7338.51 0.0) (19861.8 7408.85 0.0) (20133.6 7503.39 0.0) (20146.0 7596.99 0.0) (20294.5 7644.17 0.0))
		)

[tujn08]

кто подскажет:
В цикле lisp-ом создаю многоугольные видовые экраны.

Код:

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

 
(progn


;;; часть кода вырезана


(defun BO ( Viewport / echo obj B) 
	(setq echo (getvar "CMDECHO"))
	(setvar "CMDECHO" 0)
	(setq B (vlax-ename->vla-object Viewport))
	(vla-GetBoundingBox B 'minp 'maxp)
	(setq pmin (vlax-safearray->list minp) pmax (vlax-safearray->list maxp))
	(terpri)
	;(princ pmin)(terpri)
	;(princ pmax)(terpri)
)
                (setq 
			i 0
			b (length cord_list_all)
		)
(repeat b 
(setq a (nth i cord_list_all) s (length a))
(cond ; настройка листа и рамки


;;; часть кода вырезана


				( (= s 3)
					(command "_vports" "_p" p1 p2 p3 "_C")
				)
				( (= s 4)
					(command "_vports" "_p" p1 p2 p3 p4 "_C")
				)
				( (= s 5)
					(command "_vports" "_p" p1 p2 p3 p4 p5 "_C")
				)
)
                        (setq Viewport (entlast))
			(BO Viewport)
			(command "_.zoom" pmin pmax)
			(vla-put-mspace ActiveDocument :vlax-true) ; Активизация модели в видовом экране
			(vla-zoomWindow Application (vlax-3d-point pmin) (vlax-3d-point pmax))
			(vla-put-mspace ActiveDocument :vlax-false) ; Деактивация пространства модели
			; (vla-put-standardscale Viewport acVpCustomScale) ; Установка пользовательского масштаба видового экрана
			; (vla-put-CustomScale (vlax-ename->vla-object Viewport) 1) ; Установка масштаба видового экрана
			(vla-put-DisplayLocked (vlax-ename->vla-object Viewport) "-1")
			;(vla-put-DisplayLocked Viewport "-1")
			(setq i (+ i 1))
)
)

первый экран все хорошо,
внезапно в момент (setq Viewport (entlast)) подхватывается не последний а предыдущий- почему?
Из-за этого зуммирование происходит неправильно

На картинке выделены проблемные места - так же при изменении направления создания.

----- добавлено через ~2 мин. -----
И сразу вопрос-как перемещать видовые экраны?

[petro_f]

Сообщение от tujn08 внезапно в момент (setq Viewport (entlast)) подхватывается не последний а предыдущий- почему? Из-за этого зуммирование происходит неправильно

А не может быть, что зуммирование срывается из-за того, что область создания видового экрана выходит за границы (лимиты) чертежа? У меня из-за этого иногда не закрывался ВИ с выкидыванием ошибки.

Не проще сначала нарисовать полилинией области, потом выставить их как нужно и и далее из них создать ВИ?

[tujn08]

Сообщение от petro_f А не может быть, что зуммирование срывается из-за

Нет. Зуммирование тут не причем т.к. объект хватается предыдущий.
А вот кстати натолкнули на мысль.
Объект хватается предыдущий, а зуммирование как раз последнего.
Все бы ничего, но через пару видовых экранов все работает штатно.
Что указывает на то, что переопределений нет, но что-то происходит не то.

Сообщение от petro_f Не проще сначала нарисовать полилинией области,

придется делать так, если не разберусь.

[posetitel]

Помогите с лиспом, никак не нарезаются листы в файле (файл прикладываю), в других чертежах все работает.
Масштаб 40:1, указывал в лиспе, но все равно никак

[petro_f]

Сообщение от posetitel Помогите с лиспом, никак не нарезаются листы в файле (файл прикладываю), в других чертежах все работает. Масштаб 40:1, указывал в лиспе, но все равно никак

Какая версия лиспа используется? Тут сейчас две (или больше) ветки в работе..

Лисп из поста #92 прекрасно нарезал листы в автомате. Только указывайте блок а не полилинию.
И обрабатывайте блоки отдельно, а полилинии отдельно - либо отключите автоопределение масштаба и тогда он смешанное определение поймет.
В общем всё работает.

[posetitel]

Лисп скачивал давно, это тот лисп, который сначала выдает диалоговое окно, в котором надо выбирать необходимые параметры, команду на выполнение запускаю "sb". Качал лисп из шапки, который запускается командой "_al" и параметры нарезания уже вводятся в командной строке (или под указателем мышки), в нем тоже самое.

----- добавлено через ~3 мин. -----

Сообщение от petro_f Какая версия лиспа используется? Тут сейчас две (или больше) ветки в работе.. Лисп из поста #92 прекрасно нарезал листы в автомате. Только указывайте блок а не полилинию. И обрабатывайте блоки отдельно, а полилинии отдельно - либо отключите автоопределение масштаба и тогда он смешанное определение поймет. В общем всё работает.

Как раз и делал полилинию специально, т.к. если весь блок рамки поместить в отдельный слой, параметры блока выбрать "по блоку", то Лисп из 92 поста не работал.

[petro_f]

Сообщение от posetitel Как раз и делал полилинию специально, т.к. если весь блок рамки поместить в отдельный слой, параметры блока выбрать "по блоку", то Лисп из 92 поста не работал.

Всё же попробуйте лисп с #92. Только что проверил на рабочей машине Ваш файл - всё как часы и нарезалось и оформилось.что блоки, что полилиний рамки. Только если используете полилинии, то отключайте автомасштаб и ставьте принудительно в 40

[posetitel]

Да, тестовый файл, если указывать масштаб принудительно стал работать. Но не работает мой шаблон, прикладываю, что получается в работе лиспа

[petro_f]

Сообщение от posetitel Да, тестовый файл, если указывать масштаб принудительно стал работать. Но не работает мой шаблон, прикладываю, что получается в работе лиспа

У Вас косяк в блоке - функция не может корректно определить его границы.
На рисунке обе рамки лежат в одном и том же месте - верхний текст - это мой блок (размеры функция показывает корректно - 210 мм), а нижний текст то, что функция показывает из Вашего блока (222 мм). Так что смотрите блок - весь косяк в нём. Функция стандартная и не может определить какой размер ей подали...

[posetitel]

а какой косяк может быть в блоке? как функция определяет границы? в блоке внешний контур вычерчен полилинией, у нее все свойства "по блоку", должно работать

[petro_f]

Сообщение от posetitel а какой косяк может быть в блоке? как функция определяет границы? в блоке внешний контур вычерчен полилинией, у нее все свойства "по блоку", должно работать

Откройте свой блок - там куча федбеков и двойной выбор, походу из-за них косяк.

Функция определения границ рамки не моя и я её не разбирал, да и походу автор исходного плагина сам её на форуме взял.

Код:

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

 ;;; Функция определения границ рамки формата для динамического блока
;;; Взято здесь http://forum.dwg.ru/showpost.php?p=480876&postcount=120
(defun GetBoundingBox_dynblock
	   (ent / lst ins_pt min_point max_point 3d_polarp)
	   ;|
(entmakex
  (cons	'(0 . "LINE")
	(mapcar 'cons '(10 11) (getboundingbox_dynblock nil))
  ) ;_ end of append
) ;_ end of entmakex
|;
      (if
	(and (or ent
		 (= (type (setq	ent (vl-catch-all-apply
				      (function
					(lambda	()
					  (car (entsel "\n???? <??????> : "))
					) ;_ end of lambda
				      ) ;_ end of function
				    ) ;_ end of vl-catch-all-apply
			  ) ;_ end of setq
		    ) ;_ end of type
		    'ename
		 ) ;_ end of =
	     ) ;_ end of or
	     (setq ent (vlax-ename->vla-object ent))
	     (vlax-property-available-p ent 'isdynamicblock)
	     (equal (vla-get-isdynamicblock ent) :vlax-true)
	) ;_ end of and
	 (progn
	   (vlax-for item
		     (vla-item
		       (vla-get-blocks
			 (vla-get-activedocument (vlax-get-acad-object))
		       ) ;_ end of vla-get-blocks
		       (vla-get-name ent)
		     ) ;_ end of vla-item
	     (if (equal (vla-get-visible item) :vlax-true)
	       (setq lst (cons item lst))
	     ) ;_ end of if
	   ) ;_ end of vlax-for
	   (setq
	     ins_pt (vlax-safearray->list
		      (vlax-variant-value
			(vla-get-insertionpoint ent)
		      ) ;_ end of vlax-variant-value
		    ) ;_ end of vlax-safearray->list
	     lst
		    (vl-remove
		      nil
		      (mapcar
			(function
			  (lambda (x / minp maxp)
			    (if
			      (not (vl-catch-all-error-p
				     (vl-catch-all-apply
				       (function
					 (lambda ()
					   (vla-getboundingbox x 'minp 'maxp)
					 ) ;_ end of lambda
				       ) ;_ end of function
				     ) ;_ end of vl-catch-all-apply
				   ) ;_ end of vl-catch-all-error-p
			      ) ;_ end of not
			       (list (cons "min" (vlax-safearray->list minp))
				     (cons "max" (vlax-safearray->list maxp))
			       ) ;_ end of list
			    ) ;_ end of if
			  ) ;_ end of lambda
			) ;_ end of function
			lst
		      ) ;_ end of mapcar
		    ) ;_ end of vl-remove
	     lst    (mapcar
		      (function
			(lambda	(mins)
			  (mapcar
			    (function
			      (lambda (fun)
				(apply
				  (read mins)
				  (mapcar
				    (function fun)
				    (mapcar
				      (function
					(lambda	(pts)
					  (cdr (assoc mins pts))
					) ;_ end of lambda
				      ) ;_ end of function
				      lst
				    ) ;_ end of mapcar
				  ) ;_ end of mapcar
				) ;_ end of apply
			      ) ;_ end of lambda
			    ) ;_ end of function
			    (list car cadr caddr)
			  ) ;_ end of mapcar
			) ;_ end of lambda
		      ) ;_ end of function
		      (list "min" "max")
		    ) ;_ end of mapcar
	     lst    (mapcar
		      (function
			(lambda	(ept)
			  (mapcar
			    (function
			      (lambda (coord_pt coord_line coord_ins)
				(+
				  (*
				    coord_pt
				    ((eval
				       (read (strcat "vla-get-"
						     coord_line
						     "EffectiveScaleFactor"
					     ) ;_ end of strcat
				       ) ;_ end of read
				     ) ;_ end of eval
				      ent
				    )
				  ) ;_ end of *
				  coord_ins
				) ;_ end of +
			      ) ;_ end of lambda
			    ) ;_ end of function
			    ept
			    '("X" "Y" "Z")
			    ins_pt
			  ) ;_ end of mapcar
			) ;_ end of lambda
		      ) ;_ end of function
		      lst
		    ) ;_ end of mapcar
	   ) ;_ end of setq
	 ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of def

[tujn08]

Сообщение от perpetule Есть специализированный VIEWSBLK.lsp

В чем его прелесть? увы нет времени заюзать.

[skkkk]

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

[tujn08]

Понятно, спасибо. Я двигаюсь к другой цели. Скоро выложу GIF результат работы.
А пока вопрос по оформлению:
Кто подскажешь норматив по оформлению миниатюр на плане?
Смотрю на готовые чертежи - и эти миниатюры оформляются по разному.

----- добавлено через ~25 мин. -----
Вопрос к тому, что
1) кто-то на листе располагают несколько видовых экранов, а другие строго один.
2) кто-то показывает полную схему листов, а другие только ближайшие.
3) кто-то показывает схему в масштабе листа, формата/ориентации листа и относительного положения, а другие схематично

И что делать, если как раз несколько видовых экранов на листе.
Конечно все индивидуально всегда, но все же должен быть компромисс.

----- добавлено через ~2 ч. -----
Интерактивная нарезка видовых экранов с компоновкой на листе AutoCAD
GIF сделать не смог, но есть краткое видео.

Логика такая:
1) первый лист - это лист план АБК (административно-бытовой корпус). Лист с ним оформляют отдельно/вручную и там другой масштаб.
2) инженер обводит трассу - это границы будущих видовых экранов
3) указывает масштаб в "Модель" и "ЛИСТ" (на видео не показано)
4) размещает первый лист (формат и ориентацию можно менять кнопками на клавиатуре). Пока только А1 и А2
по границам красной рамки (формата) инженер видит как видовой экран будет обрезан - дабы не обрезать мачты и прочую информацию
5) дальше появляется зеленая рамка и остаток ненарезанной трассы. Зеленая рамка - это "тень" красной рамки - куда попадет линия разреза нужно смотреть по ней.
можно отставь один видовой экран, а можно сколько угодно.
6) когда нарезана вся трасса - создаются листы в масштабе 1:1 реального размера формата, вставляется рамка формата (ее можно заполнять сразу нужной информацией программно), и вставляются видовые экраны так как было в "Модель".
7) так же на линия разреза отрисовываются линии и надписи - номер линии разреза или продолжении листа.
8) дальше вставится схема листов.

[IvanMosc]

Добрый день у меня вопрос по лиспу.
При первом использовании был глюк, когда видовой экран на листе А4 сдвигался относительно самого листа по диагонали ~5мм, т.е. видовой экран вставал четко на "разметку пунктир" а не на край листа. И был такой глюк только с А4.
Позже потребовалось переустановить автокад... раз 5 подряд.. И в итоге этот же сдвиг наблюдается теперь еще и в формате А3 альбом. Другие не проверял.
От чего это зависит и как это нормализовать?

[petro_f]

Сообщение от IvanMosc Добрый день у меня вопрос по лиспу. При первом использовании был глюк, когда видовой экран на листе А4 сдвигался относительно самого листа по диагонали ~5мм, т.е. видовой экран вставал четко на "разметку пунктир" а не на край листа. И был такой глюк только с А4. Позже потребовалось переустановить автокад... раз 5 подряд.. И в итоге этот же сдвиг наблюдается теперь еще и в формате А3 альбом. Другие не проверял. От чего это зависит и как это нормализовать?

Добрый день, IvanMosc Вопрос относится к какой версии плагина? К версии, которая расположена в шапке поста или к плагину в сообщении #92? Они теперь настолько разные, что надо уточнять

----- добавлено через ~3 мин. -----
Обновил плагин в #92 посте. Что обновлено - там же лог изменений пункт 19.

[IvanMosc]

из шапки
автокад 16

[petro_f]

Сообщение от IvanMosc из шапки автокад 16

Тогда увы и ах...
Автор давно молчит.

[skkkk]

Сообщение от tujn08 Кто подскажешь норматив по оформлению миниатюр на плане? Смотрю на готовые чертежи - и эти миниатюры оформляются по разному.

Как-то я проглядел тогда это сообщение.
Обсуждалось это не так давно: Разбивка линейного объекта по листам. Как делать схему компановки листов?
Я там предложил свой вариант, который был вроде бы одобрен мнением большинства, единственное, что изменилось с тех пор - так это только то, что я стал располагать эти схемки прямо над основной надписью, чтобы можно было видеть, что за лист, не разворачивая его, что весьма логично (это по совету одного из формумчан оттуда же).
Однако, нормативов на этот счет выявлено не было, но за 10 лет подобной практики ни разу не было замечаний на этот счет.

Опять же, только сейчас посмотрел видео из #165. Мне понравилось. Давно подумываю написать нечто подобное - всё руки не доходят. Особенно вот эта задумка со взаимным перемещением формата и полосы отвода трассы - это прям здорово! Правда, мне ни к чему располагать несколько кусков на один лист - идея была вертеть и увеличивать/уменьшать форматы по горячим клавишам, используя связку grread/grvecs. При этом я хочу только приблизительно расставлять нужные форматы, предполагается, что настройка видовых экранов и листов будет происходить следующим этапом. Цель - приблизительно подобрать форматы, расставив по указанным местам динамические блоки соответствующих форматов, для дальнейшей более точной компоновки и подбора мест для расположения линий совмещения. После такой компоновки создавать листы, расставлять линии совмещения, а затем из этих дин.блоков делать уменьшенные копии - подобные прямоугольники с сохранением пропорций и взаимного расположения - схему расположения листов (миниатюры, т.н.).

[baksconstructor]

Рисуем в модели прямоугольники (то что должно быть в видовом экране) в Реверс нажимаем Создать листы, получаем видовые экраны, подгоняем рамку, всё. Или все хотят Большую красную кнопку "Сделать всё" ?

[skkkk]

baksconstructor, речь как раз о том, как эти прямоугольники расставить удобно, и подобрать нужные форматы в зависимости от размеров и конфигурации подосновы. Когда речь заходит о больших участках, эта задача перестает быть столь тривиальной. А создать листы - не проблема.

[petro_f]

Обновил плагин в #92 посте. Что обновлено - там же лог изменений пункт 20.
Теперь можно создать разные "*.ini" файлы с разными настройками принтеров/плоттеров. Далее в зависимости от задач выбирать нужный файл.
У меня например есть плоттеры с "узкой" бумагой и "широкой". Периодически кончается бумага в одном из плоттеров. Что бы не заморачиваться просто перекидываю форматы (которые можно перекинуть, например А1) на другой плоттер и в печать.

[Dr.Smiley]

Доброго всем.
Возможно я не так читал или не туда смотрел, так что не бейте сильно. Но есть нужда в следующем,
дано: чертежи выполненные в пространстве модели, допустим 10 объектов. (балка, колонна, сечения по ним) все чертежи выполнены в различных масштабах.
нужно: перенести все эти чертежи на лист в видовых экранах с заданием масштаба видового экрана для каждого объекта, и уже затем скомпоновать полученные видовые экраны на лист определенного формата для дальнейшей печати (компоновать буду естественно сам)

можно ли это как-то сделать с помощью данного лиспа или же если нет, то существует ли такой?

[petro_f]

Сообщение от Dr.Smiley Доброго всем. Возможно я не так читал или не туда смотрел, так что не бейте сильно. Но есть нужда в следующем, дано: чертежи выполненные в пространстве модели, допустим 10 объектов. (балка, колонна, сечения по ним) все чертежи выполнены в различных масштабах. нужно: перенести все эти чертежи на лист в видовых экранах с заданием масштаба видового экрана для каждого объекта, и уже затем скомпоновать полученные видовые экраны на лист определенного формата для дальнейшей печати (компоновать буду естественно сам) можно ли это как-то сделать с помощью данного лиспа или же если нет, то существует ли такой?

Уточните вопрос к какому лиспу относится - тут в ветке 3 плагина
Создание видовых экранов есть другой плагин, смотри во вложении.

[Dr.Smiley]

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

Может я что-то не так делаю? Этот плагин создает видовые экраны, но, каждый созданный видовой экран появляется на вновь созданном листе. было 10 сечений, он и создал 10 листов. А мне нужно чтобы все эти 10 сечений отобразились в одном листе.

[maratovich]

Сообщение от Dr.Smiley А мне нужно чтобы все эти 10 сечений отобразились в одном листе.

Нет такого. Делайте рамки в модели и создавайте из них листы или печатайте напрямую из модели.

[petro_f]

Сообщение от Dr.Smiley Может я что-то не так делаю? Этот плагин создает видовые экраны, но, каждый созданный видовой экран появляется на вновь созданном листе. было 10 сечений, он и создал 10 листов. А мне нужно чтобы все эти 10 сечений отобразились в одном листе.

Плагин с поста #175 не подошёл? Я про плагин AVP. Встаёте на нужном видовом экране и поехали....

[Boxa]

Сообщение от Dr.Smiley Может я что-то не так делаю? Этот плагин создает видовые экраны, но, каждый созданный видовой экран появляется на вновь созданном листе. было 10 сечений, он и создал 10 листов. А мне нужно чтобы все эти 10 сечений отобразились в одном листе.

Попробуйте вот этот плагин http://experement.spb.ru/wiki/doku.php?id=vport_pp , очень похоже на то, что вы хотите.

[Dr.Smiley]

Сообщение от Boxa Попробуйте вот этот плагин

на 11-м автокаде пошло, 14-й почему-то не работает.
но в любом случае большое спасибо за ценную ссылочку.

[petro_f]

А чем работа лиспа AVP (который работает практически во всех версиях када) отличается от работы монстра в виде dll, который ещё надо подгружать в зависимости от версии када?

[Boxa]

Сообщение от petro_f А чем работа лиспа AVP (который работает практически во всех версиях када) отличается от работы монстра в виде dll, который ещё надо подгружать в зависимости от версии када?

Как некоторым образом причастный, попробую ответить.
Начну с того, что dll была создана в 2012 году, т.е. намного раньше данного топика и данного лиспа. Лисп не запускал, только посмотрел код avp.lsp, на нем и основываю свой ответ.

Вот список отличий последней версии dll от AVP.LSP:
- При вставке видового экрана видна не только рамка, но и все содержимое впорта, что позволяет более аккуратно его вставлять и не редактировать/перетаскивать потом.
- Dll сама создает и настраивает слой в который будет размещать впорты.
- В последних версиях этой библиотеки не нужно указывать масштаб, dll вполне самостоятельно справляется с этим.
- Не нужно указывать границы впорта, достаточно выбрать что хочется вывести на лист и dll сама посчитает размер видового экрана с учетом аннатативности, видимости и параметрами дин. блоков, настройками шрифтов и прочей ерунды.
- Настройки dll вынесены во внешний текстовый файл и легко редактируются пользователями.
- Работает с аннатативными масштабами.

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

ЗЫ.
Вот это практически, при использовании коммандных методов, мне очень нравиться и ссылка на одинокий avp.lsp файл тоже.

[petro_f]

Сообщение от Boxa - При вставке видового экрана видна не только рамка, но и все содержимое впорта, что позволяет более аккуратно его вставлять и не редактировать/перетаскивать потом

А смысл? Таскать тяжёлый видовой экран так умучаешься у в 99% случаев я всё равно по границам видового экрана паркую и его содержимое в тот момент до лампочки.

Сообщение от Boxa Dll сама создает и настраивает слой в который будет размещать впорты.

Странное достижение Вопрос а зачем? Если я приготовился ставить впорт, то уж о слое я уже позаботился

Сообщение от Boxa Не нужно указывать границы впорта, достаточно выбрать что хочется вывести на лист и dll сама посчитает размер видового экрана с учетом аннатативности, видимости и параметрами дин. блоков, настройками шрифтов и прочей ерунды.

Не проверял, но скорее всего очередная фигня скорее всего, так как при насыщенном объекте обычно проги лажают..

Сообщение от Boxa По поводу, подгружать версию dll в зависимости от версии автокада, хочется задать вопрос: как часто Вы переходите с одной версии авокада на другую и как много автокадов у Вас установлено одновременно, что подгрузка различных версий dll стало для Вас проблемой? Я без подкола, мне для понимания.

Ну как всегда 2013, 2015(16) и 2018 кад - на работе и дома разные версии. Так же ARX грузить ещё то удовольствие, а лисп просто мышёй затянул и не паришься о версии )) он работает и всё.
И таки лисп не надо компилировать под разные версии кадов и править его несравненно удобней и проще.

Сообщение от Boxa ЗЫ. Вот это практически, при использовании коммандных методов, мне очень нравиться и ссылка на одинокий avp.lsp файл тоже.

Таки не понял, что тут имелось сказать мне

[Сергей812]

petro_f, если все таки дойдете до программирования в том же Net, то все ваши выдуманные проблемы про зависимость от версии акада отпадут на фоне появляющихся возможностей. Например, очень многие пользуются утилитой для разбиения прокси от Ривилиса Александра на ObjectARX, и никто не возмущается необходимостью подгружать требуемую версию из десятка вариантов) Была бы реальная польза от программы.

[Boxa]

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

Сообщение от petro_f Цитата: Сообщение от Boxa Посмотреть сообщение - При вставке видового экрана видна не только рамка, но и все содержимое впорта, что позволяет более аккуратно его вставлять и не редактировать/перетаскивать потом А смысл? Таскать тяжёлый видовой экран так умучаешься у в 99% случаев я всё равно по границам видового экрана паркую и его содержимое в тот момент до лампочки. Цитата: Сообщение от Boxa Посмотреть сообщение Dll сама создает и настраивает слой в который будет размещать впорты. Странное достижение Вопрос а зачем? Если я приготовился ставить впорт, то уж о слое я уже позаботился Цитата: Сообщение от Boxa Посмотреть сообщение Не нужно указывать границы впорта, достаточно выбрать что хочется вывести на лист и dll сама посчитает размер видового экрана с учетом аннатативности, видимости и параметрами дин. блоков, настройками шрифтов и прочей ерунды. Не проверял, но скорее всего очередная фигня скорее всего, так как при насыщенном объекте обычно проги лажают.. Цитата: Сообщение от Boxa Посмотреть сообщение По поводу, подгружать версию dll в зависимости от версии автокада, хочется задать вопрос: как часто Вы переходите с одной версии авокада на другую и как много автокадов у Вас установлено одновременно, что подгрузка различных версий dll стало для Вас проблемой? Я без подкола, мне для понимания.

Offtop: ставит Вас в несколько неловкое положение в плане взрослости и разумности.

Offtop:

Сообщение от petro_f Ну как всегда 2013, 2015(16) и 2018 кад - на работе и дома разные версии. Так же ARX грузить ещё то удовольствие, а лисп просто мышёй затянул и не паришься о версии )) он работает и всё.

Понятно. Рад за Вас и за компанию в которой Вы работаете, что у вас хватате средств на покупку всего этого. К сожалению мне не так повезло и на рабочем месте у меня одна версия автокада, а тратить деньги на покупку автокада домой и в мыслях не было. Да и большинство коллег, с которыми имел честь общаться имеют одну версию автокада и потому проблемы загрузки различных версий программ для них нет. Вашу специфику я понял.
С другой стороны, Вы вроде бы опытный человек и должны же были слышать про .bundle пакеты, созданные именно для того, что бы убрать проблему с загрузками различных версий программ под различные версии автокада. Если загрузка различных версий программ доставляет Вам неудобства, то рекомендую использовать эту технологию, тем более что она появилась с 2012 версии акада.

Сообщение от petro_f И таки лисп не надо компилировать под разные версии кадов и править его несравненно удобней и проще.

Начну с последнего, Вы всерьез считаете, что блокнотик или встроенный редактор Лисп удобнее MS Visual Studio с поддержкой intellisense? Править код в блокнотике проще и удобнее? Серьезно? Впрочем на вкус и цвет...
Про компиляцию. Если руки растут несколько выше "пятой точки", то компиляция под все требуемые версии автокадов выполняется одной кнопкой, впрочем этой же кнопкой выполняется и сборка .bundle пакета.

Демонстративная попытка утвердиться в невежестве вызывает только недоумение. Зачем Вы это делаете?

Сообщение от petro_f Таки не понял, что тут имелось сказать мне

Всё Вы прекрасно поняли, иначе не использовали уточнение "(который работает практически во всех версиях када)" в 181.

[petro_f]

Сообщение от Сергей812 petro_f, если все таки дойдете до программирования в том же Net, то все ваши выдуманные проблемы про зависимость от версии акада отпадут на фоне появляющихся возможностей. Например, очень многие пользуются утилитой для разбиения прокси от Ривилиса Александра на ObjectARX, и никто не возмущается необходимостью подгружать требуемую версию из десятка вариантов) Была бы реальная польза от программы.

Сообщение от Boxa Начну с последнего, Вы всерьез считаете, что блокнотик или встроенный редактор Лисп удобнее MS Visual Studio с поддержкой intellisense? Править код в блокнотике проще и удобнее? Серьезно? Впрочем на вкус и цвет... Про компиляцию. Если руки растут несколько выше "пятой точки", то компиляция под все требуемые версии автокадов выполняется одной кнопкой, впрочем этой же кнопкой выполняется и сборка .bundle пакета. Демонстративная попытка утвердиться в невежестве вызывает только недоумение. Зачем Вы это делаете?

Вы не поверите, но на работе у меня нет возможности ставить Visual Studio, так как админы не ставят любое стороннее ПО, а вот блокнот или портабле PSPAD например работают и с флешки. А Вы сможете перекомпилить под новую версию када прогу в NET с флешки на заблоченном компе?

К тому же у меня на фирме платная подписка и сечас версии када обновляются автоматом... Именно из-за этого я не перехожу на net, так как исходники редко кто выкладывает, а случись автору исчезнуть/потерять интерес... и всё плагин сдулся...

Так что у лиспа в этом есть определённые преимущества.

[Boxa]

Сообщение от petro_f Вы не поверите, но на работе у меня нет возможности ставить Visual Studio, так как админы не ставят любое стороннее ПО, а вот блокнот или портабле PSPAD например работают и с флешки. А Вы сможете перекомпилить под новую версию када прогу в NET с флешки на заблоченном компе? К тому же у меня на фирме платная подписка и сечас версии када обновляются автоматом... Именно из-за этого я не перехожу на net, так как исходники редко кто выкладывает, а случись автору исчезнуть/потерять интерес... и всё плагин сдулся...

Это у Вас от незнания.
Согласовать с админом и начальством установку visual studio community или visual studio code, не велика проблема. Они условно бесплатны. Впрочем существует и портабле версия visual studio code.
Да, смогу пересобрать библиотеку без VS под новую версию автокада, на компе с порезанными правами, не вижу в этом никакой сложности.
А по поводу исходных кодов,"Вы не поверите", но они практически все открыты и никто их не прячет, соответственно если автор плагина потерял интерес и бросил его, это совсем не значит, что плагин умер, любой грамотный разработчик может его воскресить, при желании и согласовании с автором.

Сообщение от petro_f Так что у лиспа в этом есть определённые преимущества.

А вот с этим никто и не спорит.

[Сергей812]

Сообщение от Boxa Согласовать с админом и начальством установку visual studio community или visual studio code, не велика проблема. Они условно бесплатны.

Тот же SharpDevelop тоже вполне подойдет, если не попадаете под условия бесплатности Visual Studio)

Сообщение от Boxa А по поводу исходных кодов,"Вы не поверите", но они практически все открыты и никто их не прячет, соответственно если автор плагина потерял интерес и бросил его, это совсем не значит, что плагин умер, любой грамотный разработчик может его воскресить, при желании и согласовании с автором.

Это если изначально надстройка предназначена в свободный доступ, если автор захочет ограничить хождение надстройки по рукам - есть те же средства защиты сборок. И их вскрыть можно, но кто способен будет разобраться в коде - возможно, сам быстрее напишет требуемый функционал за те же деньги)

[Boxa]

Кстати, вот пример воскрешения: http://forum.dwg.ru/showthread.php?t=83750&page=27

[Scared]

Всем доброго времени суток!
Использовал утилиту из поста #92. Кад 14
Вопрос - нельзя ли сделать так, чтобы при создании экранов происходил и поворот системы координат? Для линейных объектов это как раз актуально.

----- добавлено через ~47 мин. -----
И еще вдогонку.
Нельзя прикрутить сюда выбор формата листа по размеру рамки?

[baksconstructor]

Сообщение от Scared Нельзя прикрутить сюда выбор формата листа по размеру рамки?

Вам сюда http://forum.dwg.ru/showthread.php?t=104517

[Scared]

...
внял совету опытного пользователя, перенес обсуждение сюда http://forum.dwg.ru/showthread.php?p...97#post1702897

[baksconstructor]

Сообщение от Scared Если кто может подсказать утилиты/утилиты, которые это делают - буду крайне признателен )

попробуйте написать maratovich, он много чего сотворил, может поможет.

[petro_f]

Сообщение от Scared Всем доброго времени суток! Использовал утилиту из поста #92. Кад 14 Вопрос - нельзя ли сделать так, чтобы при создании экранов происходил и поворот системы координат? Для линейных объектов это как раз актуально. ----- добавлено через ~47 мин. ----- И еще вдогонку. Нельзя прикрутить сюда выбор формата листа по размеру рамки?

А вот этот пост посмотрели?

Сделать правильное определение координат можно - только как будет время. Просто у Вас там совсем глухо - масштаб и размеры рамок..... просто аут

[Scared]

Сообщение от petro_f А вот этот пост посмотрели? Сделать правильное определение координат можно - только как будет время. Просто у Вас там совсем глухо - масштаб и размеры рамок..... просто аут

Это не рамки, а заготовки видовых экранов. Размеры их могут быть произвольными - в зависимости от того, что должно в эти виды попасть.
Собственно и хотелось бы, чтоб ПСК в новых ВЭ была повернута соответствующим образом.
В примере на видео создаются такие же ортогональные ВЭ.
Если так не понятно - могу выложить еще один файл с оформленным листом

[petro_f]

Сообщение от Scared Это не рамки, а заготовки видовых экранов. Размеры их могут быть произвольными - в зависимости от того, что должно в эти виды попасть. Собственно и хотелось бы, чтоб ПСК в новых ВЭ была повернута соответствующим образом. В примере на видео создаются такие же ортогональные ВЭ. Если так не понятно - могу выложить еще один файл с оформленным листом

Так то понятно, но заготовки видовых экранов всё равно надо подгонять под "стандартные" ГОСТ-е размеры.

[EdgarR]

Сообщение от petro_f Так то понятно, но заготовки видовых экранов всё равно надо подгонять под "стандартные" ГОСТ-е размеры.

Добрый день! скачал ваш Lisp - все супер, только почему-то он у меня не определяет масштаб и выходит в ошибку. Печать рамки 420х297 (единицы чертежа) он видит, а 42000х29700 не может промасштабировать. Акад 2014 =)
Это можно как-то вылечить?

Попытка прописать вручную масштаб 1мм - 100ед чертежа в диалоговом окне ничего не дает.
Установка на листе аннотативного масштаба 1:100 аналогично ничего не дает

[petro_f]

Сообщение от EdgarR Добрый день! скачал ваш Lisp - все супер, только почему-то он у меня не определяет масштаб и выходит в ошибку. Печать рамки 420х297 (единицы чертежа) он видит, а 42000х29700 не может промасштабировать. Акад 2014 =) Это можно как-то вылечить? Попытка прописать вручную масштаб 1мм - 100ед чертежа в диалоговом окне ничего не дает. Установка на листе аннотативного масштаба 1:100 аналогично ничего не дает

Пришлите файл на посмотреть - можно только рамку.
Скорее всего Вы рамку сделали не правильно. Правильно сделать рамку в масштабе 1:1 по ГОСТ, а потом рамку масштабировать средствами када.

[petro_f]

Сообщение от Scared Всем доброго времени суток! Использовал утилиту из поста #92. Кад 14 Вопрос - нельзя ли сделать так, чтобы при создании экранов происходил и поворот системы координат? Для линейных объектов это как раз актуально. ----- добавлено через ~47 мин. ----- И еще вдогонку. Нельзя прикрутить сюда выбор формата листа по размеру рамки?

Попробуйте в таком варианте. Сам плагин выложил в посте #92 версия 4.9

[petro_f]

Сообщение от EdgarR Попытка прописать вручную масштаб 1мм - 100ед чертежа в диалоговом окне ничего не дает. Установка на листе аннотативного масштаба 1:100 аналогично ничего не дает

Странно у меня чётко сработал плагин на этих размерах - см картинку

[EdgarR]

Сообщение от petro_f Странно у меня чётко сработал плагин на этих размерах - см картинку

Работает, я в масштабе печати тыкал =) Как я понимаю в авт. режиме он не может это определить?

Огромное спасибо за проделанную работу))))

[Scared]

Сообщение от petro_f Попробуйте в таком варианте. Сам плагин выложил в посте #92 версия 4.9

Да, с вашими рамками всё работает, спасибо!
А нельзя сделать, чтоб с произвольными рамками работало? И чтоб ВЭ создавался по внутреннему контуру рамки, с учетом штампа? Как в примере.
Блок с рамками могу сам запилить, чтоб вам на это время не тратить.

----- добавлено через ~2 мин. -----
И всё-таки, по какому шаблону плагин создает новый лист? Где-то можно прописать путь к этому шаблону, чтоб на каждый лист вручную не вставлять рамку?

[petro_f]

Сообщение от Scared Цитата: Сообщение от petro_f Попробуйте в таком варианте. Сам плагин выложил в посте #92 версия 4.9 Да, с вашими рамками всё работает, спасибо! А нельзя сделать, чтоб с произвольными рамками работало? И чтоб ВЭ создавался по внутреннему контуру рамки, с учетом штампа? Как в примере. Блок с рамками могу сам запилить, чтоб вам на это время не тратить.

Дело в том, что размеры листов сделаны согласно ГОСТ. Если нет настроенного формата, то автокад не позволяет генерировать новые размеры листов "на лету". Дело в фале настроек плоттеров "*.pc3". Где то была тема про распаковку и генерацию новых размеров программным образом... но там вроде всё заглохло.
Так что либо так, либо никак.
Как вариант могу предложить сделать непечатные рамки для модели, по ним настраивать листы, а далее рамки вставлять в лист. Я так делал раньше. Посмотрите как сделано в вложенном файле.

----- добавлено через ~3 мин. -----

Сообщение от Scared И всё-таки, по какому шаблону плагин создает новый лист? Где-то можно прописать путь к этому шаблону, чтоб на каждый лист вручную не вставлять рамку?

Не по шаблону - по рамке. Идёт расчёт координат, далее создаётся видовой экран. Далее центрирование и масштабирование...

----- добавлено через ~12 мин. -----

Сообщение от EdgarR Работает, я в масштабе печати тыкал =) Как я понимаю в авт. режиме он не может это определить? Огромное спасибо за проделанную работу))))

Алгоритм определения масштаба обсуждался в посте #134 и #135
Естественно, если рамка сделана не в размерах ГОСТ (420х297), то плагин её поймать не сможет.
Правильно сделать рамку в размере 420х297, а затем масштабировать её в 100 раз. Тогда рамка будет размера 42000х29700 (как Вам и нужно), а в блоке будет изменён коэффициент масштабирования. По этому то параметру плагин и подбирает автоматический масштаб.
Надеюсь понятен алгоритм работы плагина?

[Scared]

Сообщение от petro_f Дело в том, что размеры листов сделаны согласно ГОСТ. Если нет настроенного формата, то автокад не позволяет генерировать новые размеры листов "на лету".

Размеры листов похоже выбираются из настроек моего плоттера. Меня это в принципе устраивает - там основные форматы вбиты. Только Ваш принтер DWG to PDF почему-то не получается подцепить через приложение - ЛИСП не видит ini-файл.
Мой вопрос касался того, нельзя ли например автоматически вставлять рамку на лист?
-
Второй вопрос касался уже не самого листа, а видового экрана.
По умолчанию он у вас создается ровно по внешнему размеру листа.
А я спросил, можно ли сделать по внешнему размеру, причем с учетом штампа?

[petro_f]

Сообщение от Scared Размеры листов похоже выбираются из настроек моего плоттера. Меня это в принципе устраивает - там основные форматы вбиты. Только Ваш принтер DWG to PDF почему-то не получается подцепить через приложение - ЛИСП не видит ini-файл. Мой вопрос касался того, нельзя ли например автоматически вставлять рамку на лист? - Второй вопрос касался уже не самого листа, а видового экрана. По умолчанию он у вас создается ровно по внешнему размеру листа. А я спросил, можно ли сделать по внешнему размеру, причем с учетом штампа?

Я понял про что идёт речь.
По рамкам и форматам плоттера - читайте файл как ставить плагин особенно установку... внимательно "принтер DWG to PDF" не цепляется через ini файл... а через вставку в файлы автокада

По поводу размеров рамки - откройте файл в приложении (он в плагине идёт, но сюда для примера положу), там в начале всё расписано как настраивать, даны размеры листа - поправьте и он сделает всё как надо.

[petro_f]

Сообщение от Scared Размеры листов похоже выбираются из настроек моего плоттера. Меня это в принципе устраивает - там основные форматы вбиты. Только Ваш принтер DWG to PDF почему-то не получается подцепить через приложение - ЛИСП не видит ini-файл. Мой вопрос касался того, нельзя ли например автоматически вставлять рамку на лист? - Второй вопрос касался уже не самого листа, а видового экрана. По умолчанию он у вас создается ровно по внешнему размеру листа. А я спросил, можно ли сделать по внешнему размеру, причем с учетом штампа?

Попробуйте эту версию - рамка перебрасывается в лист и потом только останется вв экран поправить под внутренний формат рамки

P.S. Вызов функции - SBUGO-ADDLAY-INSERT

P.P.S. Предыдущий пост тоже прочтите.

[EdgarR]

Сообщение от petro_f Дело в том, что размеры листов сделаны согласно ГОСТ. Если нет настроенного формата, то автокад не позволяет генерировать новые размеры листов "на лету". Дело в фале настроек плоттеров "*.pc3". Где то была тема про распаковку и генерацию новых размеров программным образом... но там вроде всё заглохло. Так что либо так, либо никак. Как вариант могу предложить сделать непечатные рамки для модели, по ним настраивать листы, а далее рамки вставлять в лист. Я так делал раньше. Посмотрите как сделано в вложенном файле. ----- добавлено через ~3 мин. ----- Не по шаблону - по рамке. Идёт расчёт координат, далее создаётся видовой экран. Далее центрирование и масштабирование... ----- добавлено через ~12 мин. ----- Алгоритм определения масштаба обсуждался в посте #134 и #135 Естественно, если рамка сделана не в размерах ГОСТ (420х297), то плагин её поймать не сможет. Правильно сделать рамку в размере 420х297, а затем масштабировать её в 100 раз. Тогда рамка будет размера 42000х29700 (как Вам и нужно), а в блоке будет изменён коэффициент масштабирования. По этому то параметру плагин и подбирает автоматический масштаб. Надеюсь понятен алгоритм работы плагина?

Да, все ясно) Еще раз спасибо)

[Scared]

Сообщение от petro_f Попробуйте эту версию - рамка перебрасывается в лист и потом только останется вв экран поправить под внутренний формат рамки

Да, с этой версией уже получается то что мне было нужно )
С моими рамками тоже работает. Только они ставятся почему-то левее ВЭ - видимо привязка по базовой точке к левому нижнему углу )
Только почему-то, когда пытаюсь выбрать пустой стиль печати (нет) - вместо этого ставится монохром.
И еще мне кажется имело бы смысл добавить возможность оставлять копии рамок в модели - на случай, если что-то пошло не так, ну или просто если кому-то удобно видеть разбивку листов в модели.
А в остальном всё отлично! Спасибо! )))

[petro_f]

Сообщение от Scared И еще мне кажется имело бы смысл добавить возможность оставлять копии рамок в модели - на случай, если что-то пошло не так, ну или просто если кому-то удобно видеть разбивку листов в модели. А в остальном всё отлично! Спасибо! )))

Можно, но там морока. Я обычно для понимания куда "светит" видовое окно использую плагин "VPOutline.lsp" (см. в приложении). Вызов командой VPO.
Выделяете видовой экран и команду. Если предварительно в модели поставить не печатный слой по умолчанию, то рамки видового окна сразу будут не видны в печати.

P.S. Где то так как в файле в приложении

[Scared]

Сообщение от petro_f Можно, но там морока. Я обычно для понимания куда "светит" видовое окно использую плагин "VPOutline.lsp" (см. в приложении).

Может я конечно чего не понял... но, если эту команду VPO нужно вводить на каждом листе - смысла в ней не много. За то же время можно войти в ВЭ и начертить прямоугольник.
Был бы смысл делать это из модели. Но в модели она не работает. Или как-то на всех листах разом

Так что всё-таки здорово было б иметь возможность оставлять рамки в модели )
Ну а если б еще и ВЭ автоматом вставлялись в непечатаемый слой - было б вообще улёт!

[sKeeper]

Подскажите, в чем может быть проблема? Стоял лисп на 2015 русском автокаде и работ отлично, спасибо автору, но после перехода на 10 винду перестал работать. После создания листа фатальная ошибка. Дело в десятке?

[petro_f]

Сообщение от sKeeper Подскажите, в чем может быть проблема? Стоял лисп на 2015 русском автокаде и работ отлично, спасибо автору, но после перехода на 10 винду перестал работать. После создания листа фатальная ошибка. Дело в десятке?

Попробуйте переустановить - у меня на зоопарке машин всё пашет - 15, 16, 18 акад на вин 10. 13 акад на вин 7. Так что странно. Скорее всего не полностью установил. Что за ошибку пишет то?

[sKeeper]

Сообщение от petro_f Попробуйте переустановить - у меня на зоопарке машин всё пашет - 15, 16, 18 акад на вин 10. 13 акад на вин 7. Так что странно. Скорее всего не полностью установил. Что за ошибку пишет то?

UAC отключен

Код:

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

Удалить существующие листы? [Да/Нет]: Д
Регенерация модели - кэширование видовых экранов.
Регенерация модели - кэширование видовых экранов.
Начальный номер листа:1
Выполняется регенерация листов.
; ошибка: Возникло исключение: 0xC0000005 (Нарушение доступа)
; предупреждение: раскрутка пропущена для исключение
; ошибка: Возникло исключение: 0xC0000005 (Нарушение доступа)

[petro_f]

Сообщение от sKeeper UAC отключен Код: [Выделить все] Удалить существующие листы? [Да/Нет]: Д Регенерация модели - кэширование видовых экранов. Регенерация модели - кэширование видовых экранов. Начальный номер листа:1 Выполняется регенерация листов. ; ошибка: Возникло исключение: 0xC0000005 (Нарушение доступа) ; предупреждение: раскрутка пропущена для исключение ; ошибка: Возникло исключение: 0xC0000005 (Нарушение доступа)

Это скорее всего не в плагине дело см. тут

Какая версия плагина то? Тот, что в шапке или с #92 поста?

[petro_f]

Сообщение от Scared Может я конечно чего не понял... но, если эту команду VPO нужно вводить на каждом листе - смысла в ней не много. За то же время можно войти в ВЭ и начертить прямоугольник. Был бы смысл делать это из модели. Но в модели она не работает. Или как-то на всех листах разом Так что всё-таки здорово было б иметь возможность оставлять рамки в модели ) Ну а если б еще и ВЭ автоматом вставлялись в непечатаемый слой - было б вообще улёт!

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

Добавил функционал. Особенно попробуйте погонять функции, что выделены на рисунке.
Файл, в котором я тестил, лежит тут же..

[EdgarR]

Сообщение от petro_f Попробуйте переустановить - у меня на зоопарке машин всё пашет - 15, 16, 18 акад на вин 10. 13 акад на вин 7. Так что странно. Скорее всего не полностью установил. Что за ошибку пишет то?

Добрый день. При запуске на Акад 15 на другом компе выскакивает ошибка загрузка диалога
При первой запуске программы после включения акада первые три сообщения, а при повторном вызове программы два последних. Lisp редактор не видит ошибок в файле диалога, который в темп лежит

Вот лог из файла с описанием ошибки:
== Синтаксическая проверка DCL для C:\Users\n.pelihova\appdata\local\temp\dcl_auto_layout.dcl ==

Ошибка. Элемент с именем "spacer_0" не определен.

Ошибка. Элемент с именем "spacer_1" не определен.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка в "dcl_auto_layout". (widget type = ** undefined **, key = "")
Элементы этого типа не могут иметь подчиненных элементов.

Ошибка. Элемент с именем "row" не определен.

Ошибка. Элемент с именем "concatenation" не определен.

Ошибка. Элемент с именем "column" не определен.

Ошибка. Элемент с именем "ok_cancel" не определен.

Ошибка. Элемент с именем "paragraph" не определен.

Ошибка. Элемент с именем "radio_row" не определен.

Ошибка. Элемент с именем "boxed_row" не определен.

Ошибка. Элемент с именем "errtile" не определен.

Ошибка. Элемент с именем "radio_column" не определен.

Ошибка. Элемент с именем "boxed_column" не определен.

[petro_f]

Сообщение от EdgarR Добрый день. При запуске на Акад 15 на другом компе выскакивает ошибка загрузка диалога При первой запуске программы после включения акада первые три сообщения, а при повторном вызове программы два последних. Lisp редактор не видит ошибок в файле диалога, который в темп лежит

Это коряво встал кад. Обычно либо не прописаны пути, либо нет доступа каду в папку темп. Для удаления первого глюка достаточно такой скрипт прогнать один раз:

Код:

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

 (setq AcadPath (getenv "ACAD")) ; получаем пути акада                                             
    (if (not (wcmatch AcadPath (strcat "*" (vl-string-subst "" "\\actions" (vl-string-right-trim "\\" (getvar "actrecpath"))) ";" "*")) ) ; если нет этой строки
      (progn                                                                     
        (setq AcadPath (strcat (vl-string-subst "" "\\actions" (vl-string-right-trim "\\" (getvar "actrecpath"))) ";" AcadPath) ) ; end setq       
        (setenv "ACAD" AcadPath) ; пишем в переменную                            
      ) ; end progn                                                              
    ) ; end if

Если второй вариант - смотрите права доступа када к папке темп C:\Users\ВАША_УЧЁТКА\AppData\Local\Temp
Либо попробовать кад запустить от имени админа

В общем где то тут была тема в посте #2 правильно и тут частично и тут более полное

[sKeeper]

Сообщение от petro_f Это скорее всего не в плагине дело см. тут Какая версия плагина то? Тот, что в шапке или с #92 поста?

Прошу прощения, нашел виновника - драйвер сетевого принтера. проблема решена, спасибо!

[Scared]

Сообщение от petro_f Попробуйте плагин с поста #92 Добавил функционал. Особенно попробуйте погонять функции, что выделены на рисунке. Файл, в котором я тестил, лежит тут же..

Да, всё отлично работает! Так уже гораздо удобней )

[EdgarR]

Сообщение от petro_f Это коряво встал кад. Обычно либо не прописаны пути, либо нет доступа каду в папку темп. Для удаления первого глюка достаточно такой скрипт прогнать один раз: Код: [Выделить все] (setq AcadPath (getenv "ACAD")) ; получаем пути акада (if (not (wcmatch AcadPath (strcat "*" (vl-string-subst "" "\\actions" (vl-string-right-trim "\\" (getvar "actrecpath"))) ";" "*")) ) ; если нет этой строки (progn (setq AcadPath (strcat (vl-string-subst "" "\\actions" (vl-string-right-trim "\\" (getvar "actrecpath"))) ";" AcadPath) ) ; end setq (setenv "ACAD" AcadPath) ; пишем в переменную ) ; end progn ) ; end if Если второй вариант - смотрите права доступа када к папке темп C:\Users\ВАША_УЧЁТКА\AppData\Local\Temp Либо попробовать кад запустить от имени админа В общем где то тут была тема в посте #2 правильно и тут частично и тут более полное

Спасибо. Помогла последняя ссылка на autodesk) скрипт при таком случае просто не компилировался и выдавал кучу ошибок)

[OMFGpewpew]

Спасибо! Очень крутая вещь!
Только у меня она работает по-моему криво, или я как-то неправильно делаю.
Подскажите пожалуйста, почему у меня при сохранении появляются непонятные рамки при А3 горизонатльном слева, справа, сверху. При А4 только сверху. При А3 вертикальном только сверху и слева!
Работаю всегда в моделях, и когда загрузил план, через _al вызываю, выбираю рамку свою, они все в одном слое всегда. Настройки принтера dwg в pdf для всех форматов области печати стоит по нулям! Помогите разобраться ребят, всем хорошего дня!

[petro_f]

Сообщение от OMFGpewpew Спасибо! Очень крутая вещь! Только у меня она работает по-моему криво, или я как-то неправильно делаю. Подскажите пожалуйста, почему у меня при сохранении появляются непонятные рамки при А3 горизонатльном слева, справа, сверху. При А4 только сверху. При А3 вертикальном только сверху и слева! Работаю всегда в моделях, и когда загрузил план, через _al вызываю, выбираю рамку свою, они все в одном слое всегда. Настройки принтера dwg в pdf для всех форматов области печати стоит по нулям! Помогите разобраться ребят, всем хорошего дня!

Доброго времени суток
Автор давно свой плагин забросил, а судя по команде Вы используете версию плагина из шапки темы.
Попробуйте плагин из поста #92. Только не забудьте его поставить по инструкции.

[OMFGpewpew]

Сообщение от petro_f Доброго времени суток Автор давно свой плагин забросил, а судя по команде Вы используете версию плагина из шапки темы. Попробуйте плагин из поста #92. Только не забудьте его поставить по инструкции.

Поставил принтеры, как написано в инструкции в .docx, но что-то понять не могу, как вызывать плагин, и каокй из них подгружать надо, тут два же их Sbugo_addlay_insert.lsp и Имя_и_формат_плоттера.lsp.
В посте #92 не написано, каким образом вызывать его

[petro_f]

Сообщение от OMFGpewpew Поставил принтеры, как написано в инструкции в .docx, но что-то понять не могу, как вызывать плагин, и каокй из них подгружать надо, тут два же их Sbugo_addlay_insert.lsp и Имя_и_формат_плоттера.lsp. В посте #92 не написано, каким образом вызывать его

Сначала ставится по инструкции основной плагин Sbugo_addlay_insert.lsp, затем на него сверху накатывается свежая версия.
Вызов осуществляется командой SBADDLAY. При загрузке в кад плагин пишет свою команду, но на всякий случай добавил в пост плагина эту строчку.

P.S. Плагин Имя_и_формат_плоттера.lsp это вспомогательный и нужен только если Вы решите настроить плагин под физические принтеры Вашего компа.

[petro_f]

Сообщение от Scared Да, всё отлично работает! Так уже гораздо удобней )

Попробуйте новую версию - поправил расчёт размеров рамки и улучшил функционал. Плагин как всегда лежит в посте #92

[OMFGpewpew]

Сообщение от petro_f Сначала ставится по инструкции основной плагин Sbugo_addlay_insert.lsp, затем на него сверху накатывается свежая версия. Вызов осуществляется командой SBADDLAY. При загрузке в кад плагин пишет свою команду, но на всякий случай добавил в пост плагина эту строчку. P.S. Плагин Имя_и_формат_плоттера.lsp это вспомогательный и нужен только если Вы решите настроить плагин под физические принтеры Вашего компа.

Все отлично работает! Спасибо!)

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

К примеру, готовую рабочку сделал, сохранил все листы через Ваш лисп, но потом при проверке если какой-то из листов надо пересохранить. Чтобы все опять не пересохранять, сохраняешь один лист, меняешь его общем ПДФе, и заметил такую вещь, что рамки прыгают, которые сохранены обычным способом и через лисп. Где-то в настройках пропустил, или недочёт плагина?


PS. После сохранения листов, автоматически меняется на слой, в котором находятся рамки, можно ли как-нибудь отключить это?

[petro_f]

Сообщение от OMFGpewpew К примеру, готовую рабочку сделал, сохранил все листы через Ваш лисп, но потом при проверке если какой-то из листов надо пересохранить. Чтобы все опять не пересохранять, сохраняешь один лист, меняешь его общем ПДФе, и заметил такую вещь, что рамки прыгают, которые сохранены обычным способом и через лисп. Где-то в настройках пропустил, или недочёт плагина?

А можно пример? Первый раз слышу про такое. У меня все листы одинаково выходят. Может при создании листов разные настройки сделали?

Сообщение от OMFGpewpew PS. После сохранения листов, автоматически меняется на слой, в котором находятся рамки, можно ли как-нибудь отключить это?

Не обращал внимание. Поправлю

P.S. Поправил плагин

[OMFGpewpew]

Сообщение от petro_f А можно пример? Первый раз слышу про такое. У меня все листы одинаково выходят. Может при создании листов разные настройки сделали? Не обращал внимание. Поправлю P.S. Поправил плагин

Слои проверил, все отлично! Спасибо!

Откройте ПДФ, нажмите кнопку подогнать страницу по размеру окна, и полистайте колесиком, и увидите, как рамка прыгает, непонятно почему . 1 и 3 лист сохраннены через плагин, 2 просто через Ctrl + p, такой же принтер DWG to PDF, отступы по листу 0 0 0 0, и вот, такая вот беда, если бы в этом разобраться, цены не будет плагину!)

[petro_f]

Сообщение от OMFGpewpew такой же принтер DWG to PDF

Принтер должен быть именно "DWG To PDF_all_formats" - в нём удалены внутренние границы.
Сейчас попробую проверить, но до этого не было проблем. Скорее всего принтер просто поменяли Проверьте пожалуйста.

Вы принтер установили по инструкции? Скорее всего дело именно в принтере.
Сейчас собрал файл образца - 1 и 3 лист создал сразу и распечатал через "ПУБЛ" команду. Переоткрыл файл и создал создал 2-й лист. Распечатал вручную и собрал в единый файл. Ничего не прыгает...
При печати вручную настройки выглядят так же (выделено красным) или там чуть по другому, особенно где цифры масштаба печати?

[OMFGpewpew]

Сообщение от petro_f Принтер должен быть именно "DWG To PDF_all_formats" - в нём удалены внутренние границы. Сейчас попробую проверить, но до этого не было проблем. Скорее всего принтер просто поменяли Проверьте пожалуйста. Вы принтер установили по инструкции? Скорее всего дело именно в принтере. Сейчас собрал файл образца - 1 и 3 лист создал сразу и распечатал через "ПУБЛ" команду. Переоткрыл файл и создал создал 2-й лист. Распечатал вручную и собрал в единый файл. Ничего не прыгает... При печати вручную настройки выглядят так же (выделено красным) или там чуть по другому, особенно где цифры масштаба печати?

На самом деле, вручную сшил через DWG To PDF_all_formats, и не прыгает. А в стандартном DWG to PDF даже при 0 0 0 0 ещё есть какие-то скрытые границы?

[petro_f]

Сообщение от OMFGpewpew На самом деле, вручную сшил через DWG To PDF_all_formats, и не прыгает. А в стандартном DWG to PDF даже при 0 0 0 0 ещё есть какие-то скрытые границы?

В стандартных листах по 0 всё стоит? Я настраивал что бы везде нули были. Может по разному отработка печати идёт?
Я стараюсь всегда печатать через "ПУБЛ" У меня настроены принтеры как виртуальные, так и физические. Так удобней и практичней ))) Я из када печатаю так же как из word или pdf readera и прочих.

[Andrey_13]

По просьбе petro_f приведена ссылка на его версию приложения в заглавном посте.

[IvanMosc]

Добрый день, а возможно сделать вывод всех листов на листы, по принципу с лева на право и сверху в низ, как в теме "Автоматическая нумерация текстовых объектов и атрибутов блока в AutoCad"?

И пожалуйста добавляйте номер версии если вносите изменения, ато не понятно изменился лисп или нет
И я запутался, теперь тут обсуждается другой лисп?

[petro_f]

Сообщение от IvanMosc Добрый день, а возможно сделать вывод всех листов на листы, по принципу с лева на право и сверху в низ, как в теме "Автоматическая нумерация текстовых объектов и атрибутов блока в AutoCad"? И пожалуйста добавляйте номер версии если вносите изменения, ато не понятно изменился лисп или нет И я запутался, теперь тут обсуждается другой лисп?

IvanMosc а Вы с какого поста сами лисп используете? Дайте на него ссылку и будет понятно к кому задан вопрос.

[baksconstructor]

Сообщение от IvanMosc Добрый день, а возможно сделать вывод всех листов на листы, по принципу с лева на право и сверху в ни

А конечная цель какая ? (зачем ?)

[petro_f]

Сообщение от baksconstructor Цитата: Сообщение от IvanMosc Добрый день, а возможно сделать вывод всех листов на листы, по принципу с лева на право и сверху в ни А конечная цель какая ? (зачем ?)

Конечная цель у него тут http://forum.dwg.ru/showpost.php?p=1734185&postcount=25

[baksconstructor]

Сообщение от petro_f Конечная цель у него тут http://forum.dwg.ru/showpost.php?p=1734185&postcount=25

Этож IvanMosc просто номера листов в штампе шампе пронумеровать ?
Тю, и стоило заморачиваться с созданием листов, нужным порядком рядов и столбцов....
Как я понимаю номера созданы атрибутами (это ещё проще) - ставим программу "Реверс" запускаем нумерацию и получаем результат без каких либо заморочек, и номера листов и всего листов и номер страницы если надо.

[IvanMosc]

Сообщение от petro_f IvanMosc а Вы с какого поста сами лисп используете? Дайте на него ссылку и будет понятно к кому задан вопрос.

Из первого поста AddLay.LSP

Сообщение от baksconstructor А конечная цель какая ? (зачем ?)

Конечная цель выводить на листы весь проект, а на по строкам, т.к. строк бывает довольно много

Сообщение от petro_f Конечная цель у него тут http://forum.dwg.ru/showpost.php?p=1734185&postcount=25

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

Сообщение от baksconstructor Этож IvanMosc просто номера листов в штампе шампе пронумеровать ? Тю, и стоило заморачиваться с созданием листов, нужным порядком рядов и столбцов.... Как я понимаю номера созданы атрибутами (это ещё проще) - ставим программу "Реверс" запускаем нумерацию и получаем результат без каких либо заморочек, и номера листов и всего листов и номер страницы если надо.

Создание листов никак не связано с нумерацией

[maratovich]

Сообщение от IvanMosc Создание листов никак не связано с нумерацией

А с чем связано ? (просто интересно, так никто не делает)

[IvanMosc]

Сообщение от maratovich А с чем связано ? (просто интересно, так никто не делает)

Создание листов связано с созданием листов в автоматическом режиме, именно то, для чего и был создан лисп AddLay.LSP, поэтому я не понимаю о чем вы вообще говорите, говоря, что "так никто не делает"

[maratovich]

Сообщение от IvanMosc вывод всех листов на листы, по принципу с лева на право и сверху в низ

Сообщение от petro_f Конечная цель у него тут http://forum.dwg.ru/showpost.php?p=1734185&postcount=25

Сообщение от IvanMosc поэтому я не понимаю о чем вы вообще говорите, говоря, что "так никто не делает"

Я лично понял что вы хотите на один лист создать много рамок в столбцы и строки , а потом их нумеровать. Не ?

[IvanMosc]

Сообщение от maratovich Я лично понял что вы хотите на один лист создать много рамок в столбцы и строки , а потом их нумеровать. Не ?

Неее.
В модели у меня есть листы=рамки, которые нужно выкинуть на листы, для быстрой печати и др. Этим занимается один лисп.
А вот у этих листов=рамок есть сквозная нумерация, причем эти рамки располагаются в несколько рядов по 1-30 штук в ряду, для этого и требуется автоматическая нумерация, что бы не перенумеровывать каждый раз как что-то изменилось.

[maratovich]

Сообщение от IvanMosc В модели у меня есть листы=рамки, которые нужно выкинуть на листы, для быстрой печати и др. Этим занимается один лисп. А вот у этих листов=рамок есть сквозная нумерация, причем эти рамки располагаются в несколько рядов по 1-30 штук в ряду, для этого и требуется автоматическая нумерация, что бы не перенумеровывать каждый раз как что-то изменилось.

Теперь понял.
А не проще всё нумеровать в модели и печатать автоматом из модели ? (рас уж Вы всё равно делаете рамки в модели, запускаете лисп для создания листов, а потом лисп для нумерации, может исключить лишнее ?)

[petro_f]

Сообщение от IvanMosc В модели у меня есть листы=рамки, которые нужно выкинуть на листы, для быстрой печати и др. Этим занимается один лисп. А вот у этих листов=рамок есть сквозная нумерация, причем эти рамки располагаются в несколько рядов по 1-30 штук в ряду, для этого и требуется автоматическая нумерация, что бы не перенумеровывать каждый раз как что-то изменилось.

Попробуйте для рамок привязать данный лисп я им как раз рамки и нумерую.

[baksconstructor]

Вот этот вариант тому кто в лиспе не селён, может пригодится.
И видео - https://youtu.be/XERTJErm63g

[tujn08]

Сообщение от IvanMosc есть сквозная нумерация, причем эти рамки располагаются в несколько рядов по 1-30 штук в ряду

пакетная печать пронумерованных чертежей из модели, имена pdf из шифра чертежей (или своей маски).

[IvanMosc]

Сообщение от maratovich Теперь понял. А не проще всё нумеровать в модели и печатать автоматом из модели ? (рас уж Вы всё равно делаете рамки в модели, запускаете лисп для создания листов, а потом лисп для нумерации, может исключить лишнее ?)

Может быть и проще, только всё равно нужно сначала чем-то пронумеровать, а потом чем-то специальным распечатать, т.е. всё равно 2 лиспа или скрипта нужно

Сообщение от petro_f Попробуйте для рамок привязать данный лисп я им как раз рамки и нумерую.

Да, интересная вещь, возможно даже идеальная... Надо только проверить лично

Сообщение от tujn08 пакетная печать пронумерованных чертежей из модели, имена pdf из шифра чертежей (или своей маски).

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

В принципе уже нашелся необходимый "софт", спасибо за ссылки, жить стало легче

Хотя данное обсуждение началось вот с этого моего поста:

Сообщение от IvanMosc Добрый день, а возможно сделать вывод всех листов на листы, по принципу с лева на право и сверху в низ, как в теме "Автоматическая нумерация текстовых объектов и атрибутов блока в AutoCad"? И пожалуйста добавляйте номер версии если вносите изменения, ато не понятно изменился лисп или нет И я запутался, теперь тут обсуждается другой лисп?

И зашло как-то не туда

[petro_f]

Сообщение от IvanMosc И зашло как-то не туда

Бывает

[petro_f]

Обновил плагин из поста #92, добавил функционала.

[OMFGpewpew]

Сообщение от petro_f Обновил плагин из поста #92, добавил функционала.

После обновления почему-то пакетная печать стала делить листы на отдельные .pdf, раньше в один файл .pdf сохранялось.

Будь добр, подскажи пожалуйста, это изменились настройки? Или я что-то накосипорил?

[petro_f]

Сообщение от OMFGpewpew После обновления почему-то пакетная печать стала делить листы на отдельные .pdf, раньше в один файл .pdf сохранялось. Будь добр, подскажи пожалуйста, это изменились настройки? Или я что-то накосипорил?

Проверьте настройки публикации (пакетной печати). Я пометил настройку.

Обновление этого точно не затрагивало )))

[OMFGpewpew]

Сообщение от petro_f Проверьте настройки публикации (пакетной печати). Я пометил настройку. Обновление этого точно не затрагивало )))

Большое спасибо!

[mituk]

--- удалено ----

[Yanej]

autocad 2015 последняя версия Lisp jn petro_f https://forum.dwg.ru/showpost.php?p=...4&postcount=92. Работает частично. При формировании листов выскакивает ошибка
Программа допустила ошибку в функции "SBugo-AddLay". Ошибка Automation. Недопустимый аргумент Height в AddPViewport methodВыполняется регенерация модели.
Закономерностей при появлении ошибки не обнаружил.

[petro_f]

Сообщение от Yanej autocad 2015 последняя версия Lisp jn petro_f https://forum.dwg.ru/showpost.php?p=...4&postcount=92. Работает частично. При формировании листов выскакивает ошибка Программа допустила ошибку в функции "SBugo-AddLay". Ошибка Automation. Недопустимый аргумент Height в AddPViewport methodВыполняется регенерация модели. Закономерностей при появлении ошибки не обнаружил.

Либо выявите закономерность и пришлите описание возникновения проблемы с файлом, либо это у Вас локальный глюк. Стоит попробовать на другой машине....
P.S. Так листы создаются или же ошибка только идёт?
P.P.S Ещё может быть, что Вы вместо рамки листа захватываете какой либо другой мелкий объект (например боковой штампик, см. прилагаемый рисунок).

[Andy83]

Может подскажете? Пользовался программкой не раз.
А сейчас не получается.
Что может быть?

[petro_f]

Сообщение от Andy83 Может подскажете?

Что именно подсказать?

Сообщение от Andy83 Пользовался программкой не раз.

О какой программе идёт вопрос и что не получается?
Тут есть несколько версий программ, какая именно не фурычит и в чём?

[Andy83]

Addlay.
Но попробовал разок и в вашей: Sbuggo Adlay

что-то с масштабом, вроде корректный задаю, а в итоге чертёж не вписывается как надо в видовой экран

[petro_f]

Сообщение от Andy83 Может подскажете? Пользовался программкой не раз. А сейчас не получается. Что может быть?

У Вас используются кривые рамки, а если быть точнее, то используется общий блок с рамками. Для того, что бы Вы поняли, я его вынес отдельно и обвёл.
Так как плагин определяет размер блока/элемента, то в Вашем случае он видит один блок с огромными размерами, то что в красном обводе.
Попробуйте заменить рамки на рамки из этого поста #93 или нарисуйте свои нормально. Размер каждой рамки должен быть равен размеру листа.

[maratovich]

Сообщение от Andy83 Что может быть?

У вас полилинии собраны в Группу, поэтому и не обрабатывает. используйте _UNGROUP
Проверил при помощи Реверс, группу скушал на ура, без расчленения.

[Andy83]

Да вроде раньше работала группа. Специально создал, чтобы выделять быстрее.
Спасибо, буду пробовать и то, и другое

[petro_f]

Можно и так, но это не рамки, а просто пипец )))
Меня даже пробрал "испанский стыд".

Ну или хотя бы рамки приведите в порядок. Малый левый боковой уже с 2013 года выглядит немного по другому )))
Сколько лет ещё должно пройти, что бы его во всех "рыбах" поправили?

[skkkk]

Сообщение от maratovich У вас полилинии собраны в Группу, поэтому и не обрабатывает. используйте _UNGROUP

Возможно, поможет изменение переменной PICKSTYLE.

[DMSskop]

Здравствуйте. А организовать появление листов не из модели, а из листа ( с кучей рамок в 1 листе ) возможно?

[baksconstructor]

Сообщение от DMSskop А организовать появление листов не из модели, а из листа ( с кучей рамок в 1 листе ) возможно?

Создать лист с видовым экраном на другой лист - невозможно.
Печатайте напрямую из вашего листа.

[petro_f]

Сообщение от DMSskop Здравствуйте. А организовать появление листов не из модели, а из листа ( с кучей рамок в 1 листе ) возможно?

Попробуйте новую версию плагина из поста #92.
Кнопка выделена.
Я правильно понимаю, что именно это имелось ввиду (рисунки 2 и 3)?

[doctorraz]

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

Работает, но..
если рамки касаются, то в новый лист тянет все смежные рамки((
конечно сделать зазор не проблема
ЗЫ похоже программе пофих с чем работать... растаскивает даже форматки СПДС CS

[petro_f]

Сообщение от doctorraz если рамки касаются, то в новый лист тянет все смежные рамки((

Конечно захватит, так как алгоритм работы прост - выделить ВСЁ что попало в границы рамки, а раз попали смежные границы, то и их захватит. Если сделать по другому, то может быть косяк с видовыми экранами, которые не полностью лежат в границах рамки.

Для себя попробуйте тогда в лиспе заменить 700 строку с "(setq SbugoPDSetOfPortableSheetElements (ssget "_C" Point2 Point1))" на "(setq SbugoPDSetOfPortableSheetElements (ssget "_W" Point2 Point1))". Будет чуть лучше, но помните о названном косяке.

[doctorraz]

Сообщение от petro_f Будет чуть лучше, но помните о названном косяке.

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

----- добавлено через ~6 мин. -----
Offtop: хм если сделать отступ от Bound Point2 Point1, лишнее не цепляет

[petro_f]

Сообщение от doctorraz да чуть лучше, в смысле некоторые захватывает , некоторые нет (( вернул как было, там зато стабильно, проще раздвинуть рамки на миллиметр и раскидывать листы по пересечениям, чем по окошку ----- добавлено через ~6 мин. ----- Offtop: хм если сделать отступ от Bound Point2 Point1, лишнее не цепляет

Лучше рамки в одном листе не создавать Не самый лучший метод ))) Да и остальные проектировщики потом ругаются

[DMSskop]

Различные генпланисты и кто на их планах работает, в листах создают кучу других листов. Обновлённый скрипт отлично работает.

[slmr]

Добрый день, подскажите. Есть у данного лиспа возможность, создания видового экрана, по контуру полилинии в простанстве модели? Если да, то как это сделать?

[petro_f]

Сообщение от slmr Добрый день, подскажите. Есть у данного лиспа возможность, создания видового экрана, по контуру полилинии в простанстве модели? Если да, то как это сделать?

Добрый вечер.
Вы по какому из плагинов спрашиваете? Если из поста #92, то данному плагину без разницы: рамка блоком, или прямоугольник из полилинии или иной объект. Он определяет координаты переданного объекта. Если его координаты попадают в координаты стандартных форматов (таблица 2 ГОСТ 2.301-68), то будет оформлен лист.

[wkp]

petro_f Добрый день использую вашу программу с 92 поста , хотел спросить можно выложить еще лисп программу которая собирает все видовые экраны сформированные вашей программой и вставляет в отдельный лист который потом будет настроен на печать на рулонный плоттер. Сформированные листы мы передаем в электронном PDF формате и распечатываем на бумаге Плоттер HP T520

[petro_f]

Сообщение от wkp petro_f Добрый день использую вашу программу с 92 поста , хотел спросить можно выложить еще лисп программу которая собирает все видовые экраны сформированные вашей программой и вставляет в отдельный лист который потом будет настроен на печать на рулонный плоттер. Сформированные листы мы передаем в электронном PDF формате и распечатываем на бумаге Плоттер HP T520

Доброе утро. Немного не понял идеи... А что Вам мешает использовать команду _PUBLISH для печати листов на плоттере или для создания многостраничного PDF файла?

[wkp]

Смысл такой я сформировал по вашей программе листы с видовыми экранами согласно штампу, получилось 15-25 листов различного формата,я печатаю их в формат ПДФ по листам. Затем я копирую ручками видовые экраны из этих листов в новый лист с названием на печать настроенный на Плоттер HP T520 Получается портянка длинной до 3м там все форматы согласно листам ну а потом девочки их просто нарезают

----- добавлено через ~4 мин. -----
Плоттер рулонный печатаем за раз 12 листов А3 или A4х3 сколько нужно разместив их на листе

[petro_f]

Сообщение от wkp Смысл такой я сформировал по вашей программе листы с видовыми экранами согласно штампу, получилось 15-25 листов различного формата,я печатаю их в формат ПДФ по листам. Затем я копирую ручками видовые экраны из этих листов в новый лист с названием на печать настроенный на Плоттер HP T520 Получается портянка длинной до 3м там все форматы согласно листам ну а потом девочки их просто нарезают ----- добавлено через ~4 мин. ----- Плоттер рулонный печатаем за раз 12 листов А3 или A4х3 сколько нужно разместив их на листе

Понимаю, но я так не делаю, так что такой лисп мне и не не был нужен.
Большие листы печатаю (если надо на рулоне) просто отключив разрезание листов у плоттера. А мелкие стараюсь либо на принтер (А3) либо располагать, что бы был минимальный расход бумаги.

Будет время, сделаю кнопку сбора в один лист )))

[wkp]

Типа вот Так

[wkp]

Вот еще

----- добавлено через ~26 мин. -----
Спасибо!

[petro_f]

Сообщение от wkp Смысл такой я сформировал по вашей программе листы с видовыми экранами согласно штампу, получилось 15-25 листов различного формата,я печатаю их в формат ПДФ по листам. Затем я копирую ручками видовые экраны из этих листов в новый лист с названием на печать настроенный на Плоттер HP T520 Получается портянка длинной до 3м там все форматы согласно листам ну а потом девочки их просто нарезают ----- добавлено через ~4 мин. ----- Плоттер рулонный печатаем за раз 12 листов А3 или A4х3 сколько нужно разместив их на листе

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

[wkp]

Добрый день! Пробую не выходит Нажимаю кнопку "Собрать лист из листов"-выбираю лист в который нужно собрать листы, помечаю листы которые нужно вставить ,затем меня перекидывает на лист куда я выбрал- указываю точку вставки , Вижу что копирует выбранные листы , НО не вставляет их!!

----- добавлено через ~9 мин. -----
В буфере обмена остается последний лист и вручную командой ctrl+v вставляется ну а предыдущие нет

[petro_f]

Странно, "образец в студию"
Иногда большие файлы тупит, но обрабатывает..

[wkp]

Может сделать так ,после выбора листа и листов прога копирует 1 лист, переходит на лист вставки я указываю точку вставки, затем копирует следующий лист ,опять переходит на лист вставки я опять указываю точку вставки так как форматы могут быть разные, ну и так далее до последнего выбранного листа.

[wkp]

Пример

[petro_f]

Сообщение от wkp Может сделать так ,после выбора листа и листов прога копирует 1 лист, переходит на лист вставки я указываю точку вставки, затем копирует следующий лист ,опять переходит на лист вставки я опять указываю точку вставки так как форматы могут быть разные, ну и так далее до последнего выбранного листа.

Смотрите версию 5.02.

[wkp]

Добрый день! Большое спасибо все работает! Только на моем компе. не работает так как стоит гаджет Clipboarder, это буфер обмена сохраняет в памяти до 20 скопированных файлов ,фрагментов текста, при его отключении все работает! Так что все работает! Еще раз спасибо!!!

[petro_f]

Сообщение от wkp Добрый день! Большое спасибо все работает! Только на моем компе. не работает так как стоит гаджет Clipboarder, это буфер обмена сохраняет в памяти до 20 скопированных файлов ,фрагментов текста, при его отключении все работает! Так что все работает! Еще раз спасибо!!!

Да мне тоже не очень понравился этот метод. Сделаю по серьёзному )) чуть позже выложу новую версию.

[petro_f]

Обновил плагин до версии 5.04. Попробуйте эту версию. Тут копирование элементов выполняется средствами AutoCAD, а не через буфер Windows.

[wkp]

Все отлично работает без отключения проги буфера обмена!!!

[petro_f]

Обновил плагин до версии 5.04.1 Объем исправлений в шапке плагина пост #92

[petro_f]

Обновил плагин до версии 5.05.0 Объем исправлений в шапке плагина пост #92

[d1890189]

Парни. Возник маленький конфуз на выходных. Воспользовавшись программой уважаемого автора petro_f, я был очень рад результату. Пришло время сшивать в пдф и тут у меня возникли проблемы. Программа Foxit Reader легко просматривала файлы, но мне надо было их собрать в единый. Я сперва попробовал Adobe Acrobat DC но она как оказывается не понимает шрифты в созданных файлах. "Думаю ну ды ладно! Справится PDF24". В режиме просмотра PDF24 так же справляется как и Foxit Reader. А вот когда заходим в решим объединения то уже заметно что программа меняет шрифт Times New Roman на другой похожий на Arial, после сохранения вместе нормального текста получаем "№?:%?78?%;!:24@&^* и т.д. Сперва думал что это из за винды, но попробовал одиночную печать и перевод в пдф при выборе DWG To PDF все программы со шрифтами работают нормально, а вот при выборе DWG To PDF_all_formats начинаются косяки которые обнаруживаются после при работе с пдф. Пробовал другие программки для просмотра пдф и сшивки работаю через одну в лучшем случае. Не кто не сталкивался с подобной проблемой?

[petro_f]

Сообщение от d1890189 Парни. Возник маленький конфуз на выходных. Воспользовавшись программой уважаемого автора petro_f, я был очень рад результату. Пришло время сшивать в пдф и тут у меня возникли проблемы. Программа Foxit Reader легко просматривала файлы, но мне надо было их собрать в единый. Я сперва попробовал Adobe Acrobat DC но она как оказывается не понимает шрифты в созданных файлах. "Думаю ну ды ладно! Справится PDF24". В режиме просмотра PDF24 так же справляется как и Foxit Reader. А вот когда заходим в решим объединения то уже заметно что программа меняет шрифт Times New Roman на другой похожий на Arial, после сохранения вместе нормального текста получаем "№?:%?78?%;!:24@&^* и т.д. Сперва думал что это из за винды, но попробовал одиночную печать и перевод в пдф при выборе DWG To PDF все программы со шрифтами работают нормально, а вот при выборе DWG To PDF_all_formats начинаются косяки которые обнаруживаются после при работе с пдф. Пробовал другие программки для просмотра пдф и сшивки работаю через одну в лучшем случае. Не кто не сталкивался с подобной проблемой?

Попробуйте настроить любой другой PDF принтер.

По настройке плагина.
Если файл плагина будет лежать в зарегистрированных путях автокада, то будет считан файл настройки лежащий возле плагина. Если файл настройки "Sbugo_addlay_insert.ini" не будет найден, то в темп директории (скорее всего по пути "C:\Users\ВАША_УЧЁТНАЯ_ЗАПИСЬ\AppData\Local\Temp") будет создан точно такой же файл с настройками.
В файле подробно расписано, что и куда записывать.

В комплекте даны файлы "DWG To PDF_all_formats.pc3" и "DWG To PDF_all_formats.pmp".
Файл "DWG To PDF_all_formats.pc3" кладётся обычно в путь "C:\Users\ВАША_УЧЁТНАЯ_ЗАПИСЬ\AppData\Roaming\AutodeskAutoCAD_НУЖНОЙ_ВЕРСИИ\RХХ.Х\rus\Plotters", а файл "DWG To PDF_all_formats.pmp" в "C:\Users\ВАША_УЧЁТНАЯ_ЗАПИСЬ\AppData\Roaming\Autodesk\AutoCAD_НУЖНОЙ_ВЕРСИИ\RХХ.Х\rus\Plotters\PMP Files". В данных файлах настроен стандартный плоттер "DWG To PDF", который идёт в комплекте с автокадом.

Сейчас по умолчанию PDF принтер настроен на все форматы по ГОСТ (плюс один не ГОСТ формат). Итого получается 27 настроек форматов. В настроечном файле с номера 01 по 27 идут настройки принтера PDF, а с номера 101 по 127 настройки физических плоттеров/принтеров.

Если кому надо добавить форматы, то в строке 240 (repeat (* 27 2) [для v4.1] надо исправить кол-во форматов, а в строках 86-192 (добавить строки, правда не обязательно) и в строках 558-611 [для v4.1] внести свои исправления.

Если же надо настроить физический плоттер, то в .ini файле в позициях с 101 по 127 внести свои данные.
Как "вытащить" имя формата листа, написано в файле .ini (в начале хелп) и дан лисп "Имя_и_формат_плоттера.lsp".

А так же в настройках пдф попробуйте принудительно заставить внедрять шрифт в файл.

P.S. А у Вас точно не вышло так, что сделан нестандартный шрифт и обозван стандартным именем? Обычно это как раз и является источником проблем..

[d1890189]

Сообщение от petro_f P.S. А у Вас точно не вышло так, что сделан нестандартный шрифт и обозван стандартным именем? Обычно это как раз и является источником проблем..

1)Пробовал на разны машинах.
2)Скачивал шрифты стандартные заменял всю папку виндовс с шрифтами.
По поводу создания надо пробовать.

[petro_f]

Сообщение от d1890189 2)Скачивал шрифты стандартные заменял всю папку виндовс с шрифтами.

Так не папку винды надо обновлять, а папку автокада (вернее профиля) или смотреть файл.
Если это на всех файлах и вы работаете в конторе, где используют свои настроечные файлы, то в ту сторону копайте...

[bm13]

Сообщение от petro_f Так не папку винды надо обновлять, а папку автокада (вернее профиля) или смотреть файл. Если это на всех файлах и вы работаете в конторе, где используют свои настроечные файлы, то в ту сторону копайте...

Добрый день у меня в вашей версии программаы после всех манипуляций вылетает ошибка.
Программа допустила ошибку в функции "SBugo-AddLay". Ошибка Automation. Отсутствует описание.
В чем может быть причина?

[petro_f]

Сообщение от bm13 Добрый день у меня в вашей версии программаы после всех манипуляций вылетает ошибка. Программа допустила ошибку в функции "SBugo-AddLay". Ошибка Automation. Отсутствует описание. В чем может быть причина?

Либо файл (можно и вличку), либо более полное описание проблемы. Скорее всего размеры рамок (масштаб) не совпали.

P.S. Какая версия программы?

[petro_f]

Сообщение от bm13 Добрый день у меня в вашей версии программаы после всех манипуляций вылетает ошибка. Программа допустила ошибку в функции "SBugo-AddLay". Ошибка Automation. Отсутствует описание. В чем может быть причина?

Проблема как всегда в галочке "автоматически" в параметре "Масштаб модели". Ещё раз напоминаю, что если Вы сделали блок в масштабе 1:1, а потом его увеличили, то эта галочка сработает как надо. Если же Вы сделали блок сразу в масштабе, например 1:100 или это вообще не блок, то снимайте эту галочку и ставьте масштаб ручками. Если сомневаетесь в блоке, то совет тот же, ручками задавайте масштаб.

[petro_f]

Обновил плагин до версии 5.06.0 Объем исправлений в шапке плагина пост #92

[Zalman]

Уважаемый petro_f, пользуюсь вашей программой "AddLay". Очень полезная вещь. Респект. Хочу спросить, а можно ли в код программы добавить нестандартные листы - например А4х3, А4х4 и т.д.?

[petro_f]

Сообщение от Zalman Хочу спросить, а можно ли в код программы добавить нестандартные листы - например А4х3, А4х4 и т.д.?

Zalman, здравствуйте.
Вы не внимательно смотрели файл настройки (и не читали преамбулу к программе)
По умолчанию программа понимает

A4
A3
A2
A1
A0
A4x3
A4x4
A4x5
A4x6
A4x7
A4x8
A4x9
A3x3
A3x4
A3x5
A3x6
A3x7
A2x3
A2x4
A2x5
A1x3
A1x4
A0x2
A0x3
2A4x5
A1x5
A1x6

В описании программы, пост #92

Если кому надо добавить форматы, то в строке 243 (repeat (* 27 2) [для v5.06.0] надо исправить кол-во форматов, а в строках 87-195 (добавить строки, правда не обязательно) и в строках 1088-1141 [для v5.06.0] внести свои исправления.

Если же надо настроить физический плоттер, то в .ini файле в позициях с 101 по 127 внести свои данные.
Как "вытащить" имя формата листа, написано в файле .ini (в начале хелп) и дан лисп "Имя_и_формат_плоттера.lsp".

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

[Zalman]

Большое спасибо! Разобрался, всё четко работает. Как всегда торопился и заменил не ту папку Plotters. Поспешишь, людей ...
Вам, petro_f желаю успехов в программировании и проектировании!

[urius100]

Ребят, кто-нибудь знает по след проблемке? При создании листов из модели, а затем ПДФки посредством лиспа Sbugo addlay, ПДФка получается в нередактируемом формате Т.е. в Акробате ПРО жмешь на Редактировать пдф и выскакивает ошибка, что возникла неизвестная ошибка.

[Zalman]

urius100, попробуйте ABBYY PDF Transformer+. Есть версия Portable. Через неё редактирую

[petro_f]

Сообщение от urius100 Ребят, кто-нибудь знает по след проблемке? При создании листов из модели, а затем ПДФки посредством лиспа Sbugo addlay, ПДФка получается в нередактируемом формате Т.е. в Акробате ПРО жмешь на Редактировать пдф и выскакивает ошибка, что возникла неизвестная ошибка.

Какой PDF принтер используете? Тот, что идёт с программой или свой?

[urius100]

Сообщение от petro_f Какой PDF принтер используете? Тот, что идёт с программой или свой?

На самом деле решил проблему. Нужно полученный файл pdf после пакетной печати в Автокаде еще раз переслать на виртуальный принтер в самой программе Акробат, на Acrobat PDF, так сказать передистиллировать, и после этого он станет доступным для редактирования

[petro_f]

Сообщение от urius100 На самом деле решил проблему. Нужно полученный файл pdf после пакетной печати в Автокаде еще раз переслать на виртуальный принтер в самой программе Акробат, на Acrobat PDF, так сказать передистиллировать, и после этого он станет доступным для редактирования

Странно, у остальных такой проблемы не наблюдается. Видимо стечение звёзд и ПО ))

[urius100]

Честно говоря я не уверен, что Лисп скачан именно данной модификации, потому что я его получил от товарища. Но вот попробуйте пдф редактануть после применения лиспа. ПО дома винда7, на работе винда 10- Результат один и тот же при применении лиспа sbugo addlay

[DMSskop]

"Отключить слои для ускорения работы" присутствует настройка. Есть еще варианты или настройки автокада что бы быстрее процесс происходил?
Команды, мало помогли:
REGENMODE
FIELDEVAL
LAYOUTREGENCTL
Листы используются только для быстрого пэдээфинья.

[petro_f]

Сообщение от DMSskop "Отключить слои для ускорения работы" присутствует настройка. Есть еще варианты или настройки автокада что бы быстрее процесс происходил?

Так для ускорения по данной команде рамки со штампами должны быть в отдельном слое. Тогда эта функция работает как надо. Если же весь винегрет в одном слое, то от этой настройки нет смысла.
P.S. Так же эта настройка используется только при создании листов. При печати она не работает.

[DMSskop]

Она должна скрывать рамки или все кроме них? У меня скрывает почему то рамки и как их потом выделять листы?

[petro_f]

Сообщение от urius100 Честно говоря я не уверен, что Лисп скачан именно данной модификации, потому что я его получил от товарища. Но вот попробуйте пдф редактануть после применения лиспа. ПО дома винда7, на работе винда 10- Результат один и тот же при применении лиспа sbugo addlay

Ну у меня редактируется.

P.S. Лисп из поста #92 надо ставить комплектно с принтером. Если Вы не ставили, то это скорее либо модернизация, либо просто кусок вырванный из контекста.





----- добавлено через ~3 мин. -----

Сообщение от DMSskop Она должна скрывать рамки или все кроме них? У меня скрывает почему то рамки и как их потом выделять листы?

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

[Битник]

Подскажите, пожалуйста, как добавить в этот ЛИСП дополнительные настройки к создаваемому листу, а именно - Масштаб печати = вписать, Прозрачность при печати, Масштабировать веса линий

[petro_f]

Сообщение от Битник Подскажите, пожалуйста, как добавить в этот ЛИСП дополнительные настройки к создаваемому листу, а именно - Масштаб печати = вписать, Прозрачность при печати, Масштабировать веса линий

Немного не понял вопроса.
Если у Вас стоит эта версия плагина из поста #92 - то там эти настройки есть.

[Битник]

Сообщение от petro_f Немного не понял вопроса. Если у Вас стоит эта версия плагина из поста #92 - то там эти настройки есть.

Пользовался первой версией. Судя по картинке, в новой версии почти то что надо, не хватает "Прозрачность при печати". (пока ещё не устанавливал, может и есть прозрачность)
Как вариант буду пользоваться системной переменной PLOTTRANSPARENCYOVERRIDE чтоб печатать с прозрачностью.

[petro_f]

Сообщение от Битник Как вариант буду пользоваться системной переменной PLOTTRANSPARENCYOVERRIDE чтоб печатать с прозрачностью.

Кто то пользуется этим?

[Битник]

Сообщение от petro_f Кто то пользуется этим?

Геодезисты много схем в одном файле в модели скидывают, я пользовался лиспом из шапки темы для создания листов, а потом уже пакетной печатью в pdf сохранял. А в схемах полупрозрачные заливки. Поэтому пользовался этой переменной, игнорируя настройки прозрачности в свойствах печати листа, печатал всё с учетом прозрачности

[Serghei]

Всегда пользовался этим замечательным лиспом.
Работаю в автокад 2018, вчера установил автокад Plant 3D, но потом пришлось удалить. Может из-за этого я что-то удалил не то, что лисп отказывается работать?
Ошибка
Программа допустила ошибку в функции "SBugo-AddLay". no function definition: vlax-ename->vla-object

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

[petro_f]

Сообщение от Serghei Программа допустила ошибку в функции "SBugo-AddLay". no function definition: vlax-ename->vla-object

А другие лиспы работают? Тут походу базовые навыки лиспа автокад потерял

[Serghei]

Точно, попробовал StripMTEXT не работает.
По идее что-то добавилось или наоборот удалилось.
Наверное придется восстанавливать автокад

[petro_f]

Сообщение от Serghei Точно, попробовал StripMTEXT не работает. По идее что-то добавилось или наоборот удалилось. Наверное придется восстанавливать автокад

У Вас LISP (язык программирования AutoCAD) походу выбило.

[Serghei]

Сообщение от petro_f А другие лиспы работают? Тут походу базовые навыки лиспа автокад потерял

Да, так и есть.
Спасибо за наводку.
Откатил систему до установки Autocad Plant 3D
Проблема решилась.
https://knowledge.autodesk.com/ru/su...n-AutoCAD.html

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

1. (vl-load-com)
2. https://knowledge.autodesk.com/ru/su...n-AutoCAD.html

----- добавлено через 44 сек. -----
Блин, не увидел второй страницы обсуждения

[petro_f]

Сообщение от Кулик Алексей aka kpblc 1. (vl-load-com) 2. https://knowledge.autodesk.com/ru/su...n-AutoCAD.html ----- добавлено через 44 сек. ----- Блин, не увидел второй страницы обсуждения

Как всегда ...

[H0B]

Доброго времени суток уважаемые. Подскажите пожалуйста по Лисп-у от petro-f.
1. Заменил плоттер по умолчанию на свой (имя pc3, имя формата и т.д.).
2. Стандартные форматы обрабатывает отлично.
3. Пытаюсь настроить нестандартный формат - укороченный А4х3 (297х620) путём корректировки стандартного А4х3 в ini файле - не обрабатывает, пишет про ошибку. Как можно поправить?

[petro_f]

Сообщение от H0B Доброго времени суток уважаемые. Подскажите пожалуйста по Лисп-у от petro-f. 1. Заменил плоттер по умолчанию на свой (имя pc3, имя формата и т.д.). 2. Стандартные форматы обрабатывает отлично. 3. Пытаюсь настроить нестандартный формат - укороченный А4х3 (297х620) путём корректировки стандартного А4х3 в ini файле - не обрабатывает, пишет про ошибку. Как можно поправить?

Добрый день.
Во первых вопрос что за ошибку пишет (с ясновидцами здесь напряг).
Во вторых подробно читали инструкции поста #92 и поста #94. Там всё вроде ясно и понятно описано.

[H0B]

Сообщение от petro_f Во первых вопрос что за ошибку пишет (с ясновидцами здесь напряг).

Текст ошибки: При создании листа или листов произошла ошибка! Проверьте созданные листы!
Создаёт лист А4 с другим плоттером.
Пример моих изменённых участков в ini:
06
PDF
A4x3m
297
620
PDFCreator_0.pc3
User180
ac90degrees
*****************************************************************************************
07
PDF
A4x4
297
841
PDFCreator_0.pc3
User205
ac90degrees
*****************************************************************************************
А4х4 обрабатывает нормально, А4х3m - выдаёт ошибку.

[jaaaaaaan]

Прошу помощи у знатоков! В модели стойки расставлены с шагом 1000 мм. в листе каждая стойка в отдельном видовом экране. Ставлю размер в листе, шаг стоек показывает фактический на листе.... Как сделать что-бы размеры высчитывались из модели?

[petro_f]

Сообщение от H0B Текст ошибки: При создании листа или листов произошла ошибка! Проверьте созданные листы! Создаёт лист А4 с другим плоттером. Пример моих изменённых участков в ini: 06 PDF A4x3m 297 620 PDFCreator_0.pc3 User180 ac90degrees ***************************************************************************************** 07 PDF A4x4 297 841 PDFCreator_0.pc3 User205 ac90degrees ***************************************************************************************** А4х4 обрабатывает нормально, А4х3m - выдаёт ошибку.

Так как у Вас не стандартный (не ГОСТ) размер, то Вам надо либо править текст лиспа "Sbugo_addlay_insert.lsp" строки 1098 и 1099 (Версия плагина 5.06.0), либо создавать (добавлять) свой размер как это описано в шапке к лиспу. Что править там и так ясно

[ElectricSib]

У меня есть файл, в котором имеется только один существующий лист помимо пространства модели. Если я пытаюсь создать листы с помощью скриптов AL или SBADDLAY, выбрав опцию "Удалить существующие листы" - тут же вылетает ошибка:

Программа допустила ошибку в функции "SBugo-AddLay". Ошибка Automation. Попытка удалить пространство модели

и скрипт завершает работу, так ничего и не удалив и не создав. Проверял в разных версиях AutoCAD, с разным содержимом файла. Единственное рабочее решение - создать скриптом новые листы, а потом вручную удалить существующий. Что является причиной для этой ошибки? И можно подправить скрипт, чтобы он работал в подобных файлах?

[petro_f]

Сообщение от ElectricSib У меня есть файл, в котором имеется только один существующий лист помимо пространства модели. Если я пытаюсь создать листы с помощью скриптов AL или SBADDLAY, выбрав опцию "Удалить существующие листы" - тут же вылетает ошибка: и скрипт завершает работу, так ничего и не удалив и не создав. Проверял в разных версиях AutoCAD, с разным содержимом файла. Единственное рабочее решение - создать скриптом новые листы, а потом вручную удалить существующий. Что является причиной для этой ошибки? И можно подправить скрипт, чтобы он работал в подобных файлах?

Формат файла отличается от формата Autodesk DWG. Корпорация Autodesk не принимала участия в разработке и лицензировании прикладной программы, в которой сохранен этот файл DWG. Корпорация Autodesk не может гарантировать совместимости с этой прикладной программой и целостности файла.

Поправил. Качайте версию 5.07.1 в шапке.

[ElectricSib]

Сообщение от petro_f Поправил. Качайте версию 5.07.1 в шапке.

Спасибо помогло.

Только сейчас обратил внимание, не знаю, наблюдалось ли такое раньше. При переводе в PDF печатаются границы видового экрана. Обычно они на незначительное расстояние (доли миллиметра) у меня отличаются от границ рамки. Когда в модели установлен нечерный цвет, при создании листов и их печати в ПДФ это очень заметно. Я заметил, что если в листе видовой экран перевести на непечатываемый слой Defpoints, проблема исчезает. Возможно ли как-то исправить это в настройках? или подскажите строку lisp кода для добавления видового экрана на этот слой внутри цикла создания экранов.

[petro_f]

Сообщение от ElectricSib Только сейчас обратил внимание, не знаю, наблюдалось ли такое раньше. При переводе в PDF печатаются границы видового экрана. Обычно они на незначительное расстояние (доли миллиметра) у меня отличаются от границ рамки. Когда в модели установлен нечерный цвет, при создании листов и их печати в ПДФ это очень заметно. Я заметил, что если в листе видовой экран перевести на непечатываемый слой Defpoints, проблема исчезает. Возможно ли как-то исправить это в настройках? или подскажите строку lisp кода для добавления видового экрана на этот слой внутри цикла создания экранов.

Добавил функционал. Качайте версию 5.08.0 в шапке.

[ElectricSib]

Допустим, есть файл в котором очень много листов формата А4х4...А4х7 расположены вертикально (т.е. вертикально длинной стороной, как если поворот на 90 град. обычного кратного формата) в пространстве модели. В файл DWG To PDF_all_formats.pc3 добавлены только кратные форматы, повернутые горизонтально. Возможно ли с помощью скрипта сделать листы из такого файла? Или только если вручную поворачивать их к стандартному углу поворота или вбивать их в настройки PDF_all_formats.

[petro_f]

Сообщение от ElectricSib Допустим, есть файл в котором очень много листов формата А4х4...А4х7 расположены вертикально (т.е. вертикально длинной стороной, как если поворот на 90 град. обычного кратного формата) в пространстве модели. В файл DWG To PDF_all_formats.pc3 добавлены только кратные форматы, повернутые горизонтально. Возможно ли с помощью скрипта сделать листы из такого файла? Или только если вручную поворачивать их к стандартному углу поворота или вбивать их в настройки PDF_all_formats.

Ну задача то не для всех, так что правьте лисп под себя. Надо править функцию создания ВЭ на листе.

[ElectricSib]

Да я и не прошу править за меня
Просто интересно наиболее правильное направление действий.
Т.е. Вы предлагаете дополнить логику разворота видового экрана по соотношению длины/ширины блока?

[petro_f]

Сообщение от ElectricSib Да я и не прошу править за меня Просто интересно наиболее правильное направление действий. Т.е. Вы предлагаете дополнить логику разворота видового экрана по соотношению длины/ширины блока?

Да, так как сейчас, в плагине, видовой экран автоматически ставится горизонтально, даже если рамка будет вертикально ))

[ElectricSib]

Добрался наконец до кода этого монстра и что-то передумал. По трудоемкости проще поворачивать чертежи от субподрядчиков средствами автокада Главное, что работает.

[Plumps]

День добрый. Пользуюсь Sbugo_addlay_insert от Петра с 2017 года. Сейчас версия 4.6. Время не стоит на месте, решил перейти к аннотативным объектам.
Рамка- динамический блок всегда отлично в автоматическом режиме определялась в Sbugo_addlay_insert при любой кратности увеличения. Если в рамку-блок добавляю аннотативность, то Sbugo перестает работать, в любом режиме. Ну да Бог с ней, с рамкой. Линии не являются аннотативными элементами, но при этом подстраиваются под масштаб аннотации. Так задумано Автодеском, что в линиях не нужно играть постоянно масштабом типа линии, они они всегда отображаются по масштабу модели или видового экрана. Почему в видовом экране, созданным Sbugo_addlay_insert это не работает?

PS С линиями разобрался, нашел инструкцию от Петра

[petro_f]

Сообщение от Plumps День добрый. Пользуюсь Sbugo_addlay_insert от Петра с 2017 года. Сейчас версия 4.6. Время не стоит на месте, решил перейти к аннотативным объектам. Рамка- динамический блок всегда отлично в автоматическом режиме определялась в Sbugo_addlay_insert при любой кратности увеличения. Если в рамку-блок добавляю аннотативность, то Sbugo перестает работать, в любом режиме. Ну да Бог с ней, с рамкой. Линии не являются аннотативными элементами, но при этом подстраиваются под масштаб аннотации. Так задумано Автодеском, что в линиях не нужно играть постоянно масштабом типа линии, они они всегда отображаются по масштабу модели или видового экрана. Почему в видовом экране, созданным Sbugo_addlay_insert это не работает? PS С линиями разобрался, нашел инструкцию от Петра

Здравствуйте, по поводу рамки. Пробовали последнюю версию плагина? Там вроде с аннотативными элементами норм отрабатывает. Если нат, то файл пример дайте, посмотрю что и как.

[upyachka]

Можно как-то изменить путь/порядок, по которому идёт создание листов? Сейчас начинает с первой строки первого столбца, потом на вторую строку, и тд, после этого переходит ко второму столбцу. Но так неудобно в некоторых проектах, зачастую все чертежи одного раздела расположены в строку, а на другое строке следующий раздел. И получается при создании всё вперемешку - один лист электрики, второй лист автоматики.
Альтернативный вариант плагина из поста №92 выдает ошибку и у меня не работает.

[petro_f]

Сообщение от upyachka Альтернативный вариант плагина из поста №92 выдает ошибку и у меня не работает.

Ради интереса пришлите файл который не работает. Что же там за рамки такие волшебные, что не работают )))

P.S. 90%, что скорее всего надо просто ручками указать масштаб или не подгрузили файлы пдф плагина.

[yuriii]

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

[yuriii]

Сообщение от maratovich Попробуйте это - АвтоВьюпорт

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

[petro_f]

Сообщение от yuriii Выложенная здесь программа по сути выполняет все тоже самое, только нужно ее научить вставлять видовые экраны в уже готовые с гостовскими рамками листы, а не на новые пустые

Ну тогда за доп. функционал (не нужный большинству) так же надо заплатить.
По сути это надо плагину нарезать видовые экраны в размер рамок и потом создать листы под них.

[Сергей812]

Offtop:

Сообщение от petro_f Ну тогда надо за доп. функционал (не нужный большинству) так же надо заплатить.

может человек хочет сам доработать, прокачав дополнительный скилл по малой автоматизации - это можно только приветствовать)

[petro_f]

Сообщение от Сергей812 Offtop: может человек хочет сам доработать, прокачав дополнительный скилл по малой автоматизации - это можно только приветствовать)

Ну логику работы я уже дал в предыдущем посте.
Но так для справки такую фигню с таблицей спецификации делают сразу в экселе макросами. По сети гуляет несколько таких макросов. Забиваешь туда спеку подряд. а далии макрос (на VBA) сам нарезает листы и ставит штампы. Для автокада роднее будет всё же таблица автокада, которую можно легко разбивать на нужные размеры (у меня так сделано в кабельном плагине при выдаче таблицы соединений, проще говоря КЖ).

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

[yuriii]

Сообщение от petro_f Ну логику работы я уже дал в предыдущем посте. Но так для справки такую фигню с таблицей спецификации делают сразу в экселе макросами. По сети гуляет несколько таких макросов. Забиваешь туда спеку подряд. а далии макрос (на VBA) сам нарезает листы и ставит штампы. Для автокада роднее будет всё же таблица автокада, которую можно легко разбивать на нужные размеры (у меня так сделано в кабельном плагине при выдаче таблицы соединений, проще говоря КЖ). Можно сделать и такое же со внешними таблицами, но тут есть не большой косяк при работе с OLE объектами. Вроде каждое отображение таблицы эксель в каде это полность загруженная копия файлв а акадовский файл. И получается, что правка одного листа не приводит к изменению основного файла.

У меня тоже таблица КЖ сделанная из dataextraxtion и полилиний переведенная в эксель, этот самый эксель пихаю в автокад через связь с данными, получается готовая таблица в автокаде, остается только эту таблицу засунуть в рамки и распечатать, здесь я увидел решение только рамки Госта в листы вставлять вручную, и автонумерацию листов еще не пробовал, с ней тоже нужно будет разобраться.
Вообще странно что такая функция автоматической вставки в рамки ГОСТа не популярна, ведь на такое оформление тратится время, а так бы это делалось автоматически и еще бы само нумеровалось, это же можно не тольк спецификации и кж вставлять в рамки а и все чертежи

[Сергей812]

Сообщение от yuriii Вообще странно что такая функция автоматической вставки в рамки ГОСТа не популярна, ведь на такое оформление тратится время, а так бы это делалось автоматически и еще бы само нумеровалось, это же можно не тольк спецификации и кж вставлять в рамки а и все чертежи

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

[yuriii]

Сообщение от Сергей812 может потому что достаточно много людей делают это в текстовом процессоре ака ворд - где и нумерация, и разбивка по страницам в шаблоне с рамкой реализуется штатным функционалом?)

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

[Сергей812]

Сообщение от yuriii в текстовом редакторе же только пояснительная записка, общие данные, ведомость ссылочных документов, титул, обложка, все что графическое уже в автокаде, а это большинство листов (трассы прокладки кабелей, структурные, распределительные схемы, фасады телекоммуникационных шкафов, узлы креплений, и т.д., которые нужно потом печатать с рамкой

и где то в нормах есть прямой запрет делать КЖ в текстовом редакторе?) А запихивать нехилые таблицы в акад только ради печати с рамками...

[Shure]

Есть проблемка с lisp'ом. Как понимаю, все форматы бумаги за исключением А0 - в книжном формате, А0 - в альбомном. Поэтому А0 всегда доворачивает до неверного положения. Пока знаний не хватает - как исправить?

Код:

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

 "ISO_full_bleed_A4_(297.00_x_210.00_MM)"))
      ((and (> Square 118503) (< Square 130977)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A3_(420.00_x_297.00_MM)"))
      ((and (> Square 237006) (< Square 261954)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A2_(594.00_x_420.00_MM)"))
      ((and (> Square 474012) (< Square 523908)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A1_(841.00_x_594.00_MM)"))
      ((and (> Square 948024) (< Square 1047816)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A0_(841.00_x_1189.00_MM)"))

[petro_f]

Сообщение от Shure Пока знаний не хватает - как исправить?

Добрый день. Исправить очень легко, если читать как настраивать плагин.

Сообщение от petro_f Если же надо настроить физический плоттер, то в .ini файле в позициях с 101 по 127 внести свои данные. Как "вытащить" имя формата листа, написано в файле .ini (в начале хелп) и дан лисп "Имя_и_формат_плоттера.lsp"

Откройте файл INI там надо править содержание восьмой строки нужного формата. Текст там может быть либо ac0degrees либо ac90degrees


P.S.

Сообщение от Shure Поэтому А0 всегда доворачивает до неверного положения

что же за такой плотер, что А0 там идёт горизонтально?

[upyachka]

Пришлось по нужде перейти на автокад для Mac OS. Lisp вроде загружается, команда AL набирается, но дальше ничего не происходит - будто команда сбрасывается. Подгружаю и просто перетаскиванием, и загрузкой и автозагрузкой - не помогает. В версии для винды работает, а тут нет. Как быть?

[petro_f]

Сообщение от upyachka Пришлось по нужде перейти на автокад для Mac OS. Lisp вроде загружается, команда AL набирается, но дальше ничего не происходит - будто команда сбрасывается. Подгружаю и просто перетаскиванием, и загрузкой и автозагрузкой - не помогает. В версии для винды работает, а тут нет. Как быть?

Только страдать

[Barmaley Bubusikin]

Возможно ли настроить нестандартный формат типа 407х297? В файлах pmp и pc3 все есть, но прога их не хочет кушать. Видовой экран создается по размеру, а формат не находит
Описание читал, несколько раз

[petro_f]

Сообщение от Barmaley Bubusikin но прога их не хочет кушать

а сам плагин правили? Вот этот текст смотрели "Если кому надо добавить форматы, то в строке 243 (repeat (* 27 2) [для v5.08.0] надо исправить кол-во форматов, а в строках 87-195 (добавить строки, правда не обязательно) и в строках 1102-1155 [для v5.08.0] внести свои исправления." и так же внесли настройки в ini файл согласно текста "Если же надо настроить физический плоттер, то в .ini файле в позициях с 101 по 127 внести свои данные.
Как "вытащить" имя формата листа, написано в файле .ini (в начале хелп) и дан лисп "Имя_и_формат_плоттера.lsp"."

[Barmaley Bubusikin]

Сообщение от petro_f Вот этот текст смотрели "Если кому надо добавить форматы, то в строке 243 (repeat (* 27 2) [для v5.08.0] надо исправить кол-во форматов, а в строках 87-195 (добавить строки, правда не обязательно) и в строках 1102-1155 [для v5.08.0] внести свои исправления

В посте #92 вообще-то было указано для версии 5.06 и я затупил. За правку строк с 1100 вообще забыл Спасибо за подсказку, все работает. Влияет ли порядок размеров ширина х высота в описании форматов в ini? В хелпе в ini вроде как путаница: какой первый, какой второй. Ну, работает и ОК.

[inane]

petro_f, большое спасибо за lisp. Отлично работает.
Единственное, может кто подскажет, не пойму, как программа расставляет листы? В смысле очередности. Вручную тыкать на каждый следующий в файлах с сотней листов то еще удовольствие. Я всегда располагал листы также, как буквы на бумаге - строчками слева направо, потом ниже след строка и т.д. А прога собирает файл в авторежиме как-то сильно наугад: то столбики снизу вверх группирует, потом справа налево

[petro_f]

Сообщение от inane Единственное, может кто подскажет, не пойму, как программа расставляет листы? В смысле очередности. Вручную тыкать на каждый следующий в файлах с сотней листов то еще удовольствие. Я всегда располагал листы также, как буквы на бумаге - строчками слева направо, потом ниже след строка и т.д. А прога собирает файл в авторежиме как-то сильно наугад: то столбики снизу вверх группирует, потом справа налево

А автоматическая расстановка листов это наследие исходного кода программы, я честно его не трогал ))) Так что можно вопрос этот автору задать.
P.S. Я всегда только протыкиваю, что бы быть на 146% уверенным, что будет именно так как нужно мне, а не гнусному автокаду

[baksconstructor]

Сообщение от inane Вручную тыкать на каждый следующий в файлах с сотней листов то еще удовольствие.

Ну так есть же другие варианты (лиспы, проги) не проще попробовать все и выбрать то что надо ?

[inane]

petro_f ясно, спасибо. Протыкивание руками лично в моем случае примерно равно скорости ручного загона в ПДФ через виртуальный принтер: вместо одного щелчка по рамке и потом (в конце) ожидания пока на листы встанет, пока пройдет публикация, через тот же pdffactory pro достаточно схемы "пробел (ну для первого раза не пробел, а ctrl+P)-кнопка "рамка"-2 щелчка по рамке (диагональные края)"-кнопка ок-опять пробел--опять кнопка рамка-опять 2 щелчка (уже на след листе) и т.д; пдфы вылетают практически моментально, складываются в 1 файл и листы идут по порядку (по которому выделял рамки).

Сообщение от baksconstructor Ну так есть же другие варианты (лиспы, проги) не проще попробовать все и выбрать то что надо ?

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

[baksconstructor]

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

Автоматическое создание листов и видовых экранов - АвтоВьюпорт, всё автоматом, в любом направлении, хоть по криволинейной траектории.

Автоматическая пакетная печать множества рамок (форматов) из пространства модели и листов - Реверс , это вообще универсальное, там и печать и создание листов и разделение по листам и другое.

[petro_f]

Сообщение от inane petro_f ясно, спасибо. Протыкивание руками лично в моем случае примерно равно скорости ручного загона в ПДФ через виртуальный принтер: вместо одного щелчка по рамке и потом (в конце) ожидания пока на листы встанет, пока пройдет публикация, через тот же pdffactory pro достаточно схемы "пробел (ну для первого раза не пробел, а ctrl+P)-кнопка "рамка"-2 щелчка по рамке (диагональные края)"-кнопка ок-опять пробел--опять кнопка рамка-опять 2 щелчка (уже на след листе) и т.д; пдфы вылетают практически моментально, складываются в 1 файл и листы идут по порядку (по которому выделял рамки).

Ну так то да. Только это при применении на один раз. При следующей печати всё придётся повторить сначала.
А у меня настроено так, что я хоть в пдф, хоть на физ плоттер/принтер одним щелчком выгоняю столько раз, сколько мне понадобиться. Прога умеет заменять назначенные принтеры а уже готовых листах.

P.S. У каждого свой подход к работе.

[inane]

baksconstructor, спасибо! Как-то выделю время и обязательно опробую эти проги.

Сообщение от petro_f Ну так то да. Только это при применении на один раз. При следующей печати всё придётся повторить сначала.

согласен. На перспективу поставленное на листы через видовые экраны лучше, если ожидается внесение изменений в проект с последующими переПДФливаниями и перепечатками. Просто в целом у нас в конторе для подобных задач есть специальные люди, а до меня задачи с выдачей ПДФ докатываются, если по всем фронтам и у всех завал, а "сегодня нужно кровь из носу 1000 томов до конца дня...", и там речи о перспективах не идёт, в конкретном моменте быстрее "отстреляться" и ладно.

[Monkey]

petro_f, Доброго времени суток) Я пишу вам и всем остальным с довольно смешным вопросом, который меня ввёл в какой-то ступор. Через какую программу вы писали свой плагин?? Я просто думаю начать хоть как-то понимать что находится внутри (сама начинка). Мне нужно для написания курсовой поэтому буду рад любой помощи, так как в вузе её нет смысла искать на данный момент(

[petro_f]

Сообщение от Monkey petro_f, Доброго времени суток) Я пишу вам и всем остальным с довольно смешным вопросом, который меня ввёл в какой-то ступор. Через какую программу вы писали свой плагин?? Я просто думаю начать хоть как-то понимать что находится внутри (сама начинка). Мне нужно для написания курсовой поэтому буду рад любой помощи, так как в вузе её нет смысла искать на данный момент(

Здравствуйте.
Пишу плагины в PSPAD но он больше для синтаксиса.
Прогон плагина либо на живую, пошагово, в автокад, либо во встроенном редакторе vlide в автокаде же.

[skkkk]

petro_f, а можете, пожалуйста, подробнее рассказать: как он с лиспом, какие плюшки? Автозавершение, закрытие и проверка скобок, запуск фрагмента кода в КАД прям из редактора, возможность уникальной подсветки своих команд, снипеты, сравнение документов - это всё, чем я пользуюсь в Notepad++ для лиспа. Чаще отладку всё же делаю во Vlide, но писать код удобнее в NPP. Может, в PSPAD поинтереснее? Удивительно, что я не слышал о таком. В свое время выбирал между NPP и Sublime.

[petro_f]

Сообщение от skkkk petro_f, а можете, пожалуйста, подробнее рассказать: как он с лиспом, какие плюшки? Автозавершение, закрытие и проверка скобок, запуск фрагмента кода в КАД прям из редактора, возможность уникальной подсветки своих команд, снипеты, сравнение документов - это всё, чем я пользуюсь в Notepad++ для лиспа. Чаще отладку всё же делаю во Vlide, но писать код удобнее в NPP. Может, в PSPAD поинтереснее? Удивительно, что я не слышал о таком. В свое время выбирал между NPP и Sublime.

Нет, многого из перечисленного там нет. Просто так исторически сложилось, что я этот редактор узнал раньше нотепада и привык им пользоваться. А с нотепадом у меня не сложилось... слишком он о себе много думает
Так в пспаде есть:
Автозавершение - вроде есть, но я не пользуюсь;
Закрытие скобок - есть. Отключаю, так как не люблю когда машина о себе много думает
Проверка скобок - есть и это удобно.
Запуск фрагмента кода в КАД прям из редактора - ХЗ. Я руками обычно копирую нужный кусок для проверки.
Возможность уникальной подсветки своих команд - ХЗ зачем это нужно.
Снипеты - ХЗ что это в Вашем контексте.
Сравнение документов - есть и пользуюсь.
Навигация по функциям - очень удобно.
Проверка синтаксиса и выделение команд лиспа - есть и это тоже удобно.

Проверку я обычно делаю в командной строке автокада. VLIDE использую в основном только для проверка диалоговых окон и иногда для поиска ошибки в лиспе.

[skkkk]

Offtop:

Сообщение от petro_f Запуск фрагмента кода в КАД прям из редактора - ХЗ. Я руками обычно копирую нужный кусок для проверки.

В редакторе я форматирую код "лесенкой". А таким образом закрывающая скобка сложной функции никак не будет на той же строке (а без "лесенки" строка просто не влезет в экран). В итоге скопировать в командную строку и запустить такой фрагмент - не выйдет. А в NPP я выбираю фрамгент (причём просто кликая с зажатым Ctrl на открывающей скобке), и выделяется всё до её закрытия, затем F6 - и этот фрагмент кода исполняется прямо в КАДе. Создается временный файл с расширением lsp, содержащий этот фрагмент и запускается в КАД.


----- добавлено через ~11 мин. -----
Offtop: petro_f, наш форумчанин mmax в своё время написал плагин для Notepad++, который позволяет такое исполнять, за что я ему безмерно благодарен.
Вот эта тема: Notepad++ как альтернатива VLIDE (NPPVLIDE)
Пойду скажу ему спасибо)
.

[petro_f]

Сообщение от skkkk А таким образом закрывающая скобка сложной функции никак не будет на той же строке

А зачем это? Копируете сколь угодно длинную функцию, главное начальную и закрывающую скобку не забыть. И просто вставляете в консоль када. Если функций больше одной, то progn в помощь )))

Код:

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

 (and 
        (setq RWSPFPD_union_data_list (RWSPFPD-open-and-read-acad-table RWSPFPD_name_read_table)) ; вызываем функцию прочтения таблицы)
        (= (type RWSPFPD_union_data_list) 'LIST) ; проверяем что список
        (setq RWSPFPD_data_list (nth 0 RWSPFPD_union_data_list)) ; получаем список        
        (setq RWSPFPD_handle_select_sheet (RWSPFPD-open-or-close-xls-application "WRITE")) ; открываем файл для записи и получаем хендл листа        
      )

вот такой вариант вообще вставляю просто CTRL-C и потом CTRL-V

такой кусок через progn:

Код:

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

 (progn ; если открылся файл                    
      
      (setq RWSPFPD_handle_range (vlax-get-property RWSPFPD_handle_select_sheet 'Range "A1")) ; запоминаем имя объекта Range
      (setq RWSPFPD_decimal_separator (vlax-get-property (vlax-get-property RWSPFPD_handle_select_sheet 'Application)'DecimalSeparator)) ; узнаём тип разделителя числа 
      
      (vlax-put-property (vlax-get-property RWSPFPD_handle_select_sheet 'Application) 'DisplayAlerts :vlax-false) ; отключаем алерты
      
      ; переводим внешний вид в разметку страницы
      (vlax-put-property (vlax-get-property (vlax-get-property RWSPFPD_handle_select_sheet 'application) 'ActiveWindow)'View 3)
      
      ; пишем в консоль када успокоительную надпись                    
      (setvar 'MODEMACRO "Книга для записи данных в файл, подготовлена.") ; Пишем ободряющий текст ))
      
      ; начинаем выставлять размеры столбцов
      (setq RWSPFPD_temp_count 0 ; инициализируем переменные
        RWSPFPD_handle_select_cell RWSPFPD_handle_range
      ) ; end setq
      (repeat (vlax-get-property RWSPFPD_name_read_table 'Columns)
        (vlax-put-property   ; задаём ширину столбцам
           RWSPFPD_handle_select_cell   
          'ColumnWidth 
          (RWSPFPD-checking-actual-size-column (vlax-invoke-method RWSPFPD_name_read_table 'GetColumnWidth RWSPFPD_temp_count))                    
        ) ; end vlax-put-property           
        (setq RWSPFPD_temp_count (1+ RWSPFPD_temp_count)) ; увеличиваем счётчик
        (setq RWSPFPD_handle_select_cell (vlax-Variant-Value(vlax-get-property RWSPFPD_handle_range 'Item 1 (1+ RWSPFPD_temp_count)))) ; получаем значение имени следующей ячейки (и столбца)
      ) ; end repeat

      ; переводим внешний вид в стандартное отображение
      (vlax-put-property (vlax-get-property (vlax-get-property RWSPFPD_handle_select_sheet 'application) 'ActiveWindow)'View 1)
    
      (vlax-put-property (vlax-get-property RWSPFPD_handle_select_sheet 'Application) 'DisplayAlerts :vlax-true)  ; включаем алерты
      
      ; начинаем заполнять табличку                                             
      (setq RWSPFPD_temp_count 1) ; инициализируем переменную
      (foreach RWSPFPD_temp_item RWSPFPD_data_list
        (setq RWSPFPD_temp_count_two 1) ; инициализируем переменную
        (foreach RWSPFPD_temp_item_two RWSPFPD_temp_item          
          (setq RWSPFPD_handle_select_cell (vlax-Variant-Value(vlax-get-property RWSPFPD_handle_range 'Item RWSPFPD_temp_count RWSPFPD_temp_count_two))) ; выбираем ячейку для вставки
          
          ; разбираем что есть в упаковке типа вариант       
          (cond

            ((= (vlax-variant-type RWSPFPD_temp_item_two) 8) ; если строка
              (vlax-put-property RWSPFPD_handle_select_cell 'NUMBERFORMAT "@")  ; задаём ячейке текстовый формат
              (setq RWSPFPD_temp_item_two (RWSPFPD-clearing-mtext-formatting (vlax-Variant-Value RWSPFPD_temp_item_two))) ; распаковываем вариант с очисткой от форматирования  
            ) ; end (= (vlax-variant-type RWSPFPD_temp_item_two) 8)
            
            ((or
                (= (vlax-variant-type RWSPFPD_temp_item_two) 2) ; если короткое целое число
                (= (vlax-variant-type RWSPFPD_temp_item_two) 3) ; если длинное целое число
             ) ; end or
              (vlax-put-property RWSPFPD_handle_select_cell 'NUMBERFORMAT "0")  ; задаём ячейке цифровой формат без разделителей
              (setq RWSPFPD_temp_item_two (vlax-Variant-Value RWSPFPD_temp_item_two)) ; распаковываем вариант  
            ) ; end (or 2 или 3)
            
            ((or
                (= (vlax-variant-type RWSPFPD_temp_item_two) 4) ; если вещественное число
                (= (vlax-variant-type RWSPFPD_temp_item_two) 5) ; если вещественное число с двойной точностью
             ) ; end or
              (vlax-put-property RWSPFPD_handle_select_cell 'NUMBERFORMAT "")  ; задаём ячейке общий цифровой формат                
              (if (= (vlax-variant-type RWSPFPD_temp_item_two) 4) ; если одинарная точность
                (progn
                  (setq RWSPFPD_temp_item_two (rtos (vlax-Variant-Value RWSPFPD_temp_item_two) 2 10)) ; с одинарной точностью
                ) ; end progn
                (progn
                  (setq RWSPFPD_temp_item_two (rtos (vlax-Variant-Value RWSPFPD_temp_item_two) 2 20)) ; с двойной точностью
                ) ; end progn                     
              ) ; end if
              (if (/= RWSPFPD_decimal_separator ".") ; если разделитель не точка, то переделываем текущую точку на разделитель
                (progn
                  (setq RWSPFPD_temp_item_two (vl-string-subst RWSPFPD_decimal_separator "." RWSPFPD_temp_item_two)) ; заменяем разделитель                  
                ) ; end progn                
              ) ; end if  
                          
            ) ; end (or 4 или 5)
            
            ( T    ; всё остальное
              (vlax-put-property RWSPFPD_handle_select_cell 'NUMBERFORMAT "@")  ; задаём ячейке текстовый формат
              (setq RWSPFPD_temp_item_two "") ; присваиваем значение пустышки    
            ) ; end T                                  
                
          ) ; end cond
          ;;;заполняем ячейку
          (vlax-put-property RWSPFPD_handle_select_cell 'Value2 RWSPFPD_temp_item_two)  ; заполняем ячейку значениями                     
                    
          ; задаём выравнивание по значению
          (cond
            
            ((= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 1)
              (vlax-put-property RWSPFPD_handle_select_cell 'VerticalAlignment -4160)  
              (vlax-put-property RWSPFPD_handle_select_cell 'HorizontalAlignment -4131) 
            ) ; end (= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 1) 

            ((= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 2)
              (vlax-put-property RWSPFPD_handle_select_cell 'VerticalAlignment -4160)  
              (vlax-put-property RWSPFPD_handle_select_cell 'HorizontalAlignment -4108)              
            ) ; end (= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 2)
            
            ((= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 3)
              (vlax-put-property RWSPFPD_handle_select_cell 'VerticalAlignment -4160)  
              (vlax-put-property RWSPFPD_handle_select_cell 'HorizontalAlignment -4152)                          
            ) ; end (= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 3)
              
            ((= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 4)
              (vlax-put-property RWSPFPD_handle_select_cell 'VerticalAlignment -4108)  
              (vlax-put-property RWSPFPD_handle_select_cell 'HorizontalAlignment -4131)               
            ) ; end (= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 4) 

            ((= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 5)
              (vlax-put-property RWSPFPD_handle_select_cell 'VerticalAlignment -4108)  
              (vlax-put-property RWSPFPD_handle_select_cell 'HorizontalAlignment -4108)              
            ) ; end (= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 5)
            
            ((= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 6)           
              (vlax-put-property RWSPFPD_handle_select_cell 'VerticalAlignment -4108)  
              (vlax-put-property RWSPFPD_handle_select_cell 'HorizontalAlignment -4152)              
            ) ; end (= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 6)
            
            ((= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 7)            
              (vlax-put-property RWSPFPD_handle_select_cell 'VerticalAlignment -4107)  
              (vlax-put-property RWSPFPD_handle_select_cell 'HorizontalAlignment -4131)              
            ) ; end (= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 7)          
            
            ((= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 8)           
              (vlax-put-property RWSPFPD_handle_select_cell 'VerticalAlignment -4107)  
              (vlax-put-property RWSPFPD_handle_select_cell 'HorizontalAlignment -4108)              
            ) ; end (= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 8)
            
            ((= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 9)            
              (vlax-put-property RWSPFPD_handle_select_cell 'VerticalAlignment -4107)  
              (vlax-put-property RWSPFPD_handle_select_cell 'HorizontalAlignment -4152)              
            ) ; end (= (vlax-invoke-method RWSPFPD_name_read_table 'GetCellAlignment (1- RWSPFPD_temp_count) (1- RWSPFPD_temp_count_two)) 9)    
                                                            
          ) ; end cond
      
          (setq RWSPFPD_temp_count_two (1+ RWSPFPD_temp_count_two)) ; увеличиваем значение переменной
        ) ; end foreach
)

а вот это

Сообщение от skkkk Создается временный файл с расширением lsp, содержащий этот фрагмент и запускается в КАД.

уже изврат какой то ))) Может кому то и удобно, но мне проще копировать/вставить 10 раз при отладке, чем потом кучу безымянных лиспов убивать ))

[shmulka]

Добрый день. Работаю в подшивке, листы создаются командой ^C^C^RРЛИСТ Ш ФОРМАТЫ_ЛИСТОВ.dwt из настроеного шаблона (там уже набор листов разных форматов настроенных, со штампами). Можно ли адаптировать данную программу под определение листа с помощью блока-рамки (как это уже реализовано), созданию нового листа необходимого формата из шаблона и вставке видового экрана на лист (нижний левый угол ВЭ находится в координатах 20,5 мм). Сейчас для вставки использую лисп быстрой вставки видового экрана. Может кто подскажет, где копать в коде (если автор разрешит)? Я сам в LISP почти никак. Либо готов заплатить некую сумму за разработку.
P.S> Вообще шикарно, если бы получилось называть листы по значению атрибута блока-рамки.

[baksconstructor]

Сообщение от shmulka Я сам в LISP почти никак. Либо готов заплатить некую сумму за разработку. P.S> Вообще шикарно, если бы получилось называть листы по значению атрибута блока-рамки.

Дык есть решение под ваши параметры, ищите в инете программу АвтоВьюпорт.

[shmulka]

Сообщение от baksconstructor Дык есть решение под ваши параметры, ищите в инете программу АвтоВьюпорт.

Благодарю. Попробую. Правда есть нюанс, на работе у нас полностью запрещены файлы exe сторонние. Потестирую дома

----- добавлено через ~12 ч. -----

Сообщение от baksconstructor Дык есть решение под ваши параметры, ищите в инете программу АвтоВьюпорт.

В общем, покрутил даную программу. Не то, что нужно. Оень много лишего. Но самая большая проблема - это то, что она устанавливается. НА работе запрещены все установочные файлы, а продавить разрешение - нереально, фсбшники доблестные те ещё параноики, сообенно сейчас. Так что моя просьба остаётся в силе)

[Meowricio]

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

[petro_f]

Сообщение от Meowricio Добрый день, прошу помощи. LISP классный, но у меня отрабатывает через раз. Почему-то в каких программа неверно определяет границы рамок. При этом в новых файлах, с теми же рамками, на том же слое, всё корректно отрабатывает. Пример неверной отработки прилагаю в скриншоте и рамки в файле.

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

P.S. Судя по скриншоту не корректно выставлен масштаб блока.

[AlexZh]

Спасибо за программу! А можно использовать свои блоки штампов? и чтобы штампы эти в листы копировались?

[petro_f]

Сообщение от AlexZh Спасибо за программу! А можно использовать свои блоки штампов? и чтобы штампы эти в листы копировались?

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

[Regenerat]

Не удалось запустить на Autocad 2013 Eng X64 (ОС Win10 x64) Sbugo_addlay_insert_v5.08.0 Разрешение монитора 1920х1200. При запуске Autocad ругается, что разрешение экрана мало для диалогового окна. Попробовал запустить Sbugo_addlay_insert_v5.04.1. Диалоговое окно запускается, но вместо букв кракозябры. Кто-то сталкивался с такой проблемой и смог ее решить?

[petro_f]

Сообщение от Regenerat Не удалось запустить на Autocad 2013 Eng X64 (ОС Win10 x64) Sbugo_addlay_insert_v5.08.0 Разрешение монитора 1920х1200. При запуске Autocad ругается, что разрешение экрана мало для диалогового окна. Попробовал запустить Sbugo_addlay_insert_v5.04.1. Диалоговое окно запускается, но вместо букв кракозябры. Кто-то сталкивался с такой проблемой и смог ее решить?

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

Так как у нас РФ то и язык ПО и регион винды русский. Если есть желание поправить под себя, то откройте lisp файл и сохраните его в другой кодировке. Вроде кодировка UTF-16 помогает.

[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, а своими силами точно не справлюсь...

[petro_f]

Сообщение от Ingpro (и многострочный - почти 4000 строк,

Современному автокаду глубоко пофиг 10 - 377 или 4000 строк.
Вы уже больше написали строк...
Я же сразу написал, что в моей версии с этим нет проблем и настраивать его для печати в пдф не требуется, кроме как закинуть дополнительно пару файлов *.pmp в папку када в пользовательской директории.

[Andrey96]

В файлах .ini и .lsp у плотерра PDF размеры некоторых форматов с 01 по 27 не те, которые нужны (например, А4х7 размер стоит 1471х297, а нужен 1470х297, да и странно почему там 1471, когда А4 умножить на 7 это 1470). Просто изменить значения в файлах не помогает, вылетает ошибка, я так понимаю нужно еще вносить изменения в файлы .pc3 и .pmp. Можно ли как-то изменить эти размеры для плоттера PDF у некоторых форматов или все-таки нужно создавать отдельные нужные форматы в файле .ini по типу как для физического плоттера?

[petro_f]

Сообщение от Andrey96 В файлах .ini и .lsp у плотерра PDF размеры некоторых форматов с 01 по 27 не те, которые нужны (например, А4х7 размер стоит 1471х297, а нужен 1470х297, да и странно почему там 1471, когда А4 умножить на 7 это 1470). Просто изменить значения в файлах не помогает, вылетает ошибка, я так понимаю нужно еще вносить изменения в файлы .pc3 и .pmp. Можно ли как-то изменить эти размеры для плоттера PDF у некоторых форматов или все-таки нужно создавать отдельные нужные форматы в файле .ini по типу как для физического плоттера?

Как же радуют проектировщики, которые даже не знают основ своей работы и не открывают НД. Порадуйтесь и откройте ГОСТ 2.301-68 таблица №2

[Ingpro]

А кто сможет добавить ПРАВИЛЬНЫЕ дополнительные форматы в лисп Андрея_13 AddLay.LSP?
А2×3 (594×1261)
А2×4 (594×1682)
А3×3 (420×891)
А3×4 (420×1189)
А4×3 (297×630)
А4×4 (297×841)

[csp]

Сообщение от petro_f ГОСТ 2.301-68

С изменениями редкостная дрянь. Полный БСК

[petro_f]

Сообщение от csp С изменениями редкостная дрянь. Полный БСК

Просто кто-то видимо криворукий, если стандартная НД ему не по вкусу )))

[Ingpro]

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

Немного поздно отвечаю...
После 182 строчки в лиспе Андрея_13 из поста #1
;;; Создание видовых экранов на листах
добавляем

Код:

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

 (if (= (getvar 'PSLTSCALE) 1) (setvar 'PSLTSCALE 0) )

для корректного отображения пунктирных и осевых линий на листах и при печати (для масштабов листов отличных от 1).
Спасибо Андрею_13 за такой классный код, очень помогает...

[Uglurk]

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

[petro_f]

Сообщение от Uglurk Если в динамическом блоке рамке используется вложенный блок, например, с логотипом, то формат листа определяется некорректно.

Для определения размера рамки (блока) программа использует его реальные, а не видимые размеры. Если эти числа не совпадают, то и будет неверное определение размерности. Скорее всего логотип невидимой частью выступает куда-то далеко или сам логотип огромный, но ужат, а при проверке автокад выдаёт реальные размеры логотипа... В общем много мест, где что-то могло пойти не так. Проверяйте.

[Uglurk]

Сообщение от petro_f В общем много мест, где что-то могло пойти не так. Проверяйте.

А как можно узнать, что именно мешает определить правильно? Я и взрывал блок с лого, и перемасштабировал его геометрию, всё равно не так определяется. Если удалить совсем, то работает как надо.

[petro_f]

Сообщение от Uglurk А как можно узнать, что именно мешает определить правильно?

Посмотрите его реальные геометрические размеры. Может быть там есть элементы, которые не видно. но они больше рамки.

После загрузки плагина в автокад. Поставьте цвет рисования линий красным или любым другим отличным от цвета блока цветом и выполните в консоли автокада следующую команду
(progn(vla-GetBoundingBox (vlax-ename->vla-object(car(entsel))) 'MinPoint 'MaxPoint)(command "_pline" (vlax-safearray->list MinPoint)(vlax-safearray->list MaxPoint))"")
Это если блок не динамический.
Она покажет реальные размеры блока, хотя там тоже есть нюанс.

Пришлите в личку на посмотреть, скажу точно в чём проблема.

[ElectricSib]

Использую последнюю версию скрипта Sbugo_addlay_insert_v5.08.0. В файлах, созданных автокадом, и в большинстве других dwg все работает отлично. До тех пор, пока не попались файлы, созданные в NanoCAD 5й версии - при попытке создания листов из блоков-рамок вылетает ошибка, принтер PDF и размер, настройки листа определяются некорректно. Есть ли способ исправить этот баг в скрипте или в блоках-рамок? Или только обведение подобных блоков прямоугольником.

[petro_f]

Сообщение от ElectricSib Использую последнюю версию скрипта Sbugo_addlay_insert_v5.08.0. В файлах, созданных автокадом, и в большинстве других dwg все работает отлично. До тех пор, пока не попались файлы, созданные в NanoCAD 5й версии - при попытке создания листов из блоков-рамок вылетает ошибка, принтер PDF и размер, настройки листа определяются некорректно. Есть ли способ исправить этот баг в скрипте или в блоках-рамок? Или только обведение подобных блоков прямоугольником.

Ну тут то всё ясно. Криво создан текст в блоке.
Поправьте границы текста и будет счастье.

[ElectricSib]

Сообщение от petro_f Ну тут то всё ясно. Криво создан текст в блоке. Поправьте границы текста и будет счастье.

Спасибо. Не подумал, что скрипт учитывает границы всех сложенных объектов в блоке. Нанокад оказался не при чем.

[petro_f]

Сообщение от ElectricSib Спасибо. Не подумал, что скрипт учитывает границы всех сложенных объектов в блоке. Нанокад оказался не при чем.

Ну отделять объекты в блоке друг от друга... так себе идея.

[nikkomp]

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

[Krovlaf]

Приветствую. Была ли у кого такая проблема: программа не запускается так как размер диалогового окна превышает допустимые размеры экрана? (837,777) окно к (1366,768) экран. И возможно это как-то исправить?

[petro_f]

Сообщение от Krovlaf Приветствую. Была ли у кого такая проблема: программа не запускается так как размер диалогового окна превышает допустимые размеры экрана? (837,777) окно к (1366,768) экран. И возможно это как-то исправить?

Ага, использовать более большой экран или увеличить разрешение По другому никак.
P.S. А если без сарказма, то нет, AutoCAD не позволит запустить программу на окне меньшем чем само окно программы + оверхед на оболочку (рамки и пр...).

[elrosrandir]

Всем привет, подскажите, пользуюсь лиспом от petro_f и столкнулся с такой проблемой, рамки разного размера при выводе в листы, выдают ошибку, что нужно проверить созданные листы, и выводит все листы с вертикальной ориентацией без заданного принтера. Правлю только когда вывожу на печать заданным параметром листа или вручную ставлю DWG to PDF с нужным форматом и всё встаёт на места. Но хотелось бы чтобы оно при выводе сразу нормально формировалось, кто подскажет как решить эту проблему.

[petro_f]

Сообщение от elrosrandir Всем привет, подскажите, пользуюсь лиспом от petro_f и столкнулся с такой проблемой, рамки разного размера при выводе в листы, выдают ошибку, что нужно проверить созданные листы, и выводит все листы с вертикальной ориентацией без заданного принтера. Правлю только когда вывожу на печать заданным параметром листа или вручную ставлю DWG to PDF с нужным форматом и всё встаёт на места. Но хотелось бы чтобы оно при выводе сразу нормально формировалось, кто подскажет как решить эту проблему.

Добрый день.
А вы файлы принтера установили (как по инструкции написано)?

Если да, то пришлите файл образец на посмотреть. Там скорее всего не корректно будет собранная рамка.

[elrosrandir]

Сообщение от petro_f А вы файлы принтера установили (как по инструкции написано)?

Установил сейчас заново, и до этого как было в инструкции, скопировав папку plotters в путь, но ничего не поменялось, я просто масштабом рамки уменьшаю, чтобы формат А3-А4 вмещалось, и когда они разного размера выводит ошибку формирования листа.

[petro_f]

Сообщение от elrosrandir Установил сейчас заново, и до этого как было в инструкции, скопировав папку plotters в путь, но ничего не поменялось, я просто масштабом рамки уменьшаю, чтобы формат А3-А4 вмещалось, и когда они разного размера выводит ошибку формирования листа.

Не в таком подходе плагин работать не будет. Вы не совсем корректно подходите к работе с рамками и оформлением листов.
Вот смотрите стандартный размер рамки на лист А3 297 х 420, а у Вас в 3-х листах стоят размеры:
21.7299 х 30.7323, 29.6449 х 41.9264, 21.1471 х 29.9081.
Во первых ни один размер не совпал. Хотите такое переводить в лист, тогда каждую рамку на индивидуально создавать лист, подбирая масштаб (снимите галочку "автоматически").

Но лучше научитесь создавать видовые экраны и не масштабируйте рамки.

[elrosrandir]

Сообщение от petro_f Вот смотрите стандартный размер рамки на лист А3 297 х 420, а у Вас в 3-х листах стоят размеры: 21.7299 х 30.7323, 29.6449 х 41.9264, 21.1471 х 29.9081. Во первых ни один размер не совпал. Хотите такое переводить в лист, тогда каждую рамку на индивидуально создавать лист, подбирая масштаб (снимите галочку "автоматически")

Я понимаю, про стандартный размер, но когда я использую рамки одинакового размера независимо от того совпадают они с размером листа А3 или А4 он спокойно выводит их все без ошибок, но только когда я хотя бы одну из них изменяю по размеру всё идёт не по плану.

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

[petro_f]

Сообщение от elrosrandir Я понимаю, про стандартный размер, но когда я использую рамки одинакового размера независимо от того совпадают они с размером листа А3 или А4 он спокойно выводит их все без ошибок, но только когда я хотя бы одну из них изменяю по размеру всё идёт не по плану. С видовыми экранами на пространстве листа я умею работать, просто когда у тебя 50 таких листов, вручную выводить каждый занимает ужасно много времени, плюс быстрое редактирование нескольких штампов в рамке гораздо удобнее в модели, лично для меня. А из-за разных размеров того что нужно расположить на листе и чтобы это вмешалось иногда приходится масштабировать рамки.

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

[a.anisimov@systemlink.ru]

Все листы кроме А0 выводятся корректно.
А0 L выводится как P
А0 P выводится как L

[petro_f]

Сообщение от a.anisimov@systemlink.ru Все листы кроме А0 выводятся корректно. А0 L выводится как P А0 P выводится как L

Не всегда краткость сестра таланта.
Уточните к какой версии вопрос, приложите файл (если это возможно). Ну и почитайте хелп по плагину... где написано как вращать листы в настроечном файле.

[a.anisimov@systemlink.ru]

вроде как брал версию из вложения в этой теме от 28.08.24г.

[alkazam]

Сообщение от a.anisimov@systemlink.ru Все листы кроме А0 выводятся корректно. А0 L выводится как P А0 P выводится как L

Если вы используете ADDLAY то причина в том что в списке листов стандартного плоттера DWG to PDF нет альбомной версии листа А0, а только 841.00 x 1189.00мм, из-за этого неправильно отрабатывает оператор сравнения в коде, самый простой способ решения проблемы на мой взгляд:
1) Добавить новый тип листа в плоттер DWG to PDF с размерами 1189.00 x 841.00мм
2) Изменить строчку в лиспе с:
((and (> Square 948024) (< Square 1047816)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "ISO_full_bleed_A0_(841.00_x_1189.00_MM)"))
на:
((and (> Square 948024) (< Square 1047816)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "UserDefinedMetric (1189.00 x 841.00мм)"))

[petro_f]

Сообщение от a.anisimov@systemlink.ru вроде как брал версию из вложения в этой теме от 28.08.24г.

Тут два плагина в шапке и https://forum.dwg.ru/showpost.php?p=...4&postcount=92
Какой именно плагин "AddLay.LSP" или "Sbugo_addlay_insert"?

[Amste]

Подскажите пожалуйста по лиспу Sbugo_addlay_insert. Галочка "Показать стили печати" - при последующем экспорте листов с помощью команды ЭКСПОРТВЭЛИСТА портит выгруженные листы, так что на них становится невозможно включить отображение веса. Что бы постоянно не отключать эту галочку - хотел поправить скрипт, так что бы по умолчанию галочки там не стояло. В строке 1863 поменял значение для чекбокса на "0"
" : toggle {label = \" Показать стили печати\"; key = \"dclSbugoPDViewPlotStylesInLayout\"; value = \"0\"; } // чекбокс"
Но ничего не изменилось, галочка по умолчанию по прежнему стоит :-(
Подскажите пожалуйста - как убрать эту галочку по умолчанию?

[Ingpro]

А кто-нибудь рискнет добавить в лисп Andrey_13 AddLay.LSP нестандартные форматы А3х3, А4х3, А2х3...
Было бы супер!

[petro_f]

Сообщение от Amste Подскажите пожалуйста по лиспу Sbugo_addlay_insert. Галочка "Показать стили печати" - при последующем экспорте листов с помощью команды ЭКСПОРТВЭЛИСТА портит выгруженные листы, так что на них становится невозможно включить отображение веса. Что бы постоянно не отключать эту галочку - хотел поправить скрипт, так что бы по умолчанию галочки там не стояло. В строке 1863 поменял значение для чекбокса на "0" " : toggle {label = \" Показать стили печати\"; key = \"dclSbugoPDViewPlotStylesInLayout\"; value = \"0\"; } // чекбокс" Но ничего не изменилось, галочка по умолчанию по прежнему стоит :-( Подскажите пожалуйста - как убрать эту галочку по умолчанию?

В строке 2129 "(if (null SbugoPDViewPlotStylesInLayout) (setq SbugoPDViewPlotStylesInLayout 1))" поставьте 0 и будет Вам счастье

[Amste]

Сообщение от petro_f В строке 2129 "(if (null SbugoPDViewPlotStylesInLayout) (setq SbugoPDViewPlotStylesInLayout 1))" поставьте 0 и будет Вам счастье

Заработало!) Спасибо большое! Долгих вам лет)

[VadimIce]

Добрый день коллеги! Подскажите на версии Акад25 стало выдавать ошибку "Программа допустила ошибку в функции "SBugo-AddLay". слишком много аргументов". в чем может быть проблема

[alkazam]

Сообщение от Ingpro А кто-нибудь рискнет добавить в лисп Andrey_13 AddLay.LSP нестандартные форматы А3х3, А4х3, А2х3... Было бы супер!

Ввиду особенностей оригинального скрипта (вычисление формата происходит по площади), добавить нестандартные форматы не получится, т.к. будут смежные значения.
Но вот поменять метод отслеживания формата по ширине и высоте можно, но в таком случае предъявляются четкие требования к форматам в PDF Плоттере.
Вот в принципе сам лисп AddLay.LSP, за 100% работоспособность не ручаюсь.
Он прописан для форматов с кратностью до 6.
В моей редакции скрипта используется штатный принтер DWGtoPDF, соответственно в него нужно добавить форматы с кратностью до 6 форматов от А0 до А4
Важно при создании каждого формата - первое число должно быть всегда большее, имя каждого созданного формата значения не имеет.

[petro_f]

Сообщение от VadimIce Добрый день коллеги! Подскажите на версии Акад25 стало выдавать ошибку "Программа допустила ошибку в функции "SBugo-AddLay". слишком много аргументов". в чем может быть проблема

Проблема скорее всего в том, что зачем-то Вы используете Акад25 версии.
А если по серьёзному. то скорее всего они опять изменили набор параметров для какой либо переменной или команды.
Надо смотреть, но так как я не вижу смысла ставить автокад 2025, то хз когда дойду до этой ошибки..

[Ingpro]

Сообщение от alkazam Ввиду особенностей оригинального скрипта (вычисление формата происходит по площади), добавить нестандартные форматы не получится, т.к. будут смежные значения. Но вот поменять метод отслеживания формата по ширине и высоте можно, но в таком случае предъявляются четкие требования к форматам в PDF Плоттере. Вот в принципе сам лисп AddLay.LSP, за 100% работоспособность не ручаюсь. Он прописан для форматов с кратностью до 6. В моей редакции скрипта используется штатный принтер DWGtoPDF, соответственно в него нужно добавить форматы с кратностью до 6 форматов от А0 до А4 Важно при создании каждого формата - первое число должно быть всегда большее, имя каждого созданного формата значения не имеет.

alkazam, спасибо, но возможно я что-то делаю не так...

Добавляю форматы (для проверки пока А4х3 и А3х3)
; ошибка: Ошибка Automation. Неверный ввод
создаются видовые экраны, но они не соответствуют размерам при печати
Создаются не все выбранные листы, а только 1 или 2...
И почему-то программа теперь не видит блоки, только рамки из прямоугольников, но обводить блоки рамками как-то не очень хорошо
(особенно, если листов много)...
Это возможно подкорректировать?

[alkazam]

Сообщение от Ingpro alkazam, спасибо, но возможно я что-то делаю не так... Добавляю форматы (для проверки пока А4х3 и А3х3) ; ошибка: Ошибка Automation. Неверный ввод создаются видовые экраны, но они не соответствуют размерам при печати Создаются не все выбранные листы, а только 1 или 2... И почему-то программа теперь не видит блоки, только рамки из прямоугольников, но обводить блоки рамками как-то не очень хорошо (особенно, если листов много)... Это возможно подкорректировать?

Не имею представления почему у вас не заводится, я в вашем файле и блоки и прямоугольники перевести могу, у меня 2023 кад, может в других не работает.
Вообще переписывал лисп для своего отдела, у нас 2021 и 2023 кады, на них все завелось как надо.
нестанд.форматы.dwg

[Ingpro]

Сообщение от alkazam нас 2021 и 2023 кады, на них все завелось как надо

У меня не сработало в 2015 AutoCAD, попробую ещё в 2020...

[alkazam]

Сообщение от Ingpro У меня не сработало в 2015 AutoCAD, попробую ещё в 2020...

Еще забыл сказать что в вашем файле я создал отдельный слой для объектов выводимых на печать, в исходном файле все было на 0.
Проверьте на файле который скинул я, скрипт отрабатывает ? Переводить надо слой "print".
Скрипт выдает ошибку если встречает любой объект на представленном слое, отличающийся от заданных диапазонов (размеров рамок с допуском 1.1)

[timbqbq]

Добрый день, коллеги! У меня возникла проблема с AddLay.LSP — некорректно выводит на листы. На чертежах, где уже использовал этот LISP, работает нормально, но при создании нового пустого чертежа перестал работать, некорректно определяет масштаб листа. Заранее благодарю!

[KiLLRaiN]

timbqbq, Проверь единицы чертежа, при создании новых документов там не миллиметры.

[AQUARIUS83]

День добрый!
Прошу не кидать тапками за возможно детский вопрос, я еще только учусь.
Как сделать так, чтобы видовые экраны устанвливались стразу в рамки(штампы)? Запускаю к примеру SBADDLAY, в модели у меня на отдельном слое нарисованы прямоугольники которые какбы задают границы вида отдельных листов. Листы создаются, но в них я вижу только сам вид, чертежа. как мне правильно вставить рамки(штампы)? У меня есть рамки(штампы)как настраиваемые динамические блоки (я думаю они наверное у всех есть), и у меня возникает вопрос как вставить эти рамки(штампы) сразу в лист? Какой алгоритм действий? Я подозреваю, что скорее всего ответ уже давался, но изза неопытности я его не вижу.
Заранее благодарен за ответ.

[petro_f]

Сообщение от AQUARIUS83 День добрый! Прошу не кидать тапками за возможно детский вопрос, я еще только учусь. Как сделать так, чтобы видовые экраны устанвливались стразу в рамки(штампы)? Запускаю к примеру SBADDLAY, в модели у меня на отдельном слое нарисованы прямоугольники которые какбы задают границы вида отдельных листов. Листы создаются, но в них я вижу только сам вид, чертежа. как мне правильно вставить рамки(штампы)? У меня есть рамки(штампы)как настраиваемые динамические блоки (я думаю они наверное у всех есть), и у меня возникает вопрос как вставить эти рамки(штампы) сразу в лист? Какой алгоритм действий? Я подозреваю, что скорее всего ответ уже давался, но изза неопытности я его не вижу. Заранее благодарен за ответ.

Не совсем понял, что имеете ввиду.
Но по идее есть два разных варианта. Первый вариант, это просто отмасштабировать рамку со штампами и вставить её сразу в модели. Второй вариант, это вставлять рамку со штампом уже на листах (см. файл как в посте #93), но это более утомительно.

[AQUARIUS83]

Пост задублировался

[AQUARIUS83]

Смотрите как делаю я сейчас:
На модели, по трасе прохождения линии, у меня разбросаны просто прямоугольники. которыми я обозначаю какой кусок чертежа отобразить в видовом экране. Я на листе устанавливаю рамку со штампами, создаю видовой экран и при помощи функции ПОКАЗАТЬ - Объект я вписываю мои разбросанные прямоугольники в видовой экран. И так для каждого нового лиса я повторяю заново. Я догадываюсь, что это очень не продуктивно возможно бестолково, поэтому и начал искать как автоматизировать свою работу. Нашел команду SBADDLAY и немого не понял какой алгоритм ее работы или как правильно с ней работать?

Сообщение от petro_f Первый вариант, это просто отмасштабировать рамку со штампами и вставить её сразу в модели

Это мне нужно вместо моих "разбросанных прямоугольников" вставлять рамку со штампами? и программе указывать их?

Сообщение от petro_f Второй вариант, это вставлять рамку со штампом уже на листах (см. файл как в посте #93)

Я правильно понял, что в этом варианте автоматически будет устанавливаться рамка с штампом на листе?

[petro_f]

"Это мне нужно вместо моих "разбросанных прямоугольников" вставлять рамку со штампами? и программе указывать их?" - Да, именно так

"Я правильно понял, что в этом варианте автоматически будет устанавливаться рамка с штампом на листе?" - нет, только вручную ставится. Это плагин оформления печатной области листа, а не оформления рамок )))

По факту. если у вас одна большая линия, которую надо "распечатать в нарезку" то плагин оформления умеет нарезать видовые экраны с уменьшением их под рамку, что бы не захватывать соседние области.

[Blaua4]

Сообщение от Andrey_13 в пространстве листа AVP.lsp

@Andrey_13

Можете добавить 2 функции?
– При первом запуске чтобы была возможность указать на какой слой помещать. Например слой "1- Видовые экраны", чтобы потом каждый созданный видовой экран не помещать отдельно на этот слой
– запрос угла поворота видового экрана (и вкл / выкл функцию, не всегда нужна)

[Serghei]

Кто-то сталкивался с проблемой, что в файлах лисп addlay работает часами, а то и вовсе подвисает. Почему пишу часами)) Сегодня утром запустил лисп, потом срочно уехать нужно было. Оставил компьютер включенный. Приехал, а он мне создал листы. Запускаю еще раз, больше часа ждал (занимался другими делами), лисп просто зависает.
Работает четко, использую много лет. Но вот на некоторых файлах прям катастрофа. Автокад 2025.

[Ingpro]

Сообщение от Serghei Кто-то сталкивался с проблемой, что в файлах лисп addlay работает часами, а то и вовсе подвисает. Почему пишу часами)) Сегодня утром запустил лисп, потом срочно уехать нужно было. Оставил компьютер включенный. Приехал, а он мне создал листы. Запускаю еще раз, больше часа ждал (занимался другими делами), лисп просто зависает. Работает четко, использую много лет. Но вот на некоторых файлах прям катастрофа. Автокад 2025.

Дело не в лисп addlay, а скорее в файле, попробуйте очистить, проверить на ошибки, в крайнем случае скопируйте в новый файл, опять проверить, очистить и запустить лисп...

[Porhai]

Коллеги, Добрый день!
Подправил под себя программу AL, может кому-нибудь будет полезно.

Отличия от версии закрепленной в шапке:
1. Добавил команду для включения печати прозрачных объектов
Новая строка 41 (command "._PLOTTRANSPARENCYOVERRIDE" "2")

2. При запросе масштаба теперь стандартное значение 100.
Строки 58,62 значение с "1" заменено на "100".

3. Строки 104-106 скорректированы чтобы стандартный ответ на запрос удаления существующих листов был "Нет".

4. К видовому экрану применить PSLTSCALE 0.
Новая строка 198 (command "._PSLTSCALE" "0")

5. Ч/Б печать заменил на цветную.
Строка 205 таблица стилей печати заменена с monochrome.ctb на acad.ctb

[Romario Moricone]

Коллеги, Добрый день!

Когда добавляете нестандартные форматы листов в принтер DWG To PDF.pc3, то для того, чтобы они корректно распознавались в скрипте AddLay - надо их добавить в раздел " (cond ; Выбор формата в зависимости от площади видового экрана"
например:
((and (> Square 740000) (< Square 760000)) (vla-put-ConfigName Layout "DWG To PDF.pc3") (vla-put-CanonicalMediaName Layout "User-1"))

Чтобы узнать CanonicalMediaName - которое в примере выше "User-1" - необходимо посмотреть в файле DWG To PDF.pmp, расположенном в папке C:\Users\"имя пользователя"\AppData\Roaming\Autodesk\AutoCAD 2025\R25.0\rus\Plotters\PMP Files:

"caps_type" : 2,
"dimensional" : true,
"media_bounds_urx" : 1261.0,
"media_bounds_ury" : 594.0,
"name" : "User-1",
"printable_area" : 749034.0,
"printable_bounds_llx" : 0.0,
"printable_bounds_lly" : 0.0,
"printable_bounds_urx" : 1261.0,
"printable_bounds_ury" : 594.0

----- добавлено через ~10 мин. -----
Добрый день, коллеги,

Может кто подскажет, как в скрипте AddLay сделать так, чтобы при формировании листов не ставилась галочка "Масштаб в единицах пространства листа"?