[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

[Red Nova]

VVA,
Может до отпуска как нибудь все-же найдешь время

[wetr]

Зря ты таблицы не любишь - хорошая вещь!

[VVA]

Red Nova,
Обещать не буду, но постараюсь.
Оффтоп: Корочку КТН обмыл как следует? Не засохнет?

[Red Nova]

По секрету скажу что корочку еще не получил, (два месяца от ВАК ответ ждать) но обмыть уже успел.

[Red Nova]

VVA
Ты уже в отпуске?

[VVA]

[Red Nova]

А где отпуск проводишь? Дома или поехал куда?

[Red Nova]

Я это к тому, чтобы понять тебя можно щас беспокоить, или ты на отдыхе, тогда я подожду до окончания отпуска.

[VVA]

Ну беспокоить можно, если достучишся. Я и сам не знаю что будет завтра. Я взял только 12 дней отпуска и на отдых (в смысле Турция-Болгария-Египет) сейчас не еду. Ковыряюсь потихоньку дома. Вот интернет себе провел. Осталось самое сложное - спрятать провода.

[Red Nova]

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

[Red Nova]

VVA Вот решил перейти на блок штампа с атрибутом. Попробовал лисп с поста 5, у меня почему-то не работает. Хотя в файлах от wetr работает нормально.
Мои атрибуты именуются также как и у wetr в файле. Что я делаю не так?

[Red Nova]

Ура, заработало. Вроде как сделал все как в прошлый раз, скопировал имя атрибута от wetr в свой штамп, почему-то в прошлый раз не прокатило, а на этот раз все прошло нормально.

Но не все так радужно. Возникла новая проблема.
В отличие от wetr, у меня номер листа в атрибуте вписывается как поле от имени лейаута. Когда поле копируется в таблицу, то там (при реген алл) оно отображается как odel (это model без первой буквы). Может возможно как-то вписать в таблицу не поле с дизелем, а перед этим переконвертировать его в текст?

[wetr]

Я пользуюсь автонумератором этих самых блоков. Лайоуты при этом могут называться как угодно. Довольно удобная штука. Ссылку дать не могу, но по моему туда тоже VVA руку приложил. Брал на кадюсере...
...еще недавно где-то здесь на форуме djonikbishkek (извени если не правильно!) давал ссылку прям на этот лисп!

[Red Nova]

Просмотрел недавние сообщения от djonikbishkek , такого не нашел. Может на форум выложишь? Или на мыло пришли пожалста.

[wetr]

Сори. Конечно!
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=21092Ky

[Red Nova]

Спасибо за ссылку.
Буду просить VVA усовершенствовать лисп тут.
http://dwg.ru/f/showthread.php?t=20139&page=3
К стати, если еще не использовал, там очень полезная программа для работы с листами.

[VVA]

Листы листами, а штамп штампом
Часть 1
Вводная
1. Имя блока штампа без разницы
2. Блок штампа должен иметь таг "ЛИСТ" (по умолчанию)
3. Если у вас таг отличается, ищем и правим эту строчку (выделена в коде красным)

Код:

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

 (setq Target-Tag-Name "ЛИСТ") ;_ ТАГ (имя) атрибута блока

4. Значение атрибута с тагом "ЛИСТ" обновляется именем листа, на котором расположен блок, начиная с 1-й цифры. Т.е.
Название листа---------->Значение атрибута
3 ----------------------------> 3
3a ----------------------------> 3a
КЖ-1.1 -----------------------> 1.1
4. Две команды
SHTUPDALL - пробегается по всем листам
SHTUPD - пробегается по текущему листу (CTAB)
Пример можно взять с #4

Код:

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

(defun C:SHTUPDALL ()(update-shtamp-block nil))
(defun C:SHTUPD ()(update-shtamp-block (getvar "CTAB")))
;; obj - Ename or Vla object of block
;; att_list - list ((Tag_Name1 . Value1)(Tag_Name2 . Value2) ...)
;;                 Tag_Name - string
;;                    Value - string

(defun mip-block-setattr-bylist (obj att_list / txt lst)(vl-load-com)
(if (= (type obj) 'ENAME)(setq obj (vlax-ename->vla-object obj)))
(setq att_list (mapcar '(lambda(x)(cons (strcase (mip-conv-to-str(car x)))(mip-conv-to-str(cdr x)))) att_list))
  (if (and obj
           (not(vlax-erased-p obj))
           (= (vla-get-ObjectName obj) "AcDbBlockReference")
	   (eq :vlax-true (vla-get-HasAttributes obj))
	   (vlax-property-available-p obj 'Hasattributes)
	   (vlax-write-enabled-p obj)
      )
    (vl-catch-all-apply
      (function
	(lambda	()
          (foreach at (vlax-invoke obj 'Getattributes)
            (if (setq lst (assoc(strcase(vla-get-TagString at)) att_list))
              (vla-put-TextString at (cdr lst))
            )
            )
          )
        )
      )
    )
  )
(defun mip-conv-to-str (dat)
  (cond ((= (type dat) 'INT)(setq dat (itoa dat)))
         ((= (type dat) 'REAL)(setq dat (rtos dat 2 12)))
        ((null dat)(setq dat ""))
        (t (setq dat (vl-princ-to-string dat)))))
;;;csp - имя листа (getvar "CTAB")
;;;      или nil - все листы
;;(setq csp (getvar "CTAB"))
(defun update-shtamp-block ( csp  / ss i n Target-Tag-Name attValue ch )
(setq Target-Tag-Name "ЛИСТ") ;_ ТАГ (имя) атрибута блока
(if csp  
(setq ss
(ssget "_X" (list
	      '(0 . "INSERT")
	      '(66 . 1)
	      (cons 410 csp)
	      )
       )
      )
  (setq ss
(ssget "_X" (list
	      '(0 . "INSERT")
	      '(66 . 1)
	      )
       )
      )
  )
(repeat (setq n (sslength ss)) ;_ end setq
        (cdr(assoc 410(entget (setq item (ssname ss (setq n (1- n)))))))
         
  (if (/= (setq attValue (cdr(assoc 410 (entget item)))) "Model" )
(progn
    (setq i 0)
  (while (or  
	   (not(wcmatch (setq ch (substr attValue (setq i (1+ i)) 1)) "#"))
	   (=  ch "")
	   )
     )
(setq attValue (substr attValue i))
(mip-block-setattr-bylist  item (list(cons Target-Tag-Name attValue)))
  )
    )
 ) ;_ end
)

Как проверить:
1. Берете пример с #4
2. Грузите лисп
3. Переименовываете любой лист (например КМ-112)
3. Вызываем команду SHTUPD

[VVA]

Часть 2. Конструктор "ЛЕГО"
Как скрестить LISP. Копирование, сортировка, переименование листов (layout) и код с #57
Вводная
1. Оба лиспа должны быть загружены
2. Будем скрещивать команду LTINC и SHTUPD (т.е. создадим копию листа с увеличенным номером и обновим штамп на этом листе)
Назовем команду LTINC1

Код:

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

(defun C:LTINC1 ()(C:LTINC)(C:SHTUPD))

Все просто как грабли. Хотя я бы сначала нащелкал нужное кол-во листов, а потом SHPUPDALL все обновил

[Red Nova]

VVA, Спасибо. Все и в правду просто.
Я даже сумел скрестить LTRENN и SHTUPDALL, В результате получилось именно то, что надо.

Код:

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

(defun C:ltren2 ()(C:ltrenn)(C:SHTUPDALL))

P.S. Надо бы на LISP. Копирование, сортировка, переименование листов (layout) добавить эти команды, они все же там ближе по тематике чем здесь.

[Red Nova]

VVA,
Заметил, что SHTUPD и SHTUPDALL делают то же самое, то есть влияют на все листы, только один не переименовывается.