| Правила | Регистрация | Пользователи | Сообщения за день |  Справка по форуму | Файлообменник |

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

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

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

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

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

Последний раз редактировалось Red Nova, 13.03.2009 в 10:11.
Просмотров: 197065
 
Автор темы   Непрочитано 08.07.2008, 23:10
#441
Red Nova

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


VVA
Лист ромб и Лист чечевица считает под одну массу. Я помню что они отличались.
Файл опять не крепит, пишу пример строчно
/ ГОСТ 8568-77 / Лист ромб-8х100x1000 / / 10 / 6.7 / 66.6 /
/ ГОСТ 8568-77 / Лист чечевица-8х100x1000 / / 10 / 6.7 / 66.6 /

dextron3, А ты что не помнишь последовательность столбцов spec5d? Напомню
/Обозначение/ Наименоваие/Длина/ Количество/ Масса ед/ Масса Всех
__________________
Блог
Red Nova вне форума  
 
Непрочитано 09.07.2008, 10:38
#442
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,992
<phrase 1= Отправить сообщение для VVA с помощью Skype™


У меня считает правильно
Изображения
Тип файла: gif SPEC5D.gif (63.3 Кб, 952 просмотров)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 09.07.2008, 12:01
#443
Red Nova

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


У меня тоже на работе заработало, а дома нет
Может остался прописан путь к старому файлу, надо будет проверить.
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 09.07.2008, 22:19
#444
Red Nova

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


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

B) Опять думал о ведомости расхода стали. Прежде чем к этому приступить решил посмотреть какие массы выдает команда в ком строке (ты ведь на это будешь основываться если будешь писать лисп расхода стали)
Обнаружил следующее.
1. Ну про это ты уже от части знаешь, и на вряд ли сможешь помочь, т.к. наверное это только у меня. Масса чечевичного листа приплюсовывается к массе листа ромба.
2. Масса фланца не приплюсовывается к листам той же толщины, а считается отдельно. Желательно это исправить.
Арматура суммируется по принципу госта а разность марки игнорируется. Имел арматуру ГОСТ 5781-82 Ac1 и ГОСТ 5781-82 A500c, получил общую сумму масс.
Цитата:
-------------------------------------------------
Класс : Прокат ДЛџ СОВМЕСТИМОСТИ
ГОСТ 5781-82
Арматура d= 6 - 2.442 кг.
Арматура d= 18 - 44.0 кг.
-------------------------------------------------
Хотелось бы по отдельности.
К стати тут в шапке пишет что-то не то, (я про “Прокат ДЛџ СОВМЕСТИМОСТИ”)

C) Прошу подправить существующий лисп, и подумать о создании нового лиспа для создания ведомости расхода стали.
Помню предлагал вариант, но он оказался больно сложным. Вот придумал более легкий.
Смотри ТЗ в файле.
Надеюсь ты найдешь время для этой разработки.
Вложения
Тип файла: dwg
DWG 2004
ТЗ Вед.dwg (141.1 Кб, 2331 просмотров)
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 10.07.2008, 10:58
#445
Red Nova

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


VVA, Думаю задумку с #444 можно еще более упростить.
В файле с #444 ведомость создается на основе существующей заготовки. А что если создавать ведомость как генерируемую таблицу? На мой взгляд так должно быть легче и в программном аспекте, и в аспекте дальнейшего использования.

В таком случае алгоритм должен выглядеть так:
Отмечаем текст с именем “Изделия-1”, это имя записывается в памяти, затем рамкой отмечаем все детали принадлежащие “Изделию-1”, затем отмечаем текст с именем “Изделия-2” и соответственно рамкой его детали, так продолжается для всех Изделий, когда все изделия уже вписаны в память нажимаем enter, и вставляем сгенерированную таблицу. При вставки таблицы желательно чтобы прежде запрашивался масштабный коэффициент для нее, так как не у всех таблицы 1:1, я к примеру их делаю в модели, и они у меня 1:25.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 10.07.2008, 10:59
#446
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,992
<phrase 1= Отправить сообщение для VVA с помощью Skype™


