Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций) - Страница 17
Реклама i
| Правила | Регистрация | Пользователи | Сообщения за день |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций)

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

Ответ
Поиск в этой теме
Непрочитано 26.01.2008, 13:15
Расчет спецификаций из мтекстов
Red Nova
 
ՃԱՐՏԱՐԱԳԵՏ, տ.գ.թ.
 
Торонто
Регистрация: 23.10.2007
Сообщений: 1,990

Я не пользуюсь таблицами AutoCADа, черчу ячейки, в них по мтексту. Вопрос как оперативно соcчитать сумму цифр их содержимого. Слышал есть такой калькулятор, по моему calcacad называется, но на 2008-й Cad не идет. Что делать?

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

Последний раз редактировалось Red Nova, 13.03.2009 в 10:11.
Просмотров: 203887
 
Непрочитано 07.04.2008, 16:32
#321
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,149


Цитата:
Сообщение от Red Nova Посмотреть сообщение
dextron3,
Фланец это круглый лист. В принципе по госту такого нету. По старинке привык обозначать.


Ну так нам же надо чтобы все в одном было. Не считать ведь одну спеку двумя прогами. По моему добавить эту возможность вполне реально (хотя я конечно же в программировании 0 и могу ошибаться). А пользу от этого трудно переоценить.
уже спрашивал сам от этого страдаю, но это ничто по сравнению с теми
радостями которые получаешь
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 07.04.2008, 16:37
#322
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996


