Архитектору и проектировщику|Тепло- и звукоизоляция URSA.RU
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Создание листов и видовых экранов на них

LISP. Создание листов и видовых экранов на них

Ответ
Поиск в этой теме
Непрочитано 21.08.2015, 13:33 8 | 1 #1
LISP. Создание листов и видовых экранов на них
Andrey_13
 
Инженер-проектировщик РЗА, ПА, ВК
 
Екатеринбург
Регистрация: 06.02.2014
Сообщений: 32

Вызов командой "_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

Вложения
Тип файла: lsp AVP.LSP (2.9 Кб, 1733 просмотров)
Тип файла: lsp AddLay.LSP (12.6 Кб, 1843 просмотров)


Последний раз редактировалось Andrey_13, 28.02.2018 в 21:17. Причина: Добавление ссылки на альтернативную версию программы.
Просмотров: 89116
 
Непрочитано 21.08.2015, 13:43
#2
MrBrown


 
Регистрация: 26.06.2009
Сообщений: 255


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

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

Пожелание:
- хорошо бы не только указывать существующий слой, но и создавать новый.
MrBrown вне форума  
 
Непрочитано 21.08.2015, 17:50
#3
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Так же пожелание:
- чтобы после создания листа - задавалась область печати из ближайших форматов в принтере DWG to PDF
freese вне форума  
 
Автор темы   Непрочитано 24.08.2015, 10:21
#4
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


Цитата:
Сообщение от freese Посмотреть сообщение
Так же пожелание:
- чтобы после создания листа - задавалась область печати из ближайших форматов в принтере DWG to PDF
Сделано, см. заглавный пост.
Цитата:
Сообщение от MrBrown Посмотреть сообщение
Пожелание:
- хорошо бы не только указывать существующий слой, но и создавать новый.
Это чуть позже, но скорее всего вряд ли.

Последний раз редактировалось Andrey_13, 24.08.2015 в 10:27.
Andrey_13 вне форума  
 
Непрочитано 24.08.2015, 10:33
#5
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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

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

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

Последний раз редактировалось perpetule, 25.08.2015 в 20:33.
perpetule вне форума  
 
Непрочитано 24.08.2015, 14:20
#6
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Цитата:
Сообщение от perpetule Посмотреть сообщение
Кроме того название версии в имени файла имхо лишнее, каждый раз придется переписывать макрос на кнопку
переименовать файл проще
freese вне форума  
 
Автор темы   Непрочитано 24.08.2015, 22:07
#7
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


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


Цитата:
Сообщение от perpetule Посмотреть сообщение
при создании ВЭ запрашивать точку вставки на вкладке и далее по циклу не создавая новых вкладок, без создания наборов параметра листа (НПЛ).
Это необходимо для компоновки чертежей с несколькими ВЭ или для распечатки того что в модели (несколько листов чертежа) на рулон плотера
портянкой вида:
Как это выглядит по шагам?
1. Выделение рамок.
2. Открытие вкладки листа.
3. Указание точки вставки 1-го видового экрана, вставка видового экрана.
4. Указание точки вставки 2-го видового экрана, вставка видового экрана.
5. и т.д.
Так?
Andrey_13 вне форума  
 
Непрочитано 24.08.2015, 22:33 Andrey_13
#8
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


По шагам ( подобная есть 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 - предпочтительнее)
Вложения
Тип файла: lsp af.lsp (3.0 Кб, 146 просмотров)
__________________
tc71

Последний раз редактировалось perpetule, 25.08.2015 в 20:34.
perpetule вне форума  
 
Автор темы   Непрочитано 25.08.2015, 10:12
#9
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


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

perpetule, чем af.lsp не устраивает?
Andrey_13 вне форума  
 
Непрочитано 25.08.2015, 16:57 af.lsp
#10
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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

Цитата:
убрано слово "Лист" из наименования листов
Спасибо, круть. Очень шустро работает.
__________________
tc71

Последний раз редактировалось perpetule, 25.08.2015 в 20:48.
perpetule вне форума  
 
Автор темы   Непрочитано 25.08.2015, 20:12
#11
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


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


Цитата:
Сообщение от perpetule Посмотреть сообщение
Цитата:
чем af.lsp не устраивает?
Периодически неверно выдает размеры и ориентацию ВЭ, помогает только перезапуск автокада. Нет фичи п.2 R3P.
Будет свободное время - займусь вашей задачей, ибо такое может понадобиться самому. Изначально мною программа писалась как альтернатива LFM от bargool, так как её не удалось запустить на 2015.
Andrey_13 вне форума  
 
Непрочитано 25.08.2015, 20:42
#12
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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

Лисп же практически независим от версии.
__________________
tc71
perpetule вне форума  
 
Непрочитано 25.08.2015, 22:06
#13
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Цитата:
Сообщение от Andrey_13 Посмотреть сообщение
- для нестандартных форматов листов устанавливается пустое устройство печати;
получается что, если чертить 1:1 милиметрах, то устройство печать пустое, а можно ли чтобы программа меняла масштаб печати?
freese вне форума  
 
Автор темы   Непрочитано 26.08.2015, 08:35
#14
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


Цитата:
Сообщение от perpetule Посмотреть сообщение
Но, теткам такое не поставить - универсальность требует уже запредельное для них кол-во кликов при настройке.
С утра всё настроение испортили упоминанием этой категории пользователей)
Цитата:
Сообщение от freese Посмотреть сообщение
получается что, если чертить 1:1 милиметрах, то устройство печать пустое, а можно ли чтобы программа меняла масштаб печати?
Установка масштаба предусмотрена в дополнительной программе-аналоге af.lsp из поста №8. Снова отсылаю к заглавному посту. Дегустируйте.
Andrey_13 вне форума  
 
Непрочитано 26.08.2015, 09:03
#15
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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

P.S. Мне не нужно, но кому-то возможно потребуются и масштабы увеличения.
При возможности выбора повернутого вьюпорта - будет вообще шедевр.
Вы вообще спите когда-нибудь?
Теткам как раз такого инструмента недоставало для освоения вкладок листов.
__________________
tc71
perpetule вне форума  
 
Непрочитано 26.08.2015, 09:36
#16
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


Утро доброе.
В модели три рамки (динамические блоки).
Выполнение лиспа прекращается после создания 1го видового экрана с ошибкой "Ошибка Automation. Неверный ввод"
Autocad 2014 sp1 rus
kacugu вне форума  
 
Непрочитано 26.08.2015, 10:58
#17
stas_org


 
Регистрация: 05.04.2007
Самара
Сообщений: 1,050
<phrase 1=


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

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Цитата:
Сообщение от stas_org Посмотреть сообщение
А с форматкой что делать? В модели ее постоянно вырисовывать? Потом размещать на чертежи с учетом масштабов, а если я хочу план (1-100) и узлы (1-10) на одном листе разместить?
ручками)) Т.к. эта программа для оформленных в моделе чертежей
freese вне форума  
 
Непрочитано 26.08.2015, 11:22
#19
stas_org


 
Регистрация: 05.04.2007
Самара
Сообщений: 1,050
<phrase 1=


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

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

----- добавлено через ~2 мин. -----
Цитата:
Сообщение от freese Посмотреть сообщение
ручками)) Т.к. эта программа для оформленных в моделе чертежей
А какого черта нужно оформленные в модели на лист пихать?
stas_org вне форума  
 
Непрочитано 26.08.2015, 11:39
#20
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


Цитата:
Сообщение от stas_org Посмотреть сообщение
А какого черта нужно оформленные в модели на лист пихать?
Offtop: Как бывает у нас:
Исполнитель1 и исполнитель2 работают над одним комплектом чертежей (1 делает опалубку, 2 - арматуру).
Исполнитель1 работает 1к1, оформляет в листах и использует подшивки.
Исполнитель2 работает в модели и о листах с подшивками не подозревает.
Когда комплект формируется исполнитель1 запихивает листы исполнителя2 из модели в лист и добавляет их в подшивку.
kacugu вне форума  
 
Непрочитано 26.08.2015, 11:49
#21
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Цитата:
Сообщение от stas_org Посмотреть сообщение
А какого черта нужно оформленные в модели на лист пихать?
публикация, PDF удобней из листов делать
Цитата:
Сообщение от stas_org Посмотреть сообщение
А чем инструменты "подшивки" в совокупности с "именованными видами пространства модели" не устраивают?
поподробней, как виды пространства модели можно в подшивку перенести?

Последний раз редактировалось freese, 26.08.2015 в 12:02.
freese вне форума  
 
Непрочитано 26.08.2015, 12:05
#22
baksconstructor


 
Регистрация: 05.11.2014
Сообщений: 916


Тогда Вам сюда
Можно найти то, что "переварит" и модель и листы.
baksconstructor вне форума  
 
Непрочитано 26.08.2015, 12:27
#23
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Цитата:
Сообщение от baksconstructor Посмотреть сообщение
Тогда Вам сюда
Можно найти то, что "переварит" и модель и листы.
те которые переварят нужно или устанавливать (а на рабочем месте нет прав на установку приложений), или платные, или то и другое, спс
freese вне форума  
 
Непрочитано 26.08.2015, 13:09
#24
stas_org


 
Регистрация: 05.04.2007
Самара
Сообщений: 1,050
<phrase 1=


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

Цитата:
Сообщение от stas_org Посмотреть сообщение
инструменты "подшивки" в совокупности с "именованными видами пространства модели"
чем изобретать велосипед, тем более что новый велосипед тоже нужно освоить.

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

----- добавлено через ~7 мин. -----
Цитата:
Сообщение от freese Посмотреть сообщение
поподробней, как виды пространства модели можно в подшивку перенести?
На палитре подшивок есть закладка "Виды моделей" разбираетесь зачем она нужна, там все очень просто.

----- добавлено через ~21 мин. -----
Причем не переносим, а изящно перетаскиваем)))) и компонуем на вставленный "по шаблону" лист заранее настроенный на нужный принтер и имеющий форматку.
stas_org вне форума  
 
Непрочитано 26.08.2015, 13:43
#25
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Цитата:
Сообщение от stas_org Посмотреть сообщение
и компонуем на вставленный "по шаблону" лист заранее настроенный на нужный принтер и имеющий форматку
и опять листы... а не проще ли сразу в лист?
freese вне форума  
 
Непрочитано 26.08.2015, 13:47
#26
stas_org


 
Регистрация: 05.04.2007
Самара
Сообщений: 1,050
<phrase 1=


Цитата:
Сообщение от freese Посмотреть сообщение
и опять листы... а не проще ли сразу в лист?
Не проще, теряется смысл использования подшивок.

Цитата:
Сообщение от freese Посмотреть сообщение
откуда и куда?))
Из палитры подшивок (закладка "Виды моделей" активна) на пустой лист (с настроенной областью печати и форматкой со штампом).
stas_org вне форума  
 
Непрочитано 26.08.2015, 13:59
#27
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


Цитата:
Сообщение от freese Посмотреть сообщение
поподробней, как виды пространства модели можно в подшивку перенести?
Немного разобрано здесь http://forum.dwg.ru/showthread.php?t=20147&page=2 (см. сообщение 30)

