[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
• некоторые потуги автоматизации слаботочных разделов проекта

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 версия такой болезнью не страдает.

Для запуска доступны следующие ключи командной строки:

• NLL - отключение загрузки файла докинга окон, окна открываются непристыкованными, но докинг работает
• SI - полное отключение докинга, зкад работает в однооконном режиме (очень недоделанном)
• UPDATEPO - отключение закрузки локализации, будет запущена английская версия. Также в этом режиме доступна команда обновления файлов локализации
• NOSPLASH - отключение показа окна загрузки
• путь/к/файлу.dxf - открыть указанный файл

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

[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]

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