[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