Реализации алгоритмов/Ковёр Серпинского: различия между версиями
Содержимое удалено Содержимое добавлено
Создал |
|||
Строка 54:
<source lang="vb">
Sub Gasket()
ThisDrawing.SetVariable "PDMODE", 0
ThisDrawing.SetVariable "PDSIZE", 1
Dim pointObj As AcadPoint
Dim x As Double
Dim y As Double
Dim i As Long 'Iteration Number
Dim R As Double 'Random Number
For i = 1 To 10000
Строка 92 ⟶ 97 :
ZoomExtents
End Sub
</source>
|