Спиралевидное армирование: какой командой можно создать ?

Автор Тема: Спиралевидное армирование: какой командой можно создать ?  (Прочитано 858 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн GIPPYАвтор темы

  • ADN OPEN
  • Сообщений: 29
  • Карма: 0
Всем привет. Прошу помощи. Подскажите какой командой можно создать спиралевидное армирование ?
В частности интересует такое армирование по кругу.
Спасибо.

Оффлайн Александр Игнатович

  • Administrator
  • *****
  • Сообщений: 990
  • Карма: 297
  • Skype: alexandr.ignatovich.itc
такое

Какое?

Как бы ты сделал это руками, а не программно?

Оффлайн GIPPYАвтор темы

  • ADN OPEN
  • Сообщений: 29
  • Карма: 0
К сожалению, понятия не имею как это сделать в ревите.
Я в ревите не работаю, но плагин нужно написать, пока все сделала, но вот со спиралевидным армированием проблема.

Оффлайн Александр Пекшев aka Modis

  • ADN Club
  • *****
  • Сообщений: 1572
  • Карма: 341
  • Отец modplus.org
    • ModPlus
Как-будто есть выбор )))

Метод, по сути, всего один - CreateFromCurves

Оффлайн GIPPYАвтор темы

  • ADN OPEN
  • Сообщений: 29
  • Карма: 0
я создавал контур из дуг для выдавливания, но они создаются в ортогональных плоскостях
Код - vb.net [Выбрать]
  1. Dim pl As Plane = Plane.CreateByNormalAndOrigin(New XYZ(0, 0, 1), p00)
  2.         Dim skpl As SketchPlane = SketchPlane.Create(family, pl)
  3.         Dim profile As CurveArrArray = New CurveArrArray()
  4.         Dim loop1 As CurveArray = New CurveArray()
  5.         loop1.Append(Arc.Create(pl, Diametr / 2, 0, Math.PI * 2))
  6.         profile.Append(loop1)
  7.  
  8.         Return family.FamilyCreate.NewExtrusion(True, profile, skpl, Height)
  9.  

как это сделать в произвольной плоскости ?

увидел, что можно создать Plane.Create по трем точкам.....буду пробовать...

Оффлайн Александр Ривилис

  • Administrator
  • *****
  • Сообщений: 12493
  • Карма: 1621
  • Рыцарь ObjectARX
  • Skype: rivilis
увидел, что можно создать Plane.Create по трем точкам.....буду пробовать...
Ну вообще-то и в том методе, который ты уже использовал, можно задать вектор нормали не ортогональный осям. Например,
Код - vb.net [Выбрать]
  1. Dim pl As Plane = Plane.CreateByNormalAndOrigin(New XYZ(1, 1, 1), p00)
Не забывайте про правильное Форматирование кода на форуме
Создание и добавление Autodesk Screencast видео в сообщение на форуме
Если Вы задали вопрос и на форуме появился правильный ответ, то не забудьте про кнопку Решение