1.
Цитата:
Ну про это ты уже от части знаешь, и на вряд ли сможешь помочь, т.к. наверное это только у меня
У тебя определенно барабашки. У меня так
Цитата:
Команда: SpecKG

(Округление до 2) Укажите рамкой область из 6 или 5 столбцов (Обз Наим Длина
Кол-во Масса_ед Масса_всех). Первая точка:
Вторая точка:
============= ИТОГ РАБОТЫ ==============

Класс : Прокат СТ3СП
ГОСТ 19903-74
Лист 8 - 115.5 кг.

-------------------------------------------------
ГОСТ 8568-77
Рифленый лист ромб 8 - 66.6 кг.
Рифленый лист чечев. 8 - 64.9 кг.
-------------------------------------------------
ГОСТ 103-76
Лист 4 - 13.86 кг.
-------------------------------------------------
ГОСТ 30245-03
Профиль гнутый 50Х50Х2 - 32.23 кг.
-------------------------------------------------
ГОСТ 10704-91
Труба круглая 127х5 - 165.44 кг.
-------------------------------------------------
2. Тоже неправда. См выделение синим в №1

Цитата:
Арматура суммируется по принципу госта а разность марки игнорируется. Имел арматуру ГОСТ 5781-82 Ac1 и ГОСТ 5781-82 A500c, получил общую сумму масс
Разность марки игнорируется, если класс арматуры неизвестен. Класс арматуры описывается в базе в этом месте. Там АС1 и АС500 не было
Цитата:
("КЛАССАРМАТУРЫ" 37 "NOPATTERN" "Для совместимости" "Классы арматуры" ("А240" "А300" "АС300" "А400" "А600" "А800" "А1000" "А-III" "АIII" "А-II" "АII" "А-IV" "А-I" "АI" "Вр-I" "S240" "S400" "S500" "S800"))
Считало так
Цитата:
-------------------------------------------------
Класс : Прокат ДЛЯ СОВМЕСТИМОСТИ
ГОСТ 5781-82
Арматура d= 8 - 4.4 кг.
Арматура d= 18 - 22.0 кг.
-------------------------------------------------
А вот что стало после добавления
Цитата:
("КЛАССАРМАТУРЫ" 37 "NOPATTERN" "Для совместимости" "Классы арматуры" ("А240" "А300" "АС300" "А400" "А600" "А800" "А1000" "А-III" "АIII" "А-II" "АII" "А-IV" "А-I" "АI" "Вр-I" "S240" "S400" "S500" "S800" "АС1" "А500С"))
Подсчет соответственно
Цитата:
============= ИТОГ РАБОТЫ ==============

Класс : Прокат СТ3СП
ГОСТ 8509-93
Уголок 75Х75Х6 - 75.79 кг.
-------------------------------------------------
ГОСТ 30245-03
Профиль гнутый 50Х25Х2 - 21.5 кг.
-------------------------------------------------
ГОСТ 8239-89
Двутавр 20 - 231.0 кг.
-------------------------------------------------
Класс : Арматура АС1
ГОСТ 5781-82
Арматура d= 8 - 4.4 кг.
-------------------------------------------------
Класс : Арматура А500С
ГОСТ 5781-82
Арматура d= 18 - 22.0 кг.
-------------------------------------------------
Если в базе заменишь СТ3СП на Вст3кп2, то будешь получать прокат Вст3кп2
Фрагмент базы
Цитата:
("Д" 1 "ГОСТ 26020-83;ГОСТ26020-83" "Ст3сп" "Двутавры по ГОСТ 26020-83 ...
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 10.07.2008, 12:47
#447
Red Nova

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


1) Спасибо. С добавлением классов арматуры разобрался, работает.
2) С фланцем не работает. Пробовал на рабочем компе, на котором барабашек с листами нет.
Вот результат

Цитата:
============= ИТОГ РАБОТЫ ==============

Класс : Прокат
ГОСТ 19903-74
Лист 8 - 62.8 кг.
Фланец 327х8 - 52.7406 кг.
-------------------------------------------------
3) К стати по ГОСТ 103-76 полоса а не лист, я это про это
Цитата:
ГОСТ 103-76
Лист 4 - 13.816 кг.
Хотя в общем это маловажно, результат ведь в ком строке пока.