Цитата:
Сообщение от stas_org Посмотреть сообщение
Не легче ли научить Исполнителя 2 использовать
Offtop: К сожалению, не проще
kacugu вне форума  
 
Непрочитано 26.08.2015, 14:10
#28
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Цитата:
Сообщение от stas_org Посмотреть сообщение
Не проще, теряется смысл использования подшивок.
Вот! Не проще так ка больше лишних действий руками. А удобство у подшивок только в работе, в навигации.

Цитата:
Сообщение от kacugu Посмотреть сообщение
Немного разобрано здесь http://forum.dwg.ru/showthread.php?t=20147&page=2 (см. сообщение 30)
спс, в принципе уже разобрался
freese вне форума  
 
Непрочитано 26.08.2015, 14:30
#29
stas_org


 
Регистрация: 05.04.2007
Самара
Сообщений: 1,050
<phrase 1=


Цитата:
Сообщение от freese Посмотреть сообщение
А удобство у подшивок только в работе, в навигации.
Кроме навигации - авто нумерация листов, мгновенное изменение штампа во всех листах проекта, автоматическое создание ведомости чертежей, автоматическая печать всех листов проекта (самое главное). Может не все перечислил.
stas_org вне форума  
 
Непрочитано 26.08.2015, 15:50 stas_org
#30
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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

Последний раз редактировалось perpetule, 26.08.2015 в 16:11.
perpetule вне форума  
 
Непрочитано 26.08.2015, 15:54
#31
stas_org


 
Регистрация: 05.04.2007
Самара
Сообщений: 1,050
<phrase 1=


Цитата:
Сообщение от perpetule Посмотреть сообщение
Лисп же означенный в заголовке
Очень сомневаюсь что кроме самого автора кто то будет его использовать. ИМХО.
stas_org вне форума  
 
Непрочитано 26.08.2015, 16:09 stas_org
1 | #32
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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

На вкус и цвет все фломастеры разные.
__________________
tc71
perpetule вне форума  
 
Непрочитано 26.08.2015, 17:12
#33
stas_org


 
Регистрация: 05.04.2007
Самара
Сообщений: 1,050
<phrase 1=


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


 
Регистрация: 12.07.2009
г. Самара
Сообщений: 2,334
Отправить сообщение для maratovich с помощью Skype™


Цитата:
Сообщение от stas_org Посмотреть сообщение
Цитата:
Сообщение от perpetule Посмотреть сообщение
Или здесь
Вижу 29 человек с 2013 года успешно использую данные приблуды.
Пишут или голосуют в этой теме максимум 1% от пользователей.
__________________
Вопрос : Где находится Тургай ? Ответ : Между Парагваем и Уругваем.....
maratovich вне форума  
 
Непрочитано 26.08.2015, 18:20
#35
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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

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

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

Последний раз редактировалось perpetule, 26.08.2015 в 21:34.
perpetule вне форума  
 
Автор темы   Непрочитано 27.08.2015, 20:22
#36
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


Небольшое обновление.
Andrey_13 вне форума  
 
Непрочитано 28.08.2015, 09:32 Andrey_13
#37
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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

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

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

Последний раз редактировалось perpetule, 28.08.2015 в 11:17.
perpetule вне форума  
 
Автор темы   Непрочитано 28.08.2015, 10:26
#38
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


perpetule, вы про какую программу говорите? AVP.LSP или AddLay.LSP?
Andrey_13 вне форума  
 
Непрочитано 28.08.2015, 11:45
#39
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Andrey_13, можно ли чтобы видовые экраны, после создания листов, были заблокированы?
freese вне форума  
 
Непрочитано 28.08.2015, 12:06
#40
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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.
Вложения
Тип файла: lsp viewsblk.LSP (2.2 Кб, 63 просмотров)
__________________
tc71

Последний раз редактировалось perpetule, 28.08.2015 в 12:15.
perpetule вне форума  
 
Автор темы   Непрочитано 28.08.2015, 12:15
#41
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


Цитата:
Сообщение от freese Посмотреть сообщение
Andrey_13, можно ли чтобы видовые экраны, после создания листов, были заблокированы?
Цитата:
Сообщение от perpetule Посмотреть сообщение
Не надо превращать лисп в монстра, посмотрите на последний Office.
Это одна строка кода. Так да или нет?
Цитата:
Сообщение от perpetule Посмотреть сообщение
Замечательно работает, но исчез запрос масштаба ВЭ, ранее был запрос масштаба создаваемых ВЭ, или я путаю с AVP.lsp ?
В AddLay ввода масштаба изначально не было.
Цитата:
Сообщение от perpetule Посмотреть сообщение
Масштаб создаваемых ВЭ можно сделать и с уменьшением/увеличением, а не только 1:1
Сделано.
Andrey_13 вне форума  
 
Непрочитано 28.08.2015, 12:32 Andrey_13
#42
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


Цитата:
Сделано
Спасибо!

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

С чужими чертежами рано или поздно приходится всем сталкиваться, когда срочно надоть выдать.
__________________
tc71
perpetule вне форума  
 
Автор темы   Непрочитано 28.08.2015, 12:43
#43
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


Цитата:
Сообщение от perpetule Посмотреть сообщение
С чужими чертежами рано или поздно приходится всем сталкиваться, когда срочно надоть выдать.
Гадость. Чужие чертежи для меня это как чужой зубной щёткой пользоваться.
Цитата:
Сообщение от perpetule Посмотреть сообщение
По AddLay.LSP и масштабу имелись ввиду те извращенцы которые увеличивают штамп и форматку раз в 50 или 100.
Давайте чуть позже.
Andrey_13 вне форума  
 
Непрочитано 28.08.2015, 15:03
#44
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Цитата:
Сообщение от Andrey_13 Посмотреть сообщение
Это одна строка кода. Так да или нет?
да
freese вне форума  
 
Автор темы   Непрочитано 28.08.2015, 20:42
#45
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


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

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

Последний раз редактировалось Andrey_13, 28.08.2015 в 21:07.
Andrey_13 вне форума  
 
Непрочитано 29.08.2015, 21:39
#46
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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

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

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

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

Последний раз редактировалось perpetule, 29.08.2015 в 22:20.
perpetule вне форума  
 
Автор темы   Непрочитано 30.08.2015, 14:31
#47
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


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

Последний раз редактировалось Andrey_13, 30.08.2015 в 14:42.
Andrey_13 вне форума  
 
Непрочитано 31.08.2015, 15:00
#48
Vetinj


 
Регистрация: 31.08.2015
Сообщений: 4


Andrey_13 возможно ли добавить в AVP.lsp функцию при котором будет показываться силуэт видового экрана при вставки на лист( пример Af.lsp) и привязка будет осуществляться за левый верхний угол + добавить блокирование ВЭ.
Vetinj вне форума  
 
Непрочитано 31.08.2015, 15:12 Vetinj
#49
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


По AVP.lsp

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


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

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

Последний раз редактировалось perpetule, 31.08.2015 в 15:55.
perpetule вне форума  
 
Непрочитано 31.08.2015, 15:17
#50
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


Прикладываю проблемный файл.
При указании масштаба 1:1 лисп обрабатывает только 1 рамку. Выполнение лиспа прекращается после создания 1го видового экрана с ошибкой "Ошибка Automation. Неверный ввод".
При указании других масштабов - обрабатывает все рамки, но не устанавливает параметры листа для печати.
Вложения
Тип файла: dwg
DWG 2013
Тест.dwg (34.8 Кб, 1328 просмотров)
kacugu вне форума  
 
Непрочитано 31.08.2015, 15:52 Andrey_13
#51
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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

1. При подтверждении удалять листы, исчезает запрос первого номера создаваемых вкладок.
2. При указании в качестве источника слоя блока часто/но-не-всегда- пишет
; ошибка: неверный тип аргумента: lselsetp nil
, при указании полилиниий - все Ок.
__________________
tc71
perpetule вне форума  
 
Непрочитано 31.08.2015, 16:07
#52
Vetinj


 
Регистрация: 31.08.2015
Сообщений: 4


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


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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 далее позволяет печатать на физический принтер.
Тема большая, кому интересно, изучаем самостоятельно.
Миниатюры
Нажмите на изображение для увеличения
Название: 2015-08-31_17h06_33.png
Просмотров: 97
Размер:	23.4 Кб
ID:	156024  
Вложения
Тип файла: dwg
DWG 2010
Тест8 - копия.dwg (147.6 Кб, 1270 просмотров)
Тип файла: zip Комплект-файлов-для-НПЛ-PDF-DWF-DWFx----.zip (117.2 Кб, 57 просмотров)
__________________
tc71

Последний раз редактировалось perpetule, 31.08.2015 в 19:46.
perpetule вне форума  
 
Непрочитано 31.08.2015, 17:40
1 | #54
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


