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

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

[zamtmn]

>>Другое дело что было бы свободное время, можно было бы попробовать сделать универсальную прогу для создания расчетных схем и просмотра результатов...
Мое свободное время уходит на ковыряние в "движке" зкада, такчто могу только помогать в этом нелегком деле))
>>Пока ничего добавлять не надо, я сейчас под автокадом работаю...
Я не тороплюсь чтото добавить, по большому счету меня всё устраивает как есть. Но прекрасно понимаю что делая для себя в итоге хорошего будет мало - с себя взятки гладки - правильность и красота приносится в жерту скорости и простоте((.
Например сплошь и рядом в в зкаде одни и теже вещи делаются разными способами - сейчас я думаю так лучше, год назад думал по другому, а 2 года назад вообще не думал)) Нужно все перерабатывать-стандартизовывать и описывать.
Пожалуй попробую тут спросить совета:
Одна из частей зкада менеджер команд, самый простой способ расширения возможностей программы - написание новой команды и регистрация их в менеджере, тогда она становится доступной для пользователя из интерфейса.
В простейшем случае (без интерактивности) команда это просто функция которой передается выполнение в момент ввода ее имени пользователем в комстроку или нажатия соответствующей кнопки интерфейса. Регистрация такой команды происходит с помощью процедуры:

Код:

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

function CreateCommandFastObjectPlugin(ocs:ComFuncWithOper;name:pansichar;SA,DA:TCStartAttr):pCommandFastObjectPlugin;

ocs-адрес функции
name-имя команды
SA,DA-соответственно атрибуты разрешения и запрещения выполнения команды
например команда SelectAll - выбор всех примитивов в чертеже регистрируется так:

Код:

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

CreateCommandFastObjectPlugin(@SelectAll_com,'SelectAll',CADWG,0);

т.е. в исходниках имя процедуры - SelectAll_com, в интерфейсе она будет доступна по имени SelectAll, для своего выполнения она требует наличия открытого чертежа и ничто ее не может запретить.

Пока для атрибутов разрешения\запрещения определена только константа

Код:

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

const
     CADWG=1;

при указании ее при регистрации зкад соответственно разрешит выполнение команды только при наличии открытого чертежа, сюда также сразу просится наличие выбраных примитивов, чтобы например при указании (CADWG or CASelEntsPresent) команда могла запуститься только при наличии выбранных примитивов.
Это все для минимизации внутренних проверок внутри команд, какие еще ситуации тут стоит предусмотреть?
Также думаю при регистрации надо добавить атрибут "прозрачного выполнения" - например при черчении полилинии вызов команды UNDO не должен отменять команду черчения, только последний сегмент полилинии, а вызов команды LINE должен отменить черчение полилинии и чертить линию.
Возможно стоит при регистрации также указать какие действия выполнять по завершению команды, например отменить выбор примитивов или оставить их выбранными для следующей команды, перерисовать чертеж или нет

----- добавлено через ~24 ч. -----
Еще более интересная ситуация с "интерактивными" командами, когда требуется указание координат мышкой. Сейчас это классы со своими обработчиками OnMouseClick, OnKeyPress и т.п. Очень сложно и громоздко, собственно по этому и сделано всего несколько команд черчения.
Гораздо удобнее это иметь в виде:

Код:

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

Procedure DrawLine;
...
p1=GetPoint();
p2=GetPoint();
CreateLine(p1,p2);
...

от пользователя получены 2 точки и создана линия.
Но с этой GetPoint большая проблема - видимо придется внутри нее крутить свой цикл обработки сообщений помимо Application.Run и неочень понятно как быть если пользователь во время ее выполнения захочет потыкать в другие элементы управления - последовательность выполнения нарушится.

Также неясно как в этом случае быть с резиновыми примитивами, которые тянутя за мышкой, если для примера выше еще можно выкрутится

Код:

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

Procedure DrawLine;
...
p1=GetPoint();
p2=GetPointAndDrawLineTo(p1);
CreateLine(p1,p2);
...

