Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

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

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

Ответ
Поиск в этой теме
Непрочитано 21.08.2015, 13:33 9 | 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 Кб, 4864 просмотров)
Тип файла: lsp AddLay.LSP (12.6 Кб, 5749 просмотров)


Последний раз редактировалось Andrey_13, 28.02.2018 в 21:17. Причина: Добавление ссылки на альтернативную версию программы.
Просмотров: 241841
 
Непрочитано 16.09.2016, 11:21
#81
ElectricSib


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


Попробовал 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


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


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


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


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

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

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


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


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


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


Цитата:
Сообщение от 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
Санкт-Петербург
Сообщений: 893


Попробуйте с помощью лиспа
Код:
[Выделить все]
 
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: [email protected]

; (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
Пермь
Сообщений: 475
<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
Санкт-Петербург
Сообщений: 893


Почитайте про свойство 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
5 | #92
petro_f

Проектировщик
 
Регистрация: 06.10.2016
СПб
Сообщений: 299
Отправить сообщение для petro_f с помощью Skype™


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


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

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

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

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

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

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

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

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

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

Вызов плагина осуществляется командой SBADDLAY
Миниатюры
Нажмите на изображение для увеличения
Название: Плагин.jpg
Просмотров: 1417
Размер:	108.9 Кб
ID:	228653  
Вложения
Тип файла: docx 0_Как установить принтер_расширенная версия.docx (444.1 Кб, 1470 просмотров)
Тип файла: zip LISP.zip (766.0 Кб, 2207 просмотров)
Тип файла: rar Sbugo_addlay_insert_v5.04.1.rar (36.4 Кб, 1047 просмотров)
Тип файла: zip Sbugo_addlay_insert_v5.08.0.zip (44.8 Кб, 1251 просмотров)

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

Проектировщик
 
Регистрация: 06.10.2016
СПб
Сообщений: 299
Отправить сообщение для petro_f с помощью Skype™


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

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

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

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

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

Проектировщик
 
Регистрация: 06.10.2016
СПб
Сообщений: 299
Отправить сообщение для petro_f с помощью Skype™


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

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

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


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

Проектировщик
 
Регистрация: 06.10.2016
СПб
Сообщений: 299
Отправить сообщение для petro_f с помощью Skype™


Цитата:
Сообщение от 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
СПб
Сообщений: 299
Отправить сообщение для petro_f с помощью Skype™


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


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



Это особенность скрипта или этот глюк возникает только у меня? Если причиной является первый вариант, то есть ли возможность как-то подправить скрипт, чтобы Рамка чертежа и Видовой экран точно соответствовали друг другу по координатам?
ElectricSib вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Создание листов и видовых экранов на них

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сбиваются масштабы аннотаций и видовых экранов (из-за размерности юнита ?) Tyhig AutoCAD 9 15.09.2015 15:53
Автоматическое создание Листов (layot) с встроенной рамкой. Ассистент содания Листов. Что я делаю не так? Couleurs du Sud AutoCAD 14 16.06.2015 20:17
Проекции видовых экранов листов в модели (= отображение viewport на layout в model) I.Van AutoCAD 6 02.08.2012 15:31
Содержимое видовых экранов (в ПЛ) плавает при кручении колеса мыши JokerrSergh AutoCAD 29 29.12.2008 13:16