[Gvion-pin]

Мне прислали файл AutoCad в нем есть отметки заданные атрибутами (не блок с атрибутами, а именно атрибуты)
Я бы хотел извлечь из этих атрибутов описание (это высотная отметка) и положение этого атрибута....грубо говоря, мне нужны X Y Z
имеется AutoCad2008 и 2010
Да извлечь надо в любой общедоступный файл
Пожалуйста, очень нужно....

чертеж прилагаю http://files.mail.ru/2HHN7P

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

Сообщение от Gvion-pin чертеж прилагаю

Меня просят "перезалить" предоставленную документацию / серию / ГОСТ в Dоwnlоad или приложить к посту. Почему?

[lastloch]

Сообщение от Кулик Алексей aka kpblc Меня просят "перезалить" предоставленную документацию / серию / ГОСТ в Dоwnlоad или приложить к посту. Почему?

У меня файл скачался нормально. Нажмите ссылку "скачать" а не кнопку "Загрузить".

нем есть отметки заданные атрибутами (не блок с атрибутами, а именно атрибуты)

Точки вижу, а что означает термин "атрибуты"?

[Gvion-pin]

Извините не тот файл прикрепил в торопях
вот нужный http://files.mail.ru/2HHN7P

[Лиспер]

Вот я б и рад помочь, да выхода на files.mail.ru нет - закрыто доменной политикой. И хотел бы помочь, а не могу.

[Gvion-pin]

скажи куда выложить? и как?

[Лиспер]

Да к посту приложить!

[Gvion-pin]

вот

[hwd]

Сообщение от lastloch а что означает термин "атрибуты"?

Сообщение от Gvion-pin скажи куда выложить? и как?

Сообщение от Лиспер Да к посту приложить!

Offtop: а что такое "пост" и где он?
по теме: извлечь эту информацию не трудно, главное не забывать, что координаты будут даны в текущей системе координат (т.е. надо предварительно установить нужную UCS), но если нужно - можно конечно и в мировой (но не думаю, что это будет нужно).
Если у автора топика AutoCAD 2009 x86, то могу скинуть решение на .Net 3.5 SP1 (у меня где-то валяется код на эту тему).

[-mavlin-]

Наверное вы хотели это.
км 493 Воронеж вираж путепровод_дорожные материалы.rar

[Gvion-pin]

Спасибо именно это
можеш дать то чем ты это сделал... ну не с каждым же файлом мне обращаться к народу за помощью

[-mavlin-]

Я сделал это при помощи Автокада 2010.
Комманда - извлечение данных

[VVA]

Чертеж не смотрел, но могу предложить такой алгоритм:
1. Преобразовывает ATTDEF в текст

Код:

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

