[AntonFox]

День добрый уважаемый All!
Есть некий чертеж генплана, в котором было много полилиний с шириной более 1, текст и кружочков (возможно заливка). В результате каких-то преобразований/разбиений все эти "примитивы" превратились в фигуры с "заливкой". Файл весит много, трудно "ворочается" и выделяется. В чертеже обнаружено более 22 тысяч таких фигур. К примеру один прямоугольник может состоять из 4 треугольных фигур.

А теперь вопросы:
1. Что такое эта самая фигура? Нигде не нашел инструмент для ее рисования, свойств минимум.
2. Как можно удалить/преобразовать все эти фигуры, что бы на их месте остались просто отрезки или полилинии (предпочтительней)? Вручную все это перерисовывать очень долго.

PS: OS Vista, AutoCAD 2007 без примочек

[Хмурый]

команда _solid. из этой оперы есть ещё "полоса" _trace
скорей всего эти "фигуры" были получены из другой программы.
при открытии файла AutoCAD сообщает, что файл сохранён в другой программе, не лицензированной AutoDesk

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

Какой-то "крутой" конвертер поработал... ИМХО не лечится. Проще перерисовать "поверху", подложив файл как ссылку.

[sertor]

Сообщение от AntonFox 2. Как можно удалить/преобразовать все эти фигуры, что бы на их месте остались просто отрезки или полилинии (предпочтительней)? Вручную все это перерисовывать очень долго.

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

[swell{d}]

Сообщение от Кулик Алексей aka kpblc ИМХО не лечится

а в чём проблема-то? скрипт строк на 10 максимум.

add:

Dim ms
Set ms = ThisDrawing.ModelSpace
Dim ut
Set ut = ThisDrawing.Utility

Dim myObj
Dim pl
Dim i
for i=0 to ms.count-1
set myObj = ms.Item(i)
if (myObj.ObjectName = "AcDbFace") then
set pl = ms.AddPolyline(myObj.Coordinates)
end if
next
ut.Prompt "Готово, проверяй!"

сам же научил =)

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

swell{d}, тут не AcDbFace, а AcDbSolid, это раз. Второе - попробуй сам прогнать свой код, порадуйся :P

[swell{d}]

попробовал. я вообще в шоке, что он работает =)
(у меня нанокад)

[AntonFox]

Сообщение от swell{d} (у меня нанокад)

Вот из-за таких и пишет программа что

Сообщение от Хмурый при открытии файла AutoCAD сообщает, что файл сохранён в другой программе, не лицензированной AutoDesk

:-)
У нас на работе BricsCAD у всех почти.
А геодезистов у нас нет - все съемки присылают с завода, так что с ними договориться не реально.

Ясно все, значит придется мучиться вручную ((( Спасибо всем за внимание!

[VVA]

AntonFox, На будущее. Очень похоже, что разрабатывался в Credo III. Я с таким сталкивался. Экспорт в dxf из Кредо идет через Credo Конвертер
В КРЕДО КОНВЕРТЕР можно (и нужно) сделать настройки соответствия

Это обеспечивает корректную передачу геометрических характеристик элементов и максимальное использование структур данных тех систем, в которые выполняется экспорт. Например, линейный тематический объект может быть экспортирован в формат DXF как мультилиния с заданным стилем, или как 2D-полилиния с заданным типом линии, или как 3D-полилиния, у которой координаты вершин Z соответствуют профилю линейного тематического объекта. Настройки соответствия выполняются непосредственно в приложении с использованием простых и удобных диалогов. При назначении соответствия используются файлы внешних данных других систем, например, файлы с описанием линий, штриховки и т. п.

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

все съемки присылают с завода

надо их дожать, делая упор, что это у них уровень владения инструментом не очень. Как вариант купить себе КОНВЕРТЕР (найти у кого из знакомых рядом есть) и просить с завода передавать в формате CREDO, а конвертертировать самим.

[engngr]

Вспомнилось: http://forum.dwg.ru/showthread.php?t=65210

[AntonFox]

Сообщение от VVA надо их дожать, делая упор, что это у них уровень владения инструментом не очень. Как вариант купить себе КОНВЕРТЕР (найти у кого из знакомых рядом есть) и просить с завода передавать в формате CREDO, а конвертертировать самим.

Спасибо, но это не вариант. У заводчан даже Автокада нет, только какой-то просмотрщик и все. А эти файлы им фирма какая-то сбрасывает. Так что проще самим перерисовать, чем писать запросы и объяснять зачем это надо.

Спасибо всем, принявшим участие в обсуждении!!!

[Injener-81]

Попробуйте разбить на проивитивы.

[Injener-81]

Да, опечатка. Примитивы.

[Хмурый]

Injener-81, каким образом?