Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Выделить объекты по равным площадям
Форум .:3DCenter.ru:. > Пакеты 3D моделирования > Rhino
Rhino_Trooper
Ребзя, помогите, пожалуйста, советом или идеей как в Rhino найти и выделить объекты (в данном случае поверхности) по равным площадям.
Пробовал набрать Select by Area - не помогло laugh.gif шутка
Rhino_Trooper
Точнее даже хотелось бы такой алгоритм:
1. Выделяем поверхность
2. Подтверждаем
3. Выделяются все поверхности с такой же площадью

Совсем не дружу с программированием, если что
Ну или дефинишн для Кузнечика какой подскажите, пожалуйста
edwardguz
Цитата(Rhino_Trooper @ 01/03/2013, 14:54) *
Точнее даже хотелось бы такой алгоритм:
1. Выделяем поверхность
2. Подтверждаем
3. Выделяются все поверхности с такой же площадью

Совсем не дружу с программированием, если что
Ну или дефинишн для Кузнечика какой подскажите, пожалуйста


Попробуйте воспользоваться этим скриптом.

Option Explicit
'скрипт для выделения объектов с одинаковой площадью
'объекты - поверхности, не обязательно плоские, все другие игнорируются
'Гузь Эдуард. 7 марта 2013 г.


Call SelectBySquare

Sub SelectBySquare()

Dim dblTolerance: dblTolerance = Rhino.UnitAbsoluteTolerance
Dim strObject, arrObjects

Dim arrPreselected: arrPreselected = Rhino.SelectedObjects

Rhino.UnselectAllObjects

strObject = Rhino.GetObject("Выберите объект, площадь которого будет определяющей", 8)

If IsNull(strObject) Then
Rhino.Print ("Отменено пользователем. Скрипт завершил работу")
Rhino.SelectObjects(arrPreselected)
Exit Sub
End If

Dim dblSquare: dblSquare = Rhino.SurfaceArea(strObject)

Dim arrAllObjects: arrAllObjects = Rhino.AllObjects

Dim strObject2, dblSquare2

Rhino.EnableRedraw(vbFalse)

for Each strObject2 in arrAllObjects

If Rhino.IsSurface (strObject2) then

dblSquare2 = Rhino.SurfaceArea(strObject2)

If Abs(dblSquare(0) - dblSquare2(0)) < dblTolerance Then

Rhino.SelectObject(strObject2)

end If

end If

Next

Rhino.EnableRedraw(vbtrue)

End Sub
Rhino_Trooper
Этот скрипт просто супер!!!
Вы даже не представляете как облегчили мне работу в rhino!
Огромная благодарность Вам!
D.gif
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.
Форум IP.Board © 2001-2019 IPS, Inc.