Всё оказалось просто. В строке
Код:
[Выделить все]
 ((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
kacugu вне форума  
 
Автор темы   Непрочитано 31.08.2015, 20:23
#55
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


Цитата:
Сообщение от perpetule Посмотреть сообщение
1. При подтверждении удалять листы, исчезает запрос первого номера создаваемых вкладок.
Его изначально не было. Сделано.
Цитата:
Сообщение от perpetule Посмотреть сообщение
Кроме того не все и не всегда листы располагают по полочкам (слева направо, сверху вниз)
Это наиболее приемлемый и естественный порядок. Приняв ваше предложение, потом начнётся: "Давайте учтём интересы тех пользователей, кто чертит в зеркальном отражении/с похмелья/чтобы программа сама проект сделала и т.п."
Цитата:
Сообщение от Vetinj Посмотреть сообщение
добавить блокирование ВЭ
Блокирование добавлено.
Цитата:
Сообщение от perpetule Посмотреть сообщение
Поддерживаю границы, и блокировку ВЭ.
Привязку ЛВУ - не поддерживаю, лучше оставить как есть НЛУ.
Цитата:
что-то одно либо ЛВУ либо границы
Сделан показ границ.
Цитата:
Сообщение от kacugu Посмотреть сообщение
нужно исправить 840 на 841
Исправлено.
Цитата:
Сообщение от perpetule Посмотреть сообщение
2. При указании в качестве источника слоя блока часто/но-не-всегда- пишет
Исправлено.
Andrey_13 вне форума  
 
Непрочитано 01.09.2015, 09:15 Andrey_13
#56
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


Цитата:
Это наиболее приемлемый и естественный порядок. Приняв ваше предложение, потом начнётся: "Давайте учтём интересы тех пользователей, кто чертит в зеркальном отражении/с похмелья/чтобы программа сама проект сделала и т.п."
Имелось ввиду не арабское письмо(используется для письма справа налево) или иные лишние запросы в 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, он немного не соответствует заявленому слева направо, сверху вниз, или я чего-то не понимаю?

В шапке темы
Цитата:
Обновление (от поздних к ранним):
не соответствует истории изменений, последние записываются ниже.
Вложения
Тип файла: dwg
DWG 2010
Тест9 - порядок создания вкладок листов.dwg (200.8 Кб, 1031 просмотров)
__________________
tc71

Последний раз редактировалось perpetule, 01.09.2015 в 19:33.
perpetule вне форума  
 
Непрочитано 01.09.2015, 12:07
#57
Vetinj


 
Регистрация: 31.08.2015
Сообщений: 4


Andrey_13 Спасибо за оперативное изменение AVP.lsp. Удобнее стало работать с ВЭ
Vetinj вне форума  
 
Автор темы   Непрочитано 01.09.2015, 20:26
#58
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


Цитата:
Сообщение от 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 просто поражает здоровым минимализмом.
Минимализм - моя крайность.
-----
Обратите внимание: изменена команда вызова программы.
Andrey_13 вне форума  
 
Непрочитано 02.09.2015, 08:47 Andrey_13
#59
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


AddLay.lsp

Цитата:
Вывод слева направо или сверху вниз будет только тогда, когда листы в модели расположены тоже слева направо или сверху вниз. Программа не настолько умна, чтобы "читать" листы в модели в несколько строк.
Пожелание, в шапку-описание отредактировать/добавить следущее:
"Лисп пока может адекватно распознать форматки и пронумеровать ВЭ по порядку следования в одну строку или в один столбец (либо слева направо, либо сверху вниз").
При расположении форматок матрицей - ВЭ будут созданы, но нумерация вкладок потеряет упорядоченность.
__________________
tc71
perpetule вне форума  
 
Автор темы   Непрочитано 02.09.2015, 08:55
#60
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


Подправлено.
Andrey_13 вне форума  
 
Непрочитано 04.09.2015, 00:06 Andrey_13
#61
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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

Пожелание (вопрос неоднозначный - обсуждается):
устанавливать 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 для вкладок листов нужно устанавливать программно, с предупреждением в шапке темы (можно указать какие строки закоментировать при желании не менять эту переменную).
В этом случае и лишнего запроса нет, и переделать под аннотативность можно.
Миниатюры
Нажмите на изображение для увеличения
Название: 2015-09-04__ TC71-PC__ 12.11.27 AM.png
Просмотров: 101
Размер:	8.4 Кб
ID:	156292  
__________________
tc71

Последний раз редактировалось perpetule, 04.09.2015 в 09:33.
perpetule вне форума  
 
Непрочитано 15.09.2015, 16:30
#62
Vetinj


 
Регистрация: 31.08.2015
Сообщений: 4


AVP.LSP При вставки ВЭ у предыдущего слетает видимость изображения, при дальнейшей работе вставляется пустой ВЭ. Переменная MAXACTVP-64, ВЭ включен.
В чем может быть причина?
Vetinj вне форума  
 
Непрочитано 16.09.2015, 12:30
#63
betonolom


 
Регистрация: 15.10.2013
Сообщений: 30


Пользуюсь 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 или лисп автоматического переноса, чтобы видовые экраны переходили на нужный слой.
Спасибо.
betonolom вне форума  
 
Автор темы   Непрочитано 16.09.2015, 12:40
1 | #64
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


Цитата:
Сообщение от Vetinj Посмотреть сообщение
В чем может быть причина?
По вашей проблеме у меня, к сожалению, нет информации.
Цитата:
Сообщение от betonolom Посмотреть сообщение
Подскажите как подправить AVP.LSP или лисп автоматического переноса, чтобы видовые экраны переходили на нужный слой.
В конце программы AVP.LSP после строки
Код:
[Выделить все]
 (vla-put-CustomScale Viewport (/ (float 1) (float Scale)))
добавьте строку
Код:
[Выделить все]
 (vla-put-Layer Viewport "КР_П_01_ВЭ")
Andrey_13 вне форума  
 
Непрочитано 05.10.2015, 17:39
#65
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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

P.S. Добавлен PDF reDirect, дальнейшие добавления виртуальных PDF - > пишем в ЛС, дабы не размазывать тему!
Nike - спасибо за ссылку!
Вложения
Тип файла: pdf Конвертеры-документов-2015-10-06--v002.pdf (280.7 Кб, 56 просмотров)
Тип файла: docx Конвертеры-документов-2015-10-06--v002.docx (29.9 Кб, 36 просмотров)
__________________
tc71

Последний раз редактировалось perpetule, 06.10.2015 в 09:14.
perpetule вне форума  
 
Непрочитано 05.10.2015, 17:52
#66
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,873


perpetule, "PDF reDirect" забыли.
Nike вне форума  
 
Непрочитано 13.10.2015, 16:33
#67
betonolom


 
Регистрация: 15.10.2013
Сообщений: 30


Цитата:
Сообщение от perpetule Посмотреть сообщение
Не знаю стоит ли, но только что столкнулся в чужих чертежах с проблемой, многие разбрасывают аннотативный текст , даже не подозревая что он аннотативный.
....
А у меня другая проблема: при использовании AVP.LSP видовые экраны создаются с масштабом аннотаций равным 1:1, и поэтому даже если масштаб аннотаций текстов и размеров в модели совпадает с масштабом, устанавливаемом при запросе лиспа, то в видовом экране они не отображаются (масштаб аннотаций в модели не совпадает с масштабом аннотаций видового экрана).
Подскажите пожалуйста, как откорректировать лисп, чтоб масштаб аннотаций видового экрана устанавливался равным масштабу видового экрана?
betonolom вне форума  
 
Непрочитано 23.10.2015, 12:05
1 | #68
Poker face


 
Регистрация: 20.10.2015
Сообщений: 2


Привет всем. Новичок на форуме и в лиспе. По работе понадобился инструмент для автоматического формирования листов. Скачал 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) убрал выбор формата по площади, т.к. в моем случае формат листа задается вручную
Вложения
Тип файла: lsp AddLayforDwgru.LSP (17.8 Кб, 110 просмотров)
Poker face вне форума  
 
Непрочитано 23.11.2015, 09:23
#69
Kserg_nn


 
Регистрация: 03.02.2010
Сообщений: 19


Добрый день. Спасибо за полезный лисп.
Если можно то внесите небольшое изменение
Суть. Есть планы линейных объектом, на протяжении трассы расставляются форматки, соответственно не горизонтально, а под разными углами, вдоль самой трассы.
Программа определяет и создает листы и видовые экраны, НО видовой экран на этом участке остается горизонтальным. Пожалуйста сделайте так, чтобы и форматка и видовой экран были вместе одинаково ориентированы по горизонтали на листе.
Еще маленький вопрос. Где и что добавить в лиспе чтобы по умолчанию видовые экраны сохранялись в слое "ВЭ" и этот слой был не печатный.
Спасибо
Вложения
Тип файла: dwg
DWG 2010
Чертеж1.dwg (76.4 Кб, 657 просмотров)
Kserg_nn вне форума  
 
Непрочитано 25.11.2015, 13:47
#70
Poker face


 
Регистрация: 20.10.2015
Сообщений: 2


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


 
Регистрация: 03.02.2010
Сообщений: 19


Цитата:
Сообщение от Poker face Посмотреть сообщение
Небольшим изменением тут не обойтись. Стороны видового экрана параллельны осям мировых координат. Могу посоветовать ставить форматку на плане горизонтально/вертикально, а уже потом зайдя в модель через видовой экран (не забудьте разблокировать вид в свойствах видового экрана) поворачивать как надо и менять ПСК. Со слоем проще, в лисп добавлять ничего не надо, видовые экраны создаются в текущем слое, соответственно если в чертеже есть слой ВЭ и он непечатаемый, то нужно просто сделать его текущим перед запуском лиспа.
как по вернуть экран я знаю, но это все руками, теряется весь смысл автоматизации, поэтому хотелось бы это видеть программно (есть подобный лисп, но он привязан к шаблонам и работает только до 2012 версии + с ним есть ряд неудобств)
по поводу ВЭ.
хотелось бы это сразу чтобы в лиспе было прописано, чтобы с самого начала слой устанавливался нужного имени или создавался нужного имени. Так как этим лиспом пользуются разные люди, каждый раз контролировать какой слой текущий не каждый будет да и не нужно это.
Kserg_nn вне форума  
 
Непрочитано 27.11.2015, 09:20
#72
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


Цитата:
Сообщение от Kserg_nn Посмотреть сообщение
как по вернуть экран я знаю, но это все руками, теряется весь смысл автоматизации, поэтому хотелось бы это видеть программно (есть подобный лисп, но он привязан к шаблонам и работает только до 2012 версии + с ним есть ряд неудобств)
по поводу ВЭ.
хотелось бы это сразу чтобы в лиспе было прописано, чтобы с самого начала слой устанавливался нужного имени или создавался нужного имени. Так как этим лиспом пользуются разные люди, каждый раз контролировать какой слой текущий не каждый будет да и не нужно это.
http://forum.dwg.ru/showthread.php?t=83750 - прототип, с вашей задачей справится
freese вне форума  
 
Непрочитано 10.12.2015, 14:24
#73
Kserg_nn


 
Регистрация: 03.02.2010
Сообщений: 19


Цитата:
Сообщение от freese Посмотреть сообщение
http://forum.dwg.ru/showthread.php?t=83750 - прототип, с вашей задачей справится
не подходит или что то не так делаю
по повернутым форматкам нельзя ничего сделать, не саму форматку в правильную рамку определить, ни видовой экран по форматке сделать ((
Kserg_nn вне форума  
 
Непрочитано 10.12.2015, 16:21
#74
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


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

_Chspace

_-vports _o
Миниатюры
Нажмите на изображение для увеличения
Название: 2015-12-10 - 16.16.04---MyImgur---модель--.png
Просмотров: 75
Размер:	9.9 Кб
ID:	162052  Нажмите на изображение для увеличения
Название: 2015-12-10 - 16.16.43---MyImgur---лист--.png
Просмотров: 51
Размер:	5.1 Кб
ID:	162053  Нажмите на изображение для увеличения
Название: 2015-12-10 - 16.17.54---MyImgur---лист--.png
Просмотров: 85
Размер:	13.1 Кб
ID:	162054  Нажмите на изображение для увеличения
Название: 2015-12-10 - 16.18.42---MyImgur---лист--в-модель-с-чуть сбитым-масштабом--.png
Просмотров: 53
Размер:	9.1 Кб
ID:	162055  
__________________
tc71
perpetule вне форума  
 
Непрочитано 19.02.2016, 07:10
#75
Vladimir_Sergeevich

рисую дороги, в перерывах курю Lisp
 
Регистрация: 20.04.2011
Пермь
Сообщений: 402
<phrase 1= Отправить сообщение для Vladimir_Sergeevich с помощью Skype™


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)" и тому подобные, думаю можно будет и неформат позже дописать туда же
__________________
Не труд сделал из обезьяны человека, а лень и жажда халявы...
Vladimir_Sergeevich на форуме  
 
Непрочитано 19.02.2016, 17:12
#76
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


betonolom, попробуйте после строчки
Код:
[Выделить все]
 (vla-put-mspace ActiveDocument :vlax-true)
вставить строчку
Код:
[Выделить все]
 (setvar "cannoscale" (strcat "1:" (rtos Scale 2 0)))
Должно подходить и для addlay.lsp
kacugu вне форума  
 
Непрочитано 04.04.2016, 11:19
#77
KEHT


 
Регистрация: 12.11.2014
Сообщений: 29


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

----- добавлено через ~55 мин. -----
(vla-zoomcenter Application (vlax-3d-point (list (/ (+ Point1x Point2x) 2) (/ (+ Point1y Point2y) 2))) 1.0) Ошибка в этой строчке иногда сбивается центровка...
KEHT вне форума  
 
Непрочитано 20.04.2016, 17:57
#78
Segey.K


 
Регистрация: 29.02.2016
Сообщений: 2


Цитата:
Сообщение от Andrey_13 Посмотреть сообщение
По вашей проблеме
Андрей подскажи пожалуйста куда и что нужно дописать в коде AddLay.LSP, чтобы при создании листа переменная PSLTSCALE была = 0, по умолчанию PSLTSCALE=1. Очень нужно. Заранее спасибо.
Segey.K вне форума  
 
Автор темы   Непрочитано 21.04.2016, 06:40
#79
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


Цитата:
Сообщение от Segey.K Посмотреть сообщение
Андрей подскажи пожалуйста куда и что нужно дописать в коде AddLay.LSP, чтобы при создании листа переменная PSLTSCALE была = 0, по умолчанию PSLTSCALE=1. Очень нужно. Заранее спасибо.
Посмотрите во вложении.
Вложения
Тип файла: lsp AddLay Segey.K.LSP (12.7 Кб, 62 просмотров)
Andrey_13 вне форума  
 
Непрочитано 31.05.2016, 23:35
#80
KEHT


 
Регистрация: 12.11.2014
Сообщений: 29


Цитата:
Сообщение от 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) ; Указание точки вставки видового экрана
    )
  )
