[zamtmn]

Всем привет!
В свободное время делаю для себя небольшую CAD программу - всегда было интересно как это работает внутри.
На данный момент есть следующие наработки:

• Довольно быстрый OpenGL рендеринг чертежа
• Кроссплатформенность (Windows/Linux, x86/x64, win/gtk/qt)
• поддержка подмножества DXF версии 2000
• поддержка SHX, TTF шрифтов
• поддержка типов линий
• поддержка примитивов POINT, LINE, CIRCLE, POLYLINE, LWPOLYLINE, ARC, ELLIPSE, INSERT, TEXT, MTEXT, 3DFACE, SOLID, SPLINE, HATCH
• некоторые потуги автоматизации слаботочных разделов проекта

Cтраничка программы на SourceForge
Cтраничка программы на GitHub
Cтраничка программы на Ohloh

Программа пишется на паскале, компилируется в Lazarus/FPC. Исходный код открыт и лежит в SVN репозитории Git репозитории
Текущую сборку программы можно взять тут, но лучше тут (более менее свежие сборки для Windows_x86 и для Linux_x86_64, другие - стареханькие). Для работы требуется аппаратная поддержка OpenGL на целевом компе
Также программу можно собрать самомтоятельно, для этого понадобятся:

• релизный Lazarus версии не менее 2.0.10 на базе FPC версии не менее 3.2

Программа не требует установки и не пишет\читает ничего в системные папки (за исключением TEMP) Под windows не допускаются кирилические (и другие) символы в пути к программе (в путях к dxf файлам допускаются), linux версия такой болезнью не страдает.

Любые замечания/предложения приветствуются!

[basilcat]

Там и защита в dcu шке.�� Ну никакая. ��
Ладно, не такие города брали.
Смотрю тут один программист на сях делал, эскиз даёт

https://coderoad.ru/1000785/%D0%97%D...BB%D0%BE%D0%B2

Код:

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

     private void ReadDxfFile (string DxfFile)
{
    string Layer = "";

    string[] D = DxfFile.Split(new[] { Environment.NewLine }, StringSplitOptions.None);

    int iEntities = 0; for(int i = 0; i < D.Length; i++) { if (D[i] == "ENTITIES") {iEntities = i; break; } }
    for (int i = iEntities; i < D.Length; i++)
    {
        if (D[i] == "POINT" || D[i] == "AcDbPoint")
        {
            int iEntity = i; if (D[i].StartsWith("AcDb")) { for (iEntity = i; D[iEntity] != "AcDbEntity"; iEntity--) ; }
            Layer = ""; for (int iLayer = iEntity; iLayer < i + 10 && Layer == ""; iLayer++) { if (D[iLayer] == "  8") { Layer = D[iLayer + 1]; }; }
            for (int iWaarden = i; iWaarden < i + 8; iWaarden++)
            {
                if (D[iWaarden] == " 10" && D[iWaarden + 2] == " 20")
                {
                    //Here you can store the following data in a list for later use
                    //LayerName = Layer
                    //X = D[iWaarden + 1]
                    //Y = D[iWaarden + 3]
                    //Z = D[iWaarden + 5]
                }
            }
        }

        if (D[i] == "LINE" || D[i] == "AcDbLine")
        {
            int iEntity = i; if (D[i].StartsWith("AcDb")) { for (iEntity = i; D[iEntity] != "AcDbEntity"; iEntity--) ; }
            Layer = ""; for (int iLayer = iEntity; iLayer < i + 10 && Layer == ""; iLayer++) { if (D[iLayer] == "  8") { Layer = D[iLayer + 1]; }; }
            for (int iWaarden = i; iWaarden < i + 10; iWaarden++)
            {
                if (D[iWaarden] == " 10" && D[iWaarden + 2] == " 20")
                {
                    //Here you can store the following data in a list for later use
                    //LayerName = Layer
                    //Xbegin = D[iWaarden + 1]
                    //Ybegin = D[iWaarden + 3]
                    //Zbegin = D[iWaarden + 5]
                    //Xend = D[iWaarden + 7]
                    //Yend = D[iWaarden + 9]
                    //Zend = D[iWaarden + 11]
                }
            }
        }

        if (D[i] == "ARC" || D[i] == "AcDbArc" || D[i] == "AcDbCircle")
        {
            int iEntity = i; if (D[i].StartsWith("AcDb")) { for (iEntity = i; D[iEntity] != "AcDbEntity"; iEntity--) ; }
            Layer = ""; for (int iLayer = iEntity; iLayer < i + 10 && Layer == ""; iLayer++) { if (D[iLayer] == "  8") { Layer = D[iLayer + 1]; }; }
            for (int iWaarden = i; iWaarden < i + 10; iWaarden++)
            {
                if (D[iWaarden] == " 10" && D[iWaarden + 2] == " 20" && D[iWaarden + 10] == " 51")
                {
                    //Here you can store the following data in a list for later use
                    //LayerName = Layer
                    //Xmid = D[iWaarden + 1]
                    //Ymid = D[iWaarden + 3]
                    //Zmid = D[iWaarden + 5]
                    //Radius = D[iWaarden + 7]
                    //StartAngle = D[iWaarden + 9]
                    //StartAngle = D[iWaarden + 11]
                }
                if (D[iWaarden] == " 10" && D[iWaarden + 2] == " 20" && D[iWaarden + 12] == " 51")
                {
                    //Here you can store the following data in a list for later use
                    //LayerName = Layer
                    //Xmid = D[iWaarden + 1]
                    //Ymid = D[iWaarden + 3]
                    //Zmid = D[iWaarden + 5]
                    //Radius = D[iWaarden + 7]
                    //StartAngle = D[iWaarden + 11]
                    //StartAngle = D[iWaarden + 13]
                }
            }
        }

    }
}

