[Diman111]

Вопрос. Есть желание написать свою програмку для работы с блоками, для чего нужно понять как с ними работать. С примитивами типа линий все ясно - entget entmake. с блоками неясно как добраться до атрибутов.

(setq prim (entget(cdr(entsel))))

в описании кодов нет прямой ссылки на атрибут. Разжуйте пожалуйстка как посредством Лиспа и dxf добраться до атрибутов и узнать их количество

все что написано в литературе - tblsearch next object - не совсем понятен принцип работы именно с блоками и атрибутами в блоках.

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

Тебе именно через dxf надо? Если через activex покатит, см. http://www.arcada.com.ua/forum/viewtopic.php?t=981
А так-то можно добираться примерно так, наверное:

Код:

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

(defun _kpblc-dxf-block-attr-get (block tag / att res)
				 ;|
*    Получение указателя на атрибут вхождения блока
*    Параметры вызова:
*	block	ename-указатель на вхождение блока
*	tag	маска тэга атрибута.
*    Возвращаемое значение:
*	список ename-указателей на атрибуты, если они есть, либо nil.
*    Внешние ссылки не обрабатываются!
|;
  (if (and (= (cdr (assoc 0 (entget block))) "INSERT")
	   (/= (cdr (assoc 66 (entget block))) 0)
	   ) ;_ end of and
    (progn
      (while (and (setq	att (entnext (if res
				       att
				       block
				       ) ;_ end of if
				     ) ;_ end of entnext
			) ;_ end of setq
		  (/= (cdr (assoc 0 (entget att))) "SEQEND")
		  ) ;_ end of and
	(setq res (append res (list att)))
	) ;_ end of while
      ) ;_ end of progn
    ) ;_ end of if
  (vl-remove-if
    '(lambda (x)
       (not (wcmatch (strcase (cdr (assoc 2 (entget x)))) (strcase tag)))
       ) ;_ end of lambda
    (vl-remove-if '(lambda (x) (/= (cdr (assoc 0 (entget x))) "ATTRIB")) res)
    ) ;_ end of vl-remove-if
  ) ;_ end of defun

Примеры исползования:

Код:

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