Теперь вайпорты не сбиваются
KEHT вне форума  
 
Непрочитано 16.09.2016, 11:21
#81
ElectricSib


 
Регистрация: 03.11.2015
Сообщений: 16


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

Последний раз редактировалось ElectricSib, 16.09.2016 в 11:34.
ElectricSib вне форума  
 
Непрочитано 16.09.2016, 21:35
#82
skkkk

AutoCAD_2008->2011
 
Регистрация: 20.03.2008
Московская область
Сообщений: 2,270


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


 
Регистрация: 03.11.2015
Сообщений: 16


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

Цитата:
Сообщение от Andrey_13 Посмотреть сообщение
Обновление (от старых к новым):
- для нестандартных форматов листов устанавливается пустое устройство печати;
ElectricSib вне форума  
 
Непрочитано 20.09.2016, 13:25
#84
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


что-то мне подсказывает, что вот часть кода вам надо переписать под себя, с учетом ваших форматов
Код:
[Выделить все]
 
;;; Установка форматов листа
    (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 "Нет")
       )
      )
 

Последний раз редактировалось kacugu, 20.09.2016 в 14:04.
kacugu вне форума  
 
Непрочитано 20.09.2016, 13:34
#85
AlexCondor

инженер
 
Регистрация: 03.08.2007
Сообщений: 799


Цитата:
Сообщение от ElectricSib Посмотреть сообщение
Но тем не менее, заглючил в файле с чертежами формата А4х5
Цитата:
Сообщение от ElectricSib Посмотреть сообщение
Необходимые нестандартные форматы типа A4x3 там уже есть.
Что-то не стыкуется
AlexCondor вне форума  
 
Непрочитано 21.09.2016, 11:17
#86
ElectricSib


 
Регистрация: 03.11.2015
Сообщений: 16


Цитата:
Сообщение от 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).

Последний раз редактировалось ElectricSib, 21.09.2016 в 12:13.
ElectricSib вне форума  
 
Непрочитано 21.09.2016, 15:57
#87
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


Попробуйте с помощью лиспа
Код:
[Выделить все]
 
;;; 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.
kacugu вне форума  
 
Непрочитано 23.09.2016, 07:13
#88
Vladimir_Sergeevich

рисую дороги, в перерывах курю Lisp
 
Регистрация: 20.04.2011
Пермь
Сообщений: 402
<phrase 1= Отправить сообщение для Vladimir_Sergeevich с помощью Skype™


CanonicalMediaName скорее всего будет вида "UserDefinedMetric (279.00 x 841.00 мм)"
Когда то создавал наборы параметров печати под ПДФ, назначал имя таким макаром
Код:
[Выделить все]
 (strcat "UserDefinedMetric (" (rtos (cadr size) 2 2) " x " (rtos (car size) 2 2) "мм)")
__________________
Не труд сделал из обезьяны человека, а лень и жажда халявы...
Vladimir_Sergeevich на форуме  
 
Непрочитано 04.10.2016, 19:28
#89
Denis86


 
Регистрация: 04.10.2016
Сообщений: 2


Можете подсказать как исправить код чтобы устанавливалось "Центрировать" в параметрах печати.
Denis86 вне форума  
 
Непрочитано 04.10.2016, 19:55
#90
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


Почитайте про свойство centerplot (стр. 560 в "Autolisp и Visual Lisp в среде Autocad" Полещука)
kacugu вне форума  
 
Непрочитано 05.10.2016, 12:58
#91
Denis86


 
Регистрация: 04.10.2016
Сообщений: 2


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

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

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

PS. Новичок в LISPе.
Denis86 вне форума  
 
Непрочитано 06.10.2016, 22:07
2 | #92
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Добрый день, сотоварищи.
Попробовал я плагин (исходный) от 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].


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

По настройке плагина.
Если файл плагина будет лежать в зарегистрированных путях автокада, то будет считан файл настройки лежащий возле плагина. Если файл настройки "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".
Скажу сразу, немного по началу сложно, но оно того стоит. Проект в пакетную печать улетает "влёт". Сейчас сразу настраиваю два комплекта листов PDF и PLOT .

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

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

P.P.P.S. Для получения последней версии надо скачать файл исходного плагина "LISP.zip" и файл последней версии плагина (например файл "Sbugo_addlay_insert_v4.12.0.zip"). Распаковать и заменить (добавить) все содержащиеся там файлы.

Вызов плагина осуществляется командой SBADDLAY
Миниатюры
Нажмите на изображение для увеличения
Название: Таблица соответсвия.jpg
Просмотров: 359
Размер:	314.7 Кб
ID:	198846  Нажмите на изображение для увеличения
Название: Основной экран плагина.jpg
Просмотров: 8
Размер:	105.0 Кб
ID:	217640  
Вложения
Тип файла: docx 0_Как установить принтер_расширенная версия.docx (444.1 Кб, 305 просмотров)
Тип файла: zip LISP.zip (881.8 Кб, 513 просмотров)
Тип файла: zip Sbugo_addlay_insert_v4.12.1.zip (36.2 Кб, 6 просмотров)

Последний раз редактировалось petro_f, 10.09.2019 в 10:53. Причина: Обновил файл до новой версии [v 4.12.1] от 10.09.2019
petro_f вне форума  
 
Непрочитано 06.10.2016, 22:14
1 | #93
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

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

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

P.P.S. Поправил, перепаковав в формат RAR
Вложения
Тип файла: rar 0_Шаблон рамок для проекта.rar (210.9 Кб, 143 просмотров)

Последний раз редактировалось petro_f, 08.10.2016 в 23:27.
petro_f вне форума  
 
Непрочитано 06.10.2016, 23:29
1 | #94
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

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

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

PS. Новичок в LISPе.
Попробуй этим лиспом, команда FORMPLOT Он покажет "имя" формата. Название формата - полное название файла "*.pc3" или полное имя принтера. Лисп это тоже покажет.
Вложения
Тип файла: lsp Имя_и_формат_плоттера.lsp (2.7 Кб, 1 просмотров)
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!

Последний раз редактировалось petro_f, 10.09.2019 в 09:08. Причина: Заменил лисп. Расширил объем выводимых данных
petro_f вне форума  
 
Непрочитано 08.10.2016, 10:45
#95
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 714


petro_f, спасибо, но только без DWG To PDF_all_formats не отрабатывает, необходимо наличие данного принтера.
Что у вас за архиватор?
freese вне форума  
 
Непрочитано 08.10.2016, 23:32
#96
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от freese Посмотреть сообщение
petro_f, спасибо, но только без DWG To PDF_all_formats не отрабатывает, необходимо наличие данного принтера.
Что у вас за архиватор?
Да у меня ZIP стал косячить со шрифтами. Перепаковал на RAR формат, и положил в исходники.
Перекачайте и всё будет ОК.

"DWG To PDF_all_formats" это настроенный на листы виртуальный принтер PDF-формата "DWG To PDF.pc3", который идёт встроенным в акад (с 15 версией точно он есть).
Как вставить принтеры себе (копировать два файла) я уже там писал.
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 22.12.2016, 12:35
#97
greyser


 
Регистрация: 08.04.2012
Сообщений: 16


Цитата:
Сообщение от petro_f Посмотреть сообщение
Добрый день, сотоварищи.
Попробовал я плагин (исходный) от Andrey_13. Огромное спасибо ему.
Багрепорт: прога некорректно выводит порядок листов. Например, если листы по горизонтали и я выделяю их рамкой слева направо, то листы добавляются справа налево или вообще в случайном порядке. При использовании команды AL такой проблемы нет
greyser вне форума  
 
Непрочитано 28.12.2016, 08:20
#98
Ranmitril


 
Регистрация: 27.12.2016
Сообщений: 1


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


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от Ranmitril Посмотреть сообщение
Здравствуйте! Подскажите пожалуйста, как можно доработать Ваш код, что бы "научить" программу выбирать из настроек pmp файла нестандартные форматы листов.
В коде я видел как реализован метод назначения стандартных форматов. Я рассчитал диапазон площадей для нестандартного формата А4х3, вбил в код дополнительную строчку к стандартным листам, с данными, но способ не работает... Пробовал закоментить диапазоны для нестандартных листов, что бы он мой нестандартный формат не выкидывал, а думал что он стандартный, но это тоже не увенчалось успехом, может дело в имени (vla-put-CanonicalMediaName Layout "A4x3_(630.00_x_297.00_ММ)")). Но я не знаю как программно получить названия нестандартных форматов, т.е как они в pmp файле забиты... вроде функция vla-get-CanonicalMediaName Layout... но как ее воткнуть куда не знаю. Подскажите пожалуйста, как сделать ?
Ranmitril посмотри пост 94 и на базе этого попробуй вытянуть нестандартные форматы. Но скажу сразу? с чисто нестандартными форматами, о которых кад не знает, ничего не получится, так как там надо программно распаковывать ppm и pc3 файлы и их кодить..
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 03.03.2017, 12:08
| 1 #100
ElectricSib


 
Регистрация: 03.11.2015
Сообщений: 16


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



Это особенность скрипта или этот глюк возникает только у меня? Если причиной является первый вариант, то есть ли возможность как-то подправить скрипт, чтобы Рамка чертежа и Видовой экран точно соответствовали друг другу по координатам?
ElectricSib вне форума  
 
Автор темы   Непрочитано 03.03.2017, 12:11
#101
Andrey_13

Инженер-проектировщик РЗА, ПА, ВК
 
Регистрация: 06.02.2014
Екатеринбург
Сообщений: 32


Цитата:
Сообщение от ElectricSib Посмотреть сообщение
Это особенность скрипта или этот глюк возникает только у меня? Если причиной является первый вариант, то есть ли возможность как-то подправить скрипт, чтобы Рамка чертежа и Видовой экран точно соответствовали друг другу по координатам?
Выложите файл с рамками для анализа.
Andrey_13 вне форума  
 
