| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Rus77
Зарегистрирован: 06.03.2006
Сообщения: 53
|
 Добавлено: Вт Янв 27, 2009 12:44 pm Заголовок сообщения: Поворот элемента |
 |
|
Помогите, запутался совсем.
Задача на первый взгляд элементарная - развернуть элемент на заданный угол в плоскости XY (в принципе работа идет в PowerDraft-е).
Элементом является фрагмент (CellElement). В справке есть пример функции RotateElementAboutZ. После ее применения фрагмент-то повернулся, только "ручки" остались на прежнем месте.
Как можно развернуть фрагмент, чтоб он после этого оставался нормальным? |
|
| Вернуться к началу |
|
 |
Rus77
Зарегистрирован: 06.03.2006
Сообщения: 53
|
| Добавлено: Вт Янв 27, 2009 3:37 pm Заголовок сообщения: |
|
|
Откопал один вариант - поворачивать каждый элемент фрагмента "вручную"
| Код: |
Public Sub ElementRotateAboutZ(ElementRotate As Element, PointsOrigin As Point3d, AngleRadians As Double)
Dim curElement As Element
If ElementRotate.IsCellElement Then
ElementRotate.AsCellElement.ResetElementEnumeration
While ElementRotate.AsCellElement.MoveToNextElement(True)
Set curElement = ElementRotate.AsCellElement.CopyCurrentElement
ElementRotateAboutZ curElement, PointsOrigin, AngleRadians
ElementRotate.AsCellElement.ReplaceCurrentElement curElement
Wend
Else
ElementRotate.RotateAboutZ PointsOrigin, AngleRadians
End If
End Sub
|
Может можно как-то попроще?? |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