4) А как на счет ведомости стали? Не заинтересовало?
__________________
Блог
Red Nova вне форума  
 
Непрочитано 10.07.2008, 13:08
#448
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,992
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Подозреваю, что лисп старый
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 10.07.2008, 13:19
#449
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,992
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Вот версия лиспа, листинг которого приводил.
При загрузке будет печататься номер сборки.
Цитата:
Опубликовано: http:////dwg.ru//f//showthread.php?t=16987 сборка(пост) #449
Наберите в командной строке
SumTN - суммирование тестов в новый текст
...
Для реализации ведомости расхода стали нужно время. Его пока нет

*** Добавлено ***
Теперь для ГОСТ 103-76 и ГОСТ 103-2006 будет писать ПОЛОСА.
Вложения
Тип файла: rar sumT post#449.rar (370.5 Кб, 251 просмотров)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 10.07.2008, 14:26
#450
Red Nova

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


Спасибо, по видемому ты был прав что лисп старый. Лисп с#449 работает так как надо.
Цитата:
Для реализации ведомости расхода стали нужно время. Его пока нет
Буду ждать и надеятся
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 20.07.2008, 13:37
#451
Red Nova

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


VVA,
А что если автоматизировать создание самой таблицы спецификации (из мтекстов разумеется)? В смысле каждый из нас, конструкторов которые используют твои лиспы типа SPEC5D, сперва должны создать ведомость, которую потом уже можно считать одним кликом при помощи твоей программы. А ведь вся информация, которую мы собираем в таблицу спецификации по большей части уже присутствует на чертеже, и куча времени уходит на ее копирование в спецификацию.
Предлагаю создать программу, которая умеет это автоматизировать.
Вот ее краткое описание.
Задумка пока только для людей вписывающих позиции в выноски СПДС (если будет интерес, то в принципе выносками СПДС можно не ограничиваться).
Как большинство конструкторов оформляют позиционную выноску. В первую строку вписывается номер позиции, во вторую строку информацию о прокате (арматуре).
При запуске лисп выбирает все позиционные выноски СПДС, фильтрует не информативные (те которые своими параметрами не подходят под наши условия), затем избавляется от дублирующейся информации (та же позиция может быть в разных местах), затем отмечаем приготовленный шаблон спецификации, и лисп переписывает в нее собранную информацию.
Думаю основной принцип ясен.
Если это тебя заинтересует, то расскажу про все задуманные этапы по подробнее. А пока подожду твоего ответа.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 20.07.2008, 13:47
#452
dextron3

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


Red Nova, а ты VetCAD 3.5 ++ смотрел, так как все что ты рассказываешь это там реализовано, скачай пробную версию, посмотри, как он считает спецификации, как раз таки там есть выноски, которые запозиционированы, и завязаны со спецификацией, из которой автоматом делается ведомость расхода, потом расскажи что думаешь...
буду ждать...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 20.07.2008, 15:08
#453
Red Nova

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


Посмотрел VetCad.
Задумка конечно же хорошая. Но.
1. Позиционная выноска есть блок + полилиния. Это неудобно.
2. Чтобы работать с VetCad выносками и спецификациями надо сначала вызывать редактор VetCad. То есть нет энейблера как в СПДС.

Добавил
И кроме этого. Я не ставлю целью записать в позицию всю информацию о ней, как в VetCad, только то, что уже на чертеже. К примеру графу количество в спецификации следует заполнять самим (после сбора информации из выносок).


P.S.
1. А ты что на VetCad перешел?
2. Поздравляю с двухтысячным.
__________________
Блог

Последний раз редактировалось Red Nova, 20.07.2008 в 16:28.
Red Nova вне форума  
 
Непрочитано 20.07.2008, 18:17
#454
dextron3

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


Red Nova, мне кажжется что уже все приркучивать к тому что есть только во вред, помнишь ты писал про фланцы я встваил файл так у меня все пластины перестал считать откатился назад....

Веткад задумка очень даже хорошая я еще как только автокадом пользоваться начал сразу а таком способе задумался, но жаль что программа платная, поэтому не для нас...

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