Непрочитано 03.03.2017, 12:19
#102
ElectricSib


 
Регистрация: 03.11.2015
Сообщений: 16


Цитата:
Сообщение от Andrey_13 Посмотреть сообщение
Выложите файл с рамками для анализа.
Приложил файл с рамками и получившийся PDF.
Вложения
Тип файла: dwg
DWG 2013
Рамки.dwg (28.9 Кб, 14 просмотров)
Тип файла: pdf Рамки.pdf (5.3 Кб, 41 просмотров)
ElectricSib вне форума  
 
Непрочитано 03.03.2017, 13:04
1 | 1 #103
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


Цитата:
Сообщение от ElectricSib Посмотреть сообщение
правая и верхняя границы срезаны минимум на 0,7 мм
не 0,7 мм, а 0,8 (смотрите вложение)
Миниатюры
Нажмите на изображение для увеличения
Название: 0.8мм форум.png
Просмотров: 112
Размер:	51.1 Кб
ID:	184540  
kacugu вне форума  
 
Непрочитано 03.03.2017, 13:27
#104
ElectricSib


 
Регистрация: 03.11.2015
Сообщений: 16


Цитата:
Сообщение от kacugu Посмотреть сообщение
не 0,7 мм, а 0,8 (смотрите вложение)
Да, верно. Только сейчас обратил внимание, что в настройках стандартных форматов по умолчанию два поля отличались от нуля. Дело не в скрипте. Спасибо.

Последний раз редактировалось ElectricSib, 09.03.2017 в 12:59.
ElectricSib вне форума  
 
Непрочитано 27.03.2017, 10:45
#105
Serghei


 
Регистрация: 07.02.2007
Мъ
Сообщений: 288


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


 
Регистрация: 08.04.2012
Сообщений: 16


Цитата:
Сообщение от Serghei Посмотреть сообщение
Автокад 2014.
У меня не работает лисп AddLay.LSP, подскажите пожалуйста как это исправить?
Лисп AVP работает, но он создает только лист и спрашивает масштаб, и все.
Хотелось бы рабочий лисп, чтобы иметь возможность выбора принтера, хотя dwg to pdf.pc3 вполне устраивает, выбор стиля печати.
Помогите пожалуйста.
Спасибо.
Лиспы из поста №92 работают. Надо придерживаться инструкции. На каком шаге проблемы?
greyser вне форума  
 
Непрочитано 27.03.2017, 13:33
#107
Serghei


 
Регистрация: 07.02.2007
Мъ
Сообщений: 288


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

Из поста 92 лисп работает. Не заметил его сразу, спасибо.
Serghei вне форума  
 
Непрочитано 19.04.2017, 08:44
#108
Gotch


 
Регистрация: 07.02.2007
Сообщений: 194


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

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

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

можно ли такое сделать лиспом?
Вложения
Тип файла: dwg
DWG 2007
пример.dwg (164.4 Кб, 18 просмотров)
Тип файла: rar Plotters.rar (6.3 Кб, 10 просмотров)

Последний раз редактировалось Gotch, 19.04.2017 в 09:12.
Gotch вне форума  
 
Непрочитано 19.04.2017, 08:56
#109
baksconstructor


 
Регистрация: 05.11.2014
Сообщений: 916


Цитата:
Сообщение от Gotch Посмотреть сообщение
именно под динамическую рамку делал настройку листа пример прикладываю
небольшое уточнение - у вас уже есть листы, но вам надо в каждом поменять настройки печати ?
baksconstructor вне форума  
 
Непрочитано 19.04.2017, 08:58
#110
skkkk

AutoCAD_2008->2011
 
Регистрация: 20.03.2008
Московская область
Сообщений: 2,270


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

----- добавлено через ~7 мин. -----
Правда, динамический блок рамки должен находиться в модели. Я почему-то принял слово "Листе" за опечатку. Уж больно "Модели" напрашивалось по смыслу. Возможно, ошибался.
Цитата:
Сообщение от Gotch Посмотреть сообщение
имеется динамический блок рамки которая находится на Листе, все остальное через видовой экран выводим на лист
.
skkkk вне форума  
 
Непрочитано 19.04.2017, 09:12
#111
baksconstructor


 
Регистрация: 05.11.2014
Сообщений: 916


Цитата:
Сообщение от skkkk Посмотреть сообщение
Gotch, вот эта программа умеет: C# .net Создание Layout для чертежей, оформленных в модели
У него уже есть лист с рамкой, поэтому и вопрос уточнения.
baksconstructor вне форума  
 
Непрочитано 19.04.2017, 09:18
#112
Gotch


 
Регистрация: 07.02.2007
Сообщений: 194


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

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

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

----- добавлено через 39 сек. -----
Цитата:
Сообщение от baksconstructor Посмотреть сообщение
небольшое уточнение - у вас уже есть листы, но вам надо в каждом поменять настройки печати ?
Да
Gotch вне форума  
 
Непрочитано 19.04.2017, 09:24
#113
baksconstructor


 
Регистрация: 05.11.2014
Сообщений: 916


Цитата:
Сообщение от Gotch Посмотреть сообщение
Да
Ну как вариант - Реверс, только если печать не нужна - выключаем принтер, в проге производим поиск рамок, нажимаем печать, она настраивает листы как вам надо, сохраняем чертеж. Задание принтера "убиваем" руками.
baksconstructor вне форума  
 
Непрочитано 19.04.2017, 09:28
#114
Gotch


 
Регистрация: 07.02.2007
Сообщений: 194


подскажите что такое реверс и как с ним работать?
Gotch вне форума  
 
Непрочитано 19.04.2017, 09:34
#115
baksconstructor


 
Регистрация: 05.11.2014
Сообщений: 916


Цитата:
Сообщение от Gotch Посмотреть сообщение
подскажите что такое реверс и как с ним работать?
Полная тема здесь http://forum.dwg.ru/showthread.php?t=104517
а вот ссылка на прогу
baksconstructor вне форума  
 
Непрочитано 19.04.2017, 09:36
#116
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

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

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

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


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

Последний раз редактировалось petro_f, 19.04.2017 в 09:43.
petro_f вне форума  
 
Непрочитано 19.04.2017, 09:37
#117
Gotch


 
Регистрация: 07.02.2007
Сообщений: 194


Цитата:
Сообщение от baksconstructor Посмотреть сообщение
платная программа отпадает
Gotch вне форума  
 
Непрочитано 19.04.2017, 09:40
#118
skkkk

AutoCAD_2008->2011
 
Регистрация: 20.03.2008
Московская область
Сообщений: 2,270


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


 
Регистрация: 07.02.2007
Сообщений: 194


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


 
Регистрация: 05.11.2014
Сообщений: 916


Offtop:
Цитата:
Сообщение от Gotch Посмотреть сообщение
платная программа отпадает
а чё так ? мы довольны.
baksconstructor вне форума  
 
Непрочитано 19.04.2017, 09:51
#121
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от 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. Выбирается нужный лист и вперёд..
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!

Последний раз редактировалось petro_f, 19.04.2017 в 10:01.
petro_f вне форума  
 
Непрочитано 19.04.2017, 09:57
#122
Gotch


 
Регистрация: 07.02.2007
Сообщений: 194


Цитата:
Сообщение от petro_f Посмотреть сообщение
А этот плагин не пробовали (создавая фрагменты) http://forum.dwg.ru/showpost.php?p=1634638&postcount=16 это исправленная версия исходного плагина http://forum.dwg.ru/showthread.php?p...38#post1634638
зачем мне какие то фрагменты вырезать?
у меня трасса выкидного трубопровода от скважины и...
длинной до 10 км бывает
зачем мне ее разделять на кусочки, это неудобно
Gotch вне форума  
 
Непрочитано 19.04.2017, 10:43
#123
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от Gotch Посмотреть сообщение
зачем мне ее разделять на кусочки, это неудобно
Ну тогда в какой масштаб влезет 10-и километровая трасса? Она вообще на чертеже видна будет то?

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


 
Регистрация: 07.02.2007
Сообщений: 194


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

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

шаблонные листы не удобно
вставил один лист не подошел, удалил, вставил новый лист
ладно понятно нужно обращаться к VVA
Gotch вне форума  
 
Непрочитано 19.04.2017, 10:58
#125
Liverka


 
Регистрация: 05.01.2017
Сообщений: 19


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

Цитата:
Сообщение от Gotch Посмотреть сообщение
шаблонные листы не удобно
вставил один лист не подошел, удалил, вставил новый лист
В диспетчере параметров листов можно менять
Liverka вне форума  
 
Непрочитано 19.04.2017, 11:02
#126
baksconstructor


 
Регистрация: 05.11.2014
Сообщений: 916


Цитата:
Сообщение от Gotch Посмотреть сообщение
трасса разбивается видовыми экранами, для этого не нужно ее разрезать
с помощью ВЭ разбиваешь на листы
просто здесь всегда у людей противоположная задача, поэтому сразу не понятно.
Offtop: а вопрос всего то стоит 190 руб.
baksconstructor вне форума  
 
Непрочитано 19.04.2017, 11:03
#127
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

шаблонные листы не удобно
вставил один лист не подошел, удалил, вставил новый лист
ладно понятно нужно обращаться к VVA
Ну как то у нас на размеры листов существует ГОСТ, который довольно чётко регламентирует как сами форматки так и масштабы. Так что хочешь не хочешь, а его желательно придерживаться.
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 19.04.2017, 11:55
#128
skkkk

AutoCAD_2008->2011
 
Регистрация: 20.03.2008
Московская область
Сообщений: 2,270


Цитата:
Сообщение от Gotch Посмотреть сообщение
но, к примеру топопланы, их не оформишь в модели особенно если это трасса
О том я и говорил:
Цитата:
Сообщение от skkkk Посмотреть сообщение
После этого в случае необходимости рамки переносятся на лист командой _CHSPACE. У меня такая необходимость возникает только если нужно, чтобы видовой экран по каким-то причинам был меньше листа (например, если нужно вывести на лист не весь генплан, а его фрагмент)
Еще стоило добавить: или если нужно разделить большую (длинную) трассу на листы.
Для таких трасс я расставляю рамки на непечатаемом слое и без штампов (чтоб не мешались) в модели таким образом, чтобы адекватно все поместилось с учетом линий совмещения листов. Далее запускаю программу, получаю все листы, затем в листах расставляю блоки уже со штампами и в печатаемом слое, а затем подгоняю видовые экраны по линиям совмещения. На трассу в 10 км уходит 20-25 минут от силы. А непечатаемые рамки остаются в модели и напоминают о расположении листов, а также в уменьшенном виде идут на схему размещения листов.
skkkk вне форума  
 
Непрочитано 19.04.2017, 12:20
#129
Gotch


 
Регистрация: 07.02.2007
Сообщений: 194


у всех свое оформление
Ваше оформление нам не подходит
Gotch вне форума  
 
Непрочитано 19.04.2017, 12:30
| 1 #130
skkkk

AutoCAD_2008->2011
 
Регистрация: 20.03.2008
Московская область
Сообщений: 2,270


А в чем принципиальная разница? Вроде все оформление тоже в итоге в листах, трасса физически не разбивается на куски. Либо я что-то не так понял или не так объяснил?
skkkk вне форума  
 
