[Kuvbur]

Для свободно стоящих и с одним ярусом анкеров.
Один основной объект, эксель-таблица обработки данных и вывода таблицы для отчёта и один вспомогательный объект.
1. Построение эпюры давления на шпунтовое ограждение по нагрузке, полученной из экселя через тхт-файл.
2. Построение силового многоугольника.
3. Построение верёвочного многоугольника.
Вручную определяется нагрузка на анкер (размером) и вручную проводится касательная для получение моментов. Расчёт ведётся как по Блюму-Ломайеру так и по Якоби.
На данный момент реализовано в виде трёх объектов, обменивающихся между собой данными через тхт. Думаю объединить в один и добавить хотспотов.
Доп. объект - параметрическая шкала глубины.


[SABRUS]

было дело, писал макрос по выгрузке экселя в тхт, может пригодится, удобно на хоткее держать, чтобы не сохранять каждый раз в тхт:

Sub EXCEL2TXT()

FN = FreeFile

Open ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".txt" For Output As #FN

For Each iCell In ActiveSheet.UsedRange
    If Not IsEmpty(iCell) Then
       Print #FN, iCell.Address, "@@@", iCell.Value, "@@@", iCell.MergeCells
       Else
       Print #FN, iCell.Address, "@@@", "IS_NIL", "@@@", iCell.MergeCells
       End If
      
Next

Print #FN, "end_mark"

Close FN

End Sub


///
@@@ использовал как разделитель, чтобы объект правильно читал(табы и пробелы в ячейках обычно не видны ).

[Kuvbur]

Ух. Спасибо. Не сразу сообразил, что это VB (это же он?) - долго пытался понять что за новые gdl-операторы.

[SABRUS]

это VBA , VB это другой диалект ))).
В аттаче GDL-объект, который у меня рисовал табличку - целиком и полностью разрешаю распустить его на ленточки.
Никаких условий относительно соавторства, участия в конкурсе и т.п. нет. А вот пожелания к функционалу может быть появятся. )

PS: писал под 10-ку еще, щас хотел посмотреть - какие то глюки с объектом, хм, в 10-ке работал...даже спаянные ячейки рисовал...
 

[obewbrorn]

я тоже