>Red Nova
1. Фланец, трубу добавил
2. Про прочерк. Он нужен обязательно, т.к. индекс в команде D (Spec5D, говорит, что в спецификации есть 5 ОСНОВНЫХ столбцов (Обозначение, Наименование, Кол-во, Масса_ед, Масса_всего) и ОТДЕЛЬНЫЙ текст Длины. Поэтому там должно что-то быть. Или для этих граф использовать Spec5. Почитай внимательнее readme.txt
3. Про рифление тоже ничего сложного нет, если в наименовании есть подстрока *чечев*, То считается чечевичное, иначе ромбовое.
Т.е. запись
ГОСТ 8568-77 Лист ромб В-К-ПУ-3.0х1000х1000
и
ГОСТ 8568-77 - В-К-ПУ-3.0х1000х1000
воспримется как лист с ромбовым рифлением (т.к. там нет построки *чечев*)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 07.04.2008, 16:52
#323
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,149


VVA, а про обнуление гиперссылок не забыли?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 07.04.2008, 17:14
#324
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, տ.գ.թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,990
Отправить сообщение для Red Nova с помощью Skype™


Ну если только так то сойдет конечно–же. Но давай я логику объясню.
Итак должно быть обязательно 5 столбцов.
В чем тут принцип?
По какому алгоритму разделяются столбцы. Насколько я знаю в основе координаты У и Х. Если так, то можно четко понять где закончилась одна строка и началась другая. Я не против ограничения на количество столбцов. Но разве нельзя добавить исключение?
Скажем так.
Если количество столбцов не 5 а 4, то программа анализирует строку и дальше действует как указанно в следующем файле.

P.S. У меня у другие интересные предложения были, надеюсь не обойдешь их.
Вложения
Тип файла: dwg
DWG 2004
Вопросы2.dwg (50.2 Кб, 2022 просмотров)
Red Nova вне форума  
 
Непрочитано 07.04.2008, 18:25
#325
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996


Дело в том, что столбец "Обозначение" может отсутствовать. Поэтому если не выбрано не 5 а 4 столбца, то программа считает, что отсутсвует столбец Обозначение и добавляет его в начало массива. Если у тебя длина пропущена, то в "Обозначение" добавляется "", твое Обозначение вдвигается в графу Наименование, Наименование в Кол-во, ну и т.п. Поэтому из-за сдвижки найти ничего не удается.
И еще одна немаловажная деталь: Основной код разрабатывается для заполнения спецификаций по ГОСТ, т.е.
Гост проката может быть в "Обозначении" или "Наименовании", длина элемента задается как L= в графе "Наименование". Команды и индексом D (Spec5D и Spec3D) - производные и поддерживаться будут ровно настолько, насколько они вписываются в основной алгоритм.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 07.04.2008, 18:36
#326
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996


По поводу вопроса из #324 нереализуемо.
Алгоритм построен следующим образом:
1. Из выбранныз текстов сортировкой по Y, а в пределах каждого Y по X формируются массивы текстов по столбцам "Обозначение" , "Наименование" "Количество" "Масса_ед" "Масса всего".
2.Если выбрано меньше меньше столбцов, чем заказывали (например в Spec5D вместо 6 - 5) то считается, что столбец "Обозначение" имеет значение пусто, но его значение "" добавляется в начало списка элементов строки.
3. Массив длин формируется из графы "Наименование" если это не Spec5D или Spec3D. В этом случае берется из 3 элемента строки.
4. Уже потом стобцы передаются на анализ, где по столбцу "Наименавание" осуществляется поиск типа проката. (т.е. распознается лист, двутавр и т.п.)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 07.04.2008, 18:46
#327
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996


Следующий вариант.
Добавлена команда HYPD (удаление гиперссылок), хотя не понимаю, чем не устраивает команда _HYPERLINKOPTIONS.
Добавлены болты, которые подготовил Dextron3.
Добавлена сортировка по ГОСТ'у и марке проката с подсчетом массы. Вывод осуществляется в командную строку.
Вложения
Тип файла: rar sumTV5.rar (340.5 Кб, 127 просмотров)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 07.04.2008, 19:05
#328
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,149


А в каком виде должна быть запись болта для Spec5D, а то что то не считает...

мне бы из 5 строк + длина


скриншот это мое обозначение
Изображения
Тип файла: jpg Snap1.jpg (5.7 Кб, 631 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие

Последний раз редактировалось dextron3, 07.04.2008 в 19:21.
dextron3 вне форума  
 
Непрочитано 07.04.2008, 19:58
#329
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996


Там длина болта используется для поиска массы. Писать нужно так ка в ГОСТе
Болт М6-6g Х 8.58
Маска для поиска в базе - "М6*[ Х]8."
* - любой символ
[ Х] - или пробел или Х
Т.е можно и так
Болт М6 Х 8.
Болт М6Х8.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 07.04.2008, 20:05
#330
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,149


Болт М6 Х 8 для этого выдает прочерки я понял наверно потому что масса при округленни до 2х чисел равна 0

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

Последний раз редактировалось dextron3, 07.04.2008 в 20:10.
dextron3 вне форума  
 
Непрочитано 07.04.2008, 20:13
#331
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,149


Почему для шайбочек такой сложный алгоритм хотя толщина, зависит от диаметра отверстия и постоянна для каждого
Миниатюры
Нажмите на изображение для увеличения
Название: Snap1.jpg
Просмотров: 138
Размер:	23.6 Кб
ID:	5128  Нажмите на изображение для увеличения
Название: Snap2.jpg
Просмотров: 130
Размер:	23.8 Кб
ID:	5129  
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 07.04.2008, 23:22
#332
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, տ.գ.թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,990
Отправить сообщение для Red Nova с помощью Skype™


>VVA.

A) Ты уж прости, но я понастырничаю.
По #326.
Сейчас по графам "Обозначение" , "Наименование", "Длина", "Количество", "Масса_ед", "Масса всего" cортировка идет только в зависимости от количества столбцов.
А если сделать сортировку умнее.
Столбец "Обозначение" должен определятся не по принципу количества строк. А по первым буквам содержания. Я пока насчитал только три вида нидписей для этой графы. Они начинаются с "ГОСТ", "ТУ" или "СТО" (можно и добавить.
Дальше легче.
Отделяем "Обозначение" (если оно есть) и рассматриваем остальные строки. Если дальше есть 5 строк, то все по старинке. Если дальше только четыре строки, то возможно два пути.
1. Когда отсутствует строка "Количество"
2. Когда отсутствует строка "Длина"
Остается различить эти строки. Это можно сделать так.
Если во второй графе есть "ΣL", "Lобщ" , "пн", или "мп" (по моему я перечислил все варианты обозначения погонных метров, если нет, то вы добавте), то это первый вариант. Если нет, то это второй вариант.
Помоему все реально. Только нужно поколдовать немного с лиспом.

B) Теперь об одном пункте, который ты не учел ранее. Цитирую из файла выложенного ранее.

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

С) Скоро буду просить адаптировать SPEC5D к Армянскому (надо приравнять некоторые слова из русского к армянским кодам). Как на это смотришь? Возможно ли в лиспе в отдельном месте (чтобы не разыскивать слова по всему файлу) задать таблица перевола нужных терминов?


>dextron3, это что за скрин такой? В смысле что за прогамма.
Red Nova вне форума  
 
Непрочитано 08.04.2008, 00:02
#333
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,149


Red Nova, а что армянские ГОСТЫ и обозначения не как в бывшем
СССР, или Двутавр по армянски не Двутавр?
у нас как есть по казахски тоже самое

это калькулятор металлиста
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 08.04.2008, 11:03
#334
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996


>Red Nova
A. Ты не учел РСТ, СТБ, не_знаю_что_на_Украине, серии предприятий (мы, например, такие используем)
В длиннах есть Lср и т.п.
B. по ГОСТ нужно писать обозначение каждый раз, но для одинаковых можно не писать. Это было сделано для более быстрого ручного заполнения. Т.к. делаешь все на компьютере,то не пиши, а копируй. Алгоритм и так усложнился до такой степени, что вскоре я сам перестану понимать что и где делается.
С. В принципе можно. Что нужно переводить - "Двутавр" по русски на "двутавр" по армянски? Т.е. в смысле слова по русски на аналогичные по армянски?
> dextron3
Вот [FONT=Arial]ГОСТ 11371-78. Там масса шайб зависит от диаметра резьбы, типа исполнения (1 или 2) и класса точности (C или A)[/FONT]
Вложения
Тип файла: doc ГОСТ 11371-78.doc (70.0 Кб, 157 просмотров)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 08.04.2008, 11:38
#335
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,149


