Сообщество программистов Autodesk в СНГ

ADN Club => Inventor API => Тема начата: filat от 06-04-2015, 07:40:41

Название: Ориентация эскиза
Отправлено: filat от 06-04-2015, 07:40:41
У меня есть в детали объекты Dim oFace As Face и Dim oEdge As Edge. Я создаю на oFace эскиз. Можно ли управлять направлением иэскиза и положением его начальной точки при создании?
Название: Re: Ориентация эскиза
Отправлено: filat от 06-04-2015, 08:23:56
Я понял, что работать нужно с Sketches.AddWithOrientation, но вот никак не пойму, как сформулировать условия из имеющихся oFace? oFace2 и oEdge, для того, чтоб точка всегда попадала в зону oFace2?
(https://adn-cis.org/forum/proxy.php?request=http%3A%2F%2Fib4.keep4u.ru%2Fs%2F2015%2F04%2F06%2Fe3%2Fe3c8f898682fdd914272e4045164fb7b.jpg&hash=df13d7cecf8314fca054356f74ea667c) (http://keep4u.ru/full/e3c8f898682fdd914272e4045164fb7b.html)
Название: Re: Ориентация эскиза
Отправлено: Алексей Романов от 09-04-2015, 12:55:04
Цитата: filat от 06-04-2015, 08:23:56
никак не пойму, как сформулировать условия из имеющихся 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)