(defun C:TAG2TXT ()
  (setq sset (ssget '((0 . "ATTDEF"))))
  (setq num (sslength sset) itm 0)
  (while (< itm num)
    (setq hnd (ssname sset itm))
    (setq ent (entget hnd))
    (setq new '((0 . "TEXT")))
    (setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))
    (setq dolst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))
    (foreach grp dolst
      (setq addto (assoc grp ent))
      (if (/= addto nil)
        (setq new (append new (list (assoc grp ent))))
      )
    )
    (entdel hnd)
    (entmake new)
    (setq itm (1+ itm))
  )
  (princ)
)

2. Расставляем точки рядом с текстом

Код:

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

(defun C:T2P ( / ss i pt itm ed)
  (setvar "PDMODE" 35)
  (setvar "PDSIZE" -0.5)
  (vl-load-com)
(defun Point (pt)  
  (setq pt (trans pt 1 0))
  (entmakex (list (cons 0 "POINT")
		  (cons 8 "PointFromText")
                  (cons 10 pt)))
)
    ;;;Text to Excell
  (and
    (setq ss (ssget "_:L" '((0 . "TEXT"))))
    (repeat (setq i (sslength ss))
      (setq itm (ssname ss (setq i (1- i)))
	    ed (entget itm))
      (vla-put-alignment (vlax-ename->vla-object itm) 0)
      (point (append (mapcar '+ (cdr(assoc 10 ed)) '(0 0))(list(atof(cdr(assoc 1 ed))))))
      )
    )
  )

3. Команда _DataExtraction либо COOR - экспорт координат

[Disney]

Либо сразу после

Сообщение от VVA 1. Преобразовывает ATTDEF в текст

Geo_Export, с выбором в качестве отметки содержимое текста.

[Gvion-pin]

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

А насчет Geo_Export, COOR - экспорт координат ... я пользуюсь спасибо

[-mavlin-]

Автокад 2010 комманда _dataextraction и не неадо никакого програмирования.

[oleg_marshinov]

data extrction- рулит

[Nike]

Сообщение от oleg_marshinov data extrction- рулит

Нифига не рулит. Ужасная, кривая, бестолковая штука

[Gvion-pin]

Сообщение от -mavlin- Автокад 2010 комманда _dataextraction и не неадо никакого програмирования.

На работе 2008 версия есть только...и AutoCAD 2010 Rus Portable ...в Portable это не получается....дома попробую в нормальной 2010

[VVA]

Сообщение от Gvion-pin На работе 2008 версия есть только.

В 2008 так же есть _dataextraction

[Gvion-pin]

Спасибо все, что надо получилось... СПАСИБО ЗА ПОМОЩЬ

[-mavlin-]

Сообщение от Nike Нифига не рулит. Ужасная, кривая, бестолковая штука

Просто вы не знаете как её готовить

[Nike]

Сообщение от -mavlin- Просто вы не знаете как её готовить

Можно, наверное, и трусы через голову надевать.. Я просто не знаю как. Покажите..
Если и покажете - это будет выглядеть ужасно, криво и бестолково..

[-mavlin-]

Сообщение от Nike Можно, наверное, и трусы через голову надевать.. Я просто не знаю как. Покажите.. Если и покажете - это будет выглядеть ужасно, криво и бестолково..

Согласен! В 2010 Каде эта комманда сделана бестолково (но иногда не заменима). А вот в 2007 была коммада "извлечение атрибутов", которая была довольно удобной (но работала только с блоками).

[hwd]

Сообщение от -mavlin- "извлечение атрибутов", которая была довольно удобной (но работала только с блоками).

А что, атрибуты могут быть не только у блоков?

[TararykovDG]

Сообщение от hwd А что, атрибуты могут быть не только у блоков?

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

[hwd]

Сообщение от TararykovDG Атрибуты могут быть на чертеже и сами по себе, без блока. Правда какая в них в таком случае польза я не знаю.

Если мне не изменяет память - это будет именно блок, просто он состоит из одного только атрибута, иначе его не "поюзаешь" толком...

[VVA]

Сообщение от TararykovDG Атрибуты могут быть на чертеже и сами по себе, без блока

Сообщение от hwd Если мне не изменяет память - это будет именно блок

Здесь нужно расставитьточки над i в терминах.
Атрибут (dxf код 0 - ATTRIB) - может быть только в блоке.
Описание атрибута (dxf код 0 - ATTDEF) - выглядит как текст и становится атрибутом только после включения в блок

[TararykovDG]

Сообщение от hwd Если мне не изменяет память - это будет именно блок, просто он состоит из одного только атрибута,

Команда _.attdef создает именно атрибут, который потом можно по желанию включить в блок, но сам атрибут может существовать на чертеже без вхождения блок. Вот его dxf-коды

Код:

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

 
_$ (entget (car (entsel)))
((-1 . <Èìÿ îáúåêòà: 7ed40380>) (0 . "ATTDEF") (330 . <Èìÿ îáúåêòà: 7ed3ecf8>) (5 . "1B0") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbText") (10 1697.13 611.95 0.0) (40 . 2.5) (1 . "rwerte") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (3 . "werqew") (2 . "ATR") (70 . 0) (73 . 0) (74 . 0) (280 . 1))
_$ 

Сообщение от hwd его не "поюзаешь" толком...

Это я и имел ввиду, когда говорил что не знаю какая в них в таком случае польза

P. S. Думаю, благодаря VVA все стало ясно, признаю свою не точность в терминах

[-mavlin-]

Сообщение от hwd А что, атрибуты могут быть не только у блоков?

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