Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement