[wetr]

Те кто видел КОМПАС меня поймут: хочу чтобы ведомость рабочих четрежей заполнялась автоматически. Пользую поля - ссылки на объекты. В моем случае ссылаюсь на блок(рамка) с аттрибутами "№листа" и "наименование листа". Вроде бы все отлично. Убивает трудоемкость создания данной таблицы. Т.е. как я делаю(может не правильно?):
создаем мтекст-вставить поле-объект-выбрать- а дальше проблемка - рамка то находится в лайоутах. А перелистывать лайоуты в режиме выбора нельзя... Приходится сначала открывать лайоут, затем копировать текст вида
"%<\AcObjProp Object(%<\_ObjId 2130566400>%).TextString>%"
в отдельный файл, затем вставлять в нужное мне поле. Есть другие варианты узнать ObjID? Или другие варианты создать эту таблицу?
И еще: в каких случаях меняется этот ID? А то я боюсь теперь эти блоки редактировать - все собьется нафиг
*******************************************************************************************************************
...Прошел год
VVA сделал отличную программу по созданию Ведомости рабочих чертежей (Компас отдыхает)

ВОЗМОЖНОСТИ:
- Ведомость создается в виде таблицы с полями.
- Обязательно использование блока с атрибутами "ЛИСТ" и "НАИМЕНОВАНИЕ.ЧЕРТЕЖА".
- Таблицы вставляется в слое _Таблица. Если слоя нет - он создается. Настройки слоя можно поменять в ЛИСПе
- Таблицы вставляются в Стиле таблиц "Ведомость чертежей" оформленной по ГОСТу. Настройки стиля см. в ЛИСПе
- Запускать командой VRC в командной строке или сделать себе кнопку


ОСОБЕННОСТИ:
- В таблице и блоке используется шрифт "MIPGOST.SHX". Скачать можно здесь. Не нравится? Открывай код и меняй под себя.
- В блок-рамке используется многострочный атрибут, который работает только в AutoCAD 2008 и старше.
Если у вас более ранняя версия - программа будет работать, но атрибут будет однострочный.
- При заполнении многострочного атрибута "НАИМЕНОВАНИЕ.ЧЕРТЕЖА" не используйте ENTER. Текст перескочит на новую строку сам.(Это актуально если лисп вставляет поля. Варианты лиспа VRCTS и VRCTN отрабатывают без проблем)

ПРО БЛОК:
- Рамка пестрит полями - название проекта заполнять на титульном листе, в рамке обновится
- ШИФР проекта заполнять на титульном листе
- Формат листа - ссылка на lookup внутри блока, обновляется.
- Для того, чтобы количество листов прописывалось автоматом, я сделал себе макрос на кнопку, запускающую VRC

^C^C(setvar "USERI1" (length(layoutlist)));_updatefield;all;;vrc

Внимание! Если у вас используется переменная USERI1, могут возьникнуть проблемы!
**********************

Для тех, кому не нравиться что программа создает стили и слои, вариант от VVA и Red Nova

************************************
***Обновление от 04.02.2008. **********
************************************
Добавлена возможность заполнять таблицу полями, текстом, выбирать или нет листы. Подробности в начале лиспа.
Команды:
VRC - таблица с полями, все листы
VRCTS - таблица с Tекстом, выбор (S) листов
VRCTN - таблица с Tекстом, нет (N) выбора листов
VRCFS - таблица с полями (F), выбор (S) листов

************************************
***Обновление от 06.09.2010. ***********
***********************************
Добавлена возможность выбора стиля таблиц
Версия для x64 : http://forum.dwg.ru/showpost.php?p=349807&postcount=159

************************************
***Обновление от 16.04.2025. ***********
***********************************
Актуальная для меня задача - создание ведомости из нескольких открытых файлов реализована с помощью Gemini 2.5 Pro.
Новая версия обрабатывает все открытые файлы, собирает данные из блоков с атрибутами "ЛИСТ" и "СОДЕРЖИМОЕ" и вставляет таблицу.
Тестировал на Автокад 2020.
Файл OVRC.lsp, запускать командой OVRC.

[VVA]

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

[zz07]

VVA, код и файл примера взял из шапки темы, номер поста #69.
Autocad 2013, английский, x64

[VVA]

zz07, Дело в разрядности. Смотри вариант из #159

[zz07]

VVA, спасибо, все работает.
А текст можно как-то в названии чертежа принудительно переносить на другую строку?

[Red Nova]

используй многострочный атрибут

[diek]

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

[Red Nova]

Перешел на 2015х64. Не работает...

Код:

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

VRC - таблица с полями, все листы
VRCTS - таблица с Tекстом, выбор (S) листов
VRCTN - таблица с Tекстом, нет (N) выбора листов
VRCFS - таблица с полями (F), выбор (S) листов

