Реализации алгоритмов/Губка Менгера: различия между версиями
Содержимое удалено Содержимое добавлено
м →Построение методом хаоса на VBA для CAD-систем: гексаграммы |
|||
Строка 121:
ZoomExtents
End Sub
</source>
Сечение плоскостью <math>x-y+z=0</math> содержит [[w:гексаграмма (символ)|гексаграммы]]. Для получения соответствующего разреза нужно рисовать только те точки, которые лежат ниже этой плоскости: <math>x-y+z<0</math>, т.е. наложить условие при отрисовывании точек:
<source lang="vb">
If location(0) - location(1) + location(2) < 0 Then
Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
End If
</source>
|