[DEM]

Собственно есть файл с расширением ASF, это результаты расчета армирования СКАДа...
В файле представлена сетка МКЭ и армирование по слоям в направлениях Х и У.
Вот разобранный файл...

GL POLY 17 -это пока не разобрался что..... 37.000 21.950 0.000 37.000 4.350 0.000 34.500 4.350 0.000 ...... ...... ....... GP KNOT 5173-это номера и координаты точек 1 37.000 10.350 3.600 2 37.000 16.350 3.600 3 18.450 0.000 3.600 4 20.750 22.200 3.600 ...... ...... ....... GF ELEM 5062-это номера элементов с номерами узлов 1 8 12 414 22 2 22 414 429 23 3 23 429 444 24 4 24 444 459 25 ...... ...... ....... QR 1 252510 0.000 0.000 0.000 0.000 90.000 - это армирование элементов по слоям QM 0 0 34.300 0.200 3.600 0.58 0.51 0.00 0.00 0.00 0.00 QM 0 0 34.300 0.600 3.600 1.07 0.97 0.00 0.00 0.00 0.00 QM 0 0 34.300 1.000 3.600 1.44 1.32 0.00 0.00 0.00 0.00

QM 0 0 34.300 0.200 3.600 0.58 0.51 0.00 0.00 0.00 0.00
( 0 0 34.300 0.200 3.600/это зачем то опять координаты/ 0.58/армирование верхнее по Х/ 0.51/армирование верхнее по У/ 0.00/армирование нижнее по Х/ 0.00/армирование нижнее по У/ 0.00 0.00/эти значения пока не разобрал, по всей видимости поперечное армирование....)
Собсно хотелось бы сделать программку которая бы позволяла, импортировать сетку МКЭ из данного файла в автокад в виде блока. Конечные элементы импортировать в виде регионов и назначать им цвет в зависимости от того сколько требуется арматуры.....
Получится 6 блоков соответственно
Армирование нижнее по Х
Армирование верхнее по Х
Армирование нижнее по У
Армирование верхнее по У
Армирование поперечное по Х
Армирование поперечное по У

Предложение к заинтересовавшимся, которые могут программировать в Лиспе, помочь сделать эту программу, я Лиспом давно не занимался, а сейчас в основном на Делфях сижу...
В принципе данную программку можно и на NET сделать.....
PS. Файло с расширением ASF прилагаю...

[Cosinus]

VBA так VBA. В принципе, если буду сам арматуру считать, можно такой же asf файл в питоне сделать
Разнос можно сделать или тупо разбив диапазон на т-частей (с моментами так и делал), или по диаметрам-шагам арматуры.
Для проармированных регионов планирую выключать (может переименовывать и выключать) слои. Гнутые - это всякие П-шки, Г-шки, С-шки (классическое гнутьё щас не в моде ).
Мои блоки армирования корявенькие - видел здесь красивее. Попробую вставлять их

[DEM]

Лучше не по слоям....
Глянь в одном из моих постов есть пример....
Блок распределенного армирования у меня есть....
Но лучше разделить проект на части, каждая должна отвечать за свое.....
1. Импорт
2. Армирование зонами
3. Замена зон на блоки и примитивы

[unikum85]

Блок армирования я могу завтра выложить - с атрибутами.
П-шки и прочую красоту обычно на узлах показывают, ЯТД это можно считать следующим этапом

[DEM]

Да с блоками проблем не возникнет...
Самое главное пока это зоны армирования и интерпретация результатов

[Cosinus]

Offtop: Сижу вот, пишу. Совсем забыл VBA. И какой он кажется неудобный после питона

[DEM]

Offtop: Я когда начал с Лазарем разбираться, так же сидел, AutoIT тоже конечно имеет свои прелести....

[Cosinus]

QR 1 252510 0.000 0.000 0.000 0.000 90.000 - это армирование элементов по слоям
QM 0 0 34.300 0.200 3.600 0.58 0.51 0.00 0.00 0.00 0.00

Где здесь кто? Что сидит в QR? Оно нам надо?


Собссно вот файл с армированием нарисованным VBA . Я пошёл спать

[DEM]

Сообщение от Cosinus Где здесь кто? Что сидит в QR? Оно нам надо?

ХЗ что это такое....
А вот армирование выглядит так как надо......
Даже для начала такой вариант уже многое дает!!!!

[Cosinus]

И всё-таки, в каких столбцах какая арматура? Сам не могу посмотреть, так как у меня не создается asf.

[Boxa]

Cosinus,
http://experement.spb.ru/wiki/doku.php/blog:boxa:2013:0201_парсим_asf

[DEM]

Хммм...
Если задавать подложки(то что сделано сейчас у Cosinus-а) блоками, что в принципе правильно, то надо чтобы зоны армирования были прозрачными, т.е. делать просто блоки пустые...
Тогда для обработки подложки понадобятся следующие команды и функции....
1. Обязательно запоминать те данные которые были заданы в исходном файле *.asf, чтобы можно было восстановить исходное армирование....
2. Отрисовка прямоугольного блока по 2-м точкам, блоку назначается цвет в зависимости от принятого армирования(сделать предварительны выбор армирования Диаметр и шаг).
Можно записывать шаг и диаметры в атрибуты блока, после того ка блок отрисован, следует понизить градус цвета в подложке.....
3. Отрисовка произвольной зоны армирования по полилинии и создание из неё блока, а дальше все тоже самое что в п. 2
4. Восстановление исходной арматуры, если нам какой то участок не понравился...
5. ......
Добавляйте пожелания.....

[Cosinus]

Отрисовка полей готова. Процедура - ReadAsf. Рисует 6 блоков с изополями. Но дальше, я думаю, VBA не справится, или я не справлюсь на VBA . Где хранить данные? Нужна отдельная прога, чтоб всё хранила и обрабатывала. Или может подтянуть Zcad и в него всё встроить

[Boxa]

Cosinus,
CDbl(tempsa(3)) замените пожалуйста на CDbl(Val(tempsa(3)))

[Cosinus]

Сообщение от Boxa Cosinus, CDbl(tempsa(3)) замените пожалуйста на CDbl(Val(tempsa(3)))

Заменю, а зачем?

[DEM]

Cosinus
Можно схитрожопить, для сохранения использовать те же полигоны, т.е. отрисовывать 2 полигона, но одному задавать параметр Визибл 0....

[Boxa]

Cosinus,
Val("1.00") - из строки получить численное значение.

[Cosinus]

кто знает, там вроде акадовским примитивам можно задавать какие-то xdata ? Может в них хранить получится? Могу, конечно, каждый 3dface упрятать в отдельный блок с атрибутами, но это сколько ж тогда блоков будет!

[DEM]

Cosinus
Я ж говорю может проще визибл элемента изменить????

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

РД использовать не советую. Уж лучше словари... (как пример: http://autolisp.ru/2012/04/06/dictionaries/ )

[AlexV]

Сообщение от Кулик Алексей aka kpblc РД использовать не советую. Уж лучше словари... (как пример: http://autolisp.ru/2012/04/06/dictionaries/ )

А почему? я когда-то баловался vba программками, нормально xdata обрабатывались..