Новый ZWCAD 2017
dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

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

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

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

Andrey_13 вне форума Вставить имя

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

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


Последний раз редактировалось Andrey_13, 02.09.2015 в 08:55.
Просмотров: 32573
 
Непрочитано 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,058


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


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


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


Попробуйте с помощью лиспа
Код:
[Выделить все]
 
;;; 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
Пермь
Сообщений: 332
Отправить сообщение для Vladimir_Sergeevich с помощью ICQ Отправить сообщение для 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
Санкт-Петербург
Сообщений: 524


Почитайте про свойство 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
Сообщений: 51


Добрый день, сотоварищи.
Попробовал я плагин (исходный) от 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].
Сразу скажу, делал для себя и под свою "машину" и о ужас, часто использовал глобальные переменные. Кому это претит, тот может переписать на свой вкус.
Если автор не против, то я выложу эту версию тут.

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

Внимание у кого при создании листов плагин ругается на "Мастер стилей печати.inc" откройте папку "C:\Users\ВАША_УЧЁТНАЯ_ЗАПИСЬ\AppData\Roaming\Autodesk\AutoCAD_НУЖНОЙ_ВЕРСИИ\RХХ.Х\rus\Plotters\Plot Styles" и удалите там этот файл. Этот файл ошибочно был помещён в исходный архив. Исходник плагина перезалил, так что кто скачал файлы после 10.06.2017 это уже не грозит.

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

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

P.P.P.S. Для получения последней версии надо скачать файл исходного плагина "LISP.rar" и файл последней версии плагина (например файл "Sbugo_addlay_insert_v4.3.zip"). Распаковать и заменить (добавить) все содержащиеся там файлы.
Миниатюры
Нажмите на изображение для увеличения
Название: Основной экран плагина.JPG
Просмотров: 13
Размер:	79.3 Кб
ID:	190995  Нажмите на изображение для увеличения
Название: Основной экран плагина - привязки элементов.JPG
Просмотров: 34
Размер:	243.1 Кб
ID:	190997  
Вложения
Тип файла: docx 0_Как установить принтер_расширенная версия.docx (444.1 Кб, 20 просмотров)
Тип файла: rar LISP.rar (792.7 Кб, 31 просмотров)
Тип файла: zip Sbugo_addlay_insert_v4.4.zip (20.5 Кб, 17 просмотров)

Последний раз редактировалось petro_f, 13.07.2017 в 10:00. Причина: Добавил описание по плагину и обновил файл до новой версии. (13.07.2017)
petro_f вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 06.10.2016, 22:14
1 | #93
petro_f


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


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

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

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

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

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


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


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

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

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

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

Последний раз редактировалось petro_f, 08.10.2016 в 23:40.
petro_f вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 08.10.2016, 10:45
#95
freese

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


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


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


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


Цитата:
Сообщение от 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 вне форума вставить имя Обратить внимание модератора на это сообщение  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Создание листов и видовых экранов на них

 VetCAD++
Опции темы Поиск в этой теме
Поиск в этой теме:

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сбиваются масштабы аннотаций и видовых экранов (из-за размерности юнита ?) 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

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||


Размещение рекламы