[mkung]

В MapInfo высота точки задана параметром Elevation. Можно ли при импорте в СИВИЛ учесть ее как координату Z?
Заранее благодарен.

[MIP]

А в каком виде импортируются данные, текстовый файл, dxf или еще что? Если можно образец, может что присоветую. Я к сожалению в отличии от Civil не знаком с MapInfo и не знаю в каком виде можно экспортировать из него данные.

[mkung]

Да нет, там прямо из MapInfo *.tab файла идет импорт, отмечаются поля, которые надо импортировать. Но они попадают в данные, которые я идентифицировать пока не могу. В свойствах точки появляется раздел OD:<имя слоя> в котором и показываются эти поля со значениями. И "точка" - то вроде АКАДовская, но 2007-й эти данные не показывает. Хотел достать их ЛИСПом и добавить в координаты, но пока не пойму, как до них добраться (последний раз с ЛИСПом работал еще на 2000 АКАДе).
СИВИЛ 2008 как АКАД тоже эти данные показывает... То ли это возможность линейки 2008, то ли потому что СИВИЛ... Вобщем, с налету не получается, а перерывать всю документацию - времени маловато...

[Arkady]

Пришли .тав файл
[email protected]

[MIP]

... или выложи файл здесь, помотрим!

[mkung]

Извините за долгое молчание, вопрос временно был неактуален. Вот снимок свойств точки. Координата Z - Zust. Как-то ее надо вытащить и присвоить координате Z точки. Старых знаний AutoLISP на уровне AutoCAD 2000 не хватает. Подскажите, как достать данные. Если можно, то попроще (в смысле инструментов) или разными способами.
Заранее благодарен.

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

Поскольку, похоже, эта точка вовсе и не точка, а объект MAP'a / Civil'a, то надо заниматься длительной и нудной исследовательской работой. Я в свое время на обработку ADT-шных объектов потратил больше месяца...

[mkung]

А это не поможет подсказать куда дальше суваться и как?

Команда: (entget (entlast))
((-1 . <Имя объекта: 7efec670>) (0 . "POINT") (5 . "1896") (102 .
"{ACAD_XDICTIONARY") (360 . <Имя объекта: 7efec678>) (102 . "}") (330 . <Имя
объекта: 7efe8cf8>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"Skw_отметки") (100 . "AcDbPoint") (10 25207.7 36011.7 0.0) (210 0.0 0.0 1.0)
(50 . 6.07441e-158))

[Ygorekk]

А можно сам файл выложить? Ну или хотябы только ту точку которую нужно поймать в формате tab.

[dkite]

Сообщение от Кулик Алексей aka kpblc Поскольку, похоже, эта точка вовсе и не точка, а объект MAP'a / Civil'a, то надо заниматься длительной и нудной исследовательской работой. Я в свое время на обработку ADT-шных объектов потратил больше месяца...

Нет, это обычная точка, но к ней прикреплены т.н. "объектные данные" (функционал Map). Напрямую к Civil не подключишь, я думаю. Только через средства запросов Map

[mkung]

Сообщение от Ygorekk А можно сам файл выложить? Ну или хотябы только ту точку которую нужно поймать в формате tab.

Вариант чистки, форматирования и переделки tab-файла в табличный формат для последующей отрисовки в CIVIL мне пока не очень интересен. Мне нужно решение для группы пользователей. Учить каждого делать вручную считаю нерациональным, писать самому конвертор - больно хлопотно. Пока интереснее выглядит вариант обработки в АКАДе. Был опыт ранее и есть желание его актуализировать и развить.

Сообщение от dkite Нет, это обычная точка, но к ней прикреплены т.н. "объектные данные" (функционал Map). Напрямую к Civil не подключишь, я думаю. Только через средства запросов Map

Вообще-то это результат работы конвертера из состава CIVIL...
Я думаю данные должны быть доступны... Вот только не знаю как эти словари и "атрибуты примитива" потрошить. Можно, конечно, читать литературу, но решил спросить - может кто пнет в нужном направлении.

