1. Пользоваться форумом на планшетах и телефонах стало удобнее благодаря Tapatalk

Помогите с написанием скрипта

Тема в разделе "Rhino", создана пользователем Sventovit, 10 июл 2007.

  1. Sventovit

    Sventovit Пользователь сайта

    С нами с:
    08.07.2007
    Сообщения:
    3
    Симпатии:
    0
    Баллы:
    2
    Всем привет! Если кто-нибудь может тпомочь в написании скрипта для Rhino, отзовитесь. Буду благодарен за любую помощь, будь то ссылки, литература, или просто добрый совет. А задачка, такова, нужно написать скрипт, который размножал бы готовый обьект, по поверхности surface , при этом вращая размножаемый объект вокруг его нормали (прошу прощения если некорректно выразился, перпендикулярно относительно surfaceа), угол вращения при этом, должен вариироваться (можно хаотично), а количество копий обьекта или расстояние между ними должно быть контролируемым. Заранее благодарю за любую помощь.
     
  2. EGGO

    EGGO Мастер

    С нами с:
    29.07.2006
    Сообщения:
    203
    Симпатии:
    0
    Баллы:
    119
    Знаю наверное тока два более-менее толковых сайта по рине, где информацию подобного рода найти можно. 1. en.wiki.mcneel.com - отменный WIKI сайт от самих же МаКНиловцев. 2. www.cgtalk.com - просто толковый сайт по графике в целом и по Рине - в частности...
    По первой ссылке наверняка найдешь чего-нибудь по сабжу...
    P.S.: знание инглиша приветствуется... :)
     
  3. Sventovit

    Sventovit Пользователь сайта

    С нами с:
    08.07.2007
    Сообщения:
    3
    Симпатии:
    0
    Баллы:
    2
    Спасибо за ссылки, кое-чего нашел по теме, получится извлечь из этого пользу или нет, пока точно не скажу (надо внимательно изучить) Еще раз спасибо.
     
  4. Sventovit

    Sventovit Пользователь сайта

    С нами с:
    08.07.2007
    Сообщения:
    3
    Симпатии:
    0
    Баллы:
    2
    Нашел скрипт позволяющий копировать объект по созданым точкам. Вот он:

    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

    Может быть, кто-то знает, как его изменитбь, чтобы каждый копируемый объект был повернут относительно своей оси на какое-то количество градусов?
     
  5. Mr.DEE

    Mr.DEE Пользователь сайта

    С нами с:
    22.08.2007
    Сообщения:
    10
    Симпатии:
    0
    Баллы:
    2
    Зачем скрипт, в 4-й рине есть инструмент который копирует по поверхности ориентируя обьект по указанной пользователем оси, бери да клацай хоть 200 штук быстро и качественно . . .
     
  6.  Sergey Volkov

    Sergey Volkov Знаток

    С нами с:
    15.08.2005
    Сообщения:
    35
    Симпатии:
    0
    Баллы:
    64
    Есть такой скрипт и давно, Harmony нвзывается, спецом для создания всяких массивов с контролем вращения, размера, можно целые облака 1 обьекта делать
     

Поделиться этой страницей