Пожалуйста, не блокируйте рекламу!

0 Пользователей и 1 Гость просматривают эту тему.

*

Оффлайн Kuvbur

  • ^_^
  • ****
  • 370
  • Репутация: +69/-0
  • Пол: Мужской

Test

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

« Последнее редактирование: Февраля 11, 2013, 14:02:23 от daimoon »

*

Оффлайн SABRUS

  • ***
  • 212
  • Репутация: +44/-1
  • лучше день потерять...
было дело, писал макрос по выгрузке экселя в тхт, может пригодится, удобно на хоткее держать, чтобы не сохранять каждый раз в тхт:

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

  • ^_^
  • ****
  • 370
  • Репутация: +69/-0
  • Пол: Мужской
Ух. Спасибо. Не сразу сообразил, что это VB (это же он?) - долго пытался понять что за новые gdl-операторы.

*

Оффлайн SABRUS

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

PS: писал под 10-ку еще, щас хотел посмотреть - какие то глюки с объектом, хм, в 10-ке работал...даже спаянные ячейки рисовал...
 
« Последнее редактирование: Января 11, 2013, 10:28:12 от SergeyAB »

*

Оффлайн obewbrorn

  • obewbrornX
  • 1
  • Репутация: +0/-0
  • Пол: Мужской

 

Похожие темы

  Тема / Автор