Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
beer
Зарегистрирован: 01.02.2006 Сообщения: 215 Откуда: Москва
|
Добавлено: Чт Мар 19, 2009 2:10 pm Заголовок сообщения: mdlElmdscr_copyParallel |
|
|
замечательная функция, которая выполняет параллельный пренос. Но делает она это в режиме Original, а мне нужно выполнить перенос в режиме Round...
Как ее можно заставить работать в этом режиме... или может есть аналоги? |
|
Вернуться к началу |
|
|
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Чт Мар 19, 2009 2:25 pm Заголовок сообщения: |
|
|
Может попробовать mdlBspline_offset()?
Хотя она мне не показалась такой замечательной... она делает Round но ведет себя как-то своеобразно... |
|
Вернуться к началу |
|
|
beer
Зарегистрирован: 01.02.2006 Сообщения: 215 Откуда: Москва
|
Добавлено: Чт Мар 19, 2009 4:05 pm Заголовок сообщения: |
|
|
хм... а у меня она все равно отрисовала в режиме Original |
|
Вернуться к началу |
|
|
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Чт Мар 19, 2009 4:41 pm Заголовок сообщения: |
|
|
Если бы код здесь привести, было бы легче разобраться... |
|
Вернуться к началу |
|
|
beer
Зарегистрирован: 01.02.2006 Сообщения: 215 Откуда: Москва
|
Добавлено: Пт Мар 20, 2009 7:58 am Заголовок сообщения: |
|
|
Уф... ну вообще-то я на VB.NET пришу... просто импортирую MDL функции... но собственно вот код
Код: |
Imports ms = Bentley.Interop.MicroStationDGN
Public Class ОбработкаТрассы
Public Shared app As ms.Application = Bentley.MicroStation.InteropServices.Utilities.ComApp
Declare Function mdlElmdscr_signedOffset Lib "stdmdlbltin.dll" (ByRef outDscrPP As Integer, ByVal curveDescrP As Integer, ByVal distance As Double, ByRef normal As Point3d) As Integer
Public Shared Function ПараллельныйПеренос(ByVal CLine As ms.ComplexStringElement , ByVal offset As Double) As ms.Element
try
Dim new_el1_int As Integer
mdlElmdscr_signedOffset(new_el1_int, CLine.MdlElementDescrP, offset, CLine.Normal)
return app.MdlCreateElementFromElementDescrP(new_el1_int)
Catch ex As System.Exception
MsgBox(ex.Message)
Return Nothing
End Try
End Function
end Class
|
Последний раз редактировалось: beer (Пт Мар 20, 2009 12:04 pm), всего редактировалось 1 раз |
|
Вернуться к началу |
|
|
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Пт Мар 20, 2009 9:12 am Заголовок сообщения: |
|
|
Не знаю насчет VB.NET, что-то он у меня пока доверия не вызывает...
А насчет этой самой функции - я нашел интеренсый пост на бентлевской конфе, там есть даже пример, правда до фига навороченный аж страшно смотреть
Изначально вопрос был такой же |
|
Вернуться к началу |
|
|
beer
Зарегистрирован: 01.02.2006 Сообщения: 215 Откуда: Москва
|
Добавлено: Пт Мар 20, 2009 9:31 am Заголовок сообщения: |
|
|
Мдя. Я чувствую себя идиотом... Ведь я не так давно натыкался на этот пост... почему у меня это изпамяти вылетело?
Спасибо!!! Считаю вопрос закрытым! |
|
Вернуться к началу |
|
|
beer
Зарегистрирован: 01.02.2006 Сообщения: 215 Откуда: Москва
|
Добавлено: Пт Мар 20, 2009 10:44 am Заголовок сообщения: |
|
|
Мдя... а примерчик там действительно звероподобный |
|
Вернуться к началу |
|
|
|