[DEM]

Начал изучение Delphi, решил сделать не большую программку аля Спецификация
Пока получилось вот что(не пинайте ногами, Я только начал разбираться) см. притаченный файл с исходниками.
К сожалению не получилось пока сделать следующее:
1. Получение списка файлов с расширением .txt из папки с программой
(пока так сказать в ручную забиваю программе)
2. Требуется заполнение ComboBox1 из txt файла выбранного в ComboBox2 без массы элемента разделителем сейчас является ";", грубо говоря сейчас получается "10 А I;0,617", а надо просто "10 А I"
3. С заполнением label1 тоже самое требуется вставить не "10 А I;0,617", а "0,617"

[Makswell]

Конечная цель - это вставка спецификации в Автокад?

[DEM]

Сообщение от Makswell Конечная цель - это вставка спецификации в Автокад?

Не обязательно, еще и экспорт в Exel.
VetCAD не предлагать т.к. не нравится то что в нет нормальной визуализации заполнения спецификации.
Вообще хочется самому сделать свою прогу, чтобы потом можно было делать свои программки для расчетов и т.д.

[nikе]

Очень уж экзотическое это Делфи. Может лучше тебе начать изучать С++ или С#? Я например для себя программу по заполнению спецификации написал используя LISP и ARX. На С++ сделал функцию по работе с файлом базы данных access через ADO с MFC диалогом, а на LISP - построение самой спецификации и выборки по ней. Просто соединил идеи из VetCAD, Мариупольских утилит для Брикскада и добавил еще своей отсебятины.

[Red Nova]

SPEC тоже не предлагать?
Во всяком случае посмотри этот видеоролик.
http://forum.dwg.ru/attachment.php?a...2&d=1223979994

[DEM]

Сообщение от Red Nova SPEC тоже не предлагать? Во всяком случае посмотри этот видеоролик. http://forum.dwg.ru/attachment.php?a...2&d=1223979994

Хм молодца надо будет по смотреть.
НО надо сделать примерно то же что было в спецификации которую я как говорил делал раньше (см. ссылку), я как и говорил тебе ранее не всегда обозначаю элементы на чертеже это 1-е, 2-е не всегда заполняю выноски.
Ну и самое главное хочу разобраться чтобы делать некоторые програмки для не больших расчетов.

[Red Nova]

молодца

Я только автор идеи, и лиспы делали в основном VVA и CB (и многие другие участники форума).

я как и говорил тебе ранее не всегда обозначаю элементы на чертеже это 1-е, 2-е не всегда заполняю выноски.

В ролике показана работа не одного а двух лиспов. Первый (ntt) собирает информацию из выносок в спецификацию (он тебе не очень подходит) а второй (spec5d) рассчитывает спецификацию. Вот второй по моему тебе может быть полезным. Если заполняешь спеку в две строки, как у тебя в примере, то VVA и на этот случай разработал лисп. Вот пример.

[DEM]

Red Nova
Подобное создание спецификации не катит, Я ж не стал развивать дальше эту тему, просто заполнение удобнее делать не в ручную а программно, из выпадающих списков. Хоя это Я мог бы и на лиспе сделать, сейчас меня интересует именно программное заполнение.
Дальше может быть разовью идею, и слелаю полу автоматическое заполнение.

[ShaggyDoc]

DEM, ты начинаешь принципиально неверно - с "батонокидательства". Начинаешь строить мост вдоль реки. Начинать надо не с создания формы и кидания на нее комбобоксов, а с постановки задачи. Даже лично для себя. "Программно из выпадающих списков" - худшее решение, которое можно придумать, хотя оно и может первым делом в голову придти.

Любая программа для работы со спецификациями должна иметь, как минимум, две основных составляющих:

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

2. Формирование из базы спецификации для конкретного объекта.

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

Начинать надо с продумывания структуры данных и их хранения. Ты работаешь в лучшей системе для работы с данными - Delphi. Так и используй на полную мощь её средства. Создавай сразу базу данных изделий, а не такие убогие файлики, которые придумал.

База данных может быть любого формата, в том числе и какого-то из текстовых (XML, CSV). Главное, чтобы этот формат поддерживался каким-то потомком класса TDataset. Тогда можно воспользоваться всей мощью уже имеющихся компонентов - использовать Dataset, DataSource и любые визуальные компоненты для отображения данных (DbGrid-ы, DbEdit-ы). И даже DbComboBox-ы, только вряд ли на них к тому времени стоять будет.

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

[DEM]

ShaggyDoc
Это все понятно, просто хотелось начать с более простого, т.к. правильно вы заметили, вопросы довольно глупые для программистов.
В принципе работа с экселем подразумевалась изначально.
Просто решил начать с самого простого.

[DEM]

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

[DEM]