Учтем, просто я по калькулятору считал, он не спрашивал,
но мне более важнее ГАЙКИ скажите, форму чтобы я пока
базу забивал...

PS Болт М6-6g Х 8.58, что означает 6g не согу понять, но кажется что 6 граней, но ведь 5гранных не бывает же
PS VVA, спасибо за выборку, теперь в автокаде с удовольствием работаю
__________________
инженер проектировшик с опттом программа авто гад образование высшие

Последний раз редактировалось dextron3, 08.04.2008 в 11:46.
dextron3 вне форума  
 
Автор темы   Непрочитано 08.04.2008, 11:49
#336
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, տ.գ.թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,990
Отправить сообщение для Red Nova с помощью Skype™


VVA,
А Ну я не против указанных добавок. Как я понимаю мое предложение в общем одобрено?

B Сдаюсь и не буду настаивать. В конечном итоге и в правду скопировать не трудно.

С. Ты правильно понял. Надо перевести слова типа ГОСТ, Уголок, и.т.п

dextron3,
Цитата:
Red Nova, а что армянские ГОСТЫ и обозначения не как в бывшем
СССР, или Двутавр по армянски не Двутавр?
А что в казахском вы так и пишите казахскими буквами "Двутавр"?
В основном конечно термины схожи. К примеру "Двутавр" по армянски звучит "Ерктавр", но в любом случае кодировка разная (буквы то армянские).

Цитата:
это калькулятор металлиста
А ссылка есть? Больно интересно стало.

Цитата:
VVA, спасибо за выборку, теперь в автокаде с удовольствием работаю
О какой выборке речь?
Red Nova вне форума  
 
Непрочитано 08.04.2008, 13:06
#337
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996


>Dextron3
Цитата:
Пример условного обозначения болта исполнения 1 с
диаметром резьбы d=12 мм, с размером «под ключ» S=18 мм, длиной
l=60 мм, с крупным шагом резьбы с полем допуска 6g, класса
прочности 5.8, без покрытия:
Болт М12 - 6g×60.58 (S18) ГОСТ 7798-70
То же, исполнения 2, с размером «под ключ» S=19 мм, с мелким шагом резьбы с полем допуска 6g, класса прочности 10.9, из стали марки 40Х, с покрытием 01
толщиной 6 мкм:
Болт 2М12×1,25 - 6g×60.109.40Х.016 ГОСТ 7798-70
>Red Nova
A. Буду думать
С. Это лучше сделать отдельной командой
Цитата:
О какой выборке речь?
Почитай внимательнее #327
Цитата:
Добавлена сортировка по ГОСТ'у и марке проката с подсчетом массы. Вывод осуществляется в командную строку.
Нажми F2 и посмотри в командную строчку
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 08.04.2008, 15:10
#338
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, տ.գ.թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,990
Отправить сообщение для Red Nova с помощью Skype™


VVA,
Цитата:
A. Буду думать
Это хорошо.
Цитата:
С. Это лучше сделать отдельной командой
А это не очень хорошо. Дело вот в чем. Ведь наш лисп постоянно изменяется. Очень нежелательно, чтобы каждый раз приходилось приспосабливать его к армянскому. Если бы можно было отдельно задать слова для перевода, было бы куда удобнее.

Цитата:
Нажми F2 и посмотри в командную строчку
Ах вот оно что. Интересно сделал, очень и очень полезно. Только в конечном итоге это дело должно быть не чертеже, в ведомости расхода стали. Я планировал на этот счет позже начать разговор и куда глубже, но раз уже начали, то и я буду готовить ТЗ на этот счет. (Надеюсь ты не против)
Red Nova вне форума  
 
Непрочитано 08.04.2008, 15:57
#339
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,149


VVA, мне только шайбы и гайки осталось, остальное все устравивает, и можно к деревяшкам переходить...
Вложения
Тип файла: dwg
DWG 2004
ТЗ для дерева.dwg (269.7 Кб, 2054 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 08.04.2008, 18:05
#340
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996


Версия 6
Добавлены Болты, Гайки, Шайбы
Новая команда SpecW (Spec Wood) - спецификация деревянных изделий
Пример в файле Спецификация.dwg
Настройки по SumTSet
Вложения
Тип файла: rar sumTV6.rar (350.4 Кб, 128 просмотров)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций)



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сейсмозащита и сейсмоизоляция существующих, построенных зд. IANationalInformAgentstvo Прочее. Архитектура и строительство 216 20.01.2015 16:51
Предложения по расчетным моделям сооружений aldt Расчетные программы 8 06.07.2009 17:53
Мониторы LCD CRT Разное 94 17.06.2008 10:51
ЮМОР 2006 =) Perezz!! Разное 1122 04.01.2007 00:46