[vgvladik3]

Здравствуйте Уважаемые участники форума.

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

Ситуация следующая. Есть чертеж с размерами. Необходимо значения размеров с чертежа перенести в файл Excel.

Как это сделать?

Предварительно проработал вопрос и поэтому решением этой проблемы могут быть следующие варианты:
--
1. Как вставить массово (пакетно) размеры из чертежа в таблицу (созданную в Автокад например рядом с чертежом). Если вы мне подскажете как это сделать, то тогда таблица с данными размерами выделяется - Правая кнопка мыши - п.Экспорт и данные можно быстро сохранить в Эксель.

2. Или же есть возможность создать Lisp код для этой процедуры для экспорта напрямую в Эксель. Извлечение данных пробовал, но там нет типа данных "значение размера".

Помогите мне пожалуйста в решении этого вопроса.

Чертеж (пример) самый простой прикрепил к данному сообщению.

[sasha_lif]

Попробуй такой лисп

;; Задача:
; Проставлено множество размеров (линейные, наклонные, радиусы, диаметры...) в пространстве model.
; "Перебитые" вручную значения- учитывать именно как перебитые, а не реальные значения размера
; Необходимо:создать Mtext, в котором через пробел или запятую, были бы перечислены ЗНАЧЕНИЯ проставленных размеров.

; Размеры выбираем секущей рамкой

получишь Mtext а ег опотом вставляй в эксель, можно черз импорт через тектовый txt файл

[NemoSUN]

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

[Сергей812]

Сообщение от NemoSUN А как вывести в таблицу размеры прямоугольников. Чтобы их выделить сразу все или может по одному, хотя бы. И все их размеры в таблицу. Есть много утилит, что берут размерные линии. А так, чтобы сразу брали геометрическую фигуру и в таблицу вставляли ширину и высоту.

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

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

Offtop:

Сообщение от Сергей812 Проблема одна - какой из сегментов считать за ширину, а какой - за высоту)

И что делать с незамкнутыми полилиниями, и что делать, если между 1 и 2 сегментами угол не 90 ...

[Сергей812]

Сообщение от Кулик Алексей aka kpblc И что делать с незамкнутыми полилиниями, и что делать, если между 1 и 2 сегментами угол не 90

ну по исходным условиям

Сообщение от NemoSUN размеры прямоугольников

поэтому незамкнутые полилинии (если есть разрыв) и непрямоугольные четырехугольники не участвуют в составлении таблицы) А так, например, проверить равенство сторон попарно, а затем по теореме Пифагора угол

[VitalyAF]

Сообщение от Сергей812 какой из сегментов считать за ширину, а какой - за высоту)

Сообщение от Кулик Алексей aka kpblc И что делать с незамкнутыми полилиниями, и что делать, если между 1 и 2 сегментами угол не 90

А то же, но в блоке с атрибутами?

[NemoSUN]

Всё проще - все стороны прямоугольников либо горизонтальные, либо вертикальные. Контуры замкнуты (спасибо Setvar). Все углы 90°. Во всяком случае, все "нелинейные" прямоугольники могу вписать в прямоугольники программой obvod (Автор: Евгений Елпанов).

[Сергей812]

Сообщение от NemoSUN все стороны прямоугольников либо горизонтальные, либо вертикальные.

и как это поможет для

Сообщение от Сергей812 Проблема одна - какой из сегментов считать за ширину, а какой - за высоту)

?

----- добавлено через ~6 мин. -----
если бы сказали - что по такой-то оси координат считать за высоту, а по такой-то оси координат - за ширину, и что все прямоугольники выровнены по осям - тогда уже признак. А еще лучше - почищенный файл-образец выложили бы.

[kp+]

Сообщение от NemoSUN А как вывести в таблицу размеры прямоугольников

Как-то так: https://forums.autodesk.com/t5/visua.../td-p/10321468

[NemoSUN]

Сообщение от Сергей812 если бы сказали - что по такой-то оси координат считать за высоту, а по такой-то оси координат - за ширину, и что все прямоугольники выровнены по осям - тогда уже признак. А еще лучше - почищенный файл-образец выложили бы.

Тоже всё просто - X горизонт, Y высота

[name02]

Вот два файла - загружаешь их оба в автокад. Вызываешь команду AT (англ.) и выделяешь нужные прямоугольники-полилинии, строит список в эксель
AreaLabel.lsp
list-to-excel.lsp
Надеюсь, что никаких доп.условий не будет, типа надо габаритные размеры непрямоугольных и т.п.

PS: сделано на основе файла из поста 29

[NemoSUN]

Сообщение от name02 Вот два файла - загружаешь их оба в автокад. Вызываешь команду AT (англ.) и выделяешь нужные прямоугольники-полилинии, строит список в эксель Вложение 263444 Вложение 263445 Надеюсь, что никаких доп.условий не будет, типа надо габаритные размеры непрямоугольных и т.п. PS: сделано на основе файла из поста 29

Попозже попробую и отпишусь - работы ОООЧЕНЬ много.

[NemoSUN]

Сообщение от name02 Вот два файла - загружаешь их оба в автокад. Вызываешь команду AT (англ.) и выделяешь нужные прямоугольники-полилинии, строит список в эксель Вложение 263444 Вложение 263445 Надеюсь, что никаких доп.условий не будет, типа надо габаритные размеры непрямоугольных и т.п. PS: сделано на основе файла из поста 29

Результат работы команды:
Command: AT

Select objects: 1 found

Select objects: 1 found, 2 total

Select objects: 1 found, 3 total

Select objects: 1 found, 4 total

Select objects: 1 found, 5 total

Select objects: 1 found, 6 total

Select objects: 1 found, 7 total

Select objects:

--> Error: bad argument type: numberp: nil

[name02]

С каким файлом работаешь и что выбираешь?
У себя сейчас твой файл "гаумке.dwg" проверил - работает.

[NemoSUN]

Сообщение от name02 С каким файлом работаешь и что выбираешь? У себя сейчас твой файл "гаумке.dwg" проверил - работает.

Загрузил новый файл.