Кое добавил формирование спецификации и сохранение в Excel.
Далее будет добавлено заполнение о остальным вкладкам трубы, материалы и древесина.
Также будет добавлен менеджер проекта, т.е. вся информация по проекту будет содержаться в одном файле Excel, ну и соответственно можно будет автоматически формировать ведомость расхода стали или техническую спецификацию металла для КМ

Жду предложений

[maestro]

Дем, скажи главное- как ты себе представляешь разработку и хранения дерева сборок, необходимого для нормальной работы спецификаций? Как в енто дерево данные попадают.

[DEM]

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

[DEM]

Вот тут под до делал немного
Сейчас в разработке дерево сборки и просмотр геометрических характеристик

[Baldares]

А что значит: |ёюур ?
В диспетчере задач пишет.
см рис.

[DEM]

Да хз
У мну вообще то исходник был "Work_with_Word_Excel" роцес так и называется
Поключаю временно Excel и не более.
Исходники на Делфях могу скинуть
Лучше скажи работает или нет, пока тестировалось на 5-ти машинах

[DEM]

Что то с кодировкой
У мну пищеть
Work_with_Word_Excel

[Baldares]

Так, а расчет спеки будет как-то связан с чертежами акада.
Допустим все отрезки на слое арматура18, суммировались и заносились в спец-ю.
Или типа того.
А то каждую позицию считать, а потом забивать в прогу, как то напряжно.

[DEM]

Baldares
Так алмаатинец, можешь и под своим ником выступать.
Дальнейшая разработка и интеграция с автокадом будет зависеть от того, что сейчас сделано в СПДС 5,0.
Сейчас задача до делать 2 модуля
1-й Сборка конструкции(информацию по объекту можно будет держать в одном файле), на основе этой сборки будет создаваться Ведомость расхода стали или Техническая спецификация, ну и вообще любая выборка
2-й по просьбе dipro просмотр геометрических характеристик профилей с рисками

В данной версии программы связь с автокадо поддерживаться скорее всего не будет, т.к. надо тогда пробовать переходить на VS С++
А это будет уже совершенно другой код и т.е.

Я думаю эта програмка спросом тоже будет пользоваться, т.к. её можно использовать как калькулятор для стальных конструкций, и самое главное отчет сохраняется в excel чего в других калькуляторах не находил.

[Baldares]

Э, какой далмаатинец ). Вы что-то путаете Гражданин Товарищ Барин.

Тогда подождем-с.

[DEM]

Baldares
Декстрон тока не надо шифроваться, Я тебя по IP вычислил

[Baldares]

Я сам свой IP не знаю, ты че)))

[JT]

http://beamclc.ru/prg_tcc - прога ТСС для генерации "Технической спецификации стали" для КМовцев - не то?

[DEM]

Сообщение от JT q3log.narod.ru - прога ТСС для генерации "Технической спецификации стали" для КМовцев - не то?

За это 500 ре извиняйте многовато, взлом кстати делается за 2 минуты

[TwoZero]

Достаточно интересная задача, я сам занимался разработкой программы для составления спецификаций, но только в моем случае программа выводит эти спецификации непосредственно на принтер а не в автокад.
Что могу сказать, если ты действительно хочеш зделать программу для составления спецификаций и экспорт их в автокад да еще и на дельфи то тогда тебе нажно уметь создавать ком серверные приложения (в данном случае сервером будет автокад, так как в него мы будем экспортировать спецификации) + возможно тебе придется создавать базу данных для храненния определенного оборудования (это уже как получится), в идеале еще можно было бы прикрутить окно предварительного просмотра. Одно могу сказать точно на дельфи это все выполнимо на все 100%, так что дерзай.

В качестве справочника для дельфи могу посоветовать Delphi World 6 Pro, там есть все что нужно.

[ActiveBaby]

Нашел недавно интересную программку для составления спецификации для КМ на сайте beam.ucoz.org. И вообще таких программ куча, в VetCAD, например тоже есть. Поэтому, думаю, не стоит еще одну писать...

[AlexV]

Сообщение от ActiveBaby Нашел недавно интересную программку для составления спецификации для КМ на сайте beam.ucoz.org. И вообще таких программ куча, в VetCAD, например тоже есть. Поэтому, думаю, не стоит еще одну писать...

ActiveBaby, поздновато как-то советуешь.. Таки почти год прошел, DEM прогу или уже дописал, или забил на нее давно. Али сайт решил попиарить?

Пользуясь случаем, посамопиарюсь-ка и я.. Вот здесь: лежит уже пару месяцев моя программка подсчета спецификаций (VBA Excel 2007. DEM, кстати сказать, тоже принимал участие в ее появлении). Функционал такой: автоматизация составления спецификаций (с выбором типа профиля из базы); автоматическое составление ведомости расхода стали; экспорт таблиц в автокад.. Подробности в дауне по ссылке. Глюки некоторые могут присутствовать, но в целом может немало времени экономить при подсчете ВРС для больших объектов..

