[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

[Кулик Алексей aka kpblc]

Сообщение от Nikolay 2 Хоть и не мне адресовалось, но не идет....протокол по F2 приложен

Где?

[Nikolay 2]

Странно. Зачем 5 раз создавать таблицы, если можно сделать 1 объект и на 5 столбцов разделить.
Я бы так сделал. Если я правильно понял проблему...


М.б. ты не все настройки таблиц видел? Там можно все сделать.
См. прикрепленный файл.
Или тебе нужна только часть ведомости?[/quote]

И получается, что таблицы, кроме первой обезглавлены... По поводу наличия заголовка в каждой таблицы один мой знакомый сказал "всю жизнь так делаем", и ты знаешь, я ему верю. Причина одна - он проектирует столько, сколько я живу, шутка ли 50 лет (и еще работает, и держат его не из уважения, а за профессионализм. Хорошо здоровье позволяет). Были времена (давно правда) сомневался в этой фразе, но потом поковырявшись в нормативах убеждался в правоте и теперь фраза из его уст "всю жизнь так делаем" для меня означает "учите матчасть, Николай". Извиняюсь перед модераторами за флейм. Ну должен быть у каждой таблицы заголовок...


оп!!!! извинения для vetr касательно заголовков, заголовки поставил и пр. настройки тоже, да, матчасть пошел учить...

[VVA]

Где протокол?

[Nikolay 2]

Вложил в предыдущий ответ

[VVA]

Обновил #159
Вот что должно быть в протоколе

Команда: _appload vrc_VVA.lsp успешно загружено. Команда: Ведомость рабочих чертежей версия 04.02.2009. Наберите: VRC - таблица с полями, все листы VRCTS - таблица с Tекстом, выбор (S) листов VRCTN - таблица с Tекстом, нет (N) выбора листов VRCFS - таблица с полями (F), выбор (S) листов Команда:

[Nikolay 2]

Сообщение от VVA Обновил #160 Вот что должно быть в протоколе

Именно так и есть, все работает. Большое спасибо, думаю от многих. Глупая конечно мысль пришла, но все же, можно ли изменив название чертежа, например в "таблице с Tекстом, выбор (S) листов" сделать так, чтобы он изменился в соответствующем листе?

[wetr]

Сообщение от Nikolay 2 Глупая конечно мысль пришла, но все же, можно ли изменив название чертежа, например в "таблице с Tекстом, выбор (S) листов" сделать так, чтобы он изменился в соответствующем листе?

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

[wetr]

VVA, в 2010 автокаде не хочет работать лисп

Код:

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

_VRCTN ; error: bad argument type: consp "3"

[wetr]

VVA, а каким образом заставить программу вставлять ведомость в таблицу, в нужном мне стиле таблиц? Программа всегда создает стиль таблиц "Ведомость чертежей"?
Все дело в том, что у нас теперь цветозависимые стили печати, и цвет текста в разных строках таблицы - разный. Это для того, чтоб более высокий текст имел большую толщину, как требует ГОСТ.
Так вот, когда я заменил в строке

Код:

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

(if (table-style-make "Ведомость чертежей" (text-style-make text-style-name text-font-file))(setvar "CTABLESTYLE" "Ведомость чертежей"))

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

[VVA]

wetr, Смотреть код vrc_VVA.lsp с поста #1?

[dextron3]

VVA, а как можно использовать лисп без блочного штампа?

[VVA]

А как названия листов собирать?

[dextron3]

VVA, а что если создать блочный текст?

[wetr]

VVA, смотрю "код vrc_VVA.lsp с поста #1"

Код:

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

(defun table-style-make ( table-style-name text-style-name / tb xr tb-dic ret)
;;;Создаем стиль таблицы
;;; читать http://forum.dwg.ru/showpost.php?p=295877&postcount=120
;;  table-style-name - имя стиля [String]
;;  text-style-name  - имя текстового стиля таблицы [String]
;; Возвращает t - стиль создан
;;            nil - нет
  ;;Добавляем стиль таблицы такого нет. Не пересоздается, если существует

но table-style-name нет в настройках лиспа

Код:

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

 (setq Tag-Name-LIST "ЛИСТ"                       ;;; ИМЯ ТЭГА АТРИБУТА БЛОКА, в котором хранится номер листа
        Tag-Name-NCHERT "НАИМЕНОВАНИЕ.ЧЕРТЕЖА"     ;;; ИМЯ ТЭГА АТРИБУТА БЛОКА, в котором хранится наименование чертежа
        Table-layer    "_Таблицы"                  ;;; Слой, на который будет вставляться таблица
        text-style-name "Ведомость чертежей"       ;;; Имя стиля текста таблицы
        text-font-file  "MIPGOST.SHX"              ;;; Файл шрифта стиля текста таблицы Скачать можно здесь http://dwg.ru/dnl/147 или вписать свой
        )

а table-style-make я пробовал менять на имя существующего стиля таблиц, программа затерает существующий стиль

[VVA]

Сообщение от dextron3 VVA, а что если создать блочный текст?

Это какой-то новый примитив Автокада? Если текст в блоке, то это и есть "блочный штамп"

Сообщение от wetr VVA, смотрю "код vrc_VVA.lsp с поста #1"

Изменил немного код. Добавил переменную для стиля таблиц. Принцип такой: если стиля таблицы с таким именем нет, то создается с настройками какие и были, если стиля таблицы с таким именем еcть, то со стилем ничего не делается. Обновил код в посте #159. Протестируй, если нормально, то то обнови 1-й пост

[dextron3]

VVA, а что если таблица не влазиет в формат листа как ее на две части к примеру разбить



VVA, у меня есть идея воспользоваться таким алгоритмом:

1. Надписи в штампе состоят из блочных штампов как вы говорите, но чтобы просто можно копирывать было из лайаута в лайаут без проблем и потом они распозновались как отдельные блочки
2. Запускаем лисп он согласно нумерации лайаутов и расположения в лайауте согласно оси Х и Y объединяет название в лайауте и в итоге выдает перечень старниц просто в блокноте как вы делали 2 года назад

[wetr]

Сообщение от VVA Изменил немного код. Добавил переменную для стиля таблиц. Принцип такой: если стиля таблицы с таким именем нет, то создается с настройками какие и были, если стиля таблицы с таким именем еcть, то со стилем ничего не делается. Обновил код в посте #159. Протестируй, если нормально, то то обнови 1-й пост

Спасибо, завтра буду тестировать

[kifa]

пара вопросиков подскажите кому не лень
пытаюсь прикрутить автонумератор http://dwg.ru/dnl/1929 вот этот, нумерует только тот лист на котором выделено, можно сделать чтоб нумеровал все листы? (расположены в листах соответственно)

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

[wetr]

VVA, все работает! Спасибо! Обновил первый пост

kifa,
http://forum.dwg.ru/showthread.php?t=35047 вопрос №5
автонумератор

VVA, а что если таблица не влазиет в формат листа как ее на две части к примеру разбить

dextron3, в таблицах это предусмотрено - посмотри внимательней

[kifa]

Сообщение от wetr Владивосток Сообщений: 1,381 Отправить сообщение для wetr с помощью ICQ VVA, все работает! Спасибо! Обновил первый пост kifa, http://forum.dwg.ru/showthread.php?t=35047 вопрос №5 автонумератор

спасибо огромное!