Непрочитано 26.05.2017, 05:47
#131
DMS-chiii


 
Регистрация: 12.12.2009
Сообщений: 39


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

Последний раз редактировалось DMS-chiii, 26.05.2017 в 06:26.
DMS-chiii вне форума  
 
Непрочитано 03.06.2017, 18:20
#132
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от DMS-chiii Посмотреть сообщение
Хорошая программа. Но значение PSLTSCALE на листах остается равным 1. Наверное строки нужно как то по другому написать?
Какое то время спустя
Попробуйте плагин с поста 92
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 04.06.2017, 01:12
#133
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


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


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от kacugu Посмотреть сообщение
petro_f, а в ваш плагин из поста 92 реально сложно добавить возможность выбора масштаба прямо с объекта?
Например у меня есть 50 рамок. Часть из них имеет масштаб 50, часть 25 и так далее. И чтобы не выделять рамки по отдельности, задавая для них соответствующий масштаб, мы выделяем все рамки, а плагин считывает и применяет масштаб каждой рамки.
Если бы был какой либо закреплённый жёсткий маркер, по которому можно бы было высчитать масштаб... тогда да. А тут получается всё "плавает" и привязаться к чему либо нет возможности.
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 04.06.2017, 05:31
#135
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


Цитата:
Сообщение от petro_f Посмотреть сообщение
Если бы был какой либо закреплённый жёсткий маркер
А если использовать XScaleFactor Property?
(vla-get-XScaleFactor (vlax-ename->vla-object (car (entsel))))
kacugu вне форума  
 
Непрочитано 05.06.2017, 15:19
1 | #136
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от kacugu Посмотреть сообщение
А если использовать XScaleFactor Property?
(vla-get-XScaleFactor (vlax-ename->vla-object (car (entsel))))
Хм.. сделал... попробуйте версию 4.2
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 05.06.2017, 18:22
#137
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


petro_f, спасибо, завтра попробую ваш вариант
Offtop: сам только сегодня сделал свой)
********************
Проверил - всё работает.
Только вставил после 559 строки код.
Код:
[Выделить все]
 (setvar "cannoscale" (strcat "1:" (rtos sbugoPDScale 2 0)))
А то не отображались размеры и надписи в видовых экранах, из-за того, что "значение масштаба видового экрана не соответствовало аннотативному масштабу"

Последний раз редактировалось kacugu, 06.06.2017 в 03:02.
kacugu вне форума  
 
Непрочитано 06.06.2017, 10:23
#138
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

P.S. Я стараюсь не использовать аннотативные объекты... я пару раз попадал с ними при распечатке у Заказчика и больше решил не использовать.
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 06.06.2017, 12:23
#139
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


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


 
Регистрация: 06.10.2016
Сообщений: 108


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

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

----- добавлено через ~37 мин. -----
Цитата:
Сообщение от kacugu Посмотреть сообщение
Цитата:
Сообщение от petro_f
если такого масштаба по умолчанию нет в именованном масштабе
Так в том и дело, что эти масштабы существуют. Просто устанавливается масштаб 1:25.00000, а не 1:25
Добавил более корректную функцию установки масштаба (строки 560-569). Попробуйте версию 4.3
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 07.06.2017, 08:27
#141
kacugu

начинающий инженер-гидротехник
 
Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 696


Цитата:
Сообщение от petro_f Посмотреть сообщение
Попробуйте версию 4.3
Попробовал. Спасибо, отрабатывает нормально.
kacugu вне форума  
 
Непрочитано 11.06.2017, 19:44
#142
DMS-chiii


 
Регистрация: 12.12.2009
Сообщений: 39


Цитата:
Сообщение от 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 измененных примитивов.
Команда:
DMS-chiii вне форума  
 
Непрочитано 11.06.2017, 21:30
#143
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от DMS-chiii Посмотреть сообщение
Укажите объект для определения слоя с рамками
Выберите объекты: Противоположный угол: найдено: 2
Выберите объекты:
Выполняется регенерация листов.
Есть два варианта - либо выбирая рамкой зацепил какой либо предмет кроме рамки... либо не подгрузил настройки принтера с поста №92.
Как вариант для проверки можно выложить файл с рамкой либо попробовать рамку с поста №93 и выбирать вручную только рамку.
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!

Последний раз редактировалось petro_f, 11.06.2017 в 21:58.
petro_f вне форума  
 
Непрочитано 11.06.2017, 22:17
#144
DMS-chiii


 
Регистрация: 12.12.2009
Сообщений: 39


Как я понял проблема с моей рамкой, хоть аккуратно выделять только рамки, хоть сразу все элементы на Модели не работает. Если из поста 93 взять рамку, то нужно очень аккуратно выделять все рамки чтобы ничего кроме них не попадало в выбор, тогда работает. На мой взгляд удобно как в исходной программе когда можно сразу выделить все что есть на Модели. В вашей рамке не нашел ничего такого из за чего с ней работает. В своей пытаюсь поставить на тот же слой и не прокатывает.
Вложения
Тип файла: dwg 6.dwg (39.4 Кб, 22 просмотров)
DMS-chiii вне форума  
 
Непрочитано 11.06.2017, 22:29
#145
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от DMS-chiii Посмотреть сообщение
Как я понял проблема с моей рамкой, хоть аккуратно выделять только рамки, хоть сразу все элементы на Модели не работает. Если из поста 93 взять рамку, то нужно очень аккуратно выделять все рамки чтобы ничего кроме них не попадало в выбор, тогда работает. На мой взгляд удобно как в исходной программе когда можно сразу выделить все что есть на Модели. В вашей рамке не нашел ничего такого из за чего с ней работает. В своей пытаюсь поставить на тот же слой и не прокатывает.
Как я уже и говорил kacugu в посте №134, что найдётся человек, который сделает всё через жопу нестандартный масштаб. Вместо того что бы нарисовать рамку в масштабе 1:1 а затем масштабировать её в нужный размер DMS-chiii Вы сразу нарисовали рамку в масштабе 1:100
Вам DMS-chiii скажу одно - отключите автоматическое определение масштаба и поставьте вручную масштаб равный 1:100. Слой тут не причём.
Миниатюры
Нажмите на изображение для увеличения
Название: Масштаб.PNG
Просмотров: 38
Размер:	2.2 Кб
ID:	189573  
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!

Последний раз редактировалось petro_f, 11.06.2017 в 22:35.
petro_f вне форума  
 
Непрочитано 11.06.2017, 22:39
#146
DMS-chiii


 
Регистрация: 12.12.2009
Сообщений: 39


Спасибо заработало! Просто не очень понятно, что настройки создания видовых экранов значат
DMS-chiii вне форума  
 
Непрочитано 11.06.2017, 22:49
#147
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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


 
Регистрация: 06.10.2016
Сообщений: 108


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


 
Регистрация: 26.12.2013
Сообщений: 273