[GIP]

Сообщение от DEM Начал изучение Delphi, решил сделать не большую программку аля Спецификация

Я тоже занимался этим вопросом, в результате моей работы я забил базы данных с матералами, которые часто заказываются в проектах марок АС, КЖ, АР и автоматизировал заполнение спецификации и ее вставку в автокад, с возможность черчения автокадом ведомости деталей, подсчета тонажа арматуры и т.д. Этой программой пользуется вся моя группа. Желаю успехов DEM.

А есть еще вот такая прога

[Mozgunov]

1. Получение списка файлов с расширением .txt из папки с программой (пока так сказать в ручную забиваю программе)

1. Лучше наверное сделать так, чтобы в одном текстовом файле хранилась база по одному профилю. А название базы выбирать через ComboBox. А потом уже построчным чтением из файла заполнять StringGrid (это то что вы заполняли ручками). Делается это чтение примерно так :

Код:

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

i:=0;//Включаю счётчик для перехода по строкам SringGrid
while not Eof(F) do //Читаю файл построчно, пока не будет достигнут конец "F" это файл вашей базы. F: TextFile;
begin
ReadLn(F,str);//Читаю строку в переменную str
word:=Copy(str,1,Pos(#9,str)-1);//Читаю до табуляции в переменную word
StringGrid1.Cells[2,i+1]:=word;//Записываю в таблицу
Inc(i);//Увеличиваю значения переменной i на единицу
end;

при этом есть смысл хранить в отдельных ячейках (но в одной строке) номер профиля, длину, массу и.т.д.

2. Требуется заполнение ComboBox1 из txt файла выбранного в ComboBox2 без массы элемента разделителем сейчас является ";", грубо говоря сейчас получается "10 А I;0,617", а надо просто "10 А I"

2. Если пойдёте первым путём, то нужда перебрасывания из одного ComboBox в другой пропадёт. Тоже самое касается и "10 А I;0,617",
эти данные нужно хранить в отдельных ячейках одной строки. При необходимости вывести эти данные например в спецификацию делать примерно так :

Код:

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

spec:='nomer'+'diam'+'class';

где nomer, diam, class значения считанные с ячеек строки SringGrida.

3. С заполнением label1 тоже самое требуется вставить не "10 А I;0,617", а "0,617"

3. Опять же всё решается первым путём. Ну если вам интересно как можно вытащить в Delphi в этикетку вторую часть строки, то это делается примерно так (Советую заменить разделитель ';' на знак табуляции, знак табуляции ставиться символом '#9' без кавычек):

Код:

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

str:='10 А I'+#9+'0,617'+#9;
//Расписываю построчно. Можно собрать в одно действие.
poziciya:=Pos(#9,str);
//Получаю позицию знака табуляции в строке
//Если не знаете строка это массив символов каждый из которых имеет свою позицию
word:=Copy(str,1,poziciya);// Копирую текст с начала строки до знака табуляции в переменную word. Впринципе она нам сейчас не нужна, ну да бог с ней копировали уже.
dlina:=Length(word); Получаю длину текста который содержится в переменной word.
delete(str,1,dlina);//Удаляю ненужный мне кусок строки '10 А I' из переменной str.
poziciya:=Pos(#9,str);//Получаю позицию второго знака табуляции.
word:=Copy(str,1,poziciya);// Копирую текст с начала строки до знака табуляции в переменную word (Тут будет уже нужное вам 0,617).
теперь можно вывести переменную word куда вы пожелаете.

Сокращённую запись см. в ответе на первый вопрос.
А вообще я считаю что нужно прислушаться к топику #9 - кстати так же обозначается знак табуляции . Тогда может что интересное и получиться.

[Сергей Дубина]

У кого нибудь есть пример использования XML для храненения и обработки спецификаций?

[Нитонисе]

Сообщение от GIP Я тоже занимался этим вопросом, в результате моей работы я забил базы данных с матералами, которые часто заказываются в проектах марок АС, КЖ, АР и автоматизировал заполнение спецификации и ее вставку в автокад.

Решаю примерно такую же задачу. Механизм создания спецификации и отрисовки в автокаде отлажен, а вот с заполнением базы данных элементов есть куда стремиться. Не поделитесь базами?

[ShaggyDoc]

Сообщение от Сергей Дубина У кого нибудь есть пример использования XML для храненения и обработки спецификаций?

Пример спецификации в виде XML в zip-архиве
Скриншоты программы, которая с такими спецификациями работает

[Сергей Дубина]

Сообщение от ShaggyDoc Пример спецификации в виде XML в zip-архиве Скриншоты программы, которая с такими спецификациями работает

Спасибо, весьма любопытно.
(но самое интересное осталось за кадром, из чего результат "лепится")