Dim ka As Double
Dim z As Double
Dim x As Double
Dim y As Double
Dim fi(0 To 128) As Double
Dim pi As Double
Dim ro(0 To 128) As Double
Dim linija As AcadLine
Dim t1(0 To 2) As Double
Dim t2(0 To 2) As Double
Dim t3(0 To 2) As Double
Dim i As Integer
Dim j As Integer
Dim xyz(0 To 128, 0 To 3, 1 To 3) As Double

Private Sub CommandButton1_Click()
Me.Hide
pi = 3.14159
'asis
t1(0) = 0
t1(1) = 0
t1(2) = 0

t1(0) = 0
t1(1) = 0
t1(2) = 25

Set linija = ThisDrawing.ModelSpace.AddLine(t1, t2)
linija.Layer = "aa"

For i = 0 To 128
fi(i) = i * pi / 16
Next i

z = 1 / 120 'kugis

ka = Sin(40 * pi / 180) / Tan(80 * pi / 180)
MsgBox ka

For i = 0 To 128
ro(i) = Exp(ka * fi(i)) 'kugis
t2(0) = ro(i) * Cos(fi(i))
t2(1) = ro(i) * Sin(fi(i))
t2(2) = ro(i) / Tan(40 * pi / 180) 'kugis

'taskas ant z-asies

t3(0) = 0
t3(1) = 0
t3(2) = t2(2)
Set linija = ThisDrawing.ModelSpace.AddLine(t3, t2)
linija.Layer = "aa"

Set linija = ThisDrawing.ModelSpace.AddLine(t1, t2)
linija.Layer = "kk"
linija.Update

'uzpildome masyva
x = (t3(0) - t2(0)) * 0.25
y = (t3(1) - t2(1)) * 0.25

For j = 0 To 3
xyz(i, j, 1) = t2(0) + x * j
xyz(i, j, 2) = t2(1) + y * j
xyz(i, j, 3) = t2(2)
Next j

t1(0) = t2(0)
t1(1) = t2(1)
t1(2) = t2(2)
Next i

'Vidinis tinklas

For j = 0 To 3
For i = 0 To 127
t1(0) = xyz(i, j, 1)
t1(1) = xyz(i, j, 2)
t1(2) = xyz(i, j, 3)
t2(0) = xyz(i + 1, j, 1)
t2(1) = xyz(i + 1, j, 2)
t2(2) = xyz(i + 1, j, 3)

Set linija = ThisDrawing.ModelSpace.AddLine(t1, t2)
linija.Layer = "nn"
linija.Update
Next i
Next j

Me.show

End Sub


Private Sub CommandButton2_Click()
Dim ka As Double
Dim z As Double
Dim x As Double
Dim y As Double
Dim fi(0 To 128) As Double
Dim pi As Double
Dim ro(0 To 128) As Double
Dim linija As AcadLine
Dim t1(0 To 2) As Double
Dim t2(0 To 2) As Double
Dim t3(0 To 2) As Double
Dim i As Integer
Dim j As Integer
Dim xyz(0 To 128, 0 To 3, 1 To 3) As Double

Me.Hide
pi = 3.14159
'asis
t1(0) = 0
t1(1) = 0
t1(2) = 0
t2(0) = 0
t2(1) = 0
t2(2) = 25
Set linija = ThisDrawing.ModelSpace.AddLine(t1, t2)
linija.Layer = "aa"

For i = 0 To 128
fi(i) = i * pi / 16
Next i

z = 15 / 120 'cilindras


ka = Sin(40 * pi / 180) / Tan(80 * pi / 180)
MsgBox ka

For i = 0 To 128
ro(i) = 1
t2(0) = ro(i) * Cos(fi(i))
t2(1) = ro(i) * Sin(fi(i))
t2(2) = z * i


'taskas ant z-asies
t3(0) = 0
t3(1) = 0
t3(2) = t2(2)
Set linija = ThisDrawing.ModelSpace.AddLine(t3, t2)
linija.Layer = "aa"