есть список точек
Код:
[Выделить все]
 ((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")
- не устраивает
либо как в эту команду вставить точки?
tujn08 вне форума  
 
Непрочитано 02.08.2017, 13:03
#150
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от 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")
Так пойдёт?
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 02.08.2017, 13:10
#151
tujn08


 
Регистрация: 26.12.2013
Сообщений: 273


Цитата:
Сообщение от 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 вне форума  
 
Непрочитано 04.08.2017, 13:05
#152
tujn08


 
Регистрация: 26.12.2013
Сообщений: 273


кто подскажет:
В цикле 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 мин. -----
И сразу вопрос-как перемещать видовые экраны?
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.jpg
Просмотров: 45
Размер:	64.9 Кб
ID:	191870  Нажмите на изображение для увеличения
Название: Безымянный2.jpg
Просмотров: 35
Размер:	66.0 Кб
ID:	191871  

Последний раз редактировалось tujn08, 04.08.2017 в 13:13.
tujn08 вне форума  
 
Непрочитано 07.08.2017, 17:30
#153
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от tujn08 Посмотреть сообщение
внезапно в момент (setq Viewport (entlast)) подхватывается не последний а предыдущий- почему?
Из-за этого зуммирование происходит неправильно
А не может быть, что зуммирование срывается из-за того, что область создания видового экрана выходит за границы (лимиты) чертежа? У меня из-за этого иногда не закрывался ВИ с выкидыванием ошибки.

Не проще сначала нарисовать полилинией области, потом выставить их как нужно и и далее из них создать ВИ?
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 07.08.2017, 18:39
#154
tujn08


 
Регистрация: 26.12.2013
Сообщений: 273


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

Цитата:
Сообщение от petro_f Посмотреть сообщение
Не проще сначала нарисовать полилинией области,
придется делать так, если не разберусь.
tujn08 вне форума  
 
Непрочитано 18.08.2017, 10:03
#155
posetitel


 
Регистрация: 16.10.2013
Сообщений: 181


Помогите с лиспом, никак не нарезаются листы в файле (файл прикладываю), в других чертежах все работает.
Масштаб 40:1, указывал в лиспе, но все равно никак
Вложения
Тип файла: dwg
DWG 2013
Печать листов.dwg (683.1 Кб, 11 просмотров)
posetitel вне форума  
 
Непрочитано 18.08.2017, 14:16
#156
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

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

Последний раз редактировалось petro_f, 18.08.2017 в 14:23.
petro_f вне форума  
 
Непрочитано 18.08.2017, 14:24
#157
posetitel


 
Регистрация: 16.10.2013
Сообщений: 181


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

----- добавлено через ~3 мин. -----
Цитата:
Сообщение от petro_f Посмотреть сообщение
Какая версия лиспа используется? Тут сейчас две (или больше) ветки в работе..

Лисп из поста #92 прекрасно нарезал листы в автомате. Только указывайте блок а не полилинию.
И обрабатывайте блоки отдельно, а полилинии отдельно - либо отключите автоопределение масштаба и тогда он смешанное определение поймет.
В общем всё работает.
Как раз и делал полилинию специально, т.к. если весь блок рамки поместить в отдельный слой, параметры блока выбрать "по блоку", то Лисп из 92 поста не работал.
posetitel вне форума  
 
Непрочитано 18.08.2017, 14:35
#158
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от posetitel Посмотреть сообщение
Как раз и делал полилинию специально, т.к. если весь блок рамки поместить в отдельный слой, параметры блока выбрать "по блоку", то Лисп из 92 поста не работал.
Всё же попробуйте лисп с #92. Только что проверил на рабочей машине Ваш файл - всё как часы и нарезалось и оформилось.что блоки, что полилиний рамки. Только если используете полилинии, то отключайте автомасштаб и ставьте принудительно в 40
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 18.08.2017, 14:50
#159
posetitel


 
Регистрация: 16.10.2013
Сообщений: 181


Да, тестовый файл, если указывать масштаб принудительно стал работать. Но не работает мой шаблон, прикладываю, что получается в работе лиспа
Вложения
Тип файла: dwg
DWG 2013
Печать листов 2.dwg (47.4 Кб, 9 просмотров)
posetitel вне форума  
 
Непрочитано 18.08.2017, 17:28
#160
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от posetitel Посмотреть сообщение
Да, тестовый файл, если указывать масштаб принудительно стал работать. Но не работает мой шаблон, прикладываю, что получается в работе лиспа
У Вас косяк в блоке - функция не может корректно определить его границы.
На рисунке обе рамки лежат в одном и том же месте - верхний текст - это мой блок (размеры функция показывает корректно - 210 мм), а нижний текст то, что функция показывает из Вашего блока (222 мм). Так что смотрите блок - весь косяк в нём. Функция стандартная и не может определить какой размер ей подали...
Миниатюры
Нажмите на изображение для увеличения
Название: Косяк.JPG
Просмотров: 28
Размер:	29.6 Кб
ID:	192435  
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 21.08.2017, 08:48
#161
posetitel


 
Регистрация: 16.10.2013
Сообщений: 181


а какой косяк может быть в блоке? как функция определяет границы? в блоке внешний контур вычерчен полилинией, у нее все свойства "по блоку", должно работать
posetitel вне форума  
 
Непрочитано 21.08.2017, 10:10
#162
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от 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
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!

Последний раз редактировалось petro_f, 21.08.2017 в 10:19.
petro_f вне форума  
 
Непрочитано 21.08.2017, 13:05
#163
tujn08


 
Регистрация: 26.12.2013
Сообщений: 273


Цитата:
Сообщение от perpetule Посмотреть сообщение
Есть специализированный
VIEWSBLK.lsp
В чем его прелесть? увы нет времени заюзать.
tujn08 вне форума  
 
Непрочитано 21.08.2017, 17:21
#164
skkkk

AutoCAD_2008->2011
 
Регистрация: 20.03.2008
Московская область
Сообщений: 2,270


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


 
Регистрация: 26.12.2013
Сообщений: 273


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

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

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

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

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

Последний раз редактировалось tujn08, 22.08.2017 в 14:37.
tujn08 вне форума  
 
Непрочитано 26.10.2017, 09:54
#166
IvanMosc


 
Регистрация: 29.01.2016
Сообщений: 11


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


 
Регистрация: 06.10.2016
Сообщений: 108


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

----- добавлено через ~3 мин. -----
Обновил плагин в #92 посте. Что обновлено - там же лог изменений пункт 19.
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 26.10.2017, 12:18
#168
IvanMosc


 
Регистрация: 29.01.2016
Сообщений: 11


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

Последний раз редактировалось IvanMosc, 26.10.2017 в 12:26.
IvanMosc вне форума  
 
Непрочитано 26.10.2017, 21:03
#169
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от IvanMosc Посмотреть сообщение
из шапки
автокад 16
Тогда увы и ах...
Автор давно молчит.
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 27.10.2017, 01:00
#170
skkkk

AutoCAD_2008->2011
 
Регистрация: 20.03.2008
Московская область
Сообщений: 2,270


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

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


 
Регистрация: 05.11.2014
Сообщений: 916


Рисуем в модели прямоугольники (то что должно быть в видовом экране) в Реверс нажимаем Создать листы, получаем видовые экраны, подгоняем рамку, всё. Или все хотят Большую красную кнопку "Сделать всё" ?
baksconstructor вне форума  
 
Непрочитано 27.10.2017, 12:38
#172
skkkk

AutoCAD_2008->2011
 
Регистрация: 20.03.2008
Московская область
Сообщений: 2,270


baksconstructor, речь как раз о том, как эти прямоугольники расставить удобно, и подобрать нужные форматы в зависимости от размеров и конфигурации подосновы. Когда речь заходит о больших участках, эта задача перестает быть столь тривиальной. А создать листы - не проблема.
skkkk вне форума  
 
Непрочитано 28.11.2017, 14:51
#173
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Обновил плагин в #92 посте. Что обновлено - там же лог изменений пункт 20.
Теперь можно создать разные "*.ini" файлы с разными настройками принтеров/плоттеров. Далее в зависимости от задач выбирать нужный файл.
У меня например есть плоттеры с "узкой" бумагой и "широкой". Периодически кончается бумага в одном из плоттеров. Что бы не заморачиваться просто перекидываю форматы (которые можно перекинуть, например А1) на другой плоттер и в печать.
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 17.12.2017, 11:56
#174
Dr.Smiley

Инженер-конструктор ПГС
 
Регистрация: 17.08.2011
Сообщений: 53


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

можно ли это как-то сделать с помощью данного лиспа или же если нет, то существует ли такой?
Dr.Smiley вне форума  
 
Непрочитано 17.12.2017, 15:25
#175
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

можно ли это как-то сделать с помощью данного лиспа или же если нет, то существует ли такой?
Уточните вопрос к какому лиспу относится - тут в ветке 3 плагина
Создание видовых экранов есть другой плагин, смотри во вложении.
Вложения
Тип файла: lsp AVP.LSP (2.9 Кб, 15 просмотров)
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 17.12.2017, 16:44
#176
Dr.Smiley

Инженер-конструктор ПГС
 
Регистрация: 17.08.2011
Сообщений: 53


Цитата:
Сообщение от petro_f Посмотреть сообщение
Создание видовых экранов есть другой плагин, смотри во вложении.
Может я что-то не так делаю? Этот плагин создает видовые экраны, но, каждый созданный видовой экран появляется на вновь созданном листе. было 10 сечений, он и создал 10 листов. А мне нужно чтобы все эти 10 сечений отобразились в одном листе.
Dr.Smiley вне форума  
 
Непрочитано 17.12.2017, 16:46
#177
maratovich


 
Регистрация: 12.07.2009
г. Самара
Сообщений: 2,334
Отправить сообщение для maratovich с помощью Skype™


Цитата:
Сообщение от Dr.Smiley Посмотреть сообщение
А мне нужно чтобы все эти 10 сечений отобразились в одном листе.
Нет такого. Делайте рамки в модели и создавайте из них листы или печатайте напрямую из модели.
__________________
Вопрос : Где находится Тургай ? Ответ : Между Парагваем и Уругваем.....
maratovich вне форума  
 
Непрочитано 17.12.2017, 16:58
#178
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от Dr.Smiley Посмотреть сообщение
Может я что-то не так делаю? Этот плагин создает видовые экраны, но, каждый созданный видовой экран появляется на вновь созданном листе. было 10 сечений, он и создал 10 листов. А мне нужно чтобы все эти 10 сечений отобразились в одном листе.
Плагин с поста #175 не подошёл? Я про плагин AVP. Встаёте на нужном видовом экране и поехали....
Миниатюры
Нажмите на изображение для увеличения
Название: Снимок.JPG
Просмотров: 28
Размер:	51.3 Кб
ID:	196894  
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 18.12.2017, 07:41
#179
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,026


Цитата:
Сообщение от Dr.Smiley Посмотреть сообщение
Может я что-то не так делаю? Этот плагин создает видовые экраны, но, каждый созданный видовой экран появляется на вновь созданном листе. было 10 сечений, он и создал 10 листов. А мне нужно чтобы все эти 10 сечений отобразились в одном листе.
Попробуйте вот этот плагин http://experement.spb.ru/wiki/doku.php?id=vport_pp , очень похоже на то, что вы хотите.
__________________
_бложиг
Boxa вне форума  
 
Непрочитано 18.12.2017, 09:15
#180
Dr.Smiley

Инженер-конструктор ПГС
 
Регистрация: 17.08.2011
Сообщений: 53


Цитата:
Сообщение от Boxa Посмотреть сообщение
Попробуйте вот этот плагин
на 11-м автокаде пошло, 14-й почему-то не работает.
но в любом случае большое спасибо за ценную ссылочку.
Dr.Smiley вне форума  
 
Непрочитано 18.12.2017, 21:40
#181
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

Последний раз редактировалось petro_f, 19.12.2017 в 06:18.
petro_f вне форума  
 
Непрочитано 19.12.2017, 07:36
#182
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,026


Цитата:
Сообщение от petro_f Посмотреть сообщение
А чем работа лиспа AVP (который работает практически во всех версиях када) отличается от работы монстра в виде dll, который ещё надо подгружать в зависимости от версии када?
Как некоторым образом причастный, попробую ответить.
Начну с того, что dll была создана в 2012 году, т.е. намного раньше данного топика и данного лиспа. Лисп не запускал, только посмотрел код avp.lsp, на нем и основываю свой ответ.

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

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

ЗЫ.
Вот это практически, при использовании коммандных методов, мне очень нравиться и ссылка на одинокий avp.lsp файл тоже.
__________________
_бложиг
Boxa вне форума  
 
Непрочитано 19.12.2017, 22:19
#183
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

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

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

Цитата:
Сообщение от Boxa Посмотреть сообщение
По поводу, подгружать версию dll в зависимости от версии автокада, хочется задать вопрос: как часто Вы переходите с одной версии авокада на другую и как много автокадов у Вас установлено одновременно, что подгрузка различных версий dll стало для Вас проблемой? Я без подкола, мне для понимания.
Ну как всегда 2013, 2015(16) и 2018 кад - на работе и дома разные версии. Так же ARX грузить ещё то удовольствие, а лисп просто мышёй затянул и не паришься о версии )) он работает и всё.
И таки лисп не надо компилировать под разные версии кадов и править его несравненно удобней и проще.

Цитата:
Сообщение от Boxa Посмотреть сообщение
ЗЫ.
Вот это практически, при использовании коммандных методов, мне очень нравиться и ссылка на одинокий avp.lsp файл тоже.
Таки не понял, что тут имелось сказать мне
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 20.12.2017, 00:42
#184
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 6,798


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

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,026


Просили написать в чем отличия программ, я написал.
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.
__________________
_бложиг
Boxa вне форума  
 
Непрочитано 20.12.2017, 11:23
#186
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от Сергей812 Посмотреть сообщение
petro_f, если все таки дойдете до программирования в том же Net, то все ваши выдуманные проблемы про зависимость от версии акада отпадут на фоне появляющихся возможностей. Например, очень многие пользуются утилитой для разбиения прокси от Ривилиса Александра на ObjectARX, и никто не возмущается необходимостью подгружать требуемую версию из десятка вариантов) Была бы реальная польза от программы.
Цитата:
Сообщение от Boxa Посмотреть сообщение
Начну с последнего, Вы всерьез считаете, что блокнотик или встроенный редактор Лисп удобнее MS Visual Studio с поддержкой intellisense? Править код в блокнотике проще и удобнее? Серьезно? Впрочем на вкус и цвет...
Про компиляцию. Если руки растут несколько выше "пятой точки", то компиляция под все требуемые версии автокадов выполняется одной кнопкой, впрочем этой же кнопкой выполняется и сборка .bundle пакета.

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

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

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

Так что у лиспа в этом есть определённые преимущества.
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 20.12.2017, 11:42
#187
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,026


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

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

Цитата:
Сообщение от petro_f Посмотреть сообщение
Так что у лиспа в этом есть определённые преимущества.
А вот с этим никто и не спорит.
__________________
_бложиг
Boxa вне форума  
 
Непрочитано 20.12.2017, 15:23
| 1 #188
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 6,798


Цитата:
Сообщение от Boxa Посмотреть сообщение
Согласовать с админом и начальством установку visual studio community или visual studio code, не велика проблема. Они условно бесплатны.
Тот же SharpDevelop тоже вполне подойдет, если не попадаете под условия бесплатности Visual Studio)

