Ориентация эскиза

Автор Тема: Ориентация эскиза  (Прочитано 3956 раз)

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

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

  • ADN Club
  • ****
  • Сообщений: 265
  • Карма: 2
Ориентация эскиза
« : 06-04-2015, 07:40:41 »
У меня есть в детали объекты Dim oFace As Face и Dim oEdge As Edge. Я создаю на oFace эскиз. Можно ли управлять направлением иэскиза и положением его начальной точки при создании?

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

  • ADN Club
  • ****
  • Сообщений: 265
  • Карма: 2
Re: Ориентация эскиза
« Ответ #1 : 06-04-2015, 08:23:56 »
Я понял, что работать нужно с Sketches.AddWithOrientation, но вот никак не пойму, как сформулировать условия из имеющихся oFace? oFace2 и oEdge, для того, чтоб точка всегда попадала в зону oFace2?
« Последнее редактирование: 06-04-2015, 10:42:07 от filat »

Оффлайн Алексей Романов

  • ADN Club
  • **
  • Сообщений: 87
  • Карма: 20
Re: Ориентация эскиза
« Ответ #2 : 09-04-2015, 12:55:04 »
никак не пойму, как сформулировать условия из имеющихся oFace? oFace2 и oEdge, для того, чтоб точка всегда попадала в зону oFace2?
А может просто начало (Origin) поместить в центр oFace?
Код - Visual Basic [Выбрать]
  1. Dim oSurfEval As SurfaceEvaluator
  2. Set oSurfEval = oFace.Evaluator
  3.  
  4. Dim oParamRange As Box2d
  5. Set oParamRange = oSurfEval.ParamRangeRect
  6.  
  7. Dim adParamCenter(1) As Double
  8. Dim U As Double, V As Double
  9. U = oParamRange.MinPoint.x
  10. V = oParamRange.MaxPoint.x
  11. adParamCenter(0) = (U + V) / 2
  12. U = oParamRange.MinPoint.x
  13. V = oParamRange.MaxPoint.x
  14. adParamCenter(1) = (U + V) / 2
  15.  
  16. Dim Origin(2) As Double
  17. Call oSurfEval.GetPointAtParam(adParamCenter, Origin)