2/ А спасибо мне сказали кто 10 тыщ сообщений набирает, тот автоматом moderatorom становится, ну естесвенно дается испытательный срок, типа модератор чата и не более..., а там как себя покажешь
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 20.07.2008, 18:49
#455
Red Nova

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


Цитата:
мне кажжется что уже все приркучивать к тому что есть только во вред, помнишь ты писал про фланцы я встваил файл так у меня все пластины перестал считать откатился назад....
А у меня все тип топ.
Цитата:
мне сказали кто 10 тыщ сообщений набирает, тот автоматом moderatorom становится
А там и до президентства не далеко…
__________________
Блог
Red Nova вне форума  
 
Непрочитано 21.07.2008, 12:03
#456
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,992
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Red Nova, #451 Я это делать не буду, т.к.
1. Не использую СПДС в работе
2. не интересно.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 21.07.2008, 12:48
#457
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844


> #451: практически нереализуемо лиспом. Представление СПДС-объектов недостаточно для такого действия.
Добавлено: а штатные средства составления спецификаций (которые идут вместе с СПДС) не пробовал прикрутить? Говорят, получается...
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 21.07.2008, 14:02
#458
Red Nova

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


VVA,
Понятно, ну собственно я так и предполагал, ты и так во многих вопросах мне помог…
Кулик Алексей aka kpblc,
Цитата:
а штатные средства составления спецификаций (которые идут вместе с СПДС) не пробовал прикрутить? Говорят, получается...
Я так и не нашел в СПДС стандартного метода расчета спецификации (на подобии VetCad или SPEC). Нашел возможность вставлять из базы памяти наименования профилей, но как их рассчитывать - нет.
Цитата:
#451: практически нереализуемо лиспом. Представление СПДС-объектов недостаточно для такого действия.
Странно. Во первых не понял что означает “представление СПДС объектов”.
Попробую по логике пояснить. Если выбрать СПДС выноску, и зайти в свойства, то мы увидим там (в свитке SPDS Graphics) следующие строки “Первая строка” и “вторая строка” (Возможно необходимо иметь для этого энейблер СПДС).
Неужели невозможно лиспом прочитать содержание этих строк? Если их содержимое прочитать, то дальше наличие СПДС не имеет влияния, и дело за стандартными операциями, похожими на те, которые VVA использовал на этом топике (хотя может и очень сложными).
__________________
Блог
Red Nova вне форума  
 
Непрочитано 21.07.2008, 15:07
#459
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,844


Я был неправ, признаю. Добраться до свойств выноски в принципе можно. Но только прочитать (по-моему, менять невозможно). Вот одно из представлений узловой выноски (полученное по (entget (car (entsel)))):
Код:
[Выделить все]
'((0 . "spdsNotePosition")
  (100 . "AcDbEntity")
  (67 . 0)
  (410 . "Model")
  (8 . "0")
  (48 . 100.0)
  (370 . 25)
  (100 . "mcsDbObject")
  (100 . "mcsDbObjectNotePosition")
  (90 . 1)
  (301 . "Name")
  (300 . "строка2")
  (301 . "Info")
  (300 . "Позиционная выноска\r\nстрока2\r\nстрока 4")
  (301 . "Scale")
  (40 . 100.0)
  (301 . "CutAcElements")
  (290 . 1)
  (301 . "Text style")
  (300 . "GOST 2.304")
  (301 . "Первая строка")
  (300 . "строка2")
  (301 . "Вторая строка")
  (300 . "строка 4")
  (301 . "Выравнивание текста")
  (90 . 1)
  (301 . "Направление полки")
  (40 . 0.0)
  (301 . "Высота текста")
  (40 . 2.5)
  (301 . "Высота малого текста")
  (40 . 2.5)
  (301 . "Шаг угла")
  (40 . 0.0)
  )
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 21.07.2008, 16:04
#460
Red Nova

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


Ну вот, это именно то что и требовалось. Ничего в выноске менять не надо. Она только несет исходную информацию. А дальше многократная фильтрация этой информации, упорядочивание, а затем и заполнение ее в заранее преготовленный шаблон.
Продолжение ответа тут.
http://dwg.ru/f/showthread.php?t=22894
__________________
Блог
Red Nova вне форума  
Ответ
Вернуться   Форум 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