Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
ivsem
Зарегистрирован: 01.02.2006 Сообщения: 63 Откуда: Киев
|
Добавлено: Пт Окт 30, 2009 1:51 pm Заголовок сообщения: VBA. Как начертить отрезок перпендикулярно сплайну? |
|
|
2D. Нужно через равные промежутки начертить отрезки переменной длины перпендикулярно к сплайну.
В Autocad в ALisp для этого я ипользовал команду measure
В Microstation аналога выше приведенной комаде я пока не обнаружил. Можно попробовать использовать в цикле команду Microstation Construct Active Point at Distance Along. Но как обеспечить перпендикуляроность элемента к кривой? |
|
Вернуться к началу |
|
 |
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Пт Окт 30, 2009 10:52 pm Заголовок сообщения: |
|
|
Получить касательную:
EvaluatePointTangent()
и к ней перпендикуляр:
Vector3dUnitPerpendicularXY() |
|
Вернуться к началу |
|
 |
ivsem
Зарегистрирован: 01.02.2006 Сообщения: 63 Откуда: Киев
|
Добавлено: Сб Окт 31, 2009 7:54 pm Заголовок сообщения: |
|
|
BsplineCurveElement не имеет метода EvaluatePointTangent()
Каким образом можно задействовать BsplineCurve имеющий этот метод "ума не приложу". В примерах по VBA ничего подходящего не нашел. Может метод FromElement удастся пристроить |
|
Вернуться к началу |
|
 |
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Сб Окт 31, 2009 9:51 pm Заголовок сообщения: |
|
|
Именно этот метод для этого и существует. |
|
Вернуться к началу |
|
 |
|