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

Andrey_13 · 21.08.2015, 13:33

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

posetitel · 21.08.2017, 08:48

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

petro_f · 21.08.2017, 10:10

Цитата:

Сообщение от posetitel

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

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

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

Код:

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

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

tujn08 · 21.08.2017, 13:05

Цитата:

Сообщение от perpetule

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

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

skkkk · 21.08.2017, 17:21

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

tujn08 · 22.08.2017, 14:10

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

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

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

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

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

IvanMosc · 26.10.2017, 09:54

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

petro_f · 26.10.2017, 10:16

Цитата:

Сообщение от IvanMosc

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

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

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

IvanMosc · 26.10.2017, 12:18

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

petro_f · 26.10.2017, 21:03

Цитата:

Сообщение от IvanMosc

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

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

skkkk · 27.10.2017, 01:00

Цитата:

Сообщение от tujn08

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

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

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

baksconstructor · 27.10.2017, 07:02

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

skkkk · 27.10.2017, 12:38

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

petro_f · 28.11.2017, 14:51

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

Dr.Smiley · 17.12.2017, 11:56

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

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

petro_f · 17.12.2017, 15:25

Цитата:

Сообщение от Dr.Smiley

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

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

Уточните вопрос к какому лиспу относится - тут в ветке 3 плагина

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

Dr.Smiley · 17.12.2017, 16:44

Цитата:

Сообщение от petro_f

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

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

maratovich · 17.12.2017, 16:46

Цитата:

Сообщение от Dr.Smiley

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

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

petro_f · 17.12.2017, 16:58

Цитата:

Сообщение от Dr.Smiley

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

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

Boxa · 18.12.2017, 07:41

Цитата:

Сообщение от Dr.Smiley

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

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

Dr.Smiley · 18.12.2017, 09:15

Цитата:

Сообщение от Boxa

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

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

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