то на все случаи жизни "резиновые" функции получения координат не напишешь(( нужно в GetPoint както отдавать информацию о том какие примитивы по каким законам тянуть за мышью. Как этот вопрос решается в автокаде?

[zamtmn]

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

----- добавлено через ~11 ч. -----
добавил обещаный модуль
http://svn.shamangrad.net/zcad/trunk...ndsexample.pas
команда создания выровненного размера, пока без "резиновости"

[zamtmn]

Интерфейс "интерактивности" устаканился.

Код:

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

function Get3DPoint(prompt:GDBString;out p:GDBVertex):GDBBoolean;
function Get3DPointInteractive(prompt:GDBString;out p:GDBVertex;const InteractiveProc:TInteractiveProcObjBuild;const PInteractiveData:GDBPointer):GDBBoolean;

Get3DPoint - простое ожидание точки указаной пользователем (мышкой или клавой), возвращает true если всё прошло нормально и указанные координаты будут лежать в параметре p. Если вернулся false - команда была отменена (нажат еск, запущена другая команда), в параметре p при этом будет лежать мусор.

Get3DPointInteractive - тоже самое, но с "резиновыми" возможностями. при перемещении мышки будет вызываться подпрограмма указанная в параметре InteractiveProc, ей будет переданы координаты мыши, состояние левой кнопки и PInteractiveData который может указывать на любые пользовательские данные, например на примитив который надо тянуть за мышкой. InteractiveProc должна быть объявлена так:

Код:

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

procedure(const PInteractiveData:GDBPointer;Point:GDBVertex;Click:GDBBoolean);

PInteractiveData - указатель на пользовательские данные, Point - положение мышки, Click - состояние левой кнопки мышки.
например если в Get3DPointInteractive передать такую процедуру

Код:

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

procedure InteractiveLineManipulator(const PInteractiveData:GDBPointer;Point:GDBVertex;Click:GDBBoolean);
begin
     PGDBObjLine(PInteractiveData)^.CoordInOCS.lEnd:=Point;
     PGDBObjLine(PInteractiveData)^.FormatEntity(gdb.GetCurrentDWG^);
end;

то линия указанная в PInteractiveData быдет таскаться концом за мышкой.

По сути это получились теже классы с onMouseMove и onMouseClick, но реализованные в процедурах. Проще "резиновость" имхо не сделать

[Pum-purum]

zamtmn, как происходит процесс программирования? Где вы набираете код? Что за язык? Могу ли я вам чем-то помочь?)

[hexD]

вот здесь в сорцах есть крутая программка, предел возможностей любителя-одиночки...
http://www.cs.technion.ac.il/~gershon/GuIrit/

[zamtmn]

Pum-purum
Пишу в Lazarus, это IDE для freepascal. То что нужно и ссылки где взять - перечислены в первом посте. Помочь можно, даже нужно - написанием чего либо, тестиванием или просто высказав пожеланья-замечания

hexD
Да, по видео - чтото серъезное. Но сырцы я ненашел, и не совсем в тему - 3D моделирования я не касаюсь

[gomer]

Сообщение от hexD вот здесь в сорцах есть крутая программка, предел возможностей любителя-одиночки...

У этой программки серьезный 3D движок, разрабатывавшийся не одним поколением студентов я так думаю, а сама она - лишь фантик для этого движка
zamtmn, можете INSERT реализовать?

[zamtmn]

>>можете INSERT реализовать?
Что конкретно?
INSERT есть, но он сделан чуток по другому - без коментариев и сплошь и рядом одному мне понятные "магические" заклинания)).
Вынести и оформить с коментариями?

[gomer]

Сообщение от zamtmn Что конкретно?

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

[hexD]

Сообщение от gomer У этой программки серьезный 3D движок, разрабатывавшийся не одним поколением студентов я так думаю,

студенты и серъезный движок вещи несовместимые ) я.т.д., там профессор шибко вумный, и имхо это его детище...но ктож его знает...особенно впечатляют возможности различных интерактивных(гуй) трансформаций, поковыряв гуй поглубже не стану называть его фантиком, тоже чья то немалая работа...жаль что на лысом С,(а не на асме ))) ), но как грится для случая энтузиазма - то что доктор прописал...

[zamtmn]

>>Я имел ввиду вставку блоков из внешних файлов с помощью диалогового окна или хотя бы через ком. строку
Это можно, даже можно сказать тоже есть - в пустой чертеж теже ОПСные извещатели вставляются из внешних файлов. Вот предпросмотр вставляемых блоков пока хз с какой стороны подходить

[zamtmn]

