[Zaghim]

Добрый день. Тема уже была, но ответа там, к сожалению, не было.
Как при помощи лиспа сделать так, что бы при вставке блока, автоматически заполнялись его атрибуты. Скажем порядковый номер - вставляем блок первый раз, соответственно атрибут - Блок 1, второй - Блок 2 и тд. Ну и таким же образом некоторые другие параметры. И самое главное реально ли, что, если я вышел из программы вставки блоков и закончил, например, на 10 блоке, что-то порисовал на чертеже, и теперь хочу продолжить вставлять блоки - запускаю заново прогу и блок у меня вставляется с номер 11, т.е. след по списку. Заранее всем спасибо!

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

Поиск по словам "автонумерация" и ему подобным. Вариантов решения - тьма.

[hwd]

Сообщение от Кулик Алексей aka kpblc Поиск по словам "автонумерация" и ему подобным. Вариантов решения - тьма.

Offtop: Топики Zaghim меня ещё не разу не удивили своей новизной...

[Zaghim]

Естественно, у новичка типичные тупые вопросы))) у людей с опытом вопросы по-интереснее)

[hwd]

Сообщение от Zaghim Естественно, у новичка типичные тупые вопросы))) у людей с опытом вопросы по-интереснее)

Offtop: Быть новичком и лениться юзать поиск - это не одно и то же. Кроме того, язык и версию автокада желательно указывать (на будущее).

[Zaghim]

У меня вкладок 20 этого сайта открыто и толком ничего похожего не нашел... С автонумерацией разберусь. А как быть, с так скажем, автопродолжением?

[hwd]

дубль 2: язык и версия акада.

Offtop:
Некоторое время спустя...
п.с.моё уточнение настолько сильно призадумало автора топика? подсказка: под языком подразумевается язык программирования, на котором он ищет решение, а не что-то иное.

[Supermax]

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

[hwd]

Сообщение от Supermax Я тоже тьму тем читал на эту тему, а решения по автонумерации так и не нашел.

Я не понимаю, какая сложность в алгоритме реализации этого? Пример, в котором используется так вами желаемая автонумерация с произвольным начальным значением.
Offtop: А Zaghim так и молчит как рыба об лёд, насчёт языка и версии акада...

[Nike]

Сообщение от Zaghim С автонумерацией разберусь. А как быть, с так скажем, автопродолжением?

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

[Дима_]

Сообщение от Nike Подсчитал сколько блоков уже стоит, вставил новый и нумернул с приращением к количеству. Или перенумеровал весь набор, включая вновь вставленный.

По моему правильней взять все блоки и инкрементировать максимальный атрибут.

[VVA]

Последние версии Binc BincA ApNum ApNumA
можно ли автоматизировать нумерацию блоков
автоматическая нумерация в атрибутах блока
Автоматическая нумерация в AutoCad 2006

[hwd]

Сообщение от Zaghim И самое главное реально ли, что, если я вышел из программы вставки блоков и закончил, например, на 10 блоке, что-то порисовал на чертеже, и теперь хочу продолжить вставлять блоки - запускаю заново прогу и блок у меня вставляется с номер 11, т.е. след по списку.

Было уже по форуму, причём недавно (я помню, просто лень искать). Что в этом сложного? Вот пример глянь.

[Zaghim]

Жарко дискуссия развернулась))) Стараюсь писать пока только на Автолиспе, задачи которые себе ставил, все пока что получались именно при помощи его.... Автокад предпочтительно 2008, но есть и 10.
Вообще я думал это делать так, вначале вставил блок, потом entnext получить его свойства и как я думаю там будут эти самые атрибуты. Потом каким-то образом их заменить (кстати как это сделать не знаю, всегда только что то выдергивал, а втыкать назад не пробовал). В общем-то нужна будет не только нумерация, а еще и некоторые другие параметры, высотная отметка, например.
А как выбрать все блоки программно? Понятно, что они должны быть все в одном слое, иначе возьмется лишнее. QuickSelect? Просто в лиспе не пробовал данный метод...
У меня не блоки штампов, у меня колодцы)))

[Nike]

Сообщение от Zaghim как выбрать все блоки программно?

с помощью (ssget "_X" '((0 . "INSERT") ...
а потом перебирать их и заносить данные в атрибуты.
Примеры работы с атрибутами есть здесь: http://faqs.org.ru/progr/graph/autolisp2.htm
[22] Атрибуты блоков
[22.1] Как получать доступ к атрибутам блоков?
[22.2] Как изменить (MODIFY) атрибуты блока?
[22.3] Как подкорректировать (UPDATE) атрибуты блока?

[VVA]

Сообщение от Zaghim Потом каким-то образом их заменить (кстати как это сделать не знаю, всегда только что то выдергивал, а втыкать назад не пробовал).

А где АКАД хранит значения атрибутов?
Извлечение значений атрибутов блоков AutoCAD Electrical с помощью AutoLisp там смотреть ф-ции get-all-atts, mip-block-setattr-bylist и примеры их использования

[Zaghim]

Всех обнял сразу, спасибо за помощь!!!!!!!!!!!! Буду разбираться!

Немного усложнилась задача. Блок стал динамический, стало 4 визибл сета... В общем когда вставляю блок, нужно сделать так что бы во всех этих 4 сетах менялось первые два значения атрибутов. Не понял как пользоваться этим:

Код:

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

Используйте entmod, и список entget будет извлечен из (attele). 
;;; изменяет значение атрибута на новое, группа 1 
(defun ATTCHG (ele attname new / b) (if (setq b (attele ele attname)) (entmod (subst (cons 1 new) (getval 1 b) b))))

Куда это впихивать и как оно заметит мне значения атрибута не понятно(((Прикрепляю блок...


В общем решил проблему опять по-своему, в таком виде:

Код:

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

(defun c:mip ()
  (vl-load-com)
  (setq nambl "путь и имя файла")
  (command "INSERT" nambl)
  (command)
  (setq cl 1)
  (if (= num nil)
    (setq num 1)
  )  
  (while cl
    (setq pt (getpoint "\nТыкай точку или <Enter>:"))
      (if (= pt nil)
        (setq cl nil)
    (progn
      (setq numbl "Kk - ")
          (setq numm (itoa num))
          (setq numbl (strcat numbl numm))
          (setq num (1+ num))
          (vl-cmdf "INSERT" "Kk" pt 1 1 0 numbl"""""""")
    )
      )
  )

)

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

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

[VVA]

Сообщение от Zaghim Как при помощи лиспа сделать так, что бы при вставке блока, автоматически заполнялись его атрибуты. ... И самое главное реально ли, что, если я вышел из программы вставки блоков и закончил, например, на 10 блоке, что-то порисовал на чертеже, и теперь хочу продолжить вставлять блоки - запускаю заново прогу и блок у меня вставляется с номер 11,

Более того, если удалить блок, то атрибуты перенумеруются. AutoLabel Attributes the swamp или на страничке автора AutoLabel Attributes Lee Mac



По умолчанию имя блока должно быть "block", имя тэга атрибута "tag". Никаких команд нет.
Нужно
1. Открыть файл test.dwg
2. Загрузить в него лисп
3. Просто копируйте и удаляйте блоки
Настройку имени блока и имени атрибута нужно менять в следующих строчках кода

Код:

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

;; [Note: Block names and Attribute Tags are *not* case-sensitive]

(setq *blockname* "block"  ;; Name of Block to be Updated
      *blocktag*  "tag"    ;; Attribute Tag to be Updated
)

[angel-fear]

VVA, можно выложить это непосредственно на форум?

[VVA]

Добавил к #18