Время покажет.

А есть ещё и dll сишная по чтению из Solidworks 2001 портировал в Delphi и читал этот формат dxf. С него всё и началось.

[zamtmn]

>>Смотрю тут один программист на сях делал, эскиз даёт
нет, это не серьезно

[basilcat]

Сообщение от zamtmn >>Смотрю тут один программист на сях делал, эскиз даёт нет, это не серьезно

Я ещё не смотрел.

[zamtmn]

https://github.com/skalogryz/dxf проскакивало недавно на freepascal.ru не проверял

[basilcat]

Следующий шаг - работа на линукс.
Стоит ubunty в виртуалке с Лазарем, здесь заработает нормально потащу туда. Платформонезависимое только так. Я уже понял.

Спасибо за ссылку. Гляну.

[zamtmn]

Можешь попробовать использовать zcad, как в прямом виде - написав команды реализующие нужный функционал, так и в виде библиотеки реализующей чтение\отображение dxf
Пример второго варианта: https://github.com/zamtmn/zcad/tree/...urce/simplecad там с сборкой стольких заморочек нет, просто компиль и запускай

update:
хотя вру. некоторые пакеты simplecad требует

[basilcat]

По первой ссылке Solidworks 2001 читает сносно.

[zamtmn]

В тестовом режиме прикрутил "ночные" сборки
https://ci.appveyor.com/project/zamt...uild/artifacts

----- добавлено через 51 сек. -----
пока только win32

[zamtmn]

Навигаторы из https://forum.dwg.ru/showpost.php?p=...&postcount=385 (раньше называл их инспекторами) прокачались и последнее время стали чуть ли не основным инструментом работы.
Появилась возможность фильтрации наполнения дерева, возможность сохранять-загружать настройки навигаторов и быстро между ними переключаться

[zamtmn]

Пробую ковырнуть штриховки. Встречались кому алгоритмы векторной заливки?

[zamtmn]

Появилась начальная поддержка штриховок
https://imgur.com/a/OXpmGua

[zamtmn]

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

[zvezdochiot]

Сообщение от zamtmn LibreDWG и о чудо, вроде моим требованиям удовлетворяет.

Кал полный на самом деле. Гораздо менее плохой и более стабильный вариант - это https://github.com/codelibs/libdxfrw .

[zamtmn]

Это объективные впечатления?

libdxfrw не пишет dwg, LibreDWG хоть и 2000 но пишет

[zvezdochiot]

Сообщение от zamtmn LibreDWG хоть и 2000 но пишет

Крайне сомнительное достижение, учитывая качество кода. Но хозяин - барин, транслируй хедэры "герой".

[zamtmn]

при чем тут герой?
В опенсорсе выбирать не из чего - вопрос качества не стоит. libdxfrw почти не развивается, LibreDWG гораздо активней

[zvezdochiot]

Сообщение от zamtmn при чем тут герой?

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

[zamtmn]

Странные рассуждения, ну нет готовых рабочих либ и если чтото не выбрать и не тыкать палкой - не появится((

Я не собираюсь брать LibreDWG за основу, хотябы как формат импорта и повод для активности в виде багрепортов

[zamtmn]

Сменил лицензию zcad и приделал LibreDWG
Да багов много)) но оперативно правят https://github.com/LibreDWG/libredwg/issues/509

Основная проблема LibreDWG - ее лицензия. GPL3 слишком "открытая", поэтому либу почти никто не пользует и не тестирует

basilcat
Думаю что тут это ненадо))

[zvezdochiot]

Сообщение от zamtmn Основная проблема LibreDWG - ее лицензия. GPL3 слишком

"Плохому танцору прибамбасы мешают".
Qt на секундочку с той же самой лицензией и ничего, все пользуют.