переделал "примерную" команду создания выровненного размера - добавил "резиновость"
http://svn.shamangrad.net/zcad/trunk...ndsexample.pas

Сейчас надо аналогичную Get3DPoint процедуру для выбора примитивов

[zamtmn]

825 ревизия
+черчение выровненных и повернутых размеров
+комбобокс текущего размерного стиля
+черчение дуг
+опции для черчения окружностей (не связанные с выбором примитивов)

зы.
Приму помощь в виде написания окон редактирования стилей текста и стилей размеров, там ничего сложного - чистое формошлепство. Если кто хочет освоить Lazarus - самое то

[zamtmn]

Добавил возможность "декорирования" параметров в инспекторе, Т.е. теперь при клике на строчке слоя открывается не вложенное поддерево с параметрами этого слоя, а комбобокс с определенными в чертеже слоями. Но это уже не автоматическая генерация содержимого инспектора и требует дополнительных усилий. Осталось решить вопрос по привязке к параметрам инспектора отдельных окон редактирования этих параметров и получится конфетка а не инспектор))

[DEM]

Может попробовать какой-то аналог экселя присобачить....

[gomer]

может еще кофеварку присобачить?

[DEM]

Сообщение от gomer может еще кофеварку присобачить?

Лучше принтер для купюр...

[zamtmn]

Смех смехом, а инспектор штука нужная - благодаря ему можно забивать на бесконечное написание гуя. Собственно програмистов делфи\лазаря и не любят за это - обычно у них программы начинаются с формошлепства и весь код размазан по куче обработчиков onЧетоТам.
В краце как работает: при старте зкада парсится файл rtl\system.pas - там лежат все описания типов которые в дальнейшем доступны в инспекторе объектов. Описания на паскале и просто выдраны из исходников. Сначала я делал это руками, но потом написал небольшую утилитку - utils\typeexporter.exe, она проверяет все файлы исходников зкада отмеченные в utils\filelist.txt и экспортирует помеченные описания типов в rtl\system.pas.
т.е. я например определяю какуюто структуру данных в программе:

Код:

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

...
type
  TMyData=record
    data1,data2:integer;
  end;
...

И в дальнейшем хочу видеть ее в инспекторе. добавляю ссылку на файл с описанием TMyData в utils\filelist.txt если его там еще нет, помечаю TMyData для экспорта и по возможности даю параметрам "человеческие" имена. Получается чтото вроде

Код:

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

...
type
{EXPORT+}
  TMyData=record
    data1:GDBInteger;(*Поле данных 1*)
    data2:GDBInteger;(*Поле данных 2*)
  end;
{EXPORT-}
...

После запуска typeexporter.exe можно будет соответствующими процедурами "засовывать" данные типа TMyData в инспектор.
в описании доступны некоторые модификаторы для инспектора, они оформляются в виде коментариев в коде:
(*'какоето имя'*) - более понятное пользователю имя параметра, без него параметр называется также как в программе
(*oi_readonly*) - запрет редактирования параметра пользователем в инспекторе
(*hidden_in_objinsp*) - не отображать параметр в инспекторе

Кто считает что в зкадном инспекторе отображается много лишнего - это я просто забыл/лень поставить (*hidden_in_objinsp*) в соответствующем месте

Offtop: Товарищи офтоперы, отныне флуд и офтопик в теме разрешается только в обмен на чтото полезное, т.е. хочешь пофлудить - сначала (ну или потом) ченить закомить или подкинь идейку)). По курсу один офтопик пост на одно чтото полезное

[zamtmn]

>>Осталось решить вопрос по привязке к параметрам инспектора отдельных окон редактирования этих параметров и получится конфетка а не инспектор))
Выхожу из запоя)) - завершил "причесывание" инспектора. Теперь к любым типам данных в инспекторе можно привязать "быстый редактор" в виде кнопочки рядом со значением - он будет вызван при нажатии этой кнопочки (наподобии как до этого было сделано с boolean), и внешнюю процедуру отображения этого значения - т.е. теперь в инспекторе могут быть картинки толщин или типов линий и т.п., а не только сухие цифры/тексты.
В предидущей теме было замечание про "неинтуитивность" настройки привязок - стало всё интуитивно, осталось нарисовать форму этого редактора))

[zamtmn]

Добавилась возможность указывать значения для инспектора в чертеже. Полная мелочь, а кровушки попила))