Добавлено. Заработало после того как поменяли в региональных настройках windows US на Russia...

[b00]

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

Код:

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

 $(substr, $(getvar,CTAB), X, Y)

я могу получить символы с X по X+Y из названия вкладки, но мне не нужны номера листов в названиях - достаточно расставить вкладки в нужном порядке. Вот к этим порядковым номерам хочется получить доступ, чтобы после перетаскивания вкладки на новое место автоматически менялся номер в штампе в соответствии с её новым порядковым номером.

[skkkk]

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

Код:

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

 (vl-load-com)
(defun C:SLN nil (C:SETLAYOUTNUMBERS))
(defun C:LN nil (C:LAYOUTNUMERATOR))
(defun C:SETLAYOUTNUMBERS ( / lyt-lst lyt-collection i lyt lyt-name var-name attr)
	(C:LAYOUTNUMERATOR)
	(setq lyt-lst (layoutlist)
		  lyt-collection (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
	)
	(repeat (setq i (length lyt-lst))
		(setq lyt (vla-Item lyt-collection (nth (setq i (1- i)) lyt-lst))
			  lyt-name (vla-get-Name lyt)
		)
		(setvar "CTAB" lyt-name)
		(setq var-name (vl-string-translate " " "-" lyt-name))
		(setq attr (vlax-ename->vla-object (car (nentsel "\nУкажите атрибут, содержащий номер текущего листа: "))))
		(vla-put-TextString attr (strcat "%<\\AcVar.17.0 Lisp." var-name ">%"))
		(vla-regen (vla-get-activedocument (vlax-get-acad-object)) AcActiveViewport)
	)
)
(defun C:LAYOUTNUMERATOR ( / lyt-lst lyt-collection i lyt lyt-name var-name lyt-nmbr )

	(setq lyt-lst (layoutlist)
		  lyt-collection (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
	)
	(repeat (setq i (length lyt-lst))
		(setq lyt (vla-Item lyt-collection (nth (setq i (1- i)) lyt-lst))
			  lyt-name (vla-get-Name lyt)
			  var-name (vl-string-translate " " "-" lyt-name)
			  lyt-nmbr (vla-get-TabOrder lyt)
		)
		(set (read var-name) lyt-nmbr)
	)
	(vla-regen (vla-get-activedocument (vlax-get-acad-object)) AcAllViewports)
)

Доступны две команды:
1. SetLayoutNumbers или SLN - начнется поочередное переключение листов (пока не в порядке их следования во вкладках, а в алфавитном порядке), на каждом из них пользователю будет предложено выбрать атрибут, в котором хранится номер листа. Это может быть и текст или Мтекст, но тогда обязательно не в блоке, потому как в этом случае он будет одинаковым на всех листах. Эту команду можно будет исключить в принципе, если принять определенные соглашения. Например, этот атрибут должен иметь определенное имя или находиться на определенном слое и т.д. Тут лучше бы мне увидеть файл с примером - понимания будет больше. Данный вариант - хоть и требует по одному клику на лист - универсальный при условии, что в листе есть блок с атрибутом. Промахнуться мимо атрибута пока нельзя - вылетит с ошибкой.
2. LayoutNumerator или LN - далее эту команду следует вызывать после того, как был изменен порядок следования листов. Произойдет изменение полей. Пока сделал принудительную регенерацию. Если файлы большие, и возникнут тормоза, можно будет ее убрать, и тогда для обновления полей придется производить регенерацию вручную, по мере необходимости. Не уверен, но думаю, что данную команду можно заменить реактором (т.е она будет вызываться автоматически при изменении листов) - пока не проверял.

Ограничения: имя листа должно начинаться с буквы (русской или латинской) и не должно содержать: (, ) − левой и правой скобок, . − точки, ‘ − апострофа, “ − кавычек, ; − точки с запятой. Пробелы - можно. Эти ограничения реально обойти - было бы желание.

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

[b00]

Сообщение от skkkk Если мы говорим НЕ о номере листа в подшивке.

Нет, не о подшивке.

Сообщение от skkkk В общем, если я правильно понял задачу, а именно: ...

Да, именно так.

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

Можно заранее определить имя блока и имя атрибута в блоке, которые должны обрабатываться командой. Какие они будут - мне всё равно, это несложно в коде поменять. Примера у меня нет, задача пока теоретическая, чтобы в дальнейшем пользоваться удобной автонумерацией.

Сообщение от skkkk Не уверен, но думаю, что данную команду можно заменить реактором (т.е она будет вызываться автоматически при изменении листов) - пока не проверял.

На мой взгляд - нет необходимости.

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

Т.е. информация о номере листа нигде не содержится? Но как тогда порядок вкладок сохраняется от открытия к открытию файла?

И сопутствующий вопрос - для обработки строки в Diesel есть только функция substr?
Т.е. вкладки листов имеют имена вида: 01_2.1_Название_листа, 02_2.2_Название_листа и т.п.
Первые 2 (или X) символов до первого знака _ при помощи $(substr,$(getvar,CTAB),1,X) я вырезаю из имени вкладки и добавляю к полю, высчитывающему по формуле сквозной номер листа в томе (именно от этой операции хочется избавиться, получая данную информацию из порядка расположения вкладки листа, что и делает Ваш скрипт).
Следующие X символов до второго знака _, которые должны быть подставлены в номер листа в основной надписи, простым substr универсально описать не получается, можно ли в Diesel применить регулярку типа ^(\d+)_([.\d]+).*$ ?

[skkkk]

Сообщение от b00 Т.е. информация о номере листа нигде не содержится?

Она содержится в свойстве листа TabOrder, но доступ к ней только программный, из полей - нет (по крайней мере, насколько я знаю, могу ошибаться). Чтобы к ней был доступ из полей, и была придумана данная программка. Она назначает это свойство одноименной (за исключением замененных пробелов на тире) глобальной переменной, на которую уже можно сослаться полем.

Сообщение от b00 Но как тогда порядок вкладок сохраняется от открытия к открытию файла?

Этот порядок и сохраняется в указанном свойстве каждого листа. Точнее в файле. Ведь всегда после закрытия порядок следования листов остается неизменным, правда? Иными словами это свойство напрямую зависит от положения листа по порядку и может принимать только одно значение - целое число. Функцией vla-get-TabOrder мы это число можем получить, функцией vla-put-TabOrder - задать, при этом произойдет физическое перемещение листа в соответствующую позицию, остальные номера поменяются согласно ряду натуральных целых чисел.

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

Можно, и это довольно просто, но все же желательно сначала потестировать на живом примере, поскольку писал быстро, я запросто мог не учесть каких-то нюансов, которые могут подпортить ситуацию. Думаю, помимо этого найдется еще что добавить или подправить. Хотелось бы как можно меньше раз возвращаться к этому вопросу. Дали ТЗ - получили решение - будьте добры выдать замечания и предложения. На форуме так принято.

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

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

[PutnikAda]

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

[kifa]

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

а нумерация нормальная? а то пришлось тут проект в модели делать....так вот 1-10 листы не по порядку пришлось попыхтеть покопировать немного.

[baksconstructor]

Сообщение от kifa а нумерация нормальная? а то пришлось тут проект в модели делать....так вот 1-10 листы не по порядку пришлось попыхтеть покопировать немного.

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

[kifa]

Да меня то вполне устраивает этот лисп. Просто иногда вот приходится работать без листов, все в модели, тогда и плююсь )

[dextron3]

Коллеги, кто-нибудь может видео на камстасии закинуть, как оно работает, хотел наглядно посмотреть, не хочу свою предыдущую от VVA удалять она меня устраивает на все 100%

[PutnikAda]

Сообщение от kifa а нумерация нормальная? а то пришлось тут проект в модели делать....так вот 1-10 листы не по порядку пришлось попыхтеть покопировать немного.

У меня в блоке штампа три атрибута: номер листа и еще два поля с названием листа и частью проектируемого объекта, изображенного на конкретном листе. Сортирую по номеру листа. Все отлично.

[b00]

Сообщение от skkkk Дали ТЗ - получили решение - будьте добры выдать замечания и предложения. На форуме так принято.

Мне достаточно приведенного решения, благодарю. С учетом полученных пояснений по теме извлечения и установки свойства TabOrder (стал ясен смысл отдельного программного создания списка с номерами листов из TabOrder - чтобы получить доступ к ним через поля) я Ваш скрипт, при нужде, под себя перепишу, в т.ч. пропишу и имя атрибута блока.

[meccp]

Здравствуйте!
Акад 13. Прошу научить в несколько шагов сделать а/заполнение ведомости чертежей. Чертеж на листах. Многострочные атрибуты (будущие названия чертежей) не получаются. Ссылки на эти атрибуты на разные листы неизвестно как ставить. Помогите плиз. Или хоть ветку дайте из этого моря.

[Boxa]

Сообщение от meccp Здравствуйте! Акад 13. Прошу научить в несколько шагов сделать а/заполнение ведомости чертежей. Чертеж на листах. Многострочные атрибуты (будущие названия чертежей) не получаются. Ссылки на эти атрибуты на разные листы неизвестно как ставить. Помогите плиз. Или хоть ветку дайте из этого моря.

Смотрите подшивку.