(setq att (_kpblc-dxf-block-attr-get (car (entsel)) "*"))
; Получение тэгов атрибутов блока:
(mapcar '(LAMBDA(x) (cdr (assoc 2 (entget x)))) att)
; Получение значений атрибутов:
(mapcar '(LAMBDA(x) (cdr (assoc 1 (entget x)))) att)

Функция не обрабатывает постоянные, предустановленные и verify атрибуты.

[Diman111]

Спасибо - буду разбираться дальше.

Через activex не покатит - так как не разобрался в простом а более сложное еще впереди.
А нельзя ли в 2-х словах описать принцип получения значений атрибутов? Т.е описать что механизм действия вашего примера?
Если не сложно конечно

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

Ну в общем-то сначала проверяется, является ли block блоком с атрибутами:

Код:

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

(and (= (cdr (assoc 0 (entget block))) "INSERT")
      (/= (cdr (assoc 66 (entget block))) 0)
      )

Потом проходимся по всему составу блока:

Код:

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

(while (and (setq   att (entnext (if res
                   att
                   block
                   ) ;_ end of if
                 ) ;_ end of entnext
         ) ;_ end of setq
        (/= (cdr (assoc 0 (entget att))) "SEQEND")
        ) ;_ end of and
   (setq res (append res (list att)))
   ) ;_ end of while

На выходе получаем список ename-указателей на примитивы, входящие в состав блока. Затем "фильтруем" список, исключая "не-атрибуты":

Код:

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

(vl-remove-if '(lambda (x) (/= (cdr (assoc 0 (entget x))) "ATTRIB")) res)

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

Код:

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

vl-remove-if
    '(lambda (x)
       (not (wcmatch (strcase (cdr (assoc 2 (entget x)))) (strcase tag)))
       ) ;_ end of lambda <...>

[Евгений А.]

Можно и одним словом - команда (tblobjname "block" "<Имя блока>") - на выходе получаем имя примитива блока (ename), потом как обычно можно использовать (entnext ename) получая имена примитивов внутри блока, пока не вернёт nil.
А Крыс - молоток, именно эту команду и пропустил!!! Видать увлёкся атрибутами... (после ActiveX и мне охото забыть всё связанное с DXF как дурной сон!):
Нехватает перед (while... такой строки

Код:

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

(setq block (tblobjname "block" (cdr (assoc 2 (entget block)))))

Вообще код очень плохой - entget - наверное самая медленная команда (особенно для ACIS обектов), а разбираться с DXF кодами гораздо сложнее, чем изучать ActiveX возможности - намного(!!!) понятнее, а код короче и главное гораздо быстрее!!! DXF - фу!
(Кстати Крысу совет - append в таком варианте тоже будет сильно тормозить программу)

[Diman111]

Хм - занятно - будем думать -
Спасибо за пояснения.
БОЛЬШОЕ

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

> Евгений А.: Я не люблю dxf, кроме тех случаев, когда его использование удобно (в частности, получение наборов). Все остальное я настолько давно делаю через vla, что dxf вспоминается с трудом (особливо под BricsCAD).
В любом варианте сорри за хреновый код.

[ытя]

Одна моя старая функция, может чем поможет

Код:

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

;-----------------------------------------------------------------------------------------;
;   функция : p_AttrEdit - изменяет зн-я атрибутов блока						;
;.........................................................................................;
; Вход. параметры -[<Entity name> (список <tag_1>...<tag_i>)(список <зн_1>...<зн_j>)]	;
;	<зн_>-я должны быть строковыми									;
;-----------------------------------------------------------------------------------------;
; Длины списков атрибутов и значений м.б. разными (определяется меньший из них)		;
; 1-му атрибуту присв-тся 1-е знач., 2-му - 2-е и т.д.						;
;-----------------------------------------------------------------------------------------;
(defun p_AttrEdit(ae_BlockName	;<Entity name>
		  ae_TagNames	;список названий атрибутов
		  ae_Values	;список новых значений
		/ n	   ;количество изменяемых атрибутов
		  Tag	   ;название атрибута
		  attrName ;имя DXF
		  attr_i   ;данные i-го атрибута
		  i
		  )
  (setq
    attr_i (entget (entnext ae_BlockName))
    n (min (length ae_TagNames)(length ae_Values))
   )
  (while (and (/=(cdr(assoc 0 attr_i))"SEQEND") (> n 0))
    ;;; прооверяем есть ли назв. текущ. эл-та во входном списке названий атрибутов
    (if (setq i (vl-position (cdr(assoc 2 attr_i)) ae_TagNames))
      (progn
	(setq attr_i (subst (cons 1 (nth i ae_Values)) (assoc 1 attr_i) attr_i)
	      n (1- n));setq
	(entmod attr_i)
       );progn
     );if
    (setq attrName (cdr(assoc -1 attr_i));имя текущего элемента блока
	  attrName (entnext attrName);имя следующего элемента
	  attr_i (entget attrName));считываем данные след. элемента
   );while
  (entupd ae_BlockName)  
 );_defun p_AttrReplace

[Олег К.]

Помогите начинающему разобраться с удалением блоков.
AutoCAD 2006, без довесков. В новом пустом файле создаем два простейших блока "а" и "b", невзрываемых, сохраняем этот файл под именем 1.dwg в любое удобное место. Получается файл-библиотека блоков.
Далее вставляем блоком эту библиотеку в другой новый файл, и удаляем блоки следующим методом:

Код:

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

(setq active_doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(vla-Delete (vla-InsertBlock (vla-get-ModelSpace active_doc)
	                     (vlax-3D-point '(0.0 0.0 0.0))
	                     "D:\\1.dwg"
	                     1 1 1 0
	        )
)
(vla-Delete (vla-item (vla-get-Blocks active_doc) "1"))
(vla-Delete (vla-item (vla-get-Blocks active_doc) "a"))

Блок-библиотека "1" прекрасно удаляется и зачищается, а вот при попытке зачистки блока "а" пишет ошибку: "error: Automation Error. Object is referenced", хотя _PURGE его зачищает. Если сохранить этот файл, закрыть и снова открыть - блоки "а" и "b" спокойно убираются.
Что такое нужно сделать, чтобы все блоки убирались с первого захода?
Только не предлагайте использовать _PURGE, от него-то и пытаюсь избавиться.

[Alaspher]

Сообщение от Олег К. Только не предлагайте использовать _PURGE, от него-то и пытаюсь избавиться.

А vla-PurgeAll тоже не проходит?

[Олег К.]

Сообщение от Alaspher А vla-PurgeAll тоже не проходит?

У него фильтра нет. Мне нужно удалить из файла строго определенные блоки.

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

А блок а случаем не входит в блок b (ну или наоборот)?

[Олег К.]

Сообщение от Кулик Алексей aka kpblc А блок а случаем не входит в блок b (ну или наоборот)?

Еслибы.
А почему он тогда удаляется после закрытия-открытия файла? И пургенится?

Прицеплю тестовый файл заодно

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

У меня кад сошел с ума сегодня, поэтому без проверок:

Код:

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

(vl-load-com)
(defun test (lib blk / ref func_get-name adoc blocks)
  (defun func_get-name (blk)
    (if (vlax-property-available-p blk 'effectivename)
      (vla-get-effectivename blk)
      (vla-get-name blk)
      ) ;_ end of if
    ) ;_ end of defun

  (setq adoc   (vla-get-activedocument (vlax-get-acad-object))
        blocks (vla-get-blocks adoc)
        ref    (vla-insertblock
                 (vla-get-modelspace adoc)
                 lib
                 1.
                 1.
                 1.
                 0.
                 ) ;_ end of vla-insertblock
        ) ;_ end of setq
  (vla-erase ref)
  (vlax-for blk_def (vla-item blocks (vl-filename-base lib))
    (if (/= (strcase (func_get-name blk_def)) (strcase blk))
      (vl-catch-all-apply '(lambda () (vla-delete (vla-item blocks blk_def))))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-delete ref)
  (vla-item blocks blk)
  ) ;_ end of defun

[VVA]

Можно копировать блоки через objectDBX
Как пример DBXImportBlock Fatty

[Олег К.]

Алексей, с небольшими поправками программа работает, вот только блоки не удаляет. При пошаговом выполнении выдает ошибку в строке (lambda () ....), все то же "Object is referenced".
Свойство effectivename стоит проверять для всех блоков или только для динамических или с атрибутами?

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

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

Чертовщина какая-то. Я ж удаляю вставку библиотеки... В качестве уточнения: "тестовый пример" в #13 это библиотека или "результат вставки"? Если второе - выложи саму библиотеку. Тогда смогу погонять код более какчественно )
effectivename требуется для дин.блоков (у них (vla-get-name) вернет нечто типа "*Uxxx").

[VVA]

Вот еще ссылочка
Копирование блоков из чертежа в чертеж

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

VVA, ObjectDBX очень удобен, но не гарантирует 100% работы

[Олег К.]

>> Кулик Алексей aka kpblc
Вот и я о том же - фигня какая-то наблюдается
Файл "1.dwg"из №13 это именно библиотека. В нем два блока "а" и "b" находящиеся в модели. Также там присутствуют описания этих блоков в символьной таблице BLOCK, назовем их "a_i" и "b_i".
Вставляем этот файл-библиотеку как блок в другой файл (ну хоть в "Drawing1"):

Код:

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

(setq active_doc (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq bibl_block (vla-InsertBlock (vla-get-ModelSpace active_doc)
	                     (vlax-3D-point '(0.0 0.0 0.0))
	                     "D:\\1.dwg"
	                     1 1 1 0
	        )
)

Получаем в новом файле блок с именем "1" и описания блоков "1_i", "a_i", "b_i" в таблице BLOCK.
Удаляем блок "1" и его описание "1_i" из "Drawing1":

Код:

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

(vla-Delete bibl_block)
(vla-Delete (vla-item (vla-get-Blocks active_doc) "1"))

По идее, сейчас в файле "Drawing1" находятся только описания "a_i" и "b_i". Вхождений этих блоков нет, значит их можно зачистить, что команда PURGE и делает. А вот если удалять через (vla-Delete (vla-item (vla-get-Blocks active_doc) "a")), ничего не получится - "error: Automation Error. Object is referenced". Где-то осталась запись, что эти блоки используются.
Действие №полтора: сохраняем "Drawing1", закрываем, открываем снова. Записи "a_i" и "b_i" спокойно удаляются vla-Delete'ом. Вот что, спрашивается, исправил автокад во время закрытия файла?

Действие №2. В исходном файле-библиотеке удаляем блоки "а" и "b" из модели, остаются только их описания "a_i" и "b_i". Пусть теперь этот файл зовется "2.dwg". Вставляем его в новый файл "Drawing2" - теперь в нем есть блок "2" и описания блоков "2_i", "a_i", "b_i". Так вот в этом случае функцией vla-Delete можно удалять "a_i" и "b_i", не удаляя перед этим "2" и "2_i"!

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

>> VVA
Спасибо за ссылки. Программы пригодятся. Жаль только в ObjectDBX не разбираюсь, с ходу понять не получится

[ShaggyDoc]

Да не надо мучиться с попытками постоянно удалять неиспользуемые блоки!
Вот уже 18 лет успешно использую простую схему:

1. В библиотеки собираются маленькие блоки однотипного назначения. В одной библиотеки - трубопроводная арматура для схем, в другой - топографические знаки и т.п. Если пользователю понадобилась, например, задвижка, то через минуту может понадобиться вентиль из этой же библиотеки.

2. Имеется функция проверки наличия определения блока в чертеже. Ей передается имя библиотеки (относительное) и имя блока. Если этого блока нет, вставляется вся библиотека. Теперь все определения блоков из нее имеются в чертеже.

3. В момент вставки библиотеки функцией command на этапе запроса точки вставки выполняется автоматическое прерывание. Теперь все определения блоков есть, но вставок нет. В чертеже при этом куча "лишних", пока не использованных блоков.

4. "Лишние" блоки лежат, никого не трогают. Да, занимают некоторое место, но это мелочь.

5. Команда PURGE может выполняться или не выполняться в любой момент.Но уже независимо от вставок.

6. Для "больших" блоков, например 3D моделей, где каждый блок может весить по 1Мб и более использование библиотек нецелесообразно.

А вот для маленьких "блочишек" очень даже хорошо. Некоторые библиотеки у меня живут еще с AutoCAD-10. В одной из библиотек 150 блочков общим весом 200 Кб. Если эти блоки разложить в отдельные файлы, то в сумме они потянут около 5Мб, так как в каждый отдельный файл записывается больше общей информации, чем описания примитивов.

7. Вставка конкретного одного блока из другого файла через DBX возможна, но ненадежна. Работать будет, но в присутствии автора. А нужны абсолютные гарантии, так как именно на работе с маленькими библиотечными блочками очень многое держится. Сами вставки блоков реализуются во множестве вариантов (однократная, многократная, с привязкой к линиям и т.п.).

[VVA]

+1 К посту №21 Функцию можно посмотреть здесь

> Олег К #20 А потом появяться в библиотеке динамические блоки. Отгребешь гемора еще больше. ИМХО лучше оставить их в покое до окончания работы, а потом сделать пурже.

[Олег К.]

Ну конечно же я читал "САПР на базе...". И программа составлена именно по такому принципу. Просто понадобилось подробнее разобраться с определенным куском кода, вот и отделил его от остального. Началось все здесь создание собственной подписи???, где-то с середины страницы.
Для чего это понадобилось:
По требованию начальства в dwg-файлах в форматках проставляются подписи исполнителей (dwg остаются только в нашем архиве, заказчикам - картинки с них). Надоело блоки вставлять вручную, написал программу, которая в нужные места вставляет нужные подписи. Поскольку все блоки подписей хранятся в одном файле (показалось нецелесообразным делать их отдельными), в обрабатываемом файле оказывается много ненужных блоков. Вот их то и зачищаю в конце работы программы. Ведь в данном файле они никогда уже не понадобятся.
Блоки не динамические и без атрибутов.
В первом варианте вставка/удаление были реализованы через command, сейчас переделываю под vla-функции.

[ShaggyDoc]

Если уж кому-то, как выражаются в определенных кругах, "хочется самому себе срок подписать", то делайте так.

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

Иначе будет как у незабвенной Серны Михайловны - "факсимиле", которые кто угодно и куда угодно будет ставить. Универсальная "роспись" за любого человека.

[Олег К.]

Да понимаю я что так не делается. Осталось убедить в этом начальство, хотя скорее сами убедятся, когда вляпаются. Ссылки на подписи уже лучше, но ведь нужно каждому исполнителю объяснить как этим пользоваться. Ну допустим, если использовать кнопку, никто даже не догадается как это делается. НО! На чертеже бывает до 10-ти разных подписей, получается каждый должен открыть этот файл на своем компе и вставить личную подпись, да еще на каждом листе. Честное слово, вручную подписывать быстрее оказывается. Если каждая подпись находится только на компе подписывающегося, да еще вставляется с относительным путем, то с какого компа, спрашивается, распечатывать этот файл?
Чертежи все равно хранятся на файловом сервере. Мне кажется, банк подписей стоит хранить там же и вставлять ссылками. А пока работаю с тем что есть. Нет у меня права заставлять делать так, как лучше, могу только рекомендовать. Большинству же эти рекомендации до ...

И второй момент. Подобная "электронная подпись" не имеет юридической силы.

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

[ShaggyDoc]

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

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