Set linija = ThisDrawing.ModelSpace.AddLine(t1, t2)
linija.Layer = "kk"
linija.Update

'uzpildome masyva
x = (t3(0) - t2(0)) * 0.25
y = (t3(1) - t2(1)) * 0.25

For j = 0 To 3
xyz(i, j, 1) = t2(0) + x * j
xyz(i, j, 2) = t2(1) + y * j
xyz(i, j, 3) = t2(2)

Next j

t1(0) = t2(0)
t1(1) = t2(1)
t1(2) = t2(2)

Next i

'Vidinis tinklas
For j = 0 To 3
For i = 0 To 127
t1(0) = xyz(i, j, 1)
t1(1) = xyz(i, j, 2)
t1(2) = xyz(i, j, 3)
t2(0) = xyz(i + 1, j, 1)
t2(1) = xyz(i + 1, j, 2)
t2(2) = xyz(i + 1, j, 3)

Set linija = ThisDrawing.ModelSpace.AddLine(t1, t2)
linija.Layer = "nn"
linija.Update

Next i
Next j




Me.show

End Sub


Private Sub CommandButton3_Click()
Dim ka As Double
Dim z As Double
Dim x As Double
Dim y As Double
Dim fi(0 To 128) As Double
Dim pi As Double
Dim ro(0 To 128) As Double
Dim linija As AcadLine
Dim t1(0 To 2) As Double
Dim t2(0 To 2) As Double
Dim t3(0 To 2) As Double
Dim i As Integer
Dim j As Integer
Dim xyz(0 To 128, 0 To 3, 1 To 3) As Double

Me.Hide
pi = 4
'asis
t1(0) = 0
t1(1) = 0
t1(2) = 0
t2(0) = 0
t2(1) = 0
t2(2) = 25
Set linija = ThisDrawing.ModelSpace.AddLine(t1, t2)
linija.Layer = "aa"

For i = 0 To 128
fi(i) = i * pi / 20
Next i

z = 15 / 50 'cilindras


ka = Cos(40 * pi / 180 / 2) / Sin(80 * pi / 180)
MsgBox ka

For i = 0 To 128
ro(i) = 1
t2(0) = ro(i) * Tan(fi(i))
t2(1) = ro(i) * Sin(fi(i))
t2(2) = z * i


'taskas ant z-asies
t3(0) = 0
t3(1) = 0
t3(2) = t2(2)
Set linija = ThisDrawing.ModelSpace.AddLine(t3, t2)
linija.Layer = "aa"

t4(0) = 0
t4(1) = 0
t4(2) = t2(2) - z

t5(0) = t2(0)
t5(1) = t2(1)
t5(2) = t2(2) - z
Set linija = ThisDrawing.ModelSpace.AddLine(t4, t5)
linija.Layer = "laip"

Set linija = ThisDrawing.ModelSpace.AddLine(t1, t2)
linija.Layer = "kk"
linija.Update

'uzpildome masyva
x = (t3(0) - t2(0)) * 0.9
y = (t3(1) - t2(1)) * 0.8

For j = 0 To 3
xyz(i, j, 1) = t2(0) + x * j
xyz(i, j, 2) = t2(1) + y * j
xyz(i, j, 3) = t2(2)

Next j

t1(0) = t2(0)
t1(1) = t2(1)
t1(2) = t2(2)

Next i

'Vidinis tinklas
For j = 0 To 3
For i = 0 To 127
t1(0) = xyz(i, j, 1)
t1(1) = xyz(i, j, 2)
t1(2) = xyz(i, j, 3)
t2(0) = xyz(i + 1, j, 1)
t2(1) = xyz(i + 1, j, 2)
t2(2) = xyz(i + 1, j, 3)

Set linija = ThisDrawing.ModelSpace.AddLine(t1, t2)
linija.Layer = "nn"
linija.Update

Next i
Next j

Me.show
End Sub