V3_ОБЩИЕ вопросы построения СЮДА, всё, что всё еще не получается... Опции

[Ghost in shell]

Russlav
Искал: забил sin в поиск - нашлось только в калькуляторе. Как тут рисовать кривые - фиг его знает... 20 лет работаю с Корелом и Иллюстратором - черта лысого в Рино нарисуешь сложную кривую. Таскаю из Иллюстратора.

Сообщение отредактировал Ghost in shell - 03/08/2016, 10:03

[industrialudaf]

Как построить синусоиду? (В кривых, естественно.)

Плющи геликс ))

[Russlav]

Russlav
Искал: забил sin в поиск - нашлось только в калькуляторе. Как тут рисовать кривые - фиг его знает... 20 лет работаю с Корелом и Иллюстратором - черта лысого в Рино нарисуешь сложную кривую. Таскаю из Иллюстратора.

Я имел в виду в самой программе искать...

[industrialudaf]

Помогите разобраться как управлять этим хаосом.
Только сейчас обратил внимание...почему-то получаю разные результы, в зависимости какие варианты сопряжений я выбирал первыми , а какие вторыми..


Логика ?

[Russlav]

Помогите разобраться как управлять этим хаосом.
Только сейчас обратил внимание...почему-то получаю разные результы, в зависимости какие варианты сопряжений я выбирал первыми , а какие вторыми..


Логика ?

Выбираем как соединятся краям, с учётом положения, касания и т.д.

[industrialudaf]

Чё?

[Tolstyj]

Russlav
Искал: забил sin в поиск - нашлось только в калькуляторе. Как тут рисовать кривые - фиг его знает... 20 лет работаю с Корелом и Иллюстратором - черта лысого в Рино нарисуешь сложную кривую. Таскаю из Иллюстратора.

Я имел в виду в самой программе искать...

Побуду некропостером.
Можно попробовать заскриптовать построение InterpCrv по точкам, у которых одна или две координаты инкрементируются с определенным шагом, а остальное вычисляется по формуле. Если заморочиться наотлично, можно намалевать окошко ввода формулы, будет ваще шоколад. Ну и после построения, если нужно, то можно сделать ребилд с нужной точностью для облегчения дальнейших построений.

[altano]

Можно попробовать заскриптовать построение InterpCrv по точкам, у которых одна или две координаты инкрементируются с определенным шагом, а остальное вычисляется по формуле. Если заморочиться наотлично, можно намалевать окошко ввода формулы, будет ваще шоколад. Ну и после построения, если нужно, то можно сделать ребилд с нужной точностью для облегчения дальнейших построений.

покажи как на какомнить простейшем примере тока подробно и доступно

[Tolstyj]

Можно попробовать заскриптовать построение InterpCrv по точкам, у которых одна или две координаты инкрементируются с определенным шагом, а остальное вычисляется по формуле. Если заморочиться наотлично, можно намалевать окошко ввода формулы, будет ваще шоколад. Ну и после построения, если нужно, то можно сделать ребилд с нужной точностью для облегчения дальнейших построений.

покажи как на какомнить простейшем примере тока подробно и доступно

Я в скрипты не умею, но логика будет такой:

1. Указываем начало и конец построения (Точка1, Точка2) и направление синусоиды (приращение аргумента)
2. Разбиваем отрезок Точка1-Точка2 на нужное количество сэмплов.
Цикл Пока "не закончатся сэмплы"
3. Функция = sin(Аргумент)
4. Вписать пару значений в Массив.
КонецЦикла
5. Вызываем построение InterpCrv и в цикле подставляем значения из Массива.

Вместо sin теоретически может быть что угодно.

ИНОГДА (!!!) полезно читать хэлп к программам.

Код

DrawParametricCurve
The following example demonstrates creating an interpolated curve based on a parametric equation.

Example

Option Explicit

'------------------------------------------------------------------------------
' Subroutine: DrawParametricCurve
' Purpose:    Create a interpolated curve based on a parametric equation.
'------------------------------------------------------------------------------
Sub DrawParametricCurve()
Dim t0, t1, t, intCount, x, arrPoint, arrPoints()

' Get the minimum parameter
t0 = Rhino.GetReal("Minimum t value", 0.0)
If IsNull(t0) Then Exit Sub

' Get the maximum parameter
t1 = Rhino.GetReal("Maximum t value", 1.0)
If IsNull(t1) Then Exit Sub

' Get the number of sampling points to interpolate through
intCount = Rhino.GetInteger("Number of points", 50, 2)
If IsNull(intCount) Then Exit Sub

' Get the first point
ReDim arrPoints(intCount - 1)
arrPoint = CalculatePoint(t0)
arrPoints(0) = arrPoint

' Get the rest of the points
For x = 1 To intCount - 2
t = (1.0 - (x / intCount) ) * t0 + (x / intCount) * t1
arrPoint = CalculatePoint(t)
arrPoints(x) = arrPoint
Next

' Get the last point
arrPoint = CalculatePoint(t1)
arrPoints(intCount - 1) = arrPoint

' Add the curve
Rhino.AddInterpCurve arrPoints
End Sub

'------------------------------------------------------------------------------
' Function:   CalculatePoint
' Purpose:    Customizable function that solves a parametric equation.
'------------------------------------------------------------------------------
Function CalculatePoint(t)

Dim arrPoint(2)

If IsNumeric(t) Then
arrPoint(0) = (4 * (1 - t) + 1 * t) * sin(3 * 6.2832 * t)
arrPoint(1) = (4 * (1 - t) + 1 * t) * cos(3 * 6.2832 * t)
arrPoint(2) = 5 * t
CalculatePoint = arrPoint
Else
CalculatePoint = Null
End If
End Function

Сообщение отредактировал Tolstyj - 15/12/2016, 21:30

[altano]

ИНОГДА (!!!) полезно читать хэлп к программам.

Энто да...
Первый раз наметилась задачка точных зависимостей.
Решаю её подбором с калькулятором и множеством пересчётов туда-сюда-обратно.
Заманался немного вот и задумался, а можно ли энто дело заскриптовать...
Пока тёмный лес и волки воют )))

Бум читать ХЭЛП...

Пасиба за пример.

[Tolstyj]

ИНОГДА (!!!) полезно читать хэлп к программам.

Энто да...
Первый раз наметилась задачка точных зависимостей.
Решаю её подбором с калькулятором и множеством пересчётов туда-сюда-обратно.
Заманался немного вот и задумался, а можно ли энто дело заскриптовать...
Пока тёмный лес и волки воют )))

Бум читать ХЭЛП...

Пасиба за пример.

Да, если лениво колупатсья в коде, попробуйте Грассхупер. То же самое, шо скрипты, но мышкой и красиво.

[altano]

Да, если лениво колупатсья в коде, попробуйте Грассхупер. То же самое, шо скрипты, но мышкой и красиво.

От оно !!!
Мну так много лет занимался чистым творчеством, что переключиться на коды - ваще нереально !!!
А вот мышкой и красиво - это как раз то что надо )))
Пасиба !!!

[Jaksi]

Как сделать чтоб появилась опция привязок? - Нужны чекбоксы END NEAR POINT MID CEN INT PERP TAN QUAD KNOT PROJECT STRACK DISABLE

[Jaksi]

Как сделать чтоб появилась опция привязок? - Нужны чекбоксы END NEAR POINT MID CEN INT PERP TAN QUAD KNOT PROJECT STRACK DISABLE

Всем спасибо ах вот где она эта опция.

Прикрепленные изображения

 

[Ghost in shell]

Как из точки сделать отрезок?
Есть куча точек. Надо сделать отрезок на 5 мм.