Цитата:
Сообщение от Boxa Посмотреть сообщение
А по поводу исходных кодов,"Вы не поверите", но они практически все открыты и никто их не прячет, соответственно если автор плагина потерял интерес и бросил его, это совсем не значит, что плагин умер, любой грамотный разработчик может его воскресить, при желании и согласовании с автором.
Это если изначально надстройка предназначена в свободный доступ, если автор захочет ограничить хождение надстройки по рукам - есть те же средства защиты сборок. И их вскрыть можно, но кто способен будет разобраться в коде - возможно, сам быстрее напишет требуемый функционал за те же деньги)
Сергей812 вне форума  
 
Непрочитано 20.12.2017, 16:03
#189
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,026


Кстати, вот пример воскрешения: http://forum.dwg.ru/showthread.php?t=83750&page=27
__________________
_бложиг
Boxa вне форума  
 
Непрочитано 17.01.2018, 12:51
#190
Scared


 
Регистрация: 06.10.2017
Сообщений: 35


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

----- добавлено через ~47 мин. -----
И еще вдогонку.
Нельзя прикрутить сюда выбор формата листа по размеру рамки?
Вложения
Тип файла: dwg
DWG 2010
ЛО_рамки.dwg (168.1 Кб, 17 просмотров)
Scared вне форума  
 
Непрочитано 17.01.2018, 13:40
#191
baksconstructor


 
Регистрация: 05.11.2014
Сообщений: 916


Цитата:
Сообщение от Scared Посмотреть сообщение
Нельзя прикрутить сюда выбор формата листа по размеру рамки?
Вам сюда http://forum.dwg.ru/showthread.php?t=104517
baksconstructor вне форума  
 
Непрочитано 17.01.2018, 14:44
#192
Scared


 
Регистрация: 06.10.2017
Сообщений: 35


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

Последний раз редактировалось Scared, 18.01.2018 в 09:54. Причина: перенос в другую тему
Scared вне форума  
 
Непрочитано 17.01.2018, 14:53
1 | #193
baksconstructor


 
Регистрация: 05.11.2014
Сообщений: 916


Цитата:
Сообщение от Scared Посмотреть сообщение
Если кто может подсказать утилиты/утилиты, которые это делают - буду крайне признателен )
попробуйте написать maratovich, он много чего сотворил, может поможет.
baksconstructor вне форума  
 
Непрочитано 18.01.2018, 11:04
#194
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

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

Сделать правильное определение координат можно - только как будет время. Просто у Вас там совсем глухо - масштаб и размеры рамок..... просто аут
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 19.01.2018, 16:44
#195
Scared


 
Регистрация: 06.10.2017
Сообщений: 35


Цитата:
Сообщение от petro_f Посмотреть сообщение
А вот этот пост посмотрели?

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


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от Scared Посмотреть сообщение
Это не рамки, а заготовки видовых экранов. Размеры их могут быть произвольными - в зависимости от того, что должно в эти виды попасть.
Собственно и хотелось бы, чтоб ПСК в новых ВЭ была повернута соответствующим образом.
В примере на видео создаются такие же ортогональные ВЭ.
Если так не понятно - могу выложить еще один файл с оформленным листом
Так то понятно, но заготовки видовых экранов всё равно надо подгонять под "стандартные" ГОСТ-е размеры.
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 22.01.2018, 00:49
#197
EdgarR


 
Регистрация: 18.01.2018
Сообщений: 5


Цитата:
Сообщение от petro_f Посмотреть сообщение
Так то понятно, но заготовки видовых экранов всё равно надо подгонять под "стандартные" ГОСТ-е размеры.
Добрый день! скачал ваш Lisp - все супер, только почему-то он у меня не определяет масштаб и выходит в ошибку. Печать рамки 420х297 (единицы чертежа) он видит, а 42000х29700 не может промасштабировать. Акад 2014 =)
Это можно как-то вылечить?

Попытка прописать вручную масштаб 1мм - 100ед чертежа в диалоговом окне ничего не дает.
Установка на листе аннотативного масштаба 1:100 аналогично ничего не дает
EdgarR вне форума  
 
Непрочитано 22.01.2018, 00:57
#198
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

Попытка прописать вручную масштаб 1мм - 100ед чертежа в диалоговом окне ничего не дает.
Установка на листе аннотативного масштаба 1:100 аналогично ничего не дает
Пришлите файл на посмотреть - можно только рамку.
Скорее всего Вы рамку сделали не правильно. Правильно сделать рамку в масштабе 1:1 по ГОСТ, а потом рамку масштабировать средствами када.
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 22.01.2018, 04:28
#199
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

----- добавлено через ~47 мин. -----
И еще вдогонку.
Нельзя прикрутить сюда выбор формата листа по размеру рамки?
Попробуйте в таком варианте. Сам плагин выложил в посте #92 версия 4.9
Миниатюры
Нажмите на изображение для увеличения
Название: Основной экран плагина_кривые рамки.JPG
Просмотров: 28
Размер:	87.2 Кб
ID:	197992  
Вложения
Тип файла: dwg
DWG 2013
ЛО_рамки_test_кривых.dwg (157.3 Кб, 16 просмотров)
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 22.01.2018, 04:33
#200
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от EdgarR Посмотреть сообщение
Попытка прописать вручную масштаб 1мм - 100ед чертежа в диалоговом окне ничего не дает.
Установка на листе аннотативного масштаба 1:100 аналогично ничего не дает
Странно у меня чётко сработал плагин на этих размерах - см картинку
Миниатюры
Нажмите на изображение для увеличения
Название: Настройка.JPG
Просмотров: 25
Размер:	23.8 Кб
ID:	197994  
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 22.01.2018, 10:50
#201
EdgarR


 
Регистрация: 18.01.2018
Сообщений: 5


Цитата:
Сообщение от petro_f Посмотреть сообщение
Странно у меня чётко сработал плагин на этих размерах - см картинку
Работает, я в масштабе печати тыкал =) Как я понимаю в авт. режиме он не может это определить?

Огромное спасибо за проделанную работу))))
EdgarR вне форума  
 
Непрочитано 22.01.2018, 11:27
#202
Scared


 
Регистрация: 06.10.2017
Сообщений: 35


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

----- добавлено через ~2 мин. -----
И всё-таки, по какому шаблону плагин создает новый лист? Где-то можно прописать путь к этому шаблону, чтоб на каждый лист вручную не вставлять рамку?
Scared вне форума  
 
Непрочитано 22.01.2018, 11:50
1 | 1 #203
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата:
Сообщение от Scared Посмотреть сообщение

Цитата:
Сообщение от petro_f
Попробуйте в таком варианте. Сам плагин выложил в посте #92 версия 4.9
Да, с вашими рамками всё работает, спасибо!
А нельзя сделать, чтоб с произвольными рамками работало? И чтоб ВЭ создавался по внутреннему контуру рамки, с учетом штампа? Как в примере.
Блок с рамками могу сам запилить, чтоб вам на это время не тратить.
Дело в том, что размеры листов сделаны согласно ГОСТ. Если нет настроенного формата, то автокад не позволяет генерировать новые размеры листов "на лету". Дело в фале настроек плоттеров "*.pc3". Где то была тема про распаковку и генерацию новых размеров программным образом... но там вроде всё заглохло.
Так что либо так, либо никак.
Как вариант могу предложить сделать непечатные рамки для модели, по ним настраивать листы, а далее рамки вставлять в лист. Я так делал раньше. Посмотрите как сделано в вложенном файле.

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

----- добавлено через ~12 мин. -----
Цитата:
Сообщение от EdgarR Посмотреть сообщение
Работает, я в масштабе печати тыкал =) Как я понимаю в авт. режиме он не может это определить?

Огромное спасибо за проделанную работу))))
Алгоритм определения масштаба обсуждался в посте #134 и #135
Естественно, если рамка сделана не в размерах ГОСТ (420х297), то плагин её поймать не сможет.
Правильно сделать рамку в размере 420х297, а затем масштабировать её в 100 раз. Тогда рамка будет размера 42000х29700 (как Вам и нужно), а в блоке будет изменён коэффициент масштабирования. По этому то параметру плагин и подбирает автоматический масштаб.
Надеюсь понятен алгоритм работы плагина?
Вложения
Тип файла: zip 0_Шаблон рамок для проекта.zip (353.6 Кб, 16 просмотров)
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 22.01.2018, 14:02
#204
Scared


 
Регистрация: 06.10.2017
Сообщений: 35


Цитата:
Сообщение от petro_f Посмотреть сообщение
Дело в том, что размеры листов сделаны согласно ГОСТ. Если нет настроенного формата, то автокад не позволяет генерировать новые размеры листов "на лету".
Размеры листов похоже выбираются из настроек моего плоттера. Меня это в принципе устраивает - там основные форматы вбиты. Только Ваш принтер DWG to PDF почему-то не получается подцепить через приложение - ЛИСП не видит ini-файл.
Мой вопрос касался того, нельзя ли например автоматически вставлять рамку на лист?
-
Второй вопрос касался уже не самого листа, а видового экрана.
По умолчанию он у вас создается ровно по внешнему размеру листа.
А я спросил, можно ли сделать по внешнему размеру, причем с учетом штампа?
Вложения
Тип файла: dwg
DWG 2010
ЛО_рамки_2.dwg (216.9 Кб, 14 просмотров)
Scared вне форума  
 
Непрочитано 22.01.2018, 14:26
#205
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

По поводу размеров рамки - откройте файл в приложении (он в плагине идёт, но сюда для примера положу), там в начале всё расписано как настраивать, даны размеры листа - поправьте и он сделает всё как надо.
Вложения
Тип файла: zip Sbugo_addlay_insert.zip (2.2 Кб, 15 просмотров)
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!
petro_f вне форума  
 
Непрочитано 22.01.2018, 14:52
1 | #206
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


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

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

P.P.S. Предыдущий пост тоже прочтите.
Вложения
Тип файла: zip Sbugo_addlay_insert_.zip (21.8 Кб, 17 просмотров)
__________________
Если ты разговариваешь с идиотом - убедись что он не занят тем же!

Последний раз редактировалось petro_f, 22.01.2018 в 15:13. Причина: Добавление данных
petro_f вне форума  
 
Непрочитано 22.01.2018, 16:39
#207
EdgarR


 
Регистрация: 18.01.2018
Сообщений: 5


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

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

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

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


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


 
Регистрация: 06.10.2017
Сообщений: 35


Цитата:
Сообщение от petro_f Посмотреть сообщение
Попробуйте эту версию - рамка перебрасывается в лист и потом только останется вв экран поправить под внутренний формат рамки
Да, с этой версией уже получается то что мне было нужно )
С моими рамками тоже работает. Только они ставятся почему-то левее ВЭ - видимо привязка по базовой точке к левому нижнему углу )
Только почему-то, когда пытаюсь выбрать пустой стиль печати (нет) - вместо этого ставится монохром.
И еще мне кажется имело бы смысл добавить возможность оставлять копии рамок в модели - на случай, если что-то пошло не так, ну или просто если кому-то удобно видеть разбивку листов в модели.
А в остальном всё отлично! Спасибо! )))
Scared вне форума  
 
Непрочитано 22.01.2018, 17:33
#209
petro_f


 
Регистрация: 06.10.2016
Сообщений: 108


Цитата: