|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
15.02.2012, 11:27 | #1 | |
Зона молниезащиты реализванная через VBA. C циклом. Проблемы по мере поступления.
Регистрация: 20.09.2011
Сообщений: 7
|
||
Просмотров: 3172
|
|
||||
специалист по околачиванию грушевых деревьев Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813
|
Тогда как хочешь
Код HTML:
Option Explicit Sub MZ2() Dim coll As Collection Dim hx As Double Dim point1 As Variant Dim nad As Double Dim n, i, l As Integer n = InputBox("Введите колическтво МП") nad = InputBox("Надежность ") Set coll = New Collection Dim tmp(2) As Variant For i = 1 To n point1 = ThisDrawing.Utility.GetPoint(, vbCrLf & "Молниеприемник: ") tmp(0) = point1(0) tmp(1) = point1(1) tmp(2) = InputBox("Высота МП") coll.Add tmp, CStr(i) Next i 'Test: Dim itm As Variant For Each itm In coll Debug.Print itm(0) & " - " & itm(1) & " - " & itm(2) Next itm End Sub |
|||
|
||||
Регистрация: 20.09.2011
Сообщений: 7
|
Спасибо, но цикл то дб с занесение координат через n кол-во молниеприемников, в массив ArrayMP(0,1(X1),2(y1),3(X2), 4(y2)) через цикл,
дабы затем произвести циклы с условием по расстоянию. Можно так? point1 это спомогательно. 'Test: и далее зачем? я не понимаю. |
|||
|
||||
специалист по околачиванию грушевых деревьев Регистрация: 14.09.2004
Pietari, Venäjä
Сообщений: 813
|
Я без чертежа даже не буду заморачиваться извини
|
|||
|
||||
Регистрация: 20.09.2011
Сообщений: 7
|
Зона одиночных молниеприемников, в дальнейшем она разрастется, до взаимодействие,
(Взаимодействие в зависимости от расстояния, и высот ), Разновысотные, одинакоковой высоты, кроме того есть РД 87 года, но картинки можно и поэтому посмотреть. Код:
|
|||