[bavilla]

Здравствуйте!
Кто поделится формулой пересчета координат из OCS в WCS? На примере LWPOLYLINE где заданы Elevation, X и Y узлов и значения "Extrusion direction". Ссылку на справку, где описан алгоритм давать не надо, нужна ФОРМУЛА с координатами узла. Заранее спасибо

[trir]

https://ru.wikipedia.org/wiki/%D0%90...BD%D0%B8%D0%B5
http://docs.autodesk.com/ACD/2010/EN...umber=d0e44236

[bavilla]

А кто-нибудь может расписать формулу для реализации на С, например? Без теоретических выкладок и без использования функций объектной модели Autocad.
Например, для узла LWPOLYLINE:
38
500.0
10
-100.0
20
430.0

...

210
-0.216
220
0.976
230
0.0

[gomer]

используй функцию trans

[Кулик Алексей aka kpblc]

gomer, судя по всему, у человека есть DXF-файл, который на С надо обработать. Без привязки к AutoCAD.

[bavilla]

Сообщение от Кулик Алексей aka kpblc gomer, судя по всему, у человека есть DXF-файл, который на С надо обработать. Без привязки к AutoCAD.

Да, именно так. Прочитав в справке автокада раздел "Arbitrary Axis Algorithm", я так и не понял как вывести формулу пересчета из OCS в WCS. Поэтому и прошу тех, кто пересчитывал сам, без использования функций AutoLisp, поделиться решением.

[trir]

VB.NET

Код:

[Выделить все]

        Private Function DrawLWPOLYLINE(wObj As MyDxfObject) As Model3DGroup
            Dim wlist As List(Of Point3D)
            Dim ElevationObj As MyDxfObj = wObj.FindFirstPara(New MyDxfPara(38, ""))
            If ElevationObj IsNot Nothing Then
                Dim Elevation As Double = ElevationObj.value
                wlist = DxfDraw.GetPointList(wObj, Elevation)
            Else
                wlist = DxfDraw.GetPointList(wObj)
            End If
            Dim ClosedObj As MyDxfObj = wObj.FindFirstPara(New MyDxfPara(70, ""))
            If ClosedObj IsNot Nothing Then
                If ClosedObj.value = 1 Then
                    wlist.Add(wlist(0))
                End If
            End If
            '
            Dim model As New Model3DGroup
            model.Children.Add(wGF.GetPolyLine(wlist))
            Dim norm As Vector3D = DxfDraw.GetDirection(wObj)
            model = GeometryFactory.toPlane(model, norm)
            '
            Return model
        End Function

Код:

[Выделить все]

        Public Shared Function toPlane(wMG As Model3DGroup, n As Vector3D) As Model3DGroup
            Dim zV As Vector3D = Vector3dExt.ZAxis
            Dim ang As Double = Vector3D.AngleBetween(zV, n)
            Dim rot As New AxisAngleRotation3D(Vector3D.CrossProduct(zV, n), ang)
            Dim wTC As New Transform3DGroup
            wTC.Children.Add(wMG.Transform)
            wTC.Children.Add(New RotateTransform3D(rot))
            wMG.Transform = wTC
            Return wMG
        End Function

Vector3D.AngleBetween
RotateTransform3D

Ещё могу порекомендовать ISBN 5-94157-264-6 формула 2.33

[bavilla]

Спасибо за советы, но может все-таки кто-то сам делал пересчет? Без использования классов .NET и прочих?

[trir]

а зачем?

Вы можете пользоваться почти любыми исходниками В мире, где решена уже практическая любая прикладная задача, тратить время на то, чтобы написать ещё один велосипед — просто преступление по отношению к длительности своей жизни. Теперь вы можете взять любой репозиторий на любом языке и воспользоваться им как отправной точкой для своего решения. Вы пролетите свежим бризом над граблями, который до вас собрали тысячи других разработчиков.

https://habrahabr.ru/post/278467/

[bavilla]

Сообщение от trir а зачем?

Мне надо без использования сторонних библиотек, я об этом сразу написал. только <math.h>
Задача должна решаться с помощью простых арифметических и тригонометрических функций

----- добавлено через ~2 ч. -----
Всем спасибо, сделал так как мне было нужно, чистой арифметикой. Позже выложу пример на С, может кому-нибудь пригодится

[Boxa]

Сообщение от trir зачем?

Думаю это не прикладная задача, курсовик или что то подобное...


bavilla, Вот ссылка: https://github.com/JacobMDavidson/Co...Transformation , Мельком глянул, вроде то что Вы ищите.
Вам надо, Вы и разбирайтесь с кодом и выводите от туда формулу.
В любом случае trir, прав, искать стоит в уже написанном коде.
Удачи.

[bavilla]

Еще раз всем спасибо за проявленное внимание)
Задача чисто прикладная. В софте, который мы разрабатываем, приходится иногда импортировать DXF. Тянуть для этого реализации сторонних разработчиков, .NET и тому подобное не имеет смысла и только ухудшает качество проекта. А мои дилетантские вопросы возникли во многом из-за качества справки по DXF. Попробуйте дать человеку не знакомому с "околоматематической" терминологией справки autodesk хотя бы то же описание "Arbitrary Axis Algorithm" и что он оттуда поймет? Цитирую: "Let the given normal vector be called N ..." Какой же он вектор нормали? Вектор нормали - это единичный вектор и т.д. А что значит "Scale Ax to unit length"? Те же проблемы и с описанием сплайнов, текстов и прочей геометрии.

[trir]

в любом 3D так - вектора, матрицы, аффинные преобразования

[zamtmn]

>>Попробуйте дать человеку не знакомому с "околоматематической" терминологией справки autodesk хотя бы то же описание "Arbitrary Axis Algorithm" и что он оттуда поймет?
Arbitrary Axis Algorithm это восстановление векторов x и y OCS по по вектору "нормали" z. Восстановление делается векторным произведением и вся "суть" этого "алгоритма" - просто выбор подходящего вектора Wx или Wy чтобы ненароком не помножить параллельные вектора

>>Scale Ax to unit length
насколько я понимаю это нормализация - приведение к еденичной длине, после умножения небольшая погрешность всеравно присутствует

>>А мои дилетантские вопросы возникли во многом из-за качества справки по DXF
Качество - для чтения dxf вполне хватает. А вот для записии - многое приходится догадываться и выяснять экспериментальным путем