[dkite]

Сообщение от mkung Вообще-то это результат работы конвертера из состава CIVIL... Я думаю данные должны быть доступны... Вот только не знаю как эти словари и "атрибуты примитива" потрошить. Можно, конечно, читать литературу, но решил спросить - может кто пнет в нужном направлении.

Код:

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

(setq elev (ade_odgetfield (car(entsel)) "Skw" "Z_Ust" "Real" 0))

Если в принципе заработает, то остальное дело техники.

[oleg123]

На VB, чтобы прочитать скмантику, надо мап Createobject()-ом цеплять, а потом работать со свойствами проекта - таблицами данных. На лиспе, думаю, также.

[KSI]

mkung, Выложи файл с несколькими точками. Без этого не понять.
Либо смотри, что прописано в объектах 7efec678 и 7efe8cf8
... (360 . <Имя объекта: 7efec678>) ... (330 . <Имя объекта: 7efe8cf8>) ...
А вытащить данные можно примерно так:

Код:

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

(
(setq pt1 (entget (car (entsel))))
(setq pt_330 (entget (cdr (assoc 330 pt1))))
(setq pt_360 (entget (cdr (assoc 360 pt1))))
(print pt_330)
(print pt_360)
)

[VVA]

mkung, Данные могут хранится в Расширенных Данных
Что возвращает

Код:

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

 (entget (entlast) '("*"))

И обязательно выложи файлик с точками. Иначе это гадание на кофейной гуще.

[mkung]

Сообщение от VVA mkung, Данные могут хранится в Расширенных Данных Что возвращает Код: [Выделить все] (entget (entlast) '("*")) И обязательно выложи файлик с точками. Иначе это гадание на кофейной гуще.

Команда: (entget (entlast) '("*"))
((-1 . <Имя объекта: 7efdcd88>) (0 . "LWPOLYLINE") (330 . <Имя объекта:
7efd9cf8>) (5 . "1969") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0")
(100 . "AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10
26672.3 30438.5) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 26830.4 30438.5) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 26830.4 30269.5) (40 . 0.0) (41 . 0.0) (42 .
0.0) (10 26672.3 30269.5) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

Вложил файл. Там на одно место накладывается 4 точки (видимо брали данные из 4 таблиц). Я одну растащил (в квадратике) работал с центральной - ее координаты соответствуют данным.

[mkung]

Сообщение от dkite Код: [Выделить все] (setq elev (ade_odgetfield (car(entsel)) "Skw" "Z_Ust" "Real" 0)) Если в принципе заработает, то остальное дело техники.

О! Выдает то, что нужно 185.6
Попробую дальше обработать...
Огромное спасибо!
Хотя по-прежнему интересно вытащить список параметров, возможно понадобится для организации выбора параметра.

[dkite]

Сообщение от mkung О! Выдает то, что нужно 185.6 Хотя по-прежнему интересно вытащить список параметров, возможно понадобится для организации выбора параметра.

А каких параметров? Есть примитив Автокада, к которому могут быть прикреплены объектные данные. Данные представлены в виде таблицы с полями (по типу базы данных). К каждому примитиву может быть прикреплено несколько таких таблиц. Сами таблицы хранятся в чертеже.
В Вашем случае есть таблица с названием "Skw" и полями "N_skw", "X", "Y", "Z_ust", "Z_plast".

Код:

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

Список таблиц в чертеже можно получить (ade_odtablelist)
Таблицы, прикрепленные к примитиву (ade_odgettables ename)
Значение поля (ade_odgetfield ename table field recnum)

Почитать по функциям можно в "acmaplisp.chm", раздел "Function Synopsis"->"Object Data Functions"

[mkung]

Ба-а-а-альшое человеческое СПАСИБО!

[KSI]

dkite, очень интересная информация. Не работал с MAP, и не знал, что можно прикреплять объектные данные. Причем таблица, насколько я понял, хранится в самом файле dwg.