Всем привет! Если кто-нибудь может тпомочь в написании скрипта для Rhino, отзовитесь. Буду благодарен за любую помощь, будь то ссылки, литература, или просто добрый совет. А задачка, такова, нужно написать скрипт, который размножал бы готовый обьект, по поверхности surface , при этом вращая размножаемый объект вокруг его нормали (прошу прощения если некорректно выразился, перпендикулярно относительно surfaceа), угол вращения при этом, должен вариироваться (можно хаотично), а количество копий обьекта или расстояние между ними должно быть контролируемым. Заранее благодарю за любую помощь.
Помогите с написанием скрипта
- Автор темы Sventovit
- Дата создания
Знаю наверное тока два более-менее толковых сайта по рине, где информацию подобного рода найти можно. 1. en.wiki.mcneel.com - отменный WIKI сайт от самих же МаКНиловцев. 2. www.cgtalk.com - просто толковый сайт по графике в целом и по Рине - в частности...
По первой ссылке наверняка найдешь чего-нибудь по сабжу...
P.S.: знание инглиша приветствуется...
По первой ссылке наверняка найдешь чего-нибудь по сабжу...
P.S.: знание инглиша приветствуется...
Нашел скрипт позволяющий копировать объект по созданым точкам. Вот он:
Sub CopyObjectsToSelPts()
Dim selObjects
Dim newObjects
Dim Objects
Dim Centre
Dim Points
Dim cmd
Dim pnt
Dim One
Dim obj
selObjects = Rhino.SelectedObjects
If IsArray(selObjects) Then
For Each pnt in selObjects
If Not Rhino.IsPoint(pnt) Then
Objects = SelectedObjects
Points = Rhino.GetObjects("Select points to copy to", 1)
If Not IsArray(Points) Then Exit Sub
Exit For
End If
Next
Points = Rhino.SelectedObjects
If Not IsArray(Objects) Then Objects = Rhino.GetObjects("Select objects to copy", 0)
If Not IsArray(Objects) Then Exit Sub
Else
Points = Rhino.GetObjects("Select points to copy to", 1)
If Not IsArray(Points) Then Exit Sub
Objects = Rhino.GetObjects("Select objects to copy", 0)
If Not IsArray(Objects) Then Exit Sub
End If
Centre = Rhino.GetPoint("Pick a 'copy-from' location...")
If Not IsArray(Centre) Then Exit Sub
Rhino.EnableRedraw vbFalse
Rhino.UnselectAllObjects
For Each pnt In Points
newObjects = Rhino.CopyObjects(Objects, Centre, Rhino.PointCoordinates(pnt))
Rhino.SelectObjects newObjects
Next
Rhino.EnableRedraw vbTrue
End Sub
CopyObjectsToSelPts
Может быть, кто-то знает, как его изменитбь, чтобы каждый копируемый объект был повернут относительно своей оси на какое-то количество градусов?
Sub CopyObjectsToSelPts()
Dim selObjects
Dim newObjects
Dim Objects
Dim Centre
Dim Points
Dim cmd
Dim pnt
Dim One
Dim obj
selObjects = Rhino.SelectedObjects
If IsArray(selObjects) Then
For Each pnt in selObjects
If Not Rhino.IsPoint(pnt) Then
Objects = SelectedObjects
Points = Rhino.GetObjects("Select points to copy to", 1)
If Not IsArray(Points) Then Exit Sub
Exit For
End If
Next
Points = Rhino.SelectedObjects
If Not IsArray(Objects) Then Objects = Rhino.GetObjects("Select objects to copy", 0)
If Not IsArray(Objects) Then Exit Sub
Else
Points = Rhino.GetObjects("Select points to copy to", 1)
If Not IsArray(Points) Then Exit Sub
Objects = Rhino.GetObjects("Select objects to copy", 0)
If Not IsArray(Objects) Then Exit Sub
End If
Centre = Rhino.GetPoint("Pick a 'copy-from' location...")
If Not IsArray(Centre) Then Exit Sub
Rhino.EnableRedraw vbFalse
Rhino.UnselectAllObjects
For Each pnt In Points
newObjects = Rhino.CopyObjects(Objects, Centre, Rhino.PointCoordinates(pnt))
Rhino.SelectObjects newObjects
Next
Rhino.EnableRedraw vbTrue
End Sub
CopyObjectsToSelPts
Может быть, кто-то знает, как его изменитбь, чтобы каждый копируемый объект был повернут относительно